Werbung
-. PROGRAMMBETSPIELE
PROGRAMMLISTING
1@:"A": RANDOM : WAIT 2
5@: PRINT "##KAEFERJ
AGD**": BEEP 3
20:X2O:¥sO:E=100:F=100:
T=0:S=@ ©
30:A=
RND 9:B=RND
9
4@:L= ABS..(X-A)+ ABS(Y
-B)
50:1F X=A-AND:Y=B GOTO — ,
400
100:IF L=1 BEEP 3
11@:IF L=2 BEEP 2
120:IF L=3 BEEP
4
130:WAIT
50:
PRINT
"(";
STR$ (X);","; STR$ (
Y);")ABSTAND=":
STR$
(L);"Es";
STR$ (EB)
150:S=S8+1:E=F-
INT
(8/2)
153: IF E<=@ THEN 500
155:G$=
INKEY$
: OF G$="
" GOTO
130
157:BEEP
1
160: EF G$s"2"
-LET. Ys¥-1:
- GOTO 219.
- .
17Q:IF
G$a 4
LET X=X-1
GOTO 210
180:IF Gd="6"
LET X=X41;
GOTO 210
190: IF G$="8"
LET, Y=¥+1:_
GOTO 210
200:GOTO 150
210:IF X<@ LET X=@: GOTO
150
220:IF Y<® LET Y=@: GOTO
150
23@0:IF
X>9 LET
X=9:
GOTO
-
150
240:IF
Y>9 LET Y=9:
GOTO
159
250:IF
X=A
AND Y=B GOTO -
400
260:E=F-
INT
(S/2)
270:IF
E<=0
GOTO 500
280:R=
RND
S .
290:IF
R=1
LET B=B-1: —
GOTO
340
300:IF
R=2
LET
A=A-1:
GOTO
340
Po
310:IF
R=3
LET A=A+1:
GOTO
340
320:IF
R=4
LET
B=B+l:
GOTO
340
34@:IF
A<@
OR
ADO
GOTO
3
70
350:IF
B<®
OR
B>S
GOTO
3
7@
" 360:GoTO 4e
bots
OE 2
Sate
de2ed
370: BEEP
4: PAUSE
"*##%yo..
40@:PAUSE
"TREFFER!'
U4@:BEEP
5
420:PAUSE
"BANG!
BANG!".
—..
Meee
N3Q@:TsT+1:Cs RND 3*5:F=sF)
0.)
+C
"435:E=F~ INT (5/2).
hg 38
AN@:WAIT
100:
PRINT
"PUN
KTE ";T;"ENERGIE
"3B
ooo.
459:GOTO
30
:
50@:WAIT
: PRINT
""PUNKTE
-
-"; STR# (T);" *SPIE
L AUSTIN"
.
510:END .
Oe
be.
i
SPEICHERINKALT
:
Se
7
Rae rae
R e n e e
[A : X-Koordinate
=
s—"'s*'—S™S~S~S
B
Y¥-Koordinate
;
Verbleibende
Energie
[yo Energie
Tasteneingabe
2,
4,
6,
8
Abstand
Kafer/Mann
MOSS)
CS
aie)
oo
Position
Mann X-Koordinate
Position
Mann
Y¥-Koordinate
Werbung
