Advertisement
i
-1
I
GAME
-
•
- -
I
lIJ[J~[IJ
886
Bytes
_,_.,. _________ , . ________ q_1,111111~1•---•~1•-·-·-·-
H'l
20
30
40
50
CLS:C~EAR:DIM A<14,7):DIM BS(14,7>
INPUT "1-15";P:CLS
.
RX~INT(RNDC~j)*l5):RY=INT(RND(-1)*8)
IF ACRX,RY><>l:THEN A(RX,RY)=l:C=C+l
IF C<F' THEN 30
60 QUAD <8,0)-(128,56)
70 LOCATE 17,1:INPUT"X",X$:X=VALCX$)
80-LOCATE 17,2:INPUT"Y",Y$:Y=VAL(Y$)
85 IFX$="" ORY$="" THEN 75
-90 IF X<0 OR X)14 OR Y<C21 OR Y>6 THEN 70
100 IF A<X,Y)~2 THEN70
110 X=X+l
120 XP=(X+1>•8-4:YP=<Y+JJ•B-4
130 IF ACX-1,Y)=l THENAT=AT+1:A(X-1,Y>=2:LOCATE X
, Y: F'R I NT
"$" :
8$ ( X --1 , Y
J ::: "
$" :
GOTO 240
140 DRAW (XF',0~:DRAW -(XP,56)
150
DRAW (8,YP>:ORAW -(128,YP>
160. FOR I =0 TO 6
_ ,;;'. :: 1
Z.0.:7kf=-.
:A
_(X-,-1.,
Ik>=::J.c:
0
THEN: CO=CO+
L-
-+~~'
;.:cf:' ' "
7
1
eczt'NE,iT'~~r":FOR 'r
;,QI TO
;"14
.
190
-r
F."A< I ,Y>
>=
1 · THEN_ CO=CO+ 1
200 NEXT I
210 IF X=0 THEN
LOCATE 0,Y:PRINT CO:BS(0,Y)~STR$(
CO):GOTO .240
220 LOCATE <X-1),Y:PRINT
C0:8$(X-1,Y)=STR$(CO)
230 FOR I=l
TO
300:NEXT
I
240 CLS
250 T1=T1+1:C0=0:GOSUB 290
260 IF AT>=~ THEN 280
270 GOTO 60
280 CLS:LOCATE 5,3:F'RINT "SCORC.:: ";Tl:END
290 FOR I=6 TO 0 STEP -1:FOR J=l4TO 0 STEP -1:LOC
ATE 0, I
300 PRINT TAB(JJ;8$(J,l);
310 NEXT J:NEXT I
320 RETURN
The display of a $ inc:Jicating that a treasure is found is done in line 130. Lines
160 to 230 search for treasures and indicate the number of treasures that can be
found on particular lines. If an FC error occurs, execute 'INIT (0,0), 1,1' and
press the [~ key.
I
I
I
I
Advertisement
