start:
CLS
PRINT
COLOR 22
PRINT "                        N O V µ  H R A"
COLOR 11
PRINT
PRINT "Luçti kýˇ§ovky"
COLOR 10
PRINT
PRINT "1 = Hra"
PRINT "2 = N povŘda"
PRINT "3 = Konec"
DO
hra$ = UCASE$(INKEY$)
LOOP UNTIL hra$ = "1" OR hra$ = "2" OR hra$ = "3"
IF hra$ = "1" THEN GOTO hra
IF hra$ = "3" THEN RUN "menu.bas"
IF hra$ = "2" THEN GOTO help
help:
CLS
PRINT
COLOR 11
PRINT
PRINT "ékolem je vyýeçit kýˇ§ovky"
PRINT
COLOR 10
PRINT "Tajenka je v§dy oznaźena znakem T"
COLOR 2
PRINT "!Doplĺovat jde jen svislěm smŘrem!"
COLOR 10
PRINT
PRINT "Dopĺov mˇ je velmi jednoduch‚"
COLOR 2
PRINT "U ka§d‚ ot zky je znak, kterě kdy§ stisknete tak se objevˇ vˇzva s"
COLOR 10
PRINT "źˇslem ot zky, za kter‚ napˇçete v ç n zor"
COLOR 2
PRINT "Text musˇ mˇt stejnŘ znak… jako ve vzoru!"
PRINT
COLOR 11
PRINT "Pokraźuj enrem"
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOTO start
hra:
CLS
COLOR 11
PRINT "Tajenka ź. 1:"
PRINT
COLOR 10
PRINT "VodorovnŘ:"
PRINT
COLOR 2
PRINT "1 = ¬idlo zraku"
PRINT "2 = Znaźka Rubˇdia"
PRINT "3 = Infekźnˇ źinitel"
PRINT "4 = Bezhrbě velloud"
PRINT "5 = ¦hnout"
PRINT "6 = Obkladek"
PRINT "7 = PŘtnˇk (n ýeźnŘ)"
PRINT "8 = Liter rnˇ Listy (zkr.) "
PRINT
COLOR 10
PRINT "Svisle:"
PRINT
COLOR 2
PRINT "T = Tajenka"
PRINT "1 = ZmŘna"
PRINT "2 = Kut let"
PRINT "3 = Magma"
PRINT "4 = Lepidlo çevce"
PRINT "6 = Ptaźˇ vŘzenˇ"
COLOR 14
LOCATE 5, 50
PRINT "T"
COLOR 4
LOCATE 5, 51
PRINT "1"
LOCATE 6, 48
PRINT "1"
COLOR 2
LOCATE 6, 49
PRINT LEFT$(o1$, 3)
LOCATE 7, 50
PRINT LEFT$(o2$, 2)
LOCATE 8, 49
PRINT LEFT$(o3$, 3)
LOCATE 9, 48
PRINT LEFT$(o4$, 4)
LOCATE 10, 47
PRINT LEFT$(o5$, 5)
LOCATE 11, 47
PRINT LEFT$(o6$, 4)
LOCATE 12, 47
PRINT LEFT$(o7$, 5)
LOCATE 13, 50
PRINT LEFT$(o8$, 2)
COLOR 14
LOCATE 14, 50
PRINT "T"
COLOR 2
LOCATE 14, 51
PRINT "E"
LOCATE 15, 51
PRINT "C"
COLOR 11
LOCATE 5, 52
PRINT "ş"
LOCATE 6, 52
PRINT "ş"
LOCATE 7, 52
PRINT "ş"
LOCATE 8, 52
PRINT "ş"
LOCATE 9, 52
PRINT "ş"
LOCATE 10, 52
PRINT "ş"
LOCATE 11, 52
PRINT "ş"
LOCATE 12, 52
PRINT "ş"
LOCATE 13, 52
PRINT "ş"
LOCATE 14, 52
PRINT "ş"
LOCATE 15, 52
PRINT "ş"
COLOR 4
LOCATE 11, 51
PRINT "6"
LOCATE 7, 49
PRINT "2"
LOCATE 8, 48
PRINT "3"
LOCATE 9, 47
PRINT "4"
LOCATE 10, 46
PRINT "5"
LOCATE 11, 46
PRINT "6"
LOCATE 12, 46
PRINT "7"
LOCATE 13, 49
PRINT "8"
LOCATE 22, 1
DO
p$ = UCASE$(INKEY$)
LOOP UNTIL p$ = "1" OR p$ = "2" OR p$ = "3" OR p$ = "4" OR p$ = "5" OR p$ = "6" OR p$ = "7" OR p$ = "8" OR p$ = CHR$(84)
IF p$ = "1" THEN GOTO 1
IF p$ = "2" THEN GOTO 2
IF p$ = "3" THEN GOTO 3
IF p$ = "4" THEN GOTO 4
IF p$ = "5" THEN GOTO 5
IF p$ = "6" THEN GOTO 6
IF p$ = "7" THEN GOTO 7
IF p$ = "8" THEN GOTO 8
IF p$ = CHR$(84) THEN GOTO tajen
IF p$ <> "" THEN END
END
1 :
LOCATE 23, 1
COLOR 2
INPUT "¬idlo zraku na 3: ", ot1$
o1$ = UCASE$(ot1$)
GOTO hra
END
2 :
COLOR 2
LOCATE 23, 1
INPUT "Znaźka Rubˇdia na 2: ", ot2$
o2$ = UCASE$(ot2$)
GOTO hra
3 :
COLOR 2
LOCATE 23, 1
INPUT "Infekźnˇ źinitel na 3: ", ot3$
o3$ = UCASE$(ot3$)
GOTO hra
4 :
COLOR 2
LOCATE 23, 1
INPUT "Bezhrbě velblou na 4: ", ot4$
o4$ = UCASE$(ot4$)
GOTO hra
5 :
COLOR 2
LOCATE 23, 1
INPUT "¦hnout na 5: ", ot5$
o5$ = UCASE$(ot5$)
GOTO hra
6 :
COLOR 2
LOCATE 23, 1
INPUT "Obkladek na 4: ", ot6$
o6$ = UCASE$(ot6$)
GOTO hra
7 :
COLOR 2
LOCATE 23, 1
INPUT "PŘtnˇk (n ý.) na 5: ", ot7$
o7$ = UCASE$(ot7$)
GOTO hra
8 :
COLOR 2
LOCATE 23, 1
INPUT "Liter rnˇ Listy (zkr.) na 2: ", ot8$
o8$ = UCASE$(ot8$)
GOTO hra
tajen:
COLOR 7
LOCATE 23, 1
INPUT "Jestli to napˇçeç çpatnŘ, tak tŘ źek  ", tajen$
IF UCASE$(tajen$) = "KRIMIN L" OR tajen$ = "KRIMINµL" THEN GOTO ok
IF UCASE$(tajen$) <> "KRIMIN L" OR tajen$ <> "KRIMINµL" THEN GOTO bad
bad:
CLS
PRINT
PRINT
PRINT "M ç to çpatnŘ..."
PLAY "c9p4c9"
GOTO hra
ok:
CLS
COLOR 10
PRINT
PRINT
PRINT
PRINT "M ç to v kapse..."
COLOR 11
PRINT
PRINT "1 = Dalçˇ hra"
PRINT "2 = Menu"
DO
r$ = UCASE$(INKEY$)
LOOP UNTIL r$ = "1" OR r$ = "2"
IF r$ = "1" THEN GOTO hra2
IF r$ = "2" THEN GOTO start
hra2:
pokus = pokus + 1
hra2c:
CLS
PRINT ""
COLOR 11
PRINT "Pýesmyźky (ýeky ¬R - slova, kter‚ jsou oznaźeny źervenŘ)"
COLOR 2
PRINT
PRINT "Do jˇdla mi pýidali"
LOCATE 4, 21
COLOR 4
PRINT "jedy - "
COLOR 2
LOCATE 4, 28
INPUT "", r1$
IF UCASE$(r1$) = "DYJE" THEN GOTO o2
IF UCASE$(r1$) <> "Dyje" THEN PLAY "c9p2c9"
GOTO hra2
END
o2:
COLOR 10
PRINT "Vźera mŘ potkala"
LOCATE 5, 18
COLOR 4
PRINT "Dora - "
COLOR 10
LOCATE 5, 25
INPUT "", r2$
IF UCASE$(r2$) = "ODRA" THEN GOTO o3
IF UCASE$(r2$) <> "ODRA" THEN PLAY "c9p2c9"
GOTO hra2
o3:
COLOR 2
PRINT "Na louce se p sla"
LOCATE 6, 19
COLOR 4
PRINT "sta krav - "
COLOR 2
LOCATE 6, 30
INPUT "", r3$
IF UCASE$(r3$) = "SVRATKA" THEN GOTO o4
IF UCASE$(r3$) <> "SVRATKA" THEN PLAY "c9p2c9"
GOTO hra2
END
o4:
COLOR 10
PRINT "Noha"
LOCATE 7, 6
COLOR 4
PRINT "nebo ruka  - "
COLOR 10
LOCATE 7, 15
PRINT "?"
LOCATE 7, 19
INPUT "", r4$
IF UCASE$(r4$) = "BEROUNKA" THEN GOTO o5
IF UCASE$(r4$) <> "BEROUNKA" THEN PLAY "c9p2c9"
GOTO hra2
END
o5:
COLOR 2
PRINT "Pýivezli my"
LOCATE 8, 13
COLOR 4
PRINT "staviva - "
COLOR 2
LOCATE 8, 23
INPUT "", r5$
IF UCASE$(r5$) = "SVITAVA" THEN GOTO o6
IF UCASE$(r5$) <> "SVITAVA" THEN PLAY "c9p2c9"
GOTO hra2
END
o6:
CLS
PRINT
IF pokus = 1 THEN pocet$ = "pokus"
IF pokus = 2 OR pokus = 3 OR pokus = 4 THEN pocet$ = "pokusy"
IF pokus > 4 THEN pocet$ = "pokus…"
PRINT "Zvl dnul (- a) si to na "; pokus; " "; pocet$
PLAY "c9p1c9"
GOTO hra3
END
hra3:
CLS
bodiky = bodiky + 1
PRINT
COLOR 11
PRINT "Pýesmyźky - hudebnˇ n stroje"
PRINT
COLOR 2
PRINT "Pýiprav se"
LOCATE 4, 12
COLOR 4
PRINT "na boj - "
COLOR 2
LOCATE 4, 21
INPUT "", t1$
IF UCASE$(t1$) = "BANJO" THEN GOTO p2
IF UCASE$(t1$) <> "BANJO" THEN PLAY "c9p2c9"
GOTO hra3
p2:
COLOR 10
PRINT "Vidˇm dˇtŘ a"
LOCATE 5, 14
COLOR 4
PRINT "ono krade - "
COLOR 10
LOCATE 5, 26
INPUT "", t2$
IF UCASE$(t2$) = "AKORDEON" THEN GOTO p3
IF UCASE$(t2$) <> "AKORDEON" THEN PLAY "c9p2c9"
GOTO hra3
END
p3:
COLOR 2
PRINT "Dobrě doplnŘk stravy je"
LOCATE 6, 25
COLOR 4
PRINT "oliva - "
COLOR 2
LOCATE 6, 33
INPUT "", t3$
IF UCASE$(t3$) = "VIOLA" THEN GOTO p4
IF UCASE$(t3$) <> "VIOLA" THEN PLAY "c9p2c9"
GOTO hra3
END
p4:
COLOR 10
PRINT "Souboj:"
LOCATE 7, 9
COLOR 4
PRINT "rak a ty - "
COLOR 10
LOCATE 7, 20
INPUT "", t4$
IF UCASE$(t4$) = "KYTARA" THEN GOTO p5
IF UCASE$(t4$) <> "KYTARA" THEN PLAY "c9p2c9"
GOTO hra3
END
p5:
COLOR 2
PRINT "Nesahejte kr vŘ"
LOCATE 8, 17
COLOR 4
PRINT "na roh - "
COLOR 2
LOCATE 8, 26
INPUT "", t5$
IF UCASE$(t5$) = "HORNA" THEN GOTO p6
IF UCASE$(t5$) <> "HORNA" THEN PLAY "c9p2c9"
GOTO hra3
END
p6:
CLS
PRINT
IF bodiky = 1 THEN pocet2$ = "pokus"
IF bodiky = 2 OR bodiky = 3 OR bodiky = 4 THEN pocet2$ = "pokusy"
IF bodiky > 4 THEN pocet2$ = "pokus…"
PRINT "Zvl dnul (- a) si to na "; bodiky; " "; pocet2$
PLAY "c9p1c9"
GOTO start
END