home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 June
/
1985-06.d64
/
freeze factory
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
80 lines
10 print"[147]"spc(14)"please wait":poke53272,28:poke56,48:clr
20 poke56334,0:poke1,51:a=2047:b=12288:c=53248
30 fori=.toa:pokei+b,peek(i+c):next:poke1,55:poke56334,1
40 eg=0:restore:goto520
50 if((peek(p1)and2)=.)thend=w:goto190
60 if((peek(p1)and4)=.)thend=-t:g=2:goto190
70 if((peek(p1)and1)=.)thend=-w:goto190
80 if((peek(p1)and8)=.)thend=t:g=.:goto190
90 fora=.to3:ifz>e(a)thenifpeek(e(a)+w)=ntheni=w:goto110
100 ifz<e(a)thenifpeek(e(a)-w)=ntheni=-w
110 ifz>e(a)thenifpeek(e(a)+t)=ntheni=t:goto130
120 ifz<e(a)thenifpeek(e(a)-t)=ntheni=-t
130 ifpeek(e(a)+i)=nthenpokee(a),n:e(a)=e(a)+i:pokee(a)+c,t:pokee(a),5
140 ife(a)+i=zthen260
150 pokee(a),4:next
160 hh=hh+1:ifhh>htthenhh=.:h=h-1:ifh<0then310
170 print"";h;"[157] "
180 goto50
190 pokeu2,40:ifpeek(z+d)=nthenpokez,n:z=z+d:pokez+c,7:pokez,g:pokeu2,.:goto230
200 pokeu2,.:ifpeek(z+d)=6andpeek(z+d*2)<>nthen240
210 ifpeek(z+d)=6andpeek(z+d*2)=nthenqq=z+d:goto350
220 ifpeek(z+d)<6then260
230 goto90
240 fora=.to3:pokez+d,8:pokeu1,152:pokez,g:pokez+d,9:pokeu1,175:pokez,g+t:next
250 pokez+d,n:pokeu1,.:s=s+10:print"[158]>";s:goto90
260 fory=1to15:pokez,g+t:pokeu1,161:pokee(a),4:pokez,g:foro=1to20:next
270 pokee(a),5
280 next:pokeu1,.:fory=1to15:pokev,y:pokeu1,245:foro=1to25:next:next:pokeu1,.
290 sh=sh-1:print"[157][157][157][146]";sh"[157] ";:ifsh=.then310
300 goto50
310 pokez,n
320 print" game over[146] "
330 print"[129]press firebutton";
340 wait56320,16,16:goto40
350 pokeu2,100:pokeu2,120:pokeqq,n:qq=qq+d
360 ifpeek(qq)=nthenpokeqq+c,3:pokeqq,6:goto350
370 pokeu2,.:ifpeek(qq)<6thenpokeqq+c,3:pokeqq,6:s=s+1000:print"[158]>";s:goto390
380 qq=qq-d:pokeqq+c,3:pokeqq,6:goto50
390 fory=120to135:pokeu2,y:next:pokeu2,.
400 fora=.to9:pokeqq+c,t:pokeqq,11:pokeu2,135:pokez,g+t:pokeqq,10:pokez,g
410 pokeu2,100:pokeu2,.:next:pokeqq,4:pokeu2,.:eg=eg+1:ifeg>3then430
420 goto50
430 eg=.:fory=64to128:pokeu2,y:next:pokez,n:fora=.to3:pokee(a),n:next:z=1524
440 fory=.to3:foro=35to55:pokeu2,o:fora=1to10:next:next:next:pokeu2,.
450 fory=1902to1185step-1
460 ifpeek(y)=6thenpokey+c,t:pokeu2,120:fortd=1to25:next:pokey+c,3:s=s+25
470 pokeu2,.:print"[158]>";s:h=60:next:fory=5to25:pokeu2,y:next:pokeu2,.:pokez,g
480 pokez+c,7:ht=ht-t:ifht<1thenht=1
490 sh=sh+t:print"[157][157][157]";sh:lv=lv+1:print"[157][157][157]";lv
500 fory=1to10:b=1184+int(rnd(t)*700):ifpeek(b)=nandb<>zthenpokeb+c,3:pokeb,6
510 next:pokeu2,72:s=s+(h*10):print"[158]>";s:pokeu2,.:goto50
520 poke53281,1:poke53272,21:print"[147][159]the freeze factory!![146][144]"
530 print""spc(17-len(str$(s))/2)"score: "s:ifs>hsthenhs=s
540 s=0:print""spc(15-len(str$(hs))/2)"high score:"hs
550 poke53280,4:print"press [129]fire[144] to play"
560 fora=54272to54296:pokea,0:next:v=54296:u1=54273
570 u2=54280:poke54277,17:poke54284,17:poke54278,255:poke54285,255
580 poke54276,129:poke54283,33
590 wait56320,16,0:wait56320,16,16
600 print"[147]":poke53281,0:forx=12544to12561:pokex,.:next
610 forx=12288to12383:readd:pokex,d:next:poke53272,28
620 t=1:w=40:print"[147][158]> 0":pokev,15
630 print"[157][157][157][157][157][157][157][157]level[146] 1":print"[129]time[146] 60":c=54272
640 fora=tto70:pokeu2,20:b=1184+int(rnd(t)*700):pokeb+c,3:pokeb,6:pokeu2,.:next
650 fora=1144to1183:pokea,7:pokea+c,4:next:fora=1184to1904stepw:pokea+c,4
660 pokea,7:pokea+39,7:pokea+39+c,4:next:fora=1905to1943:pokea+c,4:pokea,7:next
670 fora=1to15:pokev,a:pokeu2,5:fory=1to75:next:next:pokeu2,.
680 n=32:p1=56320:z=1524:h=60:sh=3:e(.)=1510:e(t)=1534:e(2)=1724
690 e(3)=1204:pokez+c,7:pokez,.:ht=4:lv=1
700 print"[157][157][157][157][158]@";sh:goto50
710 print"[157][157][157][157][158]@";sh
720 data62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,14
730 data56,6,26
740 data108,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90
750 data60,24,36,195
760 data126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0
770 data136,0,34,0
780 data136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0,60,126,255
790 data153,126,60