Advertisement
rFIGHTING A R M O R - - - - - - - - - - - - - - - - - - - - - - - -
3517.l
R=INT<RND(-1)-¥.·9>:IF
R==3
AND
W::::0 THEN GU\;1,n 4~•,
0
360 IF W=l THEN Cf~CT+l
370 IF CT>=6 THEN LOCATE
XXX,YYY:F'RINT"
":LOCATE
XX, YY: PRINT" ■ u:
XXX=X;X: YYY=YY:
W::::;0
380
IF CT>=6 AND
XX=TX
AND YY=TY
THEN LOCATE XX,Y
Y: PR
I_NTtl
ii.·'':
FOR
I=
1
TO
30121:
NEXT
I: CLS: LCJC{HF 2, ~~;: PF l
NT"YOU DESTROYED! ":FOR I=l TO 300:NEXT I:AT=r-H-1•1: IF
AT<=2
THEN
20 ELSE 78121
390 LOCATE XX,YY:PRINT" "
400
PP=POINT
(XX*8+4,YY*8+4)
4117.l
IF
W=0
AND
PP=0
THEN
LOCATE
XX,YY:F'RJNT"+"
420 IF
CT>=6
THEN
CT=0
430
IF
TIME$)"00:
01: .30"
THEN
780
440 GOTO 130
450 W= l: X X=TX: YY=TY:
LOCATE XX
X, YYY:
Fh: I
NT"
II": f~[Tur;-
N
460
IF
TXl=TX THEN
GOSUB 510
470 IF
TYl=TY
TH£N GOSUB 51121
480 R~T,U~f\lf::''i,c:-:.'".::":c
·ic/,;;;;:-:~;, .
.-.'.;i,C"·'';.,'ft<·
.,,::\_;,-;;,,.,.>t •.
-J•·
. ,
490'."iclF: <~TXJ=TX'-AND :TYi.=TY)
OR<
XXX=TX AND
YYY==TY>
THC
N
AT=AT+j-:LOCATE TX,T'/ri=•RINT"-l(·ll:FOR
I==l
TO ~_:cnczJ:NEXT
I:
CLS: LOCATE
2, 3: PR I NT"
YOU
DESTROYED~ ": FCJR 1 ' " ' " 1 TO
300:NEXT 1:IF AT<=2
THEN GOTO
20 ELSE 780
500
RETURN
510 REM
520 SXS=SX:SYS=SY:TX2S=TX2:TY2S=TY2
530 QUAD
(104,8)-(144,48) :LOCATE TX'.?,TY:Z:f'•f~lNT"it"
:LOCATE
SX,SY:F'RINT"+"
540
E$=INKEY$
550
IF
SX=TX2
AND
SY::::TY2
THEN EW>Dl::"·tl :LClCATC TXl,
TYl:F'RINT"*":FOR I=l
TO 300:NEXT
I:CLS:UJC(HC 2,3:F
RINT"ENEMY DESTROYED!
":FOR
I=l
TO ~~00:NEXT I:COlU ::
0
560
IF
E$=="
i" THEN
SY=SY-·
1:
GOTO
7::•~~
570 IF E$="m"
THEN
SY:::::SY+l:GOTO
7~:'.0
580
IF E$,:::"
j"
THEN SX=SX··· 1:
GOTO 720
59!.1 IF ·E$=="1"
THEN
SX=SX+l:GOTO 720
600 Q=INTCRND(-1)•3>: IF Q=0 THEN 71~
610
R=INT(RND(-1)*4)
620 IF
R=0
THEN
TX2=TX2-1
630
IF R=l THEN TX2=TX2+1
640 IF R=2 THEN TY2=TY2-l
650 IF R=3
THEN TY2~TY2+1
660
IF TX2<13 THEN TX2=13
l
i
I.
I
Advertisement
