home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / freeze_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  67 lines
  1. 10 hs=0
  2. 20 eg=0:restore:goto470
  3. 30 pokedd,127:if((peek(p1)and8)=.)thend=w:goto170
  4. 40 if((peek(p1)and16)=.)thend=-t:g=2:goto170
  5. 50 if((peek(p1)and4)=.)thend=-w:goto170
  6. 60 if((peek(p2)and128)=.)thend=t:g=.:goto170
  7. 70 fora=.to3:ifz>e(a)thenifpeek(e(a)+w)=ntheni=w:goto90
  8. 80 ifz<e(a)thenifpeek(e(a)-w)=ntheni=-w
  9. 90 ifz>e(a)thenifpeek(e(a)+t)=ntheni=t:goto110
  10. 100 ifz<e(a)thenifpeek(e(a)-t)=ntheni=-t
  11. 110 ifpeek(e(a)+i)=nthenpokee(a),n:e(a)=e(a)+i:pokee(a)+c,t:pokee(a),5
  12. 120 ife(a)+i=zthen240
  13. 130 pokee(a),4:next
  14. 140 hh=hh+1:ifhh>htthenhh=.:h=h-1:ifh<0then280
  15. 150 print"";h;"[157] "
  16. 160 goto30
  17. 170 pokev-3,245:ifpeek(z+d)=nthenpokez,n:z=z+d:pokez+c,7:pokez,g:pokev-3,.:goto210
  18. 180 pokev-3,.:ifpeek(z+d)=6andpeek(z+d*2)<>nthen220
  19. 190 ifpeek(z+d)=6andpeek(z+d*2)=nthenqq=z+d:goto310
  20. 200 ifpeek(z+d)<6then240
  21. 210 goto70
  22. 220 fora=.to3:pokez+d,8:pokev-t,152:pokez,g:pokez+d,9:pokev-t,175:pokez,g+t:next
  23. 230 pokez+d,n:pokev-t,.:s=s+10:print">";s:goto70
  24. 240 fory=.to15:pokez,g+t:pokev-t,161:pokee(a),4:pokez,g:foro=1to20:next:pokee(a),5
  25. 250 next:pokev-t,.:fory=.to15:pokev,y:pokev-t,245:foro=1to25:next:next:pokev-t,.
  26. 260 sh=sh-1:print"[157][157][157]";sh"[157] ":ifsh=.then280
  27. 270 goto30
  28. 280 pokez,n
  29. 290 print"game over":print"   press [159]firebutton";
  30. 300 wait37137,32,32:goto20
  31. 310 pokev-3,200:pokev-3,220:pokeqq,n:qq=qq+d
  32. 320 ifpeek(qq)=nthenpokeqq+c,3:pokeqq,6:goto310
  33. 330 pokev-3,.:ifpeek(qq)<6thenpokeqq+c,3:pokeqq,6:s=s+1000:print">";s:goto350
  34. 340 qq=qq-d:pokeqq+c,3:pokeqq,6:goto30
  35. 350 fory=240to255:pokev-2,y:pokev-2,.:next
  36. 360 fora=.to9:pokeqq+c,t:pokeqq,11:pokev-4,235:pokez,g+t:pokeqq,10:pokez,g:pokev-3,200
  37. 370 pokev-4,.:next:pokeqq,4:pokev-3,.:eg=eg+1:ifeg>3then390
  38. 380 goto30
  39. 390 eg=.:fory=128to255:pokev-3,y:next:pokez,n:fora=.to3:pokee(a),n:next:z=7910
  40. 400 fory=.to3:foro=240to255:pokev-3,o:fora=1to20:next:next:next:pokev-3,.
  41. 410 fory=8141to7702step-1:ifpeek(y)=6thenpokey+c,t:pokev-4,240:pokey+c,3:s=s+25
  42. 420 pokev-4,.:print">";s:h=60:next:fory=140to255:pokev-3,y:next:pokev-3,.:pokez,g
  43. 430 pokez+c,7:ht=ht-t:ifht<1thenht=1
  44. 440 sh=sh+t:print"[157][157][157]";sh:lv=lv+1:print"[157][157][157]";lv
  45. 450 fory=1to10:b=7768+int(rnd(t)*352):ifpeek(b)=nandb<>zthenpokeb+c,3:pokeb,6
  46. 460 next:pokev-2,144:s=s+(h*10):print">";s:pokev-2,.:goto30
  47. 470 poke36869,240:print"[147][144]the freeze factory!![146]"
  48. 480 print"score:":print""s:ifs>hsthenhs=s
  49. 490 s=0:print"high score:":print""hs
  50. 500 poke36879,28:print"press fire[144] to play"
  51. 510 wait37137,32,0:wait37137,32,32
  52. 520 poke52,28:poke56,28:poke51,.:poke55,.:forx=7424to7432:pokex,.:next
  53. 530 forx=7168to7263:readd:pokex,d:next:v=36878:pokev-9,255:pokev,15:t=1:w=22:pokev+t,8
  54. 540 print"[147]> 0":print"[157][157][157][157][157][157][157][157]level 1":print"time: 60":c=30720
  55. 550 fora=tto50:pokev-2,240:b=7768+int(rnd(t)*352):pokeb+c,3:pokeb,6:pokev-2,.:next
  56. 560 fora=7746to7767:pokea,7:pokea+c,4:next:fora=7768to8120stepw:pokea+c,4:pokea,7
  57. 570 pokea+21,7:pokea+21+c,4:next:fora=8121to8140:pokea+c,4:pokea,7:next
  58. 580 fora=.to15:pokev,a:pokev-4,225:fory=1to75:next:next:pokev-4,.
  59. 590 n=32:p1=37151:p2=37152:dd=37154:z=7910:h=60:sh=3:e(.)=7902:e(t)=7914:e(2)=7800
  60. 600 e(3)=7998:pokez+c,7:pokez,.:ht=4:lv=1
  61. 610 print"[157][157][157][157][158]@";sh:goto30
  62. 620 print"[157][157][157][157][158]@";sh
  63. 630 data62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,14,56,6,26
  64. 640 data108,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90,60,24,36,195
  65. 650 data126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0,136,0,34,0
  66. 660 data136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0,60,126,255,153,126,60
  67.