Treasure Chase

Gallery

Source Code

   1 LET C1=0
   2 REM TREASURE CHASE
   5 LET X=0
   6 LET Y=16
   7 LET Y1=Y
   8 LET X1=X
   9 LET A=INT (RND*22)
  10 LET B=INT (RND*32)
  12 LET C=0
  13 FAST 
  20 DIM H(22,32)
  26 FOR I=0 TO 21
  28 FOR J=0 TO 31
  30 PRINT AT I,J;"% "
  31 IF I=0 OR J=0 THEN GOTO 50
  32 IF NOT RND<.05 THEN GOTO 40
  34 LET H(I+1,J+1)=2
  36 PRINT AT I,J;"%*"
  40 IF NOT RND<.1 THEN GOTO 50
  42 LET H(I+1,J+1)=1
  44 PRINT AT I,J;"%."
  50 NEXT J
  60 NEXT I
  61 SLOW 
  65 PRINT AT X,Y;"%0"
  66 PRINT AT A,B;"%A"
  67 IF H(A+1,B+1)=2 THEN LET C=C+10
  68 IF H(A+1,B+1)=2 THEN LET H(A+1,B+1)=0
  69 IF H(A+1,B+1)=1 THEN LET C=C+1
  70 IF H(A+1,B+1)=1 THEN LET H(A+1,B+1)=0
  72 IF C>C1 THEN LET C1=C
  73 PRINT AT 0,0;"%Y%O%U%R";C;AT 0,9;"%H%I%G%H% %S%C%O%R%E";AT 0,21;C1
  80 PAUSE 9000
  81 IF A>X THEN LET X1=X+1
  82 IF A<X THEN LET X1=X-1
  83 IF B>Y THEN LET Y1=Y+1
  84 IF B<Y THEN LET Y1=Y-1
  85 PRINT AT X,Y;"% "
  86 LET X=X1
  87 LET Y=Y1
  88 IF X=A AND Y=B THEN GOTO 200
  89 IF NOT INKEY$="" THEN PRINT AT A,B;"% "
  95 IF INKEY$="0" THEN LET A=INT (RND*22)
  98 IF INKEY$="5" THEN LET B=B-1
 100 IF INKEY$="8" THEN LET B=B+1
 110 IF INKEY$="6" THEN LET A=A+1
 120 IF INKEY$="7" THEN LET A=A-1
 132 IF A>21 THEN LET A=21
 133 IF A<1 THEN LET A=1
 134 IF B>31 THEN LET B=31
 135 IF B<0 THEN LET B=0
 140 IF X=A AND Y=B THEN GOTO 200
 160 GOTO 65
 200 PRINT AT 10,10;"**GOT YOU**"
 202 PRINT AT A,B;"X"
 205 PRINT AT 20,2;"PLAY AGAIN ,INPUT Y OR N"
 207 INPUT G$
 208 IF G$="N" THEN STOP 
 210 GOTO 5
 220 CLEAR 
 230 SAVE "1029%1"
 240 RUN