CLS
SCREEN 13
'krajina
z = 200
y = 136
GOTO polok
holok:
CLS
FOR i = 1 TO 50
CIRCLE (50, 170), 50 - i, 46, , , .3
NEXT
FOR i = 1 TO 10
LINE (1, 170 + i)-(600, 170 + (2 * i)), 45 + i, BF
NEXT
IF z < 110 THEN z = 110
IF z > 310 THEN z = 310
LINE (z, 169)-(z + 3, 149), 40, BF
LINE (z - 8, 171)-(z + 3, 169), 2, BF
CIRCLE (z + 1, 133), 15, 53, , , 2
PAINT (z + 1, 133), 53
CIRCLE (z + 1, 109), 10, 84, , , 1.1
PAINT (z + 1, 109), 84
CIRCLE (z - 2, 105), 2, 55
PAINT (z - 2, 105), 55
CIRCLE (z - 5, 111), 4, 4, 4
LINE (z + 1, 125)-(z - 5, 135), 52
LINE (z, 126)-(z - 5, 136), 52
LINE (z, 124)-(z - 5, 134), 52
IF y < 127 THEN y = 127
IF y > 145 THEN y = 145
LINE (z - 5, 136)-(z - 20, y), 52
LINE (z - 5, 135)-(z - 20, y - 1), 52
LINE (z - 20, y - 3)-(z - 22, y + 3), 5, BF
LINE (z - 20, y - 3)-(z - 35, y - 2), 5, BF
COLOR 35: LOCATE b, a: PRINT "I"
po:
LOCATE 2, 1: PRINT "Poźet z sah…: "; body
DO
IF j = 3 THEN g = g + 1
IF g < 1000 AND g > 1 THEN LINE (z - 38, y - 3)-(z - 150, y - 3), 4, BF:
IF g > 1000 THEN g = 0: j = 0: LINE (z - 38, y - 3)-(z - 150, y - 3), 0, BF:
IF j = 3 AND b = 15 AND y = 124 THEN GOTO p1
IF j = 3 AND b = 16 AND y = 127 THEN GOTO p1
IF j = 3 AND b = 17 AND y = 133 THEN GOTO p2
IF j = 3 AND b = 18 AND y = 142 THEN GOTO p3
i$ = INKEY$
LOOP UNTIL i$ = "4" OR i$ = "6" OR i$ = CHR$(27) OR i$ = "8" OR i$ = "2" OR i$ = "5" OR i$ = "*"
IF i$ = CHR$(27) THEN END
IF i$ = "4" THEN z = z - 5
IF i$ = "6" THEN z = z + 5
IF i$ = "8" THEN y = y - 3
IF i$ = "2" THEN y = y + 3
IF i$ = "5" THEN j = 3
IF i$ = "*" THEN GOTO polok
GOTO holok
polok:
RANDOMIZE TIMER
a = INT(RND * 20) + 2
b = INT(RND * 3) + 16
GOTO holok
p1:
p2:
p3:
IF a = 2 AND z > 110 AND z < 255 THEN GOTO lo
IF a = 3 AND z > 110 AND z < 265 THEN GOTO lo
IF a = 4 AND z > 110 AND z < 175 THEN GOTO lo
IF a = 5 AND z > 110 AND z < 185 THEN GOTO lo
IF a = 6 AND z > 110 AND z < 195 THEN GOTO lo
IF a = 7 AND z > 110 AND z < 200 THEN GOTO lo
IF a = 8 AND z > 110 AND z < 205 THEN GOTO lo
IF a = 9 AND z > 110 AND z < 215 THEN GOTO lo
IF a = 10 AND z > 120 AND z < 225 THEN GOTO lo
IF a = 11 AND z > 125 AND z < 230 THEN GOTO lo
IF a = 12 AND z > 135 AND z < 240 THEN GOTO lo
IF a = 13 AND z > 145 AND z < 250 THEN GOTO lo
IF a = 14 AND z > 155 AND z < 260 THEN GOTO lo
IF a = 15 AND z > 165 AND z < 270 THEN GOTO lo
IF a = 16 AND z > 170 AND z < 275 THEN GOTO lo
IF a = 17 AND z > 180 AND z < 285 THEN GOTO lo
IF a = 18 AND z > 185 AND z < 190 THEN GOTO lo
IF a = 19 AND z > 190 AND z < 195 THEN GOTO lo
IF a = 20 AND z > 195 AND z < 300 THEN GOTO lo
IF a = 21 AND z > 205 AND z < 310 THEN GOTO lo
IF a = 22 AND z > 210 AND z < 315 THEN GOTO lo
GOTO po
END
lo:
body = body + 1
GOTO polok