home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Cliffhanger (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  5.6 KB  |  159 lines
  1. 2 rem    cliffhanger-jc hilty-7/87
  2. 5 goto12
  3. 10 pokes+4,0
  4. 11 pokes+24,15:pokes+1,10:pokes,100:pokes+5,3:pokes+6,1:pokes+4,129:return
  5. 12 gosub900
  6. 13 gosub800
  7. 14 poke49600,252
  8. 20 jy=peek(56320)and15
  9. 21 ifjy=7then30
  10. 22 ifjy=11then40
  11. 23 ifjy=13then50
  12. 24 ifjy=14then60
  13. 25 ifpeek(r)=32then200
  14. 26 w1=peek(v+30):ifw1and1thenpoke49600,0:goto350
  15. 27 onlgoto70,75,80,85,90,100
  16. 28 l=l+1:ifl=7thenl=1
  17. 29 goto20
  18. 30 x1=x1+8:ifx1>252thenx1=252:goto25
  19. 32 r=r+1:pokev,x1:gosub10:goto25
  20. 40 x1=x1-8:ifx1<28thenx1=28:goto25
  21. 42 r=r-1:pokev,x1:gosub10:goto25
  22. 50 y1=y1+8:ify1>204theny1=204:goto25
  23. 52 r=r+40:pokev+1,y1:gosub10:goto25
  24. 60 y1=y1-8:r=r-40:pokev+1,y1:gosub10:goto25
  25. 70 bo=bo-10:print""tab(33)"   ":print"[154]"tab(32)bo:ifbo=0then200
  26. 72 goto28
  27. 75 forx=2044to2047:pokex,z:next:z=z+1:ifz=196thenz=192
  28. 76 goto28
  29. 80 ifpeek(v+4)>190thenpokev+4,68
  30. 82 goto28
  31. 85 ifpeek(v+12)<lbthenpoke49613,2:poke49500,64
  32. 86 ifpeek(v+12)>rbthenpoke49613,254:poke49500,64
  33. 87 ifpeek(v+13)>200thenpoke49614,254:poke49500,64
  34. 88 ifpeek(v+13)<100thenpoke49614,2:poke49500,64
  35. 89 goto28
  36. 90 ifpeek(v+6)<60thenpokev+6,210
  37. 91 goto28
  38. 100 ifpeek(v+14)<peek(v)thenpoke49615,pl:poke49500,128
  39. 102 ifpeek(v+14)>peek(v)thenpoke49615,ph:poke49500,128
  40. 104 ifpeek(v+15)<peek(v+1)thenpoke49616,pl:poke49500,128
  41. 106 ifpeek(v+15)>peek(v+1)thenpoke49616,ph:poke49500,128
  42. 108 pokev+16,0:goto28
  43. 200 poke49600,0
  44. 202 y1=y1+4:ify1>220then250
  45. 204 pokev+1,y1:gosub10:goto202
  46. 250 poke2040,197:li=li-1:print""tab(32)li
  47. 252 forx=0to24:pokes+x,0:next:sp=10:pokes,150:pokes+1,sp:pokes+6,240
  48. 254 pokes+24,15:pokes+4,17
  49. 256 forsp=10to250step4:pokes+1,sp:next
  50. 258 forx=0to24:pokes+x,0:next
  51. 260 ifli=0then400
  52. 262 pokev+21,0:poke2040,196:r=1879:x1=132:y1=204:bo=500:print""tab(32)bo
  53. 263 gosub850
  54. 264 ifle=1then14
  55. 265 ph=int(3*rnd(4)+252):pl=int(3*rnd(5)+2)
  56. 266 goto14
  57. 350 ifw1and2then360
  58. 352 goto200
  59. 360 sc=sc+bo:print""tab(32)sc
  60. 362 pokes+1,130:pokes+5,9:pokes+15,30:pokes+24,15:qq=1
  61. 363 forx=1to12:pokes+4,21:pokev+40,qq:qq=qq+1:fort=0to100:next
  62. 364 pokes+4,20:fort=0to100:next:next
  63. 366 forx=0to24:pokes+x,0:next:pokev+40,4
  64. 368 le=le+1:print""tab(32)le
  65. 369 ph=int(3*rnd(4)+252):pl=int(3*rnd(5)+2)
  66. 371 pokev+21,0:poke2040,196:r=1879:x1=132:y1=204:bo=500:print""tab(32)bo
  67. 372 gosub850:goto14
  68. 400 pokev+21,0:print"[147]":forx=2041to2043:pokex,z:next:poke53280,0
  69. 402 pokev+40,2:pokev+41,14:pokev+42,7:pokev+23,14:pokev+29,14:pokev+28,14
  70. 404 pokev+2,50:pokev+3,180:pokev+4,150:pokev+5,180:pokev+6,250:pokev+7,180
  71. 405 print"[154]"tab(11)"g a m e  o v e r":print:print
  72. 406 ifsc>hsthenhs=sc
  73. 408 printtab(11)"score  "sc:print:printtab(11)"high   "hs:print
  74. 409 pokev+21,14:restore
  75. 410 printtab(6)"[129]press any key to play again"
  76. 411 gosub938
  77. 412 pl=3:ph=252:li=4:le=1:sc=0:bo=500:x1=132:y1=204:r=1879:l=1
  78. 414 goto13
  79. 800 poke53280,2:print"[147]cliffhanger"tab(33)"[146]bonus":printtab(32)bo:print
  80. 802 printtab(9)"[149][169] [146]   [169] [223][146]    [223]"tab(33)"[146]lives"
  81. 804 printtab(9)"[129]  [146]      [146]     [146]"tab(32)li
  82. 806 printtab(8)"[149][169]  [146]  [169]   [223][146]    [223]"
  83. 808 printtab(8)"[129]   [146]       [146]     [146]"tab(33)"score"
  84. 810 printtab(7)"[149][169]               [223][146]"tab(32)sc
  85. 812 printtab(7)"[129]                 "
  86. 814 printtab(6)"[149][169]    [146]             [223][146]"tab(33)"high"
  87. 816 printtab(6)"[129]     [146]              [146]"tab(32)hs
  88. 818 printtab(5)"[149][169]     [146]              [223]"
  89. 820 printtab(5)"[129]      [146]               [146]"tab(33)"level"
  90. 822 printtab(4)"[149][169]                     [223][146]"tab(32)le
  91. 824 printtab(4)"[129]                       "
  92. 826 printtab(3)"[149][169]       [146]                [223]"
  93. 828 printtab(3)"[129]        [146]                 "
  94. 830 printtab(2)"[149][169]        [146]                 [223]"
  95. 832 printtab(2)"[129]         [146]                  "
  96. 834 print" [149][169]                           [223]"
  97. 836 print" [129]                             "
  98. 838 print"[149][169]                             [223]"
  99. 840 print"[129]                               "
  100. 850 forx=49601to49616:pokex,0:next:poke49500,255:poke49600,0:sys49376
  101. 852 pokev+23,0:pokev+29,0:pokev+28,253
  102. 854 poke2040,196:pokev+39,5:pokev,x1:pokev+1,y1
  103. 856 poke2041,199:pokev+40,4:pokev+2,136:pokev+3,58
  104. 858 poke2042,198:pokev+41,5:pokev+4,142:pokev+5,094
  105. 860 poke2043,198:pokev+42,5:pokev+6,142:pokev+7,142
  106. 862 poke2044,z:pokev+43,14:pokev+8,80:pokev+9,190
  107. 864 poke2045,z:pokev+44,2:pokev+10,186:pokev+11,70
  108. 866 poke2046,z:pokev+45,7:pokev+12,116:pokev+13,120
  109. 868 poke2047,z:pokev+46,13:pokev+14,166:pokev+15,120
  110. 870 poke49605,2:poke49607,253:poke49610,255:poke49612,2
  111. 872 poke49614,2:poke49613,253:poke49500,252
  112. 880 pokev+21,255:forx=0to24:pokes+x,0:next:w1=peek(v+30):return
  113. 900 poke53281,0:poke53280,0:print"[147]one moment....loading data...."
  114. 902 poke147,0:sys57812"cliffhanger.ml",8,1:sys62631
  115. 904 poke147,0:sys57812"cliffhanger.sp",8,1:sys62631
  116. 906 v=53248:s=54272:li=4:le=1:sc=0:bo=500:x1=132:y1=204:r=1879:l=1:lb=40:rb=200
  117. 907 pl=3:ph=252
  118. 908 pokev+16,0:poke2040,200:z=192:poke2041,z:poke2042,z:poke2043,z
  119. 910 pokev+23,15:pokev+29,15:pokev+28,14:pokev+37,1:pokev+38,0:pokev+39,8
  120. 912 pokev+40,2:pokev+41,14:pokev+42,5:pokev,120:pokev+1,60:pokev+2,160
  121. 914 pokev+3,200:pokev+4,60:pokev+5,200:pokev+6,250:pokev+7,200:pokev+21,15
  122. 916 print"[147][129]"tab(20)"presents"
  123. 918 printtab(7)" [146]        [146]       [146]        [146]        "
  124. 920 print"   [146]     [146]      [146]       [146]  [146]      [146]        [146]  "
  125. 922 print"[156]  [146]   [146]   [146]    [146]   [146]  [146]  [146]    [146] [223][146]  [146]  [146]      [146]    "
  126. 924 print"  [146]   [146]   [146]  [146]    [146]   [146]  [146]  [146]  [146]  [223] [146]  [146]  [146]  [146]     "
  127. 926 print"  [146]   [146]   [146]   [146]   [146]     [146]  [146]  [146]    [146]    [146]   [146]   [146]  "
  128. 928 print"   [146]  [146]     [146]       [146]  [146]      [146][223] [146]      "
  129. 930 printtab(4)"  [146]    [146]       [146]  [146]      [146] [223]        "
  130. 932 print:printtab(14)"[129]by jc hilty":print:printtab(12)"joystick-port 2":print
  131. 934 printtab(4)"[156]avoid the crocodiles and hooties"
  132. 936 print""tab(14)"press any key"
  133. 938 forx=0to24:pokes+x,0:next:restore
  134. 939 pokes+3,8:pokes+5,41:pokes+6,89:pokes+14,117:pokes+18,16:pokes+24,143
  135. 940 readfr,dr:iffr=0thenrestore:goto940
  136. 942 pokes+4,65
  137. 944 fort=1todr:fq=fr+peek(s+27)/2
  138. 945 hf=int(fq/256):lf=fqand255
  139. 946 pokes,lf:pokes+1,hf:next:pokes+4,64
  140. 947 poke2041,z:poke2042,z:poke2043,z:z=z+1:ifz=196thenz=192
  141. 948 geta$:ifa$=""then940
  142. 950 print"[147]":pokev+21,0:return
  143. 1000 data 10814,2,5407,2,5103,2,5407,2,5728,2,6430,2,7217,2,8101,2
  144. 1002 data 8583,2,5407,2,5103,2,5407,2,8101,2,5407,2,4817,2,5407,2
  145. 1004 data 7217,2,5407,2,5103,2,5407,2,5103,2,5407,2,5103,2,5407,2
  146. 1006 data 8583,2,5407,2,5103,2,5407,2,8101,2,5407,2,5103,2,5407,2
  147. 1008 data 7217,2,5407,2,5728,2,6430,2,7217,2,8101,2,8583,2,9634,2
  148. 1010 data 10814,2,5407,2,5103,2,5407,2,9634,2,5407,2,5103,2,5407,2
  149. 1012 data 8583,2,5407,2,5103,2,5407,2,5103,2,5407,2,5103,2,5407,2
  150. 1014 data 10814,2,5407,2,5103,2,5407,2,9634,2,5407,2,5103,2,5407,2
  151. 1016 data 8583,2,7217,2,8101,2,8583,2,9634,2,10814,2,11457,2,12860,2
  152. 1018 data 14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2
  153. 1020 data 14435,4,10814,4,10814,8
  154. 1022 data 14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2
  155. 1024 data 14435,4,10814,4,10814,8
  156. 1026 data 14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2
  157. 1028 data 14435,4,10814,4,10814,4,9634,4
  158. 1030 data 8583,4,5407,4,5103,4,5407,4,8101,4,5407,4,5103,4,5407,4,0,0
  159.