start:
CLS
PRINT
COLOR 22
PRINT "                        N O V µ  H R A"
COLOR 11
PRINT
PRINT "Posbˇrej vçech 16 bod…"
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 "Tato hra je pro dva hr źe"
PRINT
COLOR 10
PRINT "Hr ź źˇslo 1:"
COLOR 2
PRINT "Ovl d nˇ - doleva: S, doprava: F, nahoru: E, dolu: D"
COLOR 10
PRINT
PRINT "Hr ź źˇslo 2:"
COLOR 2
PRINT "Ovl d nˇ - çipkami"
PRINT
COLOR 10
PRINT "Hr ź ź.1 hraje na lev‚ stranŘ, hr ź ź.2 na stranŘ prav‚"
COLOR 2
PRINT "Ukolem hry je sesbˇrat 13 źervněch hvŘzdiźek"
COLOR 10
PRINT "Kdo tak uźinˇ dýˇv, vyhr l"
COLOR 2
PRINT "›uk nˇ pýi hýe musˇ bět pýeruçovan‚!!!"
COLOR 10
PRINT "Jm‚no, kter‚ je napsan‚ bˇlou barvou vede"
PRINT
COLOR 11
PRINT "Pokraźuj entrem"
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOTO start
hra:
COLOR 11
INPUT "Zadej jm‚no prvnˇho hr źe: ", name$
INPUT "Zadej jm‚no druh‚ho hr źe: ", name2$
j = 0
e = 15
r = 65
x = 10
y = 20
a = 10
s = 60
q = 10
w = 10
GOTO pecko
END
pecko:
CLS
IF a = e THEN GOTO bod
IF x = q THEN GOTO body
IF x <> q THEN GOTO elko
IF a <> e THEN GOTO elko
elko:
CLS
IF a = 2 THEN a = 3
IF a = 19 THEN a = 18
IF s = 41 THEN s = 42
IF s = 78 THEN s = 77
IF x = 2 THEN x = 3
IF x = 19 THEN x = 18
IF y = 1 THEN y = 2
IF y = 38 THEN y = 37
PRINT
COLOR 2
PRINT STRING$(38, "Ü"); "  "; STRING$(38, "Ü")
pq$ = STRING$(36, " ")
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT "Ű"; pq$; "Ű"; "  Ű"; pq$; "Ű"
PRINT STRING$(38, "ß"); "  "; STRING$(38, "ß")
COLOR 4
LOCATE q, w
PRINT "*"
COLOR 4
LOCATE e, r
PRINT "*"
COLOR 11
LOCATE x, y
PRINT "°"
COLOR 13
LOCATE 1, 1
PRINT x; y
LOCATE 1, 48
PRINT a; s
LOCATE a, s
COLOR 11
PRINT "°"
LOCATE 1, 15
COLOR 13
PRINT "Poźet bod…: "; body
LOCATE 1, 62
PRINT "Poźet bod…: "; j
COLOR 15
LOCATE 1, 34
IF body = j THEN prowin$ = "remˇza"
IF body < j THEN prowin$ = name2$
IF body > j THEN prowin$ = name$
PRINT prowin$
DO
P$ = UCASE$(INKEY$)
LOOP UNTIL P$ = CHR$(83) OR P$ = CHR$(70) OR P$ = CHR$(68) OR P$ = CHR$(69) OR P$ = CHR$(0) + CHR$(72) OR P$ = CHR$(0) + CHR$(80) OR P$ = CHR$(0) + CHR$(75) OR P$ = CHR$(0) + CHR$(77) OR P$ = CHR$(13)
IF P$ = CHR$(13) THEN END
IF P$ = CHR$(0) + CHR$(72) THEN a = a - 1
IF P$ = CHR$(0) + CHR$(80) THEN a = a + 1
IF P$ = CHR$(0) + CHR$(75) THEN s = s - 1
IF P$ = CHR$(0) + CHR$(77) THEN s = s + 1
IF P$ = CHR$(68) THEN x = x + 1
IF P$ = CHR$(69) THEN x = x - 1
IF P$ = CHR$(70) THEN y = y + 1
IF P$ = CHR$(83) THEN y = y - 1
GOTO pecko
END
CLS
body:
IF y = w THEN GOTO pocetbodu
IF y <> w THEN GOTO zpet
zpet:
GOTO elko
pocetbodu:
body = body + 1
IF body = 16 THEN GOTO finis
IF body <> 16 THEN GOTO bb
bb:
RANDOMIZE TIMER
w = INT(RND * 35) + 2
q = INT(RND * 15) + 3
GOTO pecko
finis:
LOCATE 10, 30
COLOR 10
PRINT "Hra je u konce"
LOCATE 12, 30
PRINT ""; name$; ": "; body; " bod…"
LOCATE 13, 30
PRINT ""; name2$; ": "; j; " bod…"
LOCATE 15, 30
IF body = j THEN win$ = "remˇza"
IF body < j THEN win$ = name2$
IF body > j THEN win$ = name$
PRINT "VˇtŘz: "; win$
PRINT
COLOR 2
PRINT "                          Copyright Jan Dvpýk company"
COLOR 11
PRINT "                                Pokraźuj entrem"
PRINT
DO
LOOP UNTIL INKEY$ = CHR$(13)
PRINT "1 = Level 2"
PRINT "2 = Menu"
DO
level$ = UCASE$(INKEY$)
LOOP UNTIL level$ = "1" OR level$ = "2"
IF level$ = "1" THEN RUN "levdva.dat"
IF level$ = "2" THEN GOTO start
bod:
IF s = r THEN GOTO pocetbo
IF s <> r THEN GOTO zpatky
pocetbo:
j = j + 1
IF j = 16 THEN GOTO finis
IF j <> 16 THEN GOTO nn
nn:
RANDOMIZE TIMER
r = INT(RND * 35) + 42
e = INT(RND * 15) + 3
GOTO pecko
zpatky:
GOTO elko