home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / caveape (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  158 lines
  1. 10 rem    cave of the ice ape by jc hilty
  2. 12 rem    caveape
  3. 20 gosub680
  4. 30 sys943:poke2040,p:p=p+1:ifp=194thenp=192
  5. 40 onlgosub90,110,130,150,170:sys943
  6. 50 w1=peek(v+30):ifw1and1then200
  7. 60 w2=peek(v+31):ifw2and1then410
  8. 70 sys943:sys960,7,33:printval(ti$):ifval(ti$)>40then410
  9. 80 goto30
  10. 90 x1=x1+z:ifx1>236thenpokev+3,124:x1=236:l=2
  11. 100 pokev+2,x1:return
  12. 110 x1=x1-z:ifx1<36thenx1=36:pokev+3,156:l=3
  13. 120 pokev+2,x1:return
  14. 130 x1=x1+z:ifx1>236thenpokev+3,188:x1=236:l=4
  15. 140 pokev+2,x1:return
  16. 150 x1=x1-z:ifx1<36thenx1=36:pokev+3,220:l=5
  17. 160 pokev+2,x1:return
  18. 170 x1=x1+z:ifx1>236thenx1=32:l=1:pokev+21,61:pokev+3,92:pokev+2,x1:goto190
  19. 180 pokev+2,x1:return
  20. 190 pokev+21,63:return
  21. 200 ifw1and2then410
  22. 202 sys65418
  23. 210 forx=0to24:pokes+x,0:next:pokes,150:pokes+1,200:pokes+5,8:pokes+6,248
  24. 220 pokes+24,15:pokes+4,17:fort=0to200:next:forx=0to24:pokes+x,0:next
  25. 230 tn=tn+1:sys960,10,33:printtn:iftn=3then530
  26. 240 a=int(14*rnd(5)+1)
  27. 250 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
  28. 260 w1=peek(v+30):w2=peek(v+31):pokes+6,240:pokes+24,15:sys49223:goto30
  29. 270 pokev+8,36:pokev+9,94:return
  30. 280 pokev+8,140:pokev+9,94:return
  31. 290 pokev+8,232:pokev+9,94:return
  32. 300 pokev+8,36:pokev+9,126:return
  33. 310 pokev+8,140:pokev+9,126:return
  34. 320 pokev+8,232:pokev+9,126:return
  35. 330 pokev+8,36:pokev+9,158:return
  36. 340 pokev+8,140:pokev+9,158:return
  37. 350 pokev+8,232:pokev+9,158:return
  38. 360 pokev+8,36:pokev+9,190:return
  39. 370 pokev+8,140:pokev+9,190:return
  40. 380 pokev+8,232:pokev+9,190:return
  41. 390 pokev+8,36:pokev+9,222:return
  42. 400 pokev+8,140:pokev+9,222:return
  43. 410 sys65418
  44. 411 poke2040,198:forx=0to24:pokes+x,0:next:h=peek(v+1):pokes+24,15
  45. 420 pokes+5,80:pokes+12,160:pokes+6,255:pokes+13,252:pokes+4,17:pokes+4,16
  46. 430 fori=254to50step-4:pokes+1,i:forj=1to5:next:next
  47. 440 pokes+1,10:pokes+8,1:pokes+5,112:pokes+6,252:pokes+4,129:pokes+11,129
  48. 450 forx=0to130:h=h+1:ifh>222thenh=222
  49. 460 pokev+1,h:next:forx=0to24:pokes+x,0:next:pokes+6,240:pokes+24,15:sys49223
  50. 470 li=li-1:sys960,17,34:printli:ifli=0then1050
  51. 480 sys960,7,34:print"   ":tn=0:sys960,10,33:printtn:ti$="000000"
  52. 490 l=1:poke2040,p:pokev,232:pokev+1,222:pokev+2,36:pokev+3,92:x1=36
  53. 500 a=int(14*rnd(6)+1)
  54. 510 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
  55. 520 w1=peek(v+30):w2=peek(v+31):goto30
  56. 530 sc=sc+100:sys960,20,33:printsc:pokev,112:pokev+1,58:pokev+21,127
  57. 540 sys960,1,19:print"[158]my hero!!":gosub630
  58. 550 tn=0:sys960,10,33:printtn:sys960,7,34:print"   "
  59. 560 sys960,1,19:print"[154]help me!!"
  60. 570 pokev,232:pokev+1,222
  61. 580 a=int(14*rnd(6)+1)
  62. 590 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
  63. 600 pokev+2,36:pokev+3,92:x1=36:l=1:w1=peek(v+30):w2=peek(v+31)
  64. 610 z=z+1:ifz>12thenz=12
  65. 620 ti$="000000":pokev+21,63:goto30
  66. 630 restore
  67. 631 sys65418
  68. 640 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,85:pokes+6,85:pokes+4,33
  69. 650 forx=0to5:readh1,n1:pokes+1,h1:pokes,n1
  70. 660 ifh1=50thenfort=0to400:next
  71. 670 fort=0to200:next:next:forx=0to24:pokes+x,0:next:pokes+6,240:pokes+24,15
  72. 672 sys49223:return
  73. 680 poke53280,0:poke53281,0:print"[147][156]"tab(11)"cave of the ice ape"
  74. 690 printtab(15)"by jc hilty":printtab(10)"reading data...."
  75. 692 poke147,0:sys57812"apemusic",8,1:sys62631:s=54272:forx=0to24:pokes+x,0:next
  76. 694 pokes+6,240:pokes+24,15:sys49223
  77. 700 readh1,n1:ifh1=0then720
  78. 710 goto700
  79. 720 forx=828to949:reada:pokex,a:next
  80. 730 forx=960to975:reada:pokex,a:next
  81. 740 forx=12288to12798:reada:pokex,a:next
  82. 750 hs=0
  83. 760 sc=0:v=53248:li=4:tn=0:p=192:l=1:x1=36:z=4:ti$="000000"
  84. 770 print"[147][156] [146]      [154][209]"tab(30)"[156] [146]********"
  85. 780 print"[156] [146]     [154][209][209][209]"tab(19)"[158]help me!!  [156] [146]  cave"
  86. 790 print"[156] [146]    [154][209][209][209][209][209]"tab(30)"[156] [146] of the"
  87. 800 print"[156] [146]   [154][209][209][209][209][209][209][209]"tab(30)"[156] [146]ice ape"
  88. 810 print"[156][169][169][169][223][223][169][169][169][223][223][169][169][169][169][223][223][169][223][223][223][169][169][223][223][223][169][169][223][223][169][223]********"
  89. 820 print"[156] "tab(30)" ":print" "tab(30)" [146]  [158]timer"
  90. 830 print"[156] "tab(30)" "
  91. 840 print"[156][169][169][223][223][223][169][169][223][223][223][223][169][169][169][169][223][223][223][223][169][223][169][223][169][169][223][223]    "
  92. 850 print" "tab(30)" [146]  [158]tnt[156]"
  93. 860 print" "tab(30)" [146]  [154]";tn
  94. 870 print"[156] "tab(30)" ":print" [146]   [223][223][169][223][223][223][169][169][223][169][223]   [169][169][223][169][223][169][223][223][223][169][169][169] "
  95. 880 forx=0to2:print" "tab(30)" ":next
  96. 890 print" [146][169][169][169][223][223][169][223][169][223][169][169][169][223][223][223][169][169][223][223][169][169][223][223][223][169][169]    [146]  [158]lives"
  97. 900 print"[156] "tab(30)" [146]  [154]";li:print"[156] "tab(30)" "
  98. 910 print" "tab(30)" [146]  [158]score":print"[156] [146]   [223][223][169][169][169][223][169][223][169][169][169]   [169][169][223][223][169][169][169][223][223][223][169][169] ";
  99. 920 printtab(33)"[146][154]";sc:print"[156] "tab(30)" ":print" "tab(30)" [146]  [158]high"
  100. 930 print"[156] "tab(30)" [146]  [154]";hs
  101. 940 forx=56256to56286:pokex,4:next:forx=1984to2014:pokex,160:next
  102. 950 pokev+28,45:pokev+16,32:pokev+37,1:pokev+38,8:pokev+23,96:pokev+29,96
  103. 960 poke2040,p:pokev+39,5:pokev,232:pokev+1,222
  104. 970 poke2041,197:pokev+40,14:pokev+2,36:pokev+3,92
  105. 980 poke2042,195:pokev+41,14:pokev+4,32:pokev+5,58
  106. 990 poke2043,194:pokev+42,2:pokev+6,144:pokev+7,54
  107. 1000 poke2044,196:pokev+43,2:pokev+8,140:pokev+9,126
  108. 1010 poke2045,195:pokev+44,14:pokev+10,30:pokev+11,132
  109. 1020 poke2046,199:pokev+45,2:pokev+12,116:pokev+13,40
  110. 1030 w1=peek(v+30):w2=peek(v+31)
  111. 1040 pokev+21,63:return
  112. 1050 pokev+21,47:sys960,14,11:print"[154]game over"
  113. 1060 printtab(7)"play again  y or n"
  114. 1070 ifsc>hsthenhs=sc
  115. 1080 sys960,23,33:prinths
  116. 1090 getjk$:ifjk$<>""then1090
  117. 1100 getp$:ifp$=""then1100
  118. 1110 ifp$="y"then1140
  119. 1120 ifp$="n"thensys65418:forx=0to24:pokes+x,0:next:end
  120. 1130 goto1100
  121. 1140 gosub760:goto30
  122. 1150 data 25,30,33,135,42,62,50,60,42,62,50,60,0,0
  123. 1160 rem    joystick port 1
  124. 1170 data 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
  125. 1180 data 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
  126. 1190 data 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
  127. 1200 data 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
  128. 1210 data 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
  129. 1220 data 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
  130. 1230 data 32,60,3,32,60,3,32,60,3,32,60,3,96
  131. 1240 rem
  132. 1250 data 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  133. 1260 rem    sprite data
  134. 1270 data 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,170,64,0,168,0
  135. 1280 data 0,156,0,0,40,0,0,40,0,0,130,0,0,130,0,0,243,192,0,0,0,0,0,0,0,0,0
  136. 1290 data 0,0,0,0,0,0,0,0,0,0
  137. 1300 data 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,168,0,0,168,0
  138. 1310 data 0,188,0,0,104,0,0,40,0,0,40,0,0,40,0,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
  139. 1320 data 0,0,0,0,0,0,0
  140. 1330 data 0,0,0,3,192,0,15,252,0,63,220,0,63,92,0,63,92,0,63,92,0,63,127,0
  141. 1340 data 63,127,0,15,160,0,2,160,0,2,160,0,0,128,0,0,128,0,2,160,0,2,160,0
  142. 1350 data 0,64,0,0,64,0,0,64,0,2,96,0,0,0,0,0
  143. 1360 data 0,0,0,0,0,0,0,136,0,0,32,0,2,170,0,0,40,0,0,191,0,2,204,204
  144. 1370 data 2,255,240,2,191,12,2,159,252,10,148,0,42,150,164,40,150,160
  145. 1380 data 32,149,0,32,149,64,16,149,64,2,170,128,10,170,160,40,0,40,168,0,42,0
  146. 1390 data 0,136,0,0,0,0,0,74,0,0,16,0,3,224,0,4,10,0,8,0,0,16,16,0,16,0,0
  147. 1400 data 16,0,0,15,255,248,12,107,24,14,227,184,14,235,184,15,255,248
  148. 1410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  149. 1420 data 0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,63,128,0,127,192,0,255,224
  150. 1430 data 1,255,240,3,255,248,3,255,248,3,255,248,3,255,248,3,255,240,1,255,224
  151. 1440 data 0,255,192,0,127,128,0,31,0,0,0,0,0,0,0,0,0,0,0
  152. 1450 data 0,0,0,0,12,0,0,12,0,0,55,0,0,55,0,0,14,32,0,12,128,0,2,32,0,0,8
  153. 1460 data 0,0,8,3,74,12,3,90,172,3,218,172,0,0,0,0,0,0,0,0,0,0,0,0
  154. 1470 data 0,0,0,0,0,0,0,0,0,0,0,0,0
  155. 1480 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,199,128,7,239,192,15,239,224
  156. 1490 data 15,255,224,15,255,224,15,255,224,7,255,192,3,255,128,1,255,0
  157. 1500 data 0,254,0,0,124,0,0,56,0,0,16,0,0,0,0,0,0,0,0,0,0
  158.