home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SCS.MINER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.3 KB  |  103 lines
  1. 0 REM  ***************************
  2. 1 REM  *          MINER          *
  3. 2 REM  *     BY SEAN CASZATT     *
  4. 4 REM  *  DESIGNED AUGUST,1984   *
  5. 5 REM  *REVISED & D-BUGGED  1987 *
  6. 6 REM  ***************************
  7. 7 REM **THIS IS A PUBLIC DOMAIN GAME**
  8. 8 REM **IT'S YOURS TO DO WITH AS YOU**
  9. 9 REM *PLEASE AS LONG AS I GET CREDIT*
  10. 10 PRINT"ô":POKE53281,5:POKE53280,5:POKE646,0:SC=0
  11. 15 PRINT"MINER!"
  12. 20 PRINT"BY"
  13. 25 PRINT"SEAN CASZATT"
  14. 30 PRINT"YOU'RE TO MINE AS MUCH GOLD AS POSSIBLE."
  15. 35 PRINT"YOU'VE GOT 15 CHARGES OF DYNAMITE."
  16. 40 PRINT"BE CAREFUL OF CAVE-INS AND SPRINGS!"
  17. 41 PRINT"IF YOU RUN OUT OF CHARGES, YOU HAVE 10"
  18. 42 PRINT"SECONDS TO GET OUT OF THE MINE."
  19. 45 PRINT"PRESS FIRE TO BEGIN"
  20. 50 FR=PEEK(56321)AND16
  21. 55 IFFR<>0THEN50
  22. 60 PRINT"ô":POKE53281,9:S=54272
  23. 65 SL=1024:PL=1084:CH=15
  24. 70 GOSUB50000
  25. 75 IFCH=0THENPRINT"GOLD= $";SC,"OUT OF CHARGES!":GOTO80
  26. 76 PRINT"              "
  27. 77 PRINT"GOLD= $";SC,"CHARGES=";CH
  28. 80 POKEPL,90:POKEPL+S,3
  29. 81 POKE1082,45:POKE1083,62:POKE1085,60:POKE1086,45:FORT=1082+STO1086+S:POKET,3
  30. 82 NEXT
  31. 85 JV=PEEK(56321):FR=JVAND16
  32. 86 JV=15-(JVAND15)
  33. 87 IFPEEK(1084)=90THENIFFR=0THENFR=999
  34. 90 IFJV=1THENPL=PL-40:D=PL+40
  35. 9 IFJV=4THENPL=PL-1:D=PL+1
  36. 100 IFJV=8THENPL=PL+1:D=PL-1
  37. 105 IFJV=2THENPL=PL+40:D=PL-40
  38. 110 IFJV=0THENPL=PL:D=PL
  39. 111 IFPEEK(PL)=45THENPL=D
  40. 115 IFFR=0ANDCH=0THENGOTO117
  41. 116 IFFR=0THENGOSUB40000:GOSUB60000
  42. 117 IFPEEK(PL)=81THENSC=SC+10:GOSUB60025
  43. 118 IFPEEK(PL)=102ORPEEK(PL)=160ORPEEK(PL)<4ORPEEK(PL)=60ORPEEK(PL)=62THENPL=D
  44. 119 IFPL<1084ORPL>1943THENPL=PL+D
  45. 120 IFAS=0ANDCH=0THENTI$="000000":AS=400
  46. 121 IFCH=0ANDTI$="000010"THENPRINT"ô":DE=2:GOTO61000
  47. 122 IFCH=0ANDPEEK(1084)=90THENVI=1:GOTO61000
  48. 123 IFD=0THENGOTO75
  49. 124 POKEPL,90:POKEPL+S,3:POKED,32
  50. 126 GOTO75
  51. 40000 DW=102:IFPEEK(PL+40)<>102THENDW=32
  52. 40005 UP=102:IFPEEK(PL-40)<>102THENUP=32
  53. 40010 LF=102:IFPEEK(PL-1)<    
  54. 40011 RG=102:IFPEEK(PL+1)<>102THENRG=32
  55. 40015 POKEPL+40,DW:POKEPL-40,UP:POKEPL+1,RG:POKEPL-1,LF
  56. 40020 RETURN
  57. 49999 END
  58. 50000 FORT=1104TO1983:POKET,160:POKET+S,12:NEXT
  59. 50005 FORT=1104TO1983:G=INT(RND(1)*5)+1
  60. 50010 IFG<3THENPOKET,81:POKET+S,7:NEXT
  61. 50015 IFG=>3THENNEXT
  62. 50020 FORT=1104TO1944STEP40:POKET,102:POKET+S,1:NEXT
  63. 50025 FORT=1944TO1983:POKET,102:POKET+S,1:NEXT
  64. 50030 FORT=1104TO1143:POKET,102:POKET+S,1:NEXT
  65. 50035 FORT=1143TO1943STEP40:POKET,102:POKET+S,1:NEXT
  66. 50036 POKE1123,32:POKE1124,32:POKE1125,32
  67. 50037 FORT=1124TO1524STEP40:POKET,32:NEXT
  68. 50040 RETURN
  69. 60000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  70. 60005 POKE54296, 15 :POKE54277, 31 :POKE54278, 17
  71. 60010 POKE54276, 129 :POKE 54273, 5 :POKE54272,15
  72. 60015 FOR    
  73. 60016 CH=CH-1:CA=INT(RND(1)*4)+1
  74. 60017 IFCA=1THENFORT=1TO3:V=INT(RND(1)*600)+1104
  75. 60018 IFCA=1THENIFPEEK(V)=102ORPEEK(V)=81THEN60017
  76. 60019 IFCA=1THENIFPEEK(V)=90THENPOKEV,42:POKEV+S,8:POKEV+S,2:POKEV+S,8:GOTO61000
  77. 60020 IFCA=1THENPOKEV,160:POKEV+S,11:NEXT
  78. 60022 IFCA=2THENFORT=PLTO1942:IFPEEK(T)=32THENPOKET,0:POKET+S,14
  79. 60023 IFCA=2THENNEXT
  80. 60024 RETURN
  81. 60025 S=54272:FORE=STOS+28:POKEE,0:NEXT
  82. 60026 POKE54296, 15 :POKE54277, 31 :POKE54278, 241
  83. 60030 POKE54276, 17 :POKE 54273, 63 :POKE54272, 75
  84. 60035 FORT=1TO 100 :NEXT:POKE54276, 16
  85. 60040 FORE=STOS+28:POKEE,0:NEXT
  86. 60041 RETURN
  87. 61000 IFVI=1THENA$="ôYOU MADE IT OUT IN TIME":GOTO61020
  88. 61001 IFDE=2THENA$="    YOU DIDN'T GET OUT IN TIME!"
  89. 61002 S=54272:FORE=STOS+28:POKEE,0:NEXT
  90. 61005 POKE54296, 15 :POKE54277, 31 :POKE54278, 255
  91. 61010 POKE54276, 129 :POKE 54273, 10 :POKE54272, 71
  92. 61015 FORT=1TO 300 :NEXT:POKE54276, 128:FORT=1TO 100 :NEXT
  93. 61018 IFDE=0THENPRINT"ôYOU WERE KILLED IN A CAVE-IN!"
  94. 61019 IFDE=0ORDE=2THENPRINT"YOU LOST ALL YOUR GOLD!":SC=0
  95. 61020 PRINTA$
  96. 61022 PRINT"GAME OVER!"
  97. 61023 FORT=15TO0STEP-1:POKE54296,T:NEXT
  98. 61025 PRINT"YOUR FINAL SCORE WAS $";SC
  99. 61026 IFSC>HSTHENHS=SC:PRINT"NEW HIGH SCORE! --> ";HS
  100. 61030 PRINT"PRESS FIREÆ TO PLAY AGAI    
  101. 61035 POKE198,0:WAIT198,1
  102. 61040 GOTO10
  103.