home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 April / 1985-04.d64 / p2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  73 lines
  1. 2 s1=36874:s2=s1+1:s3=s2+1:v=s3+2:tp=36879
  2. 4 gosub110:b%=0:so=0:tx=0:x=rnd(0)
  3. 6 print"[147]":poke36869,255:sc=7680:q=30720:zz=25:w=1:me=2:pokev,15:za=2:poke37154,127
  4. 8 poketp,251:no=127:forl=1tozz:x=int(rnd(1)*506)
  5. 10 no=no+1:pokes2,no:ifno=>254thenno=127
  6. 12 pokesc+q+x,5:pokesc+x,21:pokes2,0:next:zz=zz+15:tr=int(rnd(1)*4)+6
  7. 14 forp=1totr:pokes3,240:ta=int(rnd(1)*506)+sc:poketa,22:poketa+q,2
  8. 16 ifint(rnd(1)*100)+1<=3thenpoketa,218:poketa+q,4
  9. 18 pokes3,0:next:sx=int(rnd(1)*506)+sc:pokesx,33:pokesx+q,6
  10. 20 po=int(rnd(1)*506)+sc:ifpo=sxthen20
  11. 22 pokepo,19:pokepo+q,0:forl=1to3:pokepo,19:forp=1to100:pokes2,200:next
  12. 24 pokepo,32:forp=1to100:pokes2,0:next:next:pokepo,19
  13. 26 ti$="000000"
  14. 28 ifti=>786thenpoketp,154:ifti=>966then62
  15. 30 pokes3,0:j=(peek(37137)and28)or(peek(37152)and128)
  16. 32 onabs((j-100)/4)-7goto50,50,34,,36,38,124,,,,40,50,50
  17. 34 dr=-1:no=165:goto42
  18. 36 dr=22:no=189:goto42
  19. 38 dr=-22:no=210:goto42
  20. 40 dr=1:no=225
  21. 42 pokes2,no:po=po+dr:ifpo>8187thenpo=po-506:pokepo-dr+506,32
  22. 44 ifpo<7680thenpo=po+506:pokepo-dr-506,32
  23. 46 ifpeek(po)<>32then64
  24. 48 pokepo-dr,32:pokepo,19:pokepo+q,0:pokes2,0
  25. 50 pokes1,128:pokesx,32:x=int(rnd(1)*8)+1
  26. 52 jj=(x=2)*22-(x=1)*22-(x=3)+(x=4)+(x=5)*23-(x=6)*23+(x=7)*21-(x=8)*21
  27. 54 sx=sx+jj:ifsx<7680thensx=sx+506:pokesx-jj,32
  28. 56 ifsx>8187thensx=sx-506:pokesx-jj,32
  29. 58 ifpeek(sx)=19thenpokesx-jj,33:pokesx+q-jj,6:pokepo,20:pokepo+q,0:goto78
  30. 60 pokesx,33:pokesx+q,6:pokes1,0:goto28
  31. 62 print"[144]took too long":pokepo,20:pokepo+q,0:goto82
  32. 64 ifpeek(po)=21orpeek(po)=33thenpokepo-dr,20:pokepo+q-dr,0:goto78
  33. 66 ifpeek(po)<>22then72
  34. 68 pokepo-dr,32:pokepo,19:pokepo+q,0:so=so+int(rnd(1)*10+1)*50:pokes3,230+b%:tx=tx+1
  35. 70 iftx>4then94
  36. 72 if peek(po)<>218thenb%=b%+2:goto48
  37. 74 pokepo-dr,32:pokepo,19:pokepo+q,0
  38. 76 print"[144]3000 points!":so=so+3000:a1%=1:pokes3,250:goto94
  39. 78 pokes1,0:pokes3,0:forp=0to53:pokes2,180-p:forl=1to20:next:next
  40. 80 me=me-1:ifme=>1thenzz=zz-15:print"[147]":goto8
  41. 82 print"[144]":forp=1to10:print"[144]game over":pokes1,128:forl=1to100:next
  42. 84 print"[145]          [145]":pokes1,0:forl=1to100:next:next:ifso>hsthenhs=so
  43. 86 poke36869,240:poke198,0:print"[147][144]score="so:print"wave"w:print"[144]again(y or n)"
  44. 88 getc$:ifc$="n"thenpoke37139,128:poke37154,255:end
  45. 90 ifc$="y"then4
  46. 92 goto88
  47. 94 bo=int(966-ti)*3:ifpeek(tp)=154thenbo=0
  48. 96 print"[144]wave";w;"over":tx=0:ifw=5orw=10orw=15orw=20orw=25then118
  49. 98 w=w+1:print"bonus="bo:so=so+bo:print"score="so
  50. 100 print"men=";me:pokes1,0:pokes2,0:pokes3,0:pokes3+1,0:print"zaps="za:b%=0
  51. 102 readn,d:ifn=-1thenpokes2+a1%,0:a1%=0:goto108
  52. 104 pokes2+a1%,n:forp=1tod:next:goto102
  53. 106 data200,180,0,5,210,180,0,5,220,200,0,5,230,300,0,5,220,120,0,5,230,450,-1,-1
  54. 108 forp=1to2500:next:print"[147]":restore:goto8
  55. 110 poketp,30:print"[147]"spc(6)"apple hunt":print"[144]high score="hs
  56. 112 print"[156]hit any key to start"
  57. 114 geta$:ifa$=""then114
  58. 116 return
  59. 118 pokes2,0:forp=1to10:print"extra man & zap":pokes3,240:forl=1to100:next
  60. 120 print"[145]               ":pokes3,0:forl=1to100:next:next:print""
  61. 122 me=me+1:za=za+1:goto98
  62. 124 b=peek(37137)and32:ifb<>0then50
  63. 126 ifza=<0then50
  64. 128 za=za-1:poketp,203
  65. 130 pokepo+1,192:pokepo-1,192:pokepo-22,221:pokepo+22,221
  66. 132 pokepo+21,206:pokepo-21,206:pokepo-23,205:pokepo+23,205
  67. 134 pokepo+1+q,0:pokepo-1+q,1:pokepo-22+q,2:pokepo+22+q,3
  68. 136 pokepo+21+q,4:pokepo-21+q,5:pokepo-23+q,6:pokepo+23+q,7
  69. 138 forl=1to100:pokes3+1,150:next:pokes3+1,0
  70. 140 ifpeek(sx)<>33thenso=so+1000:pokes3,240:print"[144]1000 points!":goto94
  71. 142 pokesx,32:sx=sc+int(rnd(1)*506)+1:pokepo+1,32:pokepo-1,32:pokepo-22,32:pokepo+22,32
  72. 144 pokepo+21,32:pokepo-21,32:pokepo-23,32:pokepo+23,32:poketp,251:ti$="000000":goto50
  73.