home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #7 / utv2n7s2.d64 / neutron.exe4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.9 KB  |  177 lines
  1. 12 gosub800:gosub750:gosub700:gosub750
  2. 17 w1=peek(v+30)
  3. 18 print"[154]score"sc;tab(16)"saucers"sa;tab(30)"units"li
  4. 20 gosub500
  5. 22 forx=2041to2044:pokex,q:next:fort=0to10:next:q=q-1:ifq=243thenq=247
  6. 23 ifqq=0then150
  7. 24 ifqq=1thengosub170
  8. 25 onlgosub100,110,120,130:l=l+1:ifl=5thenl=1
  9. 26 jy=peek(56320)and15
  10. 27 ifjy=7thenz=z+16:poke2040,249:ifz>255thenz=255:goto29
  11. 28 ifjy=11thenz=z-16:poke2040,250:ifz<25thenz=25
  12. 29 pokev,z
  13. 30 w1=peek(v+30):ifw1and1thengosub60
  14. 31 goto22
  15. 40 sys49152:gosub70
  16. 42 ifli=0then300
  17. 43 fb=-((peek(56320)and16)=0):iffb=1then50
  18. 44 jy=peek(56320)and15
  19. 45 ifjy=13thenz=z+12:ifz>220thenz=220:goto47
  20. 46 ifjy=14thenz=z-12:ifz<50thenz=50
  21. 47 pokev+1,z
  22. 48 w1=peek(v+30):ifw1and1then300
  23. 49 goto40
  24. 50 pokev+14,114:pokev+15,z:x1=112:pokev+21,255
  25. 52 x1=x1+28:ifx1>255thenpokev+21,127:goto48
  26. 54 pokev+14,x1
  27. 55 w1=peek(v+30):ifw1and128then400
  28. 56 goto52
  29. 60 poke50432,0:poke50444,0:poke50688,32:gosub600
  30. 62 sc=sc+100:li=li+1:ifli>9thenli=9
  31. 63 print""tab(6)sc;tab(35)li
  32. 64 poke2045,243:fort=0to40:next:poke2045,242:fort=0to40:next:poke2045,241
  33. 65 fort=0to40:next:pokev+21,31:qq=0:poke2045,239:w1=peek(v+30):return
  34. 70 forx=2041to2046:pokex,q:next:fort=0to10:next:q=q-1:ifq=243thenq=247
  35. 71 return
  36. 100 ifpeek(v+3)>dnthenpoke50436,254:poke50688,2:return
  37. 102 ifpeek(v+3)<upthenpoke50436,2:poke50688,2:return
  38. 104 return
  39. 110 ifpeek(v+5)>dnthenpoke50438,253:poke50688,4:return
  40. 112 ifpeek(v+5)<upthenpoke50438,3:poke50688,4:return
  41. 114 return
  42. 120 ifpeek(v+7)>dnthenpoke50440,254:poke50688,8:return
  43. 122 ifpeek(v+7)<upthenpoke50440,2:poke50688,8:return
  44. 124 return
  45. 130 ifpeek(v+9)>dnthenpoke50442,253:poke50688,16:return
  46. 132 ifpeek(v+9)<upthenpoke50442,3:poke50688,16:return
  47. 134 return
  48. 150 bo=bo+1:ifbo=26thenpoke50432,0:pokev+21,0:gosub550:goto40
  49. 151 poke50444,1:poke50688,32:pokev+44,1
  50. 152 e=int(rnd(1)*4)+1:onegosub160,162,164,166
  51. 154 poke50432,62:pokev+21,63:qq=1:goto25
  52. 160 pokev+10,peek(v+2)+12:pokev+11,peek(v+3)+24:return
  53. 162 pokev+10,peek(v+4)+12:pokev+11,peek(v+5)+24:return
  54. 164 pokev+10,peek(v+6)+12:pokev+11,peek(v+7)+24:return
  55. 166 pokev+10,peek(v+8)+12:pokev+11,peek(v+9)+24:return
  56. 170 ifpeek(v+11)>220thenpoke50444,0:poke50688,32:poke50432,30:pokev+21,31:qq=0
  57. 172 return
  58. 300 pokev+21,127:poke2040,240:gosub600
  59. 302 z=z+2:ifz>220thengoto310
  60. 304 pokev+1,z:fort=0to20:next:goto302
  61. 310 poke2040,243:fort=0to40:next:poke2040,242:fort=0to40:next
  62. 312 poke2040,241:fort=0to40:next:pokev+21,126:fort=0to500:next
  63. 314 li=li-1
  64. 316 print""tab(35)li:ifli=0then350
  65. 318 pokev+21,0:gosub550:goto40
  66. 350 print""tab(8)"g a m e  o v e r":print
  67. 352 printtab(8)"score "sc:print
  68. 355 printtab(8)"play again  y or n"
  69. 356 getjk$:ifjk$<>""then356
  70. 358 getpa$:ifpa$=""then358
  71. 360 ifpa$="n"then3000
  72. 362 ifpa$="y"then1000
  73. 363 goto358
  74. 400 pokev+21,127:poke50432,0:gosub600
  75. 402 ifw1and2then420
  76. 403 ifw1and4then422
  77. 404 ifw1and8then424
  78. 405 ifw1and16then426
  79. 406 ifw1and32then428
  80. 407 k=2046:j2=13
  81. 410 pokek,243:fort=0to50:next:pokek,242:fort=0to50:next:pokek,241
  82. 411 fort=0to50:next:pokev+j2,10:pokek,q:sa=sa-1
  83. 412 sc=sc+100:print""tab(6)sc;tab(24)"  "
  84. 413 print""tab(23)sa:ifsa=0then2000
  85. 414 poke50432,126:w1=peek(v+30):goto40
  86. 420 ifabs(z-peek(v+3))<25thenk=2041:j2=3:goto410
  87. 421 goto403
  88. 422 ifabs(z-peek(v+5))<25thenk=2042:j2=5:goto410
  89. 423 goto404
  90. 424 ifabs(z-peek(v+7))<25thenk=2043:j2=7:goto410
  91. 425 goto405
  92. 426 ifabs(z-peek(v+9))<25thenk=2044:j2=9:goto410
  93. 427 goto406
  94. 428 ifabs(z-peek(v+11))<25thenk=2045:j2=11:goto410
  95. 429 goto407
  96. 500 forx=39to43:pokev+x,7:next:poke2040,249:forx=2041to2044:pokex,q:next
  97. 502 pokev+23,0:pokev+29,30:z=150:pokev,z:pokev+1,200:pokev+28,31
  98. 504 pokev+44,5:poke2045,239:pokev+2,26:pokev+3,100:pokev+4,90:pokev+5,60
  99. 505 pokev+6,180:pokev+7,140:pokev+8,240:pokev+9,138
  100. 508 forx=50432to50448:pokex,0:next:sys51104
  101. 509 poke50436,254:poke50438,002:poke50440,253:poke50442,3:poke50688,30
  102. 510 pokev+16,0
  103. 511 poke50432,30:pokev+21,31:up=60:dn=140:return
  104. 550 forx=2045to2046:pokex,q:next:pokev+28,127:pokev+44,7:pokev+45,7
  105. 552 poke2047,238:pokev+46,1:forx=50432to50448:pokex,0:next
  106. 553 z=150:pokev,90:pokev+1,z:pokev+2,40:pokev+3,60:pokev+4,200
  107. 554 pokev+5,210:pokev+6,120:pokev+7,70:pokev+8,150:pokev+9,220
  108. 555 pokev+10,190:pokev+11,50:pokev+12,24:pokev+13,130
  109. 556 pokev+29,254:poke2040,249
  110. 557 poke49522,1:poke49523,0:poke49524,39:poke49525,0:poke49526,22
  111. 558 poke49527,1:poke49528,1:poke50435,255:poke50437,254:poke50438,3
  112. 559 poke50439,253:poke50440,255:poke50441,254:poke50442,253:poke50436,2
  113. 560 poke50443,255:poke50444,2:poke50445,254:poke50446,1:poke50688,254
  114. 580 pokev+21,127:poke50432,126:l=1:w1=peek(v+30):return
  115. 600 forx=0to24:pokes+x,0:next
  116. 602 pokes+1,10:pokes+5,46:pokes+24,15:pokes,240:pokes+4,129:return
  117. 700 forx=39to43:pokev+x,13:next
  118. 702 pokev+28,32:pokev+44,7:pokev+37,1:pokev+38,2:poke2045,249:pokev+10,160
  119. 704 poke2040,255:poke2041,254:poke2042,253:poke2043,252:poke2044,251:pokev+16,0
  120. 706 pokev,50:pokev+1,100:pokev+11,70:pokev+2,98:pokev+3,100:pokev+4,146
  121. 708 pokev+5,100:pokev+6,194:pokev+7,100:pokev+8,242:pokev+9,100:pokev+23,63
  122. 710 pokev+29,63:pokev+21,63:poke49522,1:poke49523,0:poke49524,39:poke49525,0
  123. 712 poke49526,23:poke49527,1:poke49528,1
  124. 714 gosub600:fort=0to100:sys49152:next
  125. 716 poke49527,2:poke49528,2:poke49522,4:poke2045,248
  126. 718 forx=0to25:sys49152:fort=0to20:next:next
  127. 720 forx=0to100:a=int(918*rnd(1)+1024):pokea,46:pokea+54272,14:next
  128. 722 fort=0to500:next
  129. 724 gosub600:poke2045,243:fort=0to99:next:poke2045,242:fort=0to99:next
  130. 725 poke2045,241:fort=0to99:next:pokev+21,31
  131. 726 print"[153]"tab(10)"part 2- the city":fort=0to2000:next
  132. 727 pokev+21,0
  133. 728 return
  134. 750 print"[147]":poke53280,0:poke53281,0:poke147,0
  135. 751 sys57812"city.color",8,1:sys62631:sys57812"city.pic",8,1:sys62631:return
  136. 800 poke53281,0:poke53280,0
  137. 802 v=53248:s=54272:l=1:q=247:qq=0:bo=0:li=peek(12280):sc=peek(12284)*100:sa=20
  138. 804 poke147,0:sys57812"neutron.sp4",8,1:sys62631
  139. 805 sys57812"neutron.sc",8,1:sys62631:return
  140. 1000 sys65418:pokev+21,0:pokev+23,0:pokev+29,0:pokev+16,0
  141. 1001 remifpeek(12278)=251thensys52480
  142. 1002 poke147,0:sys57812"zippack",8,1:sys62631
  143. 1004 print"[147][144]load"chr$(34)"neutron.exe"chr$(34)",8";
  144. 1006 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:new
  145. 2000 sys65418:pokev+21,0:pokev+23,0:pokev+29,0:pokev+16,0
  146. 2001 remifpeek(12278)=251thensys52480
  147. 2002 print"[147][154]you're on a roll, neutron-man.."
  148. 2003 poke12280,li:poke12284,int(sc/100)
  149. 2004 poke147,0:sys57812"zippack",8,1:sys62631
  150. 2005 sys57812"neutron.font",8,1:sys62631
  151. 2006 sys49152,"comic3.pic",40960,24576:sys860
  152. 2008 wait56320,16,16:gosub4000:poke53272,31
  153. 2010 print"[147][154]the final confrontation takes place at"
  154. 2012 print"the statue of liberty. your goal is to"
  155. 2014 print"hit the orange saucer with your"chr$(13)"neutron ray."
  156. 2016 print"move the joystick up and down to move"
  157. 2018 print"up and down. press the firebutton to"chr$(13)"fire a ray."
  158. 2019 print"the purple saucer is firing a ray back"
  159. 2020 print"at you. dangerous meteorites are also"
  160. 2021 print"in the area. avoid these, as a"
  161. 2022 print"collision will cost you an energy unit."
  162. 2023 print"play continues on this level until you"
  163. 2024 print"run out of energy units. good luck!"
  164. 2025 printtab(11)"press  firebutton"
  165. 2026 wait56320,16,16:print"[147]":poke53272,21:sys49152,"comic4.pic",40960,24576
  166. 2028 sys860:wait56320,16,16:gosub4000
  167. 2032 print"[147][144]load"chr$(34)"neutron.exe2"chr$(34)",8";
  168. 2033 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:new
  169. 3000 sys65418:pokev+21,0:poke53281,0:poke53280,0:pokev+23,0:pokev+29,0
  170. 3001 remifpeek(12278)=251thensys52480
  171. 3002 pokev+16,0:poke53272,21:poke1023,peek(12278)
  172. 3004 print"[147][144]load"chr$(34)"reboot"chr$(34)",8";
  173. 3005 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
  174. 3006 new
  175. 4000 print"[147]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  176. 4002 poke53265,27:poke53270,200:poke53272,31:return
  177.