home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Game Pak / rerun-gamepak / bugs (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  241 lines
  1. 1 rem"steve proper
  2. 2 [143]"november '84
  3. 3 rem"
  4. 10 [137] 1350
  5. 20 :
  6. 30 [143] game loop ***********
  7. 40 :
  8. 50 x(c)[178]x(c)[170]d:[139]x(c)[177]255[167]1660
  9. 60 [139]x(c)[171]d[173]2[177]0[167][151]v[170]v(c),x(c)[171]d[173]2
  10. 70 p[178][194](56320):[139]p[179]117[167]460
  11. 80 y[178]y[170]p(p):[139]y[177]233[176]y[179]64[167]y[178]y[171]p(p)
  12. 90 x[178]x[170]p(p[171]20):[139]x[177]255[176]x[179]46[167]x[178]x[171]p(p[171]20)
  13. 100 [151]v[170]11,y:[151]v[170]10,x:[151]2040,([194](2040)[176]2)[171]1
  14. 110 [139]x(c)[177]0[167][151]v[170]v(c),x(c):[151]2040[170]c,([194](2040[170]c)[176]2)[171]1
  15. 120 [139]da[178]3[167]350
  16. 130 c[178]c[170]1:[139]c[179]5[167]50
  17. 140 c[178]1:c2[178]c2[170]1:[139]c2[179]c3[167]50
  18. 150 :
  19. 160 [143] bee/mosquito ********
  20. 170 :
  21. 180 [139]da[167][145]da[137]230,270
  22. 190 x(5)[178]0:danger[178][181]([187](1)[172]2)[170]1:[151]v[170]21,[194](v[170]21)[176]o(5)
  23. 200 [139]da[178]2[167]o(5)[178]1:[151]s[170]4,21:[151]s[170]1,78:[151]s[170]15,6:[151]2040,198:[137]270
  24. 210 o(5)[178]64:[151]s[170]1,100:[151]s[170]15,28:[151]s[170]4,19
  25. 220 :
  26. 230 y(5)[178][181]([187](1)[172]12)[170]130:[151]v[170]13,y(5):x(5)[178]x(5)[170]15
  27. 240 [139]x(5)[179]255[167][151]v[170]12,x(5):[137]50
  28. 250 [137]1660
  29. 260 :
  30. 270 y(5)[178]130:[151]v[170]1,130:[139][181]([187](ti)[172]14)[178]1[167]340
  31. 280 [139]x(5)[177]x[167][139][181]([187](ti)[172]7)[178]1[167]340
  32. 290 x(5)[178]x(5)[170]12:[139]x(5)[179]255[167][151]v,x(5):[151]2040,([194](2040)[176]2)[171]1:[137]50
  33. 300 [137]1660
  34. 310 :
  35. 320 [143] bee attack *************
  36. 330 :
  37. 340 [141]740:[153]"";[163]11)"stopbee is attacking ":da[178]3
  38. 350 t[178][194](2040):[139]x(5)[177]x[167]x(5)[178]x(5)[171]6:[139]t[177]196[167][151]2040,13
  39. 360 [139]x(5)[179]x[167]x(5)[178]x(5)[170]6:[139]t[179]196[167][151]2040,198
  40. 370 [139]y(5)[177]y[167]y(5)[178]y(5)[171]6
  41. 380 [139]y(5)[179]y[171]10[167]y(5)[178]y(5)[170]6
  42. 390 [151]v,x(5):[151]v[170]1,y(5)
  43. 400 [139]x[171]18[179]x(5)[175]x[170]18[177]x(5)[175]y[171]14[179]y(5)[175]y[170]14[177]y(5)[167]da[178]4:[137]1670
  44. 410 c[178]c[170]1:[139]c[179]5[167]50
  45. 420 c[178]1:[137]50
  46. 430 :
  47. 440 [143] fire button set up *******
  48. 450 :
  49. 460 p[178]p[170]16:[151]s[170]12,32:[151]s[170]11,129:[151]s[170]13,33:[151]s[170]8,40:[151]s[170]7,200
  50. 470 c4[178]c4[170]1:[139]c4[178]3[167]led[178]led[171]1:c4[178]0:[151]led,0:[139]led[178]55353[167]da[178]5:[137]1670
  51. 480 [151]v[170]21,[194](v[170]21)[176]128:[151]v[170]14,x[171]45:[151]v[170]15,y[171]7
  52. 490 [139]da[178]1[167][139]y(5)[179]y[171]16[176]y(5)[177]y[176]x[171]10[179]x(5)[176]x[171]40[177]x(5)[170]25[167]570
  53. 500 [139]y(5)[179]y[171]16[176]y(5)[177]y[176]5[170]x[179]x(5)[176]x[171]45[177]x(5)[170]25[167]570
  54. 510 [139]da[178]2[167]sc[178]sc[170]6
  55. 520 [139]da[178]3[167][141]740:[141]760
  56. 530 sc[178]sc[170]12:[151]v[170]13,0:[151]v,0:[151]v[170]1,0:[151]s[170]4,0:da[178]0:c2[178]0:c3[178][181]([187](ti)[172]10)
  57. 540 :
  58. 550 [143] if ant is hit loop ********
  59. 560 :
  60. 570 [129]i[178]1[164]4:[151]2040,([194](2040)[176]2)[171]1
  61. 580 [139]5[170]x[177]x(i)[175]x[171]35[179]x(i)[170]35[175]y(i)[177]y[171]20[175]y(i)[179]y[170]2[167][141]700
  62. 590 [139]h(i)[178]6[167][151]v[170]v(i),0:h(i)[178]0:h(6)[178]h(6)[170]1:[141]680
  63. 600 [130]i
  64. 610 [151]s[170]11,0:[151]s[170]12,0:[151]v[170]21,[194](v[170]21)[175](255[171]128):[151]v[170]15,0
  65. 620 [151]s[170]8,0:[151]s[170]7,200
  66. 630 [139]h(6)[177]3[167]w[178]w[170]1:[151]v[170]15,0:[137]820
  67. 640 [137]80
  68. 650 :
  69. 660 [143] useful subroutines *********
  70. 670 :
  71. 680 x(i)[178][181]([187](ti)[172]170)[170]1:x(i)[178]x(i)[171]x(i)[172]2
  72. 690 y(i)[178]([181]([187](ti)[172]55)[170]1)[170]164:[151]v[170]v(i)[170]1,y(i):[142]
  73. 700 h(i)[178]h(i)[170]1:[151]v[170]39[170]i,c(h(i)):sc[178]sc[170]1:[142]
  74. 710 [151]v,0:[151]v[170]1,0:[151]v[170]12,0:[151]v[170]13,0
  75. 720 da[178]0:c3[178]20:x(5)[178]0:y(5)[178]0:[151]v[170]21,[194](v[170]21)[175](255[171]o(i)):[142]
  76. 730 [129]sl[178]1[164]2000:[130]
  77. 740 [153]"stop                                       ":[142]:[143] 38 spaces
  78. 750 [141]740:[153]"stop";[163]11)"wave:"w;"completed":[142]
  79. 760 t[178][181]([187](ti)[172]6)[172]10:[153]"";[163]11)"bonus points:"t:sc[178]sc[170]t[170]6:[142]
  80. 770 [153]"waittab(usrfrenewposandto ";:[142]
  81. 780 [153]"andposnewwaitfreusrtab( ";:[142]
  82. 790 :
  83. 800 [143] wave set up *************
  84. 810 :
  85. 820 [129]i[178]1[164]5:h(i)[178]0:[130]:h(6)[178]h(6)[171]4
  86. 830 [151]s[170]5,255:[151]s[170]24,15:c[178]1
  87. 840 [139]d[179]20[167]d[178]d[170]1
  88. 850 [153]"stop";[163]11)"spray:    sys       ":led[178]55364
  89. 860 [151]v[170]21,255:[141]750:[137]50
  90. 870 :
  91. 880 [143] new game set up *********
  92. 890 :
  93. 900 [129]i[178]1[164]4:[151]v[170]39[170]i,9:[130]:[141]740:sc[178]0:w[178]0:d[178]dl:da[178]0:[151]53281,4
  94. 910 x(1)[178]0:x(2)[178][171]60:x(3)[178][171]120:x(4)[178][171]180:h(6)[178]4
  95. 920 [129]i[178]1[164]4:y(i)[178]([181]([187](ti)[172]55)[170]1)[170]164:[151]v[170]v(i)[170]1,y(i):[130]
  96. 930 [142]
  97. 940 :
  98. 950 [143] set up *********************
  99. 960 :
  100. 970 [153][199](142);"load"[166]13)"15 second set up"[166]27)"please wait"
  101. 980 [134]p(255):v[178]53248:s[178]54272:y[178]150:x[178]150:l[178][171]5:c3[178]10
  102. 990 o(1)[178]2:o(2)[178]4:o(3)[178]8:o(4)[178]16
  103. 1000 [129] i[178]1[164]15:[151]v[170]i,0:[130]
  104. 1010 [129]i[178]1[164]4:[135]v(i):[130]
  105. 1020 [129]i[178]1[164]6:[135]c(i):[130]
  106. 1030 [129]i[178]1[164]15:[135]a,b:p(a)[178]b:[130]
  107. 1040 [151]2040,197:[151]2041,193:[151]2042,194:[151]2043,193:[151]2044,194
  108. 1050 [151]2045,192:[151]2046,196:[151]2047,195:[151]v[170]28,161:[151]v[170]29,128
  109. 1060 [151]v[170]37,7:[151]v[170]38,1:[151]v[170]39,0:[151]v[170]44,0:[151]v[170]45,0
  110. 1070 i[178]12287
  111. 1080 [135]q:[139]q[177]255[167][129]t[178]1[164]q[171]255:i[178]i[170]1:[151]i,0:[130]:[137]1080
  112. 1090 i[178]i[170]1:[151]i,q:[139]i[179]12734[167]1080
  113. 1100 i[178]831
  114. 1110 [135]q:[139]q[177]255[167][129]t[178]1[164]q[171]255:i[178]i[170]1:[151]i,0:[130]:[137]1110
  115. 1120 i[178]i[170]1:[151]i,q:[139]i[179]958[167]1110
  116. 1130 [151]53265,[194](53265)[175]239:[143] screen blanking
  117. 1140 [153]"";:[129]i[178]1[164]80:[153]"stop ";:[130]
  118. 1150 [129]i[178]1[164]248:[153]" ";:[130]
  119. 1160 [141]780:[141]770:[129]i[178]1[164]18:[153]" ";:[130]
  120. 1170 [141]780:[129]i[178]1[164]15:[153]" ";:[130]:[141]770:[141]780
  121. 1180 [153]"tab(usr":[129]i[178]1[164]6:[153]:[130]
  122. 1190 [129]i[178]1664[164]1703:[151]i,98:[151]i[170]s,5:[130]i
  123. 1200 [129]i[178]1[164]31:[153]" ";:[130]
  124. 1210 [129]z[178]1[164]288:[153]" ";:[130]:[153]"":[151]2023,160:[151]56295,5
  125. 1220 [153]"stop":[129]i[178]1[164]7:[153]:[130]
  126. 1230 [153][163]32)"step    (NULL)",
  127. 1240 [153][163]31)"step      (NULL)",
  128. 1250 [153][163]32)"tab(tab(tab(tab(tab(tab(wait",
  129. 1260 [153][163]32)"  stop   stop ",
  130. 1270 [153][163]32)"      ",
  131. 1280 [153][163]72)"  stop   stop ",
  132. 1290 [153][163]32)"      wait",
  133. 1300 [151]53281,4:[151]53265,[194](53265)[176]16:[143] screen blanking
  134. 1310 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[141]900:[137]820
  135. 1320 :
  136. 1330 [143] instructions **************
  137. 1340 :
  138. 1350 [153][199](142);"loadsys";:[151]657,128:[151]53280,0:[151]53281,6
  139. 1360 [153][163]13)"*** bugs! ****"
  140. 1370 [153]"select starting difficulty:"
  141. 1380 [153]"f1wait beginner"
  142. 1390 [153]"f3wait intermediate"
  143. 1400 [153]"f5wait professional"
  144. 1410 p[178][194](203):[139][194](56320)[178]111[167]p[178]4
  145. 1420 [139]p[179]4[176]p[177]6[167]1410
  146. 1430 [139]p[178]4[167]dl[178]5
  147. 1440 [139]p[178]5[167]dl[178]11
  148. 1450 [139]p[178]6[167]dl[178]18
  149. 1460 [139]p[177]4[167]970
  150. 1470 [153]"loadinstructions:"
  151. 1480 [153]"giant, mutant, killer bugs! are taking "
  152. 1490 [153]"over our homes.  use your joystick in"
  153. 1500 [153]"control port #2 to maneuver your bug "
  154. 1510 [153]"spray. prevent attacking ants,"
  155. 1520 [153]"mosquitos and bees from becoming"
  156. 1530 [153]"uninvited house guests. ants require "
  157. 1540 [153]"six hits to eliminate. mosquitos and "
  158. 1550 [153]"bees require only one; but remember,"
  159. 1560 [153]"mosquitos are hard to hit and bees"
  160. 1570 [153]"sometimes attack. do not get over-"
  161. 1580 [153]"run, stung or run out of bug"
  162. 1590 [153]"spray!"
  163. 1600 [153][163]8)"press fire to begin"
  164. 1610 [139][194](56320)[179][177]111[167]1610
  165. 1620 [137]970
  166. 1630 :
  167. 1640 [143] tab keeper ***************
  168. 1650 :
  169. 1660 [141]740:[153]"";[163]11)"you've been over run!      "
  170. 1670 [139]da[178]4[167][153]"stop";[163]11)"you have been stun