Advertisement
GAME
:i:rfJ~fiJ
2524
Bytes
.................................................................................................................... IMtttl ............................ , ..... ,,,, ...................... ....
10 CLEAR:TIME$="00:00:00":DIM A$(10,6)
20-CLS:TX~5:TY=6:SX=15:SY=3:TX2=13:TY2=1:W=0:XX=
5:YY=0:XXX=5:YYY=0:CT=0
j0 TX2=INT<RND(-1)*5)+13~TY2=INT<RND<-1>•5>+1
40 LOCATE
5,0:PRINT" ♦"
50 R=INT(RND(-1)•4>
60 IF R=0 THEN TX1=0:TY1=0
70 IF R=l THEN TX1=10:TY1=0
80 IF R=2 THEN TX1=0:TY1=3
90 IF R=3 THEN TX1=10:TY1=3
100 LOCATE
TX1,TY1:PRINT"e"
110 LOCATE TX,TY:PRINT"o"
120 QUAD <0,0)-(88,56):QUAD (104,8)-(144,48>
130 l($=IN_f:::EY$: LOCATE TX, TY: F'HINT" ": LOCATE TX 1, l
Y
1:
PRINT" "
140 IF I<$="!" THEN TY=TY--l
150 IF K$=
11
M"._THEN ,TY=T'l-tl
:~60 _:t§:-::-•ci=--•J••' iHEN\Tx=fx-1- -' - ,-•. · ·
170
IF
l($="L" THEN TX=TX+
1
180
I~
TY<0 THEN TY=0
190 IF TY>6 THEN TY=6
200
IF TX<0 THEN TX=0
210 IF TX)10 THEN TX=10
220 LOCATE TX,TY:PRINT"o"
230 R=INT<RND(-1)•5>:IF R<4 THEN 320
240 IF TXl=TX THEN
IF
TYl>TY THEN TYl=TYl-1:GOTO
280:ELSE TYl=tYl+l:GOTO 280
250 IF TYl=TY THEN IF TXl>TX THEN Txt==TXl--1 :GOTCl
280:ELSE TX1=TX1+1:GOTO 280
260 IF
TX 1 >TX THEN TX 1==TX
l--1:
GOTO
2f3li~ FLSL
TX
1
·•TX
1+1:GOTO 280
270
IF
TYl>TY THEN TY1=TY1-1
ELSE
TVl==TYl+l
280 IF TY<0 THEN TY=0
290 IF TY>? THEN TY=?
300
IF
TX<0
THEN
TX=QI
310 IF TX>10 THEN TX=10
320
LOCATE TX1,TY1:F'RINT"•"
330 GOSUB 490
-_::40
!30SIJ8
4612!
Advertisement
