Curse of the Aztec Tomb

Gallery

Source Code

  45 GOTO 9500
  50 LET X=28
  55 LET M=1
  60 LET Y=18
  65 LET G=0
  70 LET S=1000
  75 LET M1=0
  80 LET V=0
  90 GOSUB 9000
 100 GOSUB 2000
 280 PRINT AT A-1,C-1;" "
 285 IF A=21 THEN GOSUB 2000
 290 PRINT AT A,C;"O"
 300 LET S=S-25
 303 LET A=A+1
 305 LET C=C+1
 333 IF A=Y AND C=X THEN GOTO 9300
 350 PRINT AT Y,X;"+"
 360 IF INKEY$="1" THEN GOSUB 3000
 370 IF INKEY$="0" THEN GOTO 3200
 500 GOTO 270
2000 LET A=3
2010 LET C=13
2020 RETURN 
3000 LET X=X-1
3005 LET S=S+100
3010 LET Y=Y-1
3015 PRINT AT Y+1,X+1;" "
3017 IF Y=2 THEN GOTO 3500
3018 RETURN 
3200 PRINT AT Y,X;" "
3210 LET S=S-200
3220 LET Y=Y-2
3230 PRINT AT Y,X;"+"
3235 IF C=X-1 THEN GOTO 3240
3236 PRINT AT Y,X;" "
3237 LET Y=Y+2
3238 GOTO 240
3240 PRINT AT A-1,C-1;" "
3245 FOR Q=1 TO 3
3250 PRINT AT A,C;" "
3260 LET A=A+1
3270 LET C=C+1
3280 PRINT AT A,C;"O"
3290 NEXT Q
3295 PRINT AT A,C;" "
3300 GOTO 3236
3500 LET X=12
3510 LET Y=2
3520 LET S=S+300
3530 PRINT AT Y,X;"+"
3550 IF X=4 THEN GOTO 3560
3555 IF INKEY$="0" THEN GOSUB 4000
3560 IF INKEY$="1" THEN GOTO 3700
3570 IF X=10 AND Y=2 THEN GOTO 4200
3580 IF X=7 AND Y=2 THEN GOTO 4200
3585 LET S=S-25
3590 IF X=5 AND Y=2 THEN GOTO 4200
3595 IF X>12 THEN LET X=12
3600 IF X=3 THEN GOTO 4400
3620 GOTO 3530
3700 PRINT AT Y,X;" "
3710 LET X=X-1
3720 LET S=S+100
3730 PRINT AT Y,X;"+"
3735 IF X=9 THEN GOTO 3560
3740 GOTO 3570
4000 LET Y=Y-1
4010 PRINT AT Y+1,X;" "
4020 PRINT AT Y,X;"+"
4030 LET Y=Y-1
4040 LET X=X-1
4050 PRINT AT Y+1,X+1;" "
4060 PRINT AT Y,X;"+"
4070 LET Y=Y+1
4080 LET X=X-1
4090 PRINT AT Y-1,X+1;" "
4100 LET Y=Y+1
4110 PRINT AT Y-1,X;" "
4120 PRINT AT Y,X;"+"
4130 LET S=S-75
4140 GOTO 3570
4200 FOR Z=1 TO 9
4210 PRINT AT Y,X;" "
4220 LET Y=Y+1
4230 PRINT AT Y,X;"+"
4240 NEXT Z
4250 PRINT AT Y,X;"\@@"
4260 GOTO 9350
4400 LET S=S+300
4500 LET S=S-10
4507 IF INT (RND*10)=1 THEN GOTO 5000
4510 IF INT (RND*10)=2 THEN GOTO 5300
4520 IF INKEY$="0" THEN GOTO 5500
5000 IF V=1 THEN GOTO 4500
5010 LET V=1
5015 LET M=0
5020 PRINT AT 9,3;" ";AT 10,3;" ";AT 11,3;" "
5021 PRINT AT 9,1;"\ .";AT 10,1;"\'.";AT 11,2;"\'."
5024 PRINT AT 9,1;" ";AT 10,1;" ";AT 11,2;" "
5050 PRINT AT 9,0;"\ .";AT 10,1;"\'.";AT 11,2;"\'."
5075 PRINT AT 9,0;" ";AT 10,1;" ";AT 11,2;" "
5080 PRINT AT 10,0;"\ .";AT 11,1;"\''\.."
5085 PRINT AT 10,0;" ";AT 11,1;"  "
5090 PRINT AT 12,0;"\''\''\''"
5100 GOTO 4500
5300 IF V=0 THEN GOTO 4500
5310 LET V=0
5315 LET M=1
5320 PRINT AT 12,0;"   "
5325 PRINT AT 10,0;"\ .";AT 11,1;"\''\.."
5327 PRINT AT 10,0;" ";AT 11,1;"  "
5330 PRINT AT 9,0;"\ .";AT 10,1;"\'.";AT 11,2;"\'."
5340 PRINT AT 9,0;" ";AT 10,1;" ";AT 11,2;" "
5350 PRINT AT 9,1;"\ .";AT 10,1;"\'.";AT 11,2;"\'."
5355 PRINT AT 9,1;" ";AT 10,1;" ";AT 11,2;" "
5360 PRINT AT 9,0;" ";AT 10,1;" ";AT 11,2;" "
5370 PRINT AT 9,3;"\: ";AT 10,3;"\: ";AT 11,3;"\: "
5375 IF M=1 AND M1=1 THEN GOTO 5540
5380 GOTO 4500
5500 LET M1=1
5505 PRINT AT Y,X;" "
5510 LET S=S+100
5520 LET Y=Y-1
5530 PRINT AT Y,X;"+"
5531 IF M=1 THEN GOTO 5540
5532 IF INT (RND*3)=1 THEN GOTO 8000
5540 LET Y=Y-1
5550 LET X=X-1
5560 PRINT AT Y+1,X+1;" "
5570 PRINT AT Y,X;"+"
5580 LET Y=Y+1
5590 LET X=X-1
5600 PRINT AT Y-1,X+1;" "
5610 PRINT AT Y,X;"+"
5620 FOR K=1 TO 10
5630 PRINT AT Y,X;" "
5640 LET Y=Y+1
5650 PRINT AT Y,X;"+"
5660 IF Y=11 AND V=1 THEN GOTO 6000
5670 NEXT K
5678 LET S=S-750
5680 PRINT AT 18,0;"\.:\. "
5685 PRINT AT 19,0;"\ :"
5690 FOR J=1 TO 50
5695 NEXT J
5696 IF G=1 THEN GOTO 6850
5697 CLS 
5700 PRINT "   GOOD GRIEF, WHO DO YOU THINK"
5710 PRINT "YOU ARE, SUPERMAN. FANCY DOING"
5720 PRINT "A SWAN DIVE OFF THE TOP OF A"
5730 PRINT "CLIFF. WHAT SOME PEOPLE WILL DO"
5740 PRINT "FOR A BIT OF AZTEC TREASURE."
5750 PRINT 
5760 PRINT "YOU SCORED ";S
5770 PRINT "PRESS N/L TO RE-START"
5780 IF INKEY$="" THEN GOTO 5780
5785 CLS 
5790 GOTO 50
6000 IF INT (RND*3)=2 THEN GOTO 6700
6030 LET S=S-15
6050 IF X>8 THEN LET X=8
6055 IF X=4 AND INT (RND*5)=2 THEN GOTO 7200
6057 IF X=8 THEN GOTO 7800
6060 IF INKEY$="1" THEN GOTO 6300
6070 IF INKEY$="0" THEN GOTO 6900
6110 GOTO 6050
6300 LET X=X+1
6310 PRINT AT Y,X-1;" "
6320 PRINT AT Y,X;"+"
6325 LET S=S+100
6330 GOTO 6050
6700 LET Y1=12
6710 LET X1=0
6720 PRINT AT Y1-1,X1;"   "
6730 PRINT AT Y1,X1;"\'./\.'"
6740 LET Y1=Y1+1
6750 PRINT AT Y1,X1;"-/-";AT Y1,X1;"\' \ .>"
6760 IF Y1=19 THEN GOTO 6800
6770 PRINT AT Y1,X1;"   "
6780 GOTO 6740
6800 LET G=1
6810 GOTO 5680
6850 CLS 
6851 LET S=S-500
6853 PRINT "   HARD LUCK. THE DRAWBRIDGE HAS"
6855 PRINT "COLLAPSED AND YOU HAVE FALLEN TO"
6860 PRINT "YOUR DEATH."
6865 PRINT 
6870 PRINT "YOU SCORED ";S
6875 PRINT 
6880 PRINT "PRESS N/L TO RE-START"
6885 IF INKEY$="" THEN GOTO 6885
6887 CLS 
6890 GOTO 50
6900 LET Y=Y-2
6910 PRINT AT Y+2,X;" "
6920 PRINT AT Y,X;"+"
6930 IF X=9 THEN GOTO 7000
6940 LET Y=Y+2
6950 PRINT AT Y-2,X;" "
6960 PRINT AT Y,X;"+"
6970 GOTO 6050
7200 PRINT AT 9,3;"\~~\~~\~~"
7210 GOSUB 7300
7220 PRINT AT 9,3;"\@@\@@\@@"
7230 GOSUB 7300
7240 PRINT AT 10,3;"\~~\~~\~~"
7250 GOSUB 7300
7260 PRINT AT 10,3;"\@@\@@\@@"
7270 GOSUB 7300
7280 PRINT AT 11,3;"\~~\~~\~~"
7290 GOSUB 7300
7295 PRINT AT 11,3;"\@@\@@\@@"
7297 GOTO 7350
7300 REM 
7310 RETURN 
7320 LET S=S-300
7350 CLS 
7360 PRINT "   AN INTERESTING FEATURE OF "
7370 PRINT "AZTEC ARCHITECTURE IS THE CLEVER"
7380 PRINT "LITTLE CEILINGS THAT LOWER "
7390 PRINT "THEMSELVES DOWN ON TOP OF"
7400 PRINT "UNSUSPECTING EXLOPLORERS"
7410 PRINT "ESPECIALLY WHEN THEY ARE ONLY"
7420 PRINT "YARDS AWAY FROM THE FABULOUS"
7430 PRINT "TREASURES OF THE INNER TOMB."
7440 PRINT 
7450 PRINT "YOU SCORED ";S
7455 PRINT 
7460 PRINT "PRESS N/L TO RE-START"
7470 IF INKEY$="" THEN GOTO 7470
7475 CLS 
7480 GOTO 50
7800 PRINT AT 9,8;"$"
7805 LET D=0
7810 IF D=6 THEN GOTO 7985
7815 IF INKEY$="0" THEN GOTO 7850
7820 GOTO 7810
7850 IF INT (RND*8)=4 THEN GOTO 7900
7855 LET D=D+1
7857 LET S=S-50
7860 LET Y=Y-1
7865 PRINT AT Y+1,X;" ";AT Y,X;"+"
7870 LET Y=Y+1
7875 PRINT AT Y-1,X;" ";AT Y,X;"+"
7880 GOTO 7810
7900 LET Y=Y-2
7910 PRINT AT Y+2,X;" ";AT Y,X;"+"
7920 LET Y=Y+2
7930 PRINT AT Y-2,X;" ";AT Y,X;"+$"
7935 PRINT AT 0,0;"CONGRATULATIONS, YOU HAVE FOUND"
7940 PRINT "THE AZTEC TREASURE AND SCORED "
7944 LET S=S+2500
7945 PRINT S
7950 PRINT AT 11,10;" "
7955 PRINT AT 9,11;"    "
7960 PRINT AT 10,11;"    "
7965 PRINT AT 11,11;"    "
7970 PRINT AT 11,12;"**";AT 11,12;"%*%*";AT 11,12;"\@@\@@"
7975 PRINT AT 10,12;"**";AT 10,12;"%*%*";AT 10,12;"\@@\@@"
7980 GOTO 7970
7985 FOR J=1 TO 30
7986 NEXT J
7987 CLS 
7990 PRINT "   YOU HAVE BEEN BITTEN BY A"
7992 PRINT "DEADLY KING COBRA. NOT A LOT YOU"
7994 PRINT "CAN DO ABOUT THAT, YOU FORGOT TO"
7996 PRINT "BRING SOMEONE TO SUCK OUT THE"
7997 PRINT "POISON."
7998 LET S=S-250
7999 GOTO 9315
8000 LET M=1
8010 GOTO 5300
9000 PRINT AT 3,0;"   % %  %  % %  % % "
9010 PRINT "   % %  %  % %  % % % "
9020 PRINT "   % %  %  % %  % % % % "
9030 PRINT "   % % % % % % % % % % % % % "
9040 PRINT "   % % % % % % % % % % % % % % "
9050 PRINT "   % % % % % % % % % % % % % % % "
9060 PRINT "   \:   \:    % % % % % % % % % "
9070 PRINT "   \:       % % % % % % % % % % "
9080 PRINT "   \:       % % % % % % % % % % % "
9090 PRINT "   % % % % % % % % % % % % % % % % % % % "
9100 PRINT "   % % % % % % % % % % % % % % % % % % % % "
9110 PRINT "   % % % % % % % % % % % % % % % % % % % % % "
9120 PRINT "   % % % % % % % % % % % % % % % % % % % % % % "
9130 PRINT "   % % % % % % % % % % % % % % % % % % % % % % % "
9140 PRINT "   % % % % % % % % % % % % % % % % % % % % % % % % "
9150 PRINT "   % % % % % % % % % % % % % % % % % % % % % % % % % "
9160 PRINT "   % % % % % % % % % % % % % % % % % % % % % % % % % % "
9170 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
9180 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
9200 RETURN 
9300 FOR J=1 TO 50
9301 NEXT J
9302 CLS 
9303 PRINT "   YPU HAVE BEEN SQUASHED BY A"
9305 PRINT "BOULDER. YOUR CERTAINLY NOT THE"
9310 PRINT "ATHLETIC TYPE ARE YOU ?"
9315 PRINT 
9317 LET S=S-500
9320 PRINT "YOU SCORED ";S
9325 PRINT 
9330 PRINT "PRESS N/L TO RE-START"
9335 IF INKEY$="" THEN GOTO 9335
9338 CLS 
9340 GOTO 50
9350 FOR J=1 TO 50
9352 NEXT J
9353 LET S=S-500
9354 CLS 
9355 PRINT "   YOU HAVE DROWNED IN THE MOAT."
9360 PRINT "ISNT IT ABOUT TIME YOU LEARNT TO"
9365 PRINT "TO SWIM ? I SUPPOSE ITS A BIT "
9370 PRINT "LATE THOUGH NOW."
9375 PRINT 
9380 PRINT "YOU SCORED ";S
9385 PRINT 
9390 PRINT "PRESS N/L TO RE-START"
9395 IF INKEY$="" THEN GOTO 9395
9400 CLS 
9410 GOTO 50
9500 PRINT AT 2,4;"%C%U%R%S%E% %O%F% %T%H%E% %A%Z%T%E%C% %T%O%M%B"
9510 PRINT AT 6,0;"   YOU ARE FACED WITH THE TASK"
9520 PRINT "OF EXPLORING A SACRED MOUNTAIN"
9530 PRINT "OF THE AZTECS, IN WHICH ONE OF"
9540 PRINT "THEIR GREAT LEADERS IS RUMOURED"
9550 PRINT "TO BE BURIED ALONG WITH UNTOLD"
9560 PRINT "RICHES IN ANCIENT RELICS."
9570 PRINT "   THE ONLY CLUE YOU HAVE IS "
9580 PRINT "THAT YOU MUST SEEK OUT A KEY "
9590 PRINT "WHICH CLOSELY RESEMBLES A DOLLAR"
9600 PRINT "SIGN."
9610 PRINT "BEWARE OF THE CURSE. THERE ARE"
9620 PRINT "MANY DANGERS TO FACE ON YOUR WAY"
9630 PRINT "TO THE TREASURE. GOOD LUCK."
9640 PRINT "   KEY 1 ALLOWS YOU TO MOVE"
9650 PRINT "FORWARD AND KEY 0 ALLOWS YOU TO"
9660 PRINT "JUMP. PRESS N/L TO START"
9670 PRINT AT 0,0;"%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*"
9680 PRINT AT 4,0;"%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*"
9690 PRINT AT 1,0;"%*";AT 2,0;"%*";AT 3,0;"%*"
9700 PRINT AT 1,31;"%*";AT 2,31;"%*";AT 3,31;"%*"
9710 IF INKEY$="" THEN GOTO 9710
9715 CLS 
9720 GOTO 50
9730 CLEAR 
9740 SAVE "1032%0"
9750 RUN