home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
caveape
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
158 lines
10 rem cave of the ice ape by jc hilty
12 rem caveape
20 gosub680
30 sys943:poke2040,p:p=p+1:ifp=194thenp=192
40 onlgosub90,110,130,150,170:sys943
50 w1=peek(v+30):ifw1and1then200
60 w2=peek(v+31):ifw2and1then410
70 sys943:sys960,7,33:printval(ti$):ifval(ti$)>40then410
80 goto30
90 x1=x1+z:ifx1>236thenpokev+3,124:x1=236:l=2
100 pokev+2,x1:return
110 x1=x1-z:ifx1<36thenx1=36:pokev+3,156:l=3
120 pokev+2,x1:return
130 x1=x1+z:ifx1>236thenpokev+3,188:x1=236:l=4
140 pokev+2,x1:return
150 x1=x1-z:ifx1<36thenx1=36:pokev+3,220:l=5
160 pokev+2,x1:return
170 x1=x1+z:ifx1>236thenx1=32:l=1:pokev+21,61:pokev+3,92:pokev+2,x1:goto190
180 pokev+2,x1:return
190 pokev+21,63:return
200 ifw1and2then410
202 sys65418
210 forx=0to24:pokes+x,0:next:pokes,150:pokes+1,200:pokes+5,8:pokes+6,248
220 pokes+24,15:pokes+4,17:fort=0to200:next:forx=0to24:pokes+x,0:next
230 tn=tn+1:sys960,10,33:printtn:iftn=3then530
240 a=int(14*rnd(5)+1)
250 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
260 w1=peek(v+30):w2=peek(v+31):pokes+6,240:pokes+24,15:sys49223:goto30
270 pokev+8,36:pokev+9,94:return
280 pokev+8,140:pokev+9,94:return
290 pokev+8,232:pokev+9,94:return
300 pokev+8,36:pokev+9,126:return
310 pokev+8,140:pokev+9,126:return
320 pokev+8,232:pokev+9,126:return
330 pokev+8,36:pokev+9,158:return
340 pokev+8,140:pokev+9,158:return
350 pokev+8,232:pokev+9,158:return
360 pokev+8,36:pokev+9,190:return
370 pokev+8,140:pokev+9,190:return
380 pokev+8,232:pokev+9,190:return
390 pokev+8,36:pokev+9,222:return
400 pokev+8,140:pokev+9,222:return
410 sys65418
411 poke2040,198:forx=0to24:pokes+x,0:next:h=peek(v+1):pokes+24,15
420 pokes+5,80:pokes+12,160:pokes+6,255:pokes+13,252:pokes+4,17:pokes+4,16
430 fori=254to50step-4:pokes+1,i:forj=1to5:next:next
440 pokes+1,10:pokes+8,1:pokes+5,112:pokes+6,252:pokes+4,129:pokes+11,129
450 forx=0to130:h=h+1:ifh>222thenh=222
460 pokev+1,h:next:forx=0to24:pokes+x,0:next:pokes+6,240:pokes+24,15:sys49223
470 li=li-1:sys960,17,34:printli:ifli=0then1050
480 sys960,7,34:print" ":tn=0:sys960,10,33:printtn:ti$="000000"
490 l=1:poke2040,p:pokev,232:pokev+1,222:pokev+2,36:pokev+3,92:x1=36
500 a=int(14*rnd(6)+1)
510 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
520 w1=peek(v+30):w2=peek(v+31):goto30
530 sc=sc+100:sys960,20,33:printsc:pokev,112:pokev+1,58:pokev+21,127
540 sys960,1,19:print"[158]my hero!!":gosub630
550 tn=0:sys960,10,33:printtn:sys960,7,34:print" "
560 sys960,1,19:print"[154]help me!!"
570 pokev,232:pokev+1,222
580 a=int(14*rnd(6)+1)
590 onagosub270,280,290,300,310,320,330,340,350,360,370,380,390,400
600 pokev+2,36:pokev+3,92:x1=36:l=1:w1=peek(v+30):w2=peek(v+31)
610 z=z+1:ifz>12thenz=12
620 ti$="000000":pokev+21,63:goto30
630 restore
631 sys65418
640 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,85:pokes+6,85:pokes+4,33
650 forx=0to5:readh1,n1:pokes+1,h1:pokes,n1
660 ifh1=50thenfort=0to400:next
670 fort=0to200:next:next:forx=0to24:pokes+x,0:next:pokes+6,240:pokes+24,15
672 sys49223:return
680 poke53280,0:poke53281,0:print"[147][156]"tab(11)"cave of the ice ape"
690 printtab(15)"by jc hilty":printtab(10)"reading data...."
692 poke147,0:sys57812"apemusic",8,1:sys62631:s=54272:forx=0to24:pokes+x,0:next
694 pokes+6,240:pokes+24,15:sys49223
700 readh1,n1:ifh1=0then720
710 goto700
720 forx=828to949:reada:pokex,a:next
730 forx=960to975:reada:pokex,a:next
740 forx=12288to12798:reada:pokex,a:next
750 hs=0
760 sc=0:v=53248:li=4:tn=0:p=192:l=1:x1=36:z=4:ti$="000000"
770 print"[147][156] [146] [154][209]"tab(30)"[156] [146]********"
780 print"[156] [146] [154][209][209][209]"tab(19)"[158]help me!! [156] [146] cave"
790 print"[156] [146] [154][209][209][209][209][209]"tab(30)"[156] [146] of the"
800 print"[156] [146] [154][209][209][209][209][209][209][209]"tab(30)"[156] [146]ice ape"
810 print"[156][169][169][169][223][223][169][169][169][223][223][169][169][169][169][223][223][169][223][223][223][169][169][223][223][223][169][169][223][223][169][223]********"
820 print"[156] "tab(30)" ":print" "tab(30)" [146] [158]timer"
830 print"[156] "tab(30)" "
840 print"[156][169][169][223][223][223][169][169][223][223][223][223][169][169][169][169][223][223][223][223][169][223][169][223][169][169][223][223] "
850 print" "tab(30)" [146] [158]tnt[156]"
860 print" "tab(30)" [146] [154]";tn
870 print"[156] "tab(30)" ":print" [146] [223][223][169][223][223][223][169][169][223][169][223] [169][169][223][169][223][169][223][223][223][169][169][169] "
880 forx=0to2:print" "tab(30)" ":next
890 print" [146][169][169][169][223][223][169][223][169][223][169][169][169][223][223][223][169][169][223][223][169][169][223][223][223][169][169] [146] [158]lives"
900 print"[156] "tab(30)" [146] [154]";li:print"[156] "tab(30)" "
910 print" "tab(30)" [146] [158]score":print"[156] [146] [223][223][169][169][169][223][169][223][169][169][169] [169][169][223][223][169][169][169][223][223][223][169][169] ";
920 printtab(33)"[146][154]";sc:print"[156] "tab(30)" ":print" "tab(30)" [146] [158]high"
930 print"[156] "tab(30)" [146] [154]";hs
940 forx=56256to56286:pokex,4:next:forx=1984to2014:pokex,160:next
950 pokev+28,45:pokev+16,32:pokev+37,1:pokev+38,8:pokev+23,96:pokev+29,96
960 poke2040,p:pokev+39,5:pokev,232:pokev+1,222
970 poke2041,197:pokev+40,14:pokev+2,36:pokev+3,92
980 poke2042,195:pokev+41,14:pokev+4,32:pokev+5,58
990 poke2043,194:pokev+42,2:pokev+6,144:pokev+7,54
1000 poke2044,196:pokev+43,2:pokev+8,140:pokev+9,126
1010 poke2045,195:pokev+44,14:pokev+10,30:pokev+11,132
1020 poke2046,199:pokev+45,2:pokev+12,116:pokev+13,40
1030 w1=peek(v+30):w2=peek(v+31)
1040 pokev+21,63:return
1050 pokev+21,47:sys960,14,11:print"[154]game over"
1060 printtab(7)"play again y or n"
1070 ifsc>hsthenhs=sc
1080 sys960,23,33:prinths
1090 getjk$:ifjk$<>""then1090
1100 getp$:ifp$=""then1100
1110 ifp$="y"then1140
1120 ifp$="n"thensys65418:forx=0to24:pokes+x,0:next:end
1130 goto1100
1140 gosub760:goto30
1150 data 25,30,33,135,42,62,50,60,42,62,50,60,0,0
1160 rem joystick port 1
1170 data 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
1180 data 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
1190 data 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
1200 data 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
1210 data 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
1220 data 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
1230 data 32,60,3,32,60,3,32,60,3,32,60,3,96
1240 rem
1250 data 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
1260 rem sprite data
1270 data 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,170,64,0,168,0
1280 data 0,156,0,0,40,0,0,40,0,0,130,0,0,130,0,0,243,192,0,0,0,0,0,0,0,0,0
1290 data 0,0,0,0,0,0,0,0,0,0
1300 data 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,168,0,0,168,0
1310 data 0,188,0,0,104,0,0,40,0,0,40,0,0,40,0,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
1320 data 0,0,0,0,0,0,0
1330 data 0,0,0,3,192,0,15,252,0,63,220,0,63,92,0,63,92,0,63,92,0,63,127,0
1340 data 63,127,0,15,160,0,2,160,0,2,160,0,0,128,0,0,128,0,2,160,0,2,160,0
1350 data 0,64,0,0,64,0,0,64,0,2,96,0,0,0,0,0
1360 data 0,0,0,0,0,0,0,136,0,0,32,0,2,170,0,0,40,0,0,191,0,2,204,204
1370 data 2,255,240,2,191,12,2,159,252,10,148,0,42,150,164,40,150,160
1380 data 32,149,0,32,149,64,16,149,64,2,170,128,10,170,160,40,0,40,168,0,42,0
1390 data 0,136,0,0,0,0,0,74,0,0,16,0,3,224,0,4,10,0,8,0,0,16,16,0,16,0,0
1400 data 16,0,0,15,255,248,12,107,24,14,227,184,14,235,184,15,255,248
1410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1420 data 0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,63,128,0,127,192,0,255,224
1430 data 1,255,240,3,255,248,3,255,248,3,255,248,3,255,248,3,255,240,1,255,224
1440 data 0,255,192,0,127,128,0,31,0,0,0,0,0,0,0,0,0,0,0
1450 data 0,0,0,0,12,0,0,12,0,0,55,0,0,55,0,0,14,32,0,12,128,0,2,32,0,0,8
1460 data 0,0,8,3,74,12,3,90,172,3,218,172,0,0,0,0,0,0,0,0,0,0,0,0
1470 data 0,0,0,0,0,0,0,0,0,0,0,0,0
1480 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,199,128,7,239,192,15,239,224
1490 data 15,255,224,15,255,224,15,255,224,7,255,192,3,255,128,1,255,0
1500 data 0,254,0,0,124,0,0,56,0,0,16,0,0,0,0,0,0,0,0,0,0