home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / GULPER.SFX / pt2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-10-11  |  7.1 KB  |  319 lines
  1. 0 POKE53280,6:POKE53281,6
  2. 1 PRINT"[147]ONE MOMENT PLEASE..."
  3. 10 READSB:IFSB<0THEN150
  4. 11 LO=SB*64:FORI=0TO62:READSD:POKELO+I,SD:NEXT:GOTO10
  5. 12 DATA200
  6. 13 DATA15,255,240,21,74
  7. 14 DATA168,21,82,168,37
  8. 15 DATA74,164,37,82,164
  9. 16 DATA37,74,164,37,82
  10. 17 DATA164,21,74,168,21
  11. 18 DATA82,168,15,255,240
  12. 19 DATA8,24,16,8,0
  13. 20 DATA16,8,0,16,4
  14. 21 DATA0,32,2,0,64
  15. 22 DATA1,255,128,1,255
  16. 23 DATA128,0,255,0,0
  17. 24 DATA255,0,0,126,0,0,126,0
  18. 25 DATA201
  19. 26 DATA0,0,0,0,0
  20. 27 DATA0,0,0,0,0
  21. 28 DATA0,0,0,0,0
  22. 29 DATA0,0,0,0,0
  23. 30 DATA0,0,0,0,0
  24. 31 DATA0,0,0,0,0
  25. 32 DATA0,0,0,0,56
  26. 33 DATA0,0,56,0,0
  27. 34 DATA56,0,0,146,0
  28. 35 DATA0,124,0,0,16
  29. 36 DATA0,0,16,0,0
  30. 37 DATA40,0,0,68,0,0,198,0
  31. 38 DATA202
  32. 39 DATA0,0,0,0,0
  33. 40 DATA0,0,0,0,0
  34. 41 DATA0,0,0,0,0
  35. 42 DATA8,0,0,8,0
  36. 43 DATA0,8,0,0,120
  37. 44 DATA32,0,4,48,0
  38. 45 DATA2,96,0,1,192
  39. 46 DATA0,3,128,0,14
  40. 47 DATA112,0,4,112,0
  41. 48 DATA0,0,0,0,0
  42. 49 DATA0,0,0,0,0
  43. 50 DATA0,0,0,0,0
  44. 51 DATA0,0,0
  45. 52 DATA203
  46. 53 DATA0,24,0,0,56
  47. 54 DATA0,0,48,0,0
  48. 55 DATA56,0,0,24,0
  49. 56 DATA0,24,0,0,16
  50. 57 DATA0,0,8,0,0
  51. 58 DATA16,0,0,8,0
  52. 59 DATA0,16,0,0,56
  53. 60 DATA0,0,56,0,0
  54. 61 DATA56,0,0,146,0
  55. 62 DATA0,124,0,0,16,0,0,16,0,0
  56. 63 DATA40,0,0,68,0,0,130,0
  57. 64 DATA204
  58. 65 DATA0,0,0,0,0
  59. 66 DATA0,0,62,0,0
  60. 67 DATA127,0,0,255,128
  61. 68 DATA1,255,192,3,255
  62. 69 DATA224,3,255,224,1
  63. 70 DATA182,192,1,0,64
  64. 71 DATA1,0,64,0,156
  65. 72 DATA128,0,93,0,0
  66. 73 DATA28,0,0,73,0
  67. 74 DATA0,62,0,0,8
  68. 75 DATA0,0,8,0,0
  69. 76 DATA20,0,0,34,0,0,65,0
  70. 77 DATA205
  71. 78 DATA0,0,0,0,0
  72. 79 DATA0,0,0,0,0
  73. 80 DATA0,0,0,0,0
  74. 81 DATA0,0,0,0,0
  75. 82 DATA0,0,0,0,0
  76. 83 DATA0,0,0,0,0
  77. 84 DATA0,0,0,0,0
  78. 85 DATA0,0,0,0,0
  79. 89 DATA0,0,0,0,0
  80. 90 DATA0,0,0,255,255
  81. 91 DATA255,170,170,171,255
  82. 92 DATA255,255,213,85,85
  83. 93 DATA255,255,255
  84. 94 DATA206
  85. 95 DATA0,0,0,0,0
  86. 96 DATA0,0,0,0,0
  87. 97 DATA0,0,0,0,0
  88. 98 DATA0,0,0,0,0
  89. 99 DATA0,0,0,0,0
  90. 100 DATA0,0,0,0,0
  91. 101 DATA0,0,0,0,0
  92. 102 DATA0,0,0,0,0
  93. 103 DATA0,0,0,0,0
  94. 104 DATA0,0,0,0,255
  95. 105 DATA128,1,8,64,0
  96. 106 DATA127,0,0,136,128
  97. 107 DATA0,28,0
  98. 108 DATA207
  99. 109 DATA0,0,0,0,0
  100. 110 DATA0,0,0,0,0
  101. 111 DATA0,0,0,0,0
  102. 112 DATA0,0,0,0,0
  103. 113 DATA0,48,0,0,56
  104. 114 DATA3,192,63,255,240
  105. 115 DATA63,255,252,0,127
  106. 116 DATA128,0,127,0,0
  107. 117 DATA126,0,0,124,0
  108. 118 DATA0,0,0,0,0
  109. 119 DATA0,0,0,0,0
  110. 120 DATA0,0,0,0,0
  111. 121 DATA0,0,0
  112. 122 DATA-1
  113. 150 PRINT"[147]ALMOST DONE":POKE56334,0
  114. 151 POKE1,51
  115. 152 FORADDRESS=2048TO6143
  116. 153 POKEADDRESS,PEEK(ADDRESS+51200)
  117. 154 NEXT:POKE1,55:POKE56334,129
  118. 155 POKE53272,21
  119. 157 FORI=2048TO2071
  120. 160 READSD:POKEI,SD:NEXT
  121. 162 DATA42,28,94,61,8,8,8,8
  122. 163 DATA0,0,0,0,56,124,126,255
  123. 164 DATA0,0,0,0,0,24,60,124
  124. 200 PRINT"[147]"
  125. 202 PRINT""TAB(13)"PARATROOPER"
  126. 203 V=53248:POKE53272,19
  127. 204 FORI=1TO20
  128. 205 A=INT(RND(1)*160)+1823:Z=INT(RND(1)*3):POKEA,Z
  129. 206 IFZ=0THENPOKEA+54272,5
  130. 207 IFZ=1THENPOKEA+54272,11
  131. 208 IFZ=2THENPOKEA+54272,12
  132. 209 NEXT
  133. 210 POKEV+21,1+2+4:POKEV+39,0:POKEV+40,1
  134. 215 POKE2040,200:POKE2042,205:POKEV+4,150:POKEV+5,229:POKEV+41,5
  135. 217 POKE2041,201
  136. 219 FORI=0TO220
  137. 225 POKEV,I:POKEV+1,70
  138. 226 POKEV+2,I+1:POKEV+3,68
  139. 230 NEXT
  140. 240 POKEV+2,220:POKEV+3,75
  141. 241 POKE2041,202
  142. 245 FORI=75TO130:POKEV+3,I:FORO=1TO10:NEXT:NEXT
  143. 246 POKE2041,203
  144. 247 FORI=130TO150:POKEV+3,I:FORO=1TO10:NEXT:NEXT
  145. 248 POKE2041,204:
  146. 249 FORI=150TO230:POKEV+3,I:FORO=1TO30:NEXT:
  147. 250 IFPEEK(V+31)<>0ANDI>200THEN255
  148. 251 IFPEEK(V+2)>155THENPOKEV+2,PEEK(V+2)-4
  149. 252 NEXT:POKE2041,201
  150. 253 GOTO260
  151. 255 POKE2041,206
  152. 260 POKEV+21,1+2+4+8+16
  153. 261 POKE2043,207:POKE2044,207
  154. 265 POKEV+42,11
  155. 266 FORP=0TO255:
  156. 267 POKEV+6,P:POKEV+7,150
  157. 268 NEXT
  158. 269 FORG=1TO1000:NEXT
  159. 270 POKEV+21,0
  160. 271 PRINT"[147]":POKE53272,21
  161. 275 PRINT""TAB(13)"PARATROOPER"
  162. 276 PRINT"OBJECT:"
  163. 277 PRINT"YOU ARE A BRAVE PARATROOPER, AND YOU    MUST JUMP FROM YOUR BALLOON"
  164. 278 PRINT"AND LAND ON THE BASE BELOW."
  165. 279 PRINT"[158]SOUNDS EASY?"
  166. 280 PRINT"YOU MUST AVOID ROCKS, TREES, JETS,      AND THE CROSSWINDS."
  167. 281 PRINT"[159]CONTROLS:[146]"
  168. 282 PRINT"PRESS FIRE BUTTON[146] TO JUMP"
  169. 283 PRINT"PRESS DOWN[146] TO OPEN CHUTE"
  170. 284 PRINT"PRESS LEFT[146] OR RIGHT[146] TO MOVE"
  171. 285 PRINT"SCORING:[146]"
  172. 286 PRINT"THE FARTHER YOU CAN FALL, THE MORE      POINTS YOU WILL GET.
  173. 287 [153]"(IF YOU HIT THE PAD)"
  174. 288 [153]"LIST              HIT ANY KEY               "
  175. 289 [161]A$:[139]A$[178]""[167]289
  176. 290 [153]"LOAD        ENTER SKILL LEVEL (1-9)
  177. 291 PRINT"LEVEL 1= EASIEST********LEVEL 9= HARDEST"
  178. 292 GETA$:IFA$<"1"ORA$>"9"THEN292
  179. 293 SK=VAL(A$)
  180. 294 PRINTTAB(13)"SKILL LEVEL"SK
  181. 295 FORK=1TO15:POKEV+K,0:NEXT:FORO=1TO100:NEXT:JL=10:SC=0:SP=0
  182. 296 PRINT"[147]":PA=0:BX=150:X1=0:Y1=0:PX=150:PY=28:WD=0:POKE53272,19:X2=0:Y2=0
  183. 297 DX=INT(RND(1)*200)+30:FORI=1TOSK*2.75
  184. 298 A=INT(RND(1)*120)+1823:Z=INT(RND(1)*3):POKEA,Z
  185. 299 IFZ=0THENPOKEA+54272,5
  186. 300 IFZ=1THENPOKEA+54272,11
  187. 301 IFZ=2THENPOKEA+54272,12
  188. 302 NEXT
  189. 303 FORI=0TO19                 
  190. 304 FORJ=31TO39
  191. 305 POKE1024+(I*40)+J,102:POKE1024+(I*40)+J+54272,1:NEXT
  192. 306 NEXT:POKEV+21,1+2+4        
  193. 307 POKE2040,200:POKE2041,201:POKE2042,205:IFPEEK(V+31)>0THEN307
  194. 308 POKEV+4,DX:POKEV+5,229:POKEV+41,5
  195. 309 PRINT""TAB(30)"[146]";:FORJ=1TO8:PRINTCHR$(166);:NEXT:PRINT
  196. 310 PRINTTAB(30)"SCORE:":PRINTTAB(30)""SC"[157] "
  197. 311 PRINTTAB(30)"JUMPS:":PRINTTAB(30)""JL"[157] "
  198. 312 PRINTTAB(30)"LEVEL:":PRINTTAB(30)""SK
  199. 313 PRINTTAB(30)"WIND:":PRINTTAB(30)"";
  200. 350 WD=WD+INT(RND(1)*2)-INT(RND(1)*2)
  201. 351 IFWD<-(SK/3)THENWD=-(SK/3)
  202. 352 IFWD>SK/3THENWD=SK/3
  203. 353 PRINT""TAB(30)"";
  204. 354 IFWD<0THENPRINT"<-----"
  205. 355 IFWD>0THENPRINT"----->"
  206. 356 IFWD=0THENPRINT"------"
  207. 357 BX=BX+WD:POKEV,BX:POKEV+2,BX:POKEV+1,50:POKEV+3,48
  208. 358 IFBX<23THENBX=247
  209. 359 IFBX>248THENBX=24
  210. 360 GOSUB500:IFDR=-1ORDR=1THENBX=BX+(DR*2)
  211. 361 IFDR=10THENPA=1:POKE2041,202:PX=BX:PY=50:GOSUB600:GOTO363
  212. 362 GOTO350
  213. 363 IFPA=1THENPY=PY+3:IF(PY>229)THEN805
  214. 365 IFPA=1THENPOKEV+2,PX:POKEV+3,PY
  215. 366 SP=SP+.1
  216. 368 GOSUB500
  217. 369 IFDR=40ANDPY<190THEN400
  218. 399 GOTO363
  219. 400 POKE54276,16
  220. 402 POKE2041,203
  221. 403 POKE54296,15:POKE54276,129:POKE54277,128:POKE54272,149:POKE54273,149
  222. 404 POKE54276,128
  223. 405 FORI=PYTOPY+15:POKEV+3,I:
  224. 406 IFPEEK(V+31)=2THENGOTO805
  225. 407 FORK=1TO20:NEXT:NEXT
  226. 408 POKE2041,204
  227. 409 POKE54296,15:POKE54276,129:POKE54277,128:POKE54272,63:POKE54273,63
  228. 410 POKE54276,128:POKE2043,207:POKEV+21,1+2+4+8+16:POKE54296,0
  229. 411 PRINT""TAB(30)"[158]WORTH";INT(SP)*SK:SP=INT(SP)
  230. 412 GOSUB500
  231. 413 PY=PY+2:IFPY>229THEN900
  232. 414 IFDR<2THENPX=PX+DR*2
  233. 415 IFWD<0THENPX=PX+WD
  234. 416 IFWD>0THENPX=PX+WD
  235. 418 POKEV+2,PX:POKEV+3,PY
  236. 420 IFPEEK(V+31)=2THENGOTO855
  237. 425 IFPX>225AND(PX>DX-12ANDPX<DX-12)ANDPEEK(V+30)=6THEN900
  238. 426 WD=WD+INT(RND(1)*2)-INT(RND(1)*2)
  239. 427 IFWD<-(SK/3)THENWD=-(SK/3)
  240. 428 IFWD>SK/3THENWD=SK/3
  241. 429 PRINT""TAB(30)"";
  242. 430 IFWD<0THENPRINT"<-----"
  243. 431 IFWD>0THENPRINT"----->"
  244. 432 IFWD=0THENPRINT"------"
  245. 433 IFPX<32THENPX=32
  246. 434 IFPX>245THENPX=245
  247. 435 IF(X1=0ORX1=10)ANDY1=0ANDPY<180THENX1=0:Y1=PY+(SK*2)
  248. 436 X1=X1+10:IFX1>245THENX1=10:Y1=0
  249. 437 POKEV+6,X1:POKEV+7,Y1:IFPEEK(V+30)=10THEN800
  250. 438 IF(X2=0ORX2=10)ANDY2=0ANDPY<140THENX2=0:Y2=Y1+(+50)
  251. 439 X2=X2+7:IFX2>245THENX2=10:Y2=0
  252. 440 POKEV+8,X2:POKEV+9,Y2:IFPEEK(V+30)=18THEN800
  253. 447 IFPEEK(V+30)=18THEN800
  254. 448 IFPEEK(V+30)=10THEN800
  255. 449 GOTO412
  256. 499 GOTO412
  257. 500 JO=56320
  258. 502 IF-PEEK(JO)AND2THENDR=40
  259. 503 IF-PEEK(JO)AND4THENDR=-1
  260. 504 IF-PEEK(JO)AND8THENDR=1
  261. 505 IF-PEEK(JO)AND16THENDR=10
  262. 506 IFPEEK(JO)=127THENDR=0
  263. 507 RETURN
  264. 600 POKE54296,15:POKE54277,62
  265. 601 FORG=255TO1STEP-90:POKE54273,255-G:POKE54272,255-G
  266. 602 :POKE54276,33:NEXT:POKE54276,32:POKE54296,0
  267. 650 RETURN
  268. 800 POKE2041,202
  269. 802 FORI=PYTO223
  270. 804 POKEV+3,I:FORO=1TO7:NEXT:NEXT
  271. 805 POKE2041,206               
  272. 806 POKE54296,15:POKE54276,129:POKE54277,14:POKE54272,149:POKE54273,68
  273. 807 FORD=25TO0STEP-1:POKE54296,D:NEXT:POKE54276,0:SC=SC-(SK*2):IFSC<=0THENSC=0
  274. 808 JL=JL-1:IFJL=0THEN1000
  275. 809 :PA=0:X1=0:PY=28:WD=0:Y1=0:SP=0:POKEV+6,0:POKEV+7,0:DX=INT(RND(1)*200)+30
  276. 810 BX=INT(RND(1)*100)+125:PX=BX:FORI=1TO1000:NEXT:X2=0:Y2=0
  277. 811 POKEV+2,0:POKEV+3,0:POKEV+8,0:POKEV+9,0
  278. 850 GOTO307
  279. 855 :IFPEEK(V+31)<>2THENGOTO425
  280. 856 GOTO805
  281. 900 POKE2041,201
  282. 925 IF(PY>225AND(PX>DX-12ANDPX<DY+15))ORPEEK(V+30)=6THENOK=1
  283. 926 IFOK=0THENGOTO808
  284. 927 OK=0:FORP=54272TO54296:POKEL,0:NEXT:POKE54296,15
  285. 930 FORP=0TOSP*SK
  286. 932 POKE54277,64:POKE54273,P+100:POKE54272,P+50:POKE54276,33
  287. 933 PRINT""TAB(30)""SC+(P)
  288. 934 FORO=1TO10:NEXT
  289. 935 POKE54276,32:NEXT:POKE54276,32:SC=SC+(SP*SK)
  290. 936 GOTO808
  291. 1000 : FORT=1TO10
  292. 1001 IFHS$=""THENHS$="VIC"
  293. 1002 PRINT""TAB(15)"         "
  294. 1003 FORO=1TO150:NEXT
  295. 1004 PRINT""TAB(15)"GAME OVER"
  296. 1005 FORO=1TO150:NEXT
  297. 1006 NEXT
  298. 1007 FORO=0TO1000:NEXT:PRINT"[147]":POKE53272,21
  299. 1008 POKEV+21,0
  300. 1010 PRINT""TAB(15)"SCORE:"SC
  301. 1020 PRINT""TAB(11)"HIGH SCORE:"HS;HS$
  302. 1030 IFSC>HSTHENPRINT"        YOU GOT THE HIGH SCORE.":HS=SC:GOTO1041
  303. 1040 IFSC=<HSTHEN1060
  304. 1041 PRINT"  USE THE JOYSTICK TO ENTER INITIALS"
  305. 1042 Q=65:HS$="":CH=1
  306. 1043 GOSUB500
  307. 1044 IFDR<2THENQ=Q+DR:
  308. 1045 IFQ>90THENQ=65
  309. 1046 IFQ<65THENQ=89
  310. 1047 PRINT""TAB(17+CH)""CHR$(Q)"[146][157]-[145][157]"
  311. 1048 IFDR=10THENHS$=HS$+CHR$(Q):CH=CH+1:FORG=1TO100:NEXT
  312. 1049 IFCH=4THEN1060
  313. 1050 GOTO1043
  314. 1060 PRINT"    DO YOU WANT TO PLAY AGAIN?(Y/N)"
  315. 1070 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1070
  316. 1080 IFA$="Y"THENFORI=VTOV+15:POKEI,0:NEXT:GOTO200
  317. 1090 REM END
  318. 1091 END
  319.