home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / Guerilla (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  94 lines
  1. 10 poke53281,.:poke53280,.:printchr$(8)chr$(142)"[147]"tab(15)"[156]guerilla"
  2. 20 printtab(8)"[159](c)1988 cleve blakemore"
  3. 30 dim t(7),b(7),e$(4),d$(103),i$(7)
  4. 40 v=53248:sp=2040:j=56320:s=54272
  5. 45 m=90:i=1:n=16:c=.:g=30:u=1:l=7:p=53180:am=.:bm=4:th=.:lm=50
  6. 50 k=21:b=255:w=13:q=v+39:r=2:e=5:xc=37:yc=19:h=3:xs=7:ys=24:z=150:lv=1:dm=103
  7. 60 forx=2to15:reada:pokev+x,a:next:forx=.to127:reada:poke832+x,a:next
  8. 70 forx=.to63:poke11*64+x,.:poke15*64+x,.:next
  9. 80 forx=.to12step3:poke11*64+29+x,24:next
  10. 90 poke11*64+35,255:pokesp,11:pokev,156:pokev+1,188:pokev+39,1
  11. 100 forx=53000to53223:reada:pokex,a:next
  12. 110 forx=utol:b(x)=2^x:next
  13. 120 a$="[183][208][146][169][145][157][157][157][169][195][206]":e$(.)=" [145] [157] ":e$(1)="   ":e$(2)="   "
  14. 130 e$(3)=" [145][157]  ":e$(4)=" [145]  ":bl$=""
  15. 140 b$="[151]":forx=.to19:b$=b$+"[207][208]":bl$=bl$+chr$(32):next:c$=right$(b$,39)+"[207]"
  16. 150 i$(.)="[146] ":i$(1)="[146][165]":i$(2)="[146][180]":i$(3)="[146][181]":i$(4)="[146][161]":i$(5)="[182]"
  17. 160 i$(5)="[170]":i$(6)="[167]":i$(7)=" ":v$="enemy decimated...fortress saved!!"
  18. 170 forx=.to39:d$=d$+"[201]":e$=e$+"[203]":next
  19. 180 forx=.to16:fora=.to7:d$(x*6+a)=left$(bl$,x+2)+i$(a)+"[146]":next:next
  20. 190 pokev+16,64+128:forx=1to7:pokesp+x,13:pokev+39+x,5:next
  21. 200 gosub480:gosub450:gosub460:x=fre(.)
  22. 210 forx=.to103:sysp,9,23:printd$(x):next
  23. 220 x=1:pokev+k,u:c=peek(v+g):c=peek(v+g):sys53000
  24. 230 rem main loop
  25. 240 f=peek(j)andn:x=x+u+(x=l)*l:ift(x)thent(x)=t(x)-u:ift(x)=.thengosub290
  26. 250 c=rnd(u)*m+u:ifc<l+uthenift(c)=.thent(c)=g-int(i):pokev+k,peek(v+k)orb(c)
  27. 260 c=peek(v+g):on-(f>.)goto240:gosub390:am=am+u
  28. 265 ifam=lmthenam=.:bm=bm-u:sysp,27+h*bm,ys:print"[144]"a$;:on-(bm=.)goto320
  29. 270 on-(c=.)goto240:fora=utol:if(candb(a))thengosub340
  30. 280 next:c=peek(v+g):c=peek(v+g):goto240
  31. 290 sysp,rnd(u)*xc,rnd(u)*h+yc:printe$(rnd(u)*e);:pokeq+x,w:gosub400:gosub390
  32. 300 dm=dm-u:sysp,9,23:printd$(dm)" ":fora=.ton:pokev+g+h,a:next:a=x:ifdmgoto380
  33. 310 pokes+18,129:forx=.to400:pokes+15,rnd(.)*z:pokev+33,xandg:next:gosub450
  34. 320 pokev+21,.:print"[147]":printtab(4)"[150]our fortress has been destroyed !!"
  35. 330 printtab(12)"[152]final score:"sc:forx=.to7000:next:run
  36. 340 pokesp+a,w+u:pokeq+a,r:sc=sc+z*lv:sysp,xs,ys:print"[146]"sc;:m=m+(m>l)
  37. 350 ifi<26theni=i+.5
  38. 360 ifi=10ori=18ori=25thenlv=lv+u:poke2005,48+lv:gosub420
  39. 370 th=th+u:ifth=zthenpokev+21,.:print"[147]"tab(11)v$:gosub420:goto330
  40. 380 gosub410:pokev+k,peek(v+k)and(b-b(a)):pokesp+a,w:pokeq+a,e:t(a)=.:return
  41. 390 pokes+8,4:pokes+11,129:fora=.to50:next:pokes+11,128:return
  42. 400 pokes+18,129:fora=zto.step-e:pokes+15,a:next:pokes+18,128:return
  43. 410 ford=.toz:next:return
  44. 420 m$="251331421502421502":gosub450:pokes+6,96:forll=1to18step3
  45. 430 pokes+1,val(mid$(m$,ll,2)):pokes+4,17:ford=1to90*val(mid$(m$,ll+2,1)):next
  46. 440 pokes+4,16:next:gosub450:gosub460:return
  47. 450 forll=stos+23:pokell,.:next:pokes+24,15:return
  48. 460 pokes+6,73:pokes+13,234:pokes+20,234:return
  49. 470 rem game screen
  50. 480 print"[147][155]     [223]"
  51. 490 print"[155] [146]     [146]  [168] [168] [168][168][168] [152] [151][223][146]   [129][208][207][208][207][208][207][208][207][208][207][208][149][223]"
  52. 500 print"[155] [146]     [146] [168][168][166][168][166][168][166][168][166][152] [151] [223][146]  [129][207][208][207][208][207][208][207][208][207][208][207][149] [223]"
  53. 510 print"[155] [146]     [146]  [168][220][166][168][166][146][166][166][146][168][152] [151]  [155]   [129][207][208][207][208][146]   [208][207][208][149]  "
  54. 520 print"[152] [174][174][174][174][174][174][174][174][174] [155][223][149][146][205][214][214][206][205][214][214][152] [151]  [155]  [129][207][208][207][208][207][146]   [207][208][208][149]  "
  55. 530 print"[152] [174][174][174][174][174][174][146]    [155] [223][149][162] [223][169] [146][207][152] [151]  [155]  [129][208][207][208][207][208][146]   [208][207][208][149]  "
  56. 540 print"[152] [174][174][174][174][174][174][146]    [155]  [146] [149][223]  [146][169] [129][208][151]  [155] [129][208][207][208][207][208][207][208][207][208][207][208][207][149]  "
  57. 550 print"[152] [174][174][174][174][174][174][146]    [155]  [146]  [149][180][182][146]  [129][207][151] [129][207][208][207][208][207][208][207][208][207][208][207][208][207][208][149]  "
  58. 560 print"[152] [174][174][174][174][174][174][174][174][174] [155]  [146]  [149][165][170][146]  [129][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][149]  "
  59. 570 print"[220][152] [146]   [174][174][174][174][174][174] [155]  [146][220] [149][209][182][146]  [129][207][208][207][146]   [207][208][207][208][146]   [208][207][208][149]  "
  60. 580 print"[220][220][152] [146]   [174][174][174][174][174][174] [155]  [146][220][220][149][180][167][146]  [129][208][207][208][146]   [208][207][208][207][146]   [207][208][207][149]  "
  61. 590 print"[220][166][152] [146]   [174][174][174][174][174][174] [155]  [166][146][168][149]  [146]  [129][207][208][207][146]   [207][208][207][208][146]   [208][207][208][149]  "
  62. 600 print"[166][166][152] [174][174][174][174][174][174][174][174][174] [155]  [166][146][166][149] [167][146] [220][129][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][149]  "
  63. 610 print"[166][146][166][152] [174][174][174][174][174][174][146]    [155]  [146][166][166][146][166][166][146][220][166][129][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][149]  "
  64. 620 print"[166][166][152] [174][174][174][174][174][174][146]    [155]  [166][166][166][166][146][166][166][129][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][149]  "
  65. 630 print"[166][166][152] [174][174][174][174][174][174][146]    [155]  [166][146][166][166][166][166][166][129][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][149]  "
  66. 640 print"[152]"d$e$b$c$b$c$b$;"[146]guerilla"
  67. 650 print"[155]score =       [154]attack 1[152]ammo[149]"a$a$a$a$;"":return
  68. 660 rem sprite location data
  69. 670 data96,93,72,61,48,125,96,158,217,126,17,126,17,78:rem v+16=64+128
  70. 680 rem sprite data
  71. 690 data1,252,,3,254,,7,199,,7,56,128,6,221,128,1,125,.
  72. 700 data6,21,,4,46,128,4,29,96,12,35,104,28,62,220,60,62,62
  73. 710 data124,56,31,124,54,15,121,45,15,114,155,239,4,87,239,10,175,222
  74. 720 data19,215,156,32,107,124,193,245,120,,,,126,18,15,195,9,23
  75. 730 data97,36,63,225,18,63,225,8,51,222,1,179,128,7,222,180,15,225
  76. 740 data110,31,126,223,62,252,191,61,248,95,1,240,95,126,104,95,185,216
  77. 750 data223,85,183,190,147,110,136,16,221,240,3,187,240,4,117,80,15,250,80,.
  78. 760 rem interrupt routine
  79. 770 data 120,169,31,141,20,3,169,207,141,21,3,169,166,141,17
  80. 780 data 3,169,207,141,18,3,88,96,173,,220,41,15,133,253
  81. 790 data 169,15,56,229,253,168,185,221,207,240,8,141,168,2,160
  82. 800 data 0,32,60,207,76,163,207,173,168,2,10,170,189,202,207
  83. 810 data 8,152,10,170,40,48,25,240,43,173,220,207,24,125,0
  84. 820 data 208,157,,208,144,31,169,1,77,16,208,141,16,208,76
  85. 830 data 120,207,189,,208,56,237,220,207,157,,208,176,8,169
  86. 840 data 1,77,16,208,141,16,208,173,168,2,10,170,232,189,202
  87. 850 data 207,8,152,10,170,232,40,48,15,240,23,173,220,207,24
  88. 860 data 125,,208,157,,208,76,162,207,189,,208,56,237,220
  89. 870 data 207,157,,208,96,76,49,234,173,,220,41,15,133,253
  90. 880 data 169,15,56,229,253,168,185,221,207,168,169,,108,5,0
  91. 890 data 32,155,183,138,72,32,155,183,104,168,24,76,240,255,0
  92. 900 data 0,,255,1,255,1,,1,1,,1,255,1,255,0
  93. 910 data 255,255,3,,1,5,,7,8,6,,3,2,4
  94.