home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 September
/
Ahoy_Magazine_86-09_1986_Double_L.d64
/
Trapped
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
224 lines
10 dimc(14),l(10,7,7),b(7,7):printchr$(142)chr$(8):goto5000
70 xp=int(rnd(1)*7)+1:yp=int(rnd(1)*7)+1:ifb(xp,yp)=0then70
80 pokev+21,2:gosub840:x=xp*32+11:y=yp*24+36:pokev,x:pokev+1,y:pokev+21,3:tu=1
100 if((yp<1oryp>7)or(xp<1orxp>7))orxa=xpandya=ypthen900
101 ifb(xp,yp)=5or(b(xp,yp)=2andtu=1)then180
102 ifb(xp,yp)=0then900
103 ifb(xp,yp)=2then70
104 ifb(xp,yp)=1andn=2thenb(xp,yp)=4:goto118
105 ifb(xp,yp)=1orb(xp,yp)=4thenb(xp,yp)=5:goto107
106 goto118
107 print"";:poke214,yp*3-2:print:poke211,xp*3+xp-2
110 printmid$("[150][129][158][153][159][154][154]",lv,1)"[206][183][205][157][157][157][205][175][206]":poke2040,14
112 bt=bt+1:ifbt=tthen400
114 sc=sc+2*lv:ifsc>hsthenhs=sc
116 print""tab(31)"score[157][157][157][157][157]"sc:print"[129]"tab(31)"high[157][157][157][157]"hs
117 ifb=1thenb=0:goto120
118 goto180
120 ifpeek(653)=1then120
128 j=peek(56320)and15:ifj=14thenpoke2040,14:sys49168:yp=yp-1:gosub800:goto100
130 ifj=13thenpoke2040,14:sys49182:yp=yp+1:gosub800:goto100
140 ifj=11thenpoke2040,14:sys49196:xp=xp-1:gosub800:goto100
150 ifj=7thenpoke2040,14:sys49210:xp=xp+1:gosub800:goto100
180 ifint(rnd(1)*5)>2then300
190 d=5:onint(rnd(1)*2)+1goto200,230
200 ifxa>xpthenxa=xa-1:d=1:ifb(xa,ya)=6thenxa=xa+1:d=5
210 ifxa<xpthenxa=xa+1:d=2:ifb(xa,ya)=6thenxa=xa-1:d=5
220 goto250
230 ifya<ypthenya=ya+1:d=3:ifb(xa,ya)=6thenya=ya-1:d=5
240 ifya>ypthenya=ya-1:d=4:ifb(xa,ya)=6thenya=ya+1:d=5
250 ondgoto260,270,280,290,300
260 sys49252:goto300
270 sys49266:goto300
280 sys49238:goto300
290 sys49224
300 pokev+40,rnd(1)*15+1:ifxp=xaandyp=yathen900
310 goto120
400 pokes+5,0:pokes+6,240
410 fori=1to30:poke53281,i:pokes,rnd(1)*255:pokes+1,rnd(1)*255
420 pokes+4,17:forj=1tornd(1)*25:next:pokes+4,16
430 next:poke53281,0
480 pokev+21,0:l=l+1:ifl>20thenl=20
490 n=1:ifl>10thenn=2
500 lv=l:ifl>10thenlv=l-10
510 fori=1to2000:next:t=0:goto1000
800 pokes+5,5:pokes+6,53:pokes+1,25:pokes+12,5:pokes+13,53
810 pokes+7,30:pokes+8,30:pokes+4,129:pokes+11,128
820 pokes+4,33:fori=1to50step10:pokes+1,i:forj=1to5:next:next:pokes+4,32
830 poke2040,13:return
840 pokes+5,15:pokes+6,0:pokes,67:pokes+4,17:fori=1to40:forj=0to255stepi+5
850 pokes+1,j:next:next:pokes+4,16:return
900 fori=1to100:next
905 pokes+5,0:pokes+6,28:pokes,1:pokes+1,2:pokes+4,129:pokes+4,128
910 fori=1to180:pokev+39,rnd(1)*16+1:next
920 b=1:sh=sh-1:print"[158]"tab(31)sh:pokev+21,0
930 ifsh>0then980
940 print"[152]"tab(10)" "
950 printtab(10)" game over ":printtab(10)" "
960 fori=1to3000:next:goto5480
980 goto1100
1000 poke53281,0:print"[147]"
1010 poke53280,12:fori=1to7:print" ";:forj=1to7:b(j,i)=l(lv,j,i)
1020 ifb(j,i)=0thena$=" "
1030 ifb(j,i)=1thena$="[169] [223][146][157][157][157][223] [146][169][145] "
1040 ifb(j,i)=2thena$=" [157][157][157] [146][145] "
1050 printmid$("[150][129][158][153][159][154][154]",lv,1)a$;:next:print:print:print:next
1060 print""tab(31)"score[157][157][157][157][157]"sc
1070 print"[129]"tab(31)"high[157][157][157][157]"hs
1080 print"[150]"tab(31)"level[157][157][157][157][157]"l
1090 print"[158]"tab(31)"shields[157][157][157][157][157][157][157]"sh
1100 xp=int(rnd(1)*7)+1:yp=int(rnd(1)*7)+1:ifb(xp,yp)=0orb(xp,yp)=2then1100
1110 xa=int(rnd(1)*7)+1:ya=int(rnd(1)*7)+1:ifb(xa,ya)=0orb(xa,ya)=2then1110
1120 ifxp=xaandyp=yathen1110
1130 x=xp*32+11:y=yp*24+36:a=xa*32+11:b=ya*24+39:pokev+39,11
1140 pokev+23,0:pokev+29,0:pokev+21,3:pokev,x:pokev+1,y:pokev+2,a:pokev+3,b
1145 ift<>0then1170
1150 bt=0:t=0:tu=0:fori=1to7:forj=1to7:ifb(j,i)=1thent=t+1
1160 next:next:b=1
1170 pokes+5,16:pokes+6,9
1180 fori=3to1step-1:print""tab(14)""i
1190 pokes,i:pokes+1,i*10:pokes+4,17:forj=1to20:next:pokes+4,16
1200 forj=1to900:next:next
1210 print""tab(15)" "
1220 goto100
5000 print"[147][129]";:poke53280,0:v=53248:pokev+21,0:poke53281,0:c=9
5002 fori=49152to49279:readj:pokei,j:next
5004 fori=832to1022:readj:pokei,j:next:poke2040,13:poke2041,15:sc=0:hs=0:l=1
5006 fori=1to10:forj=1to7:fork=1to7:reada:l(i,k,j)=a:next:next:next:print"[147]"
5010 pokev+39,11:pokev+40,2:s=54272:fori=stos+23:pokei,0:next:pokes+24,15
5020 l$(1)=" [157][157] [157] [146]":l$(3)=" [185] [157][157][157] [184] [157][157][157] [146]":l$(4)=" [185] [157][157][157] [184] [157][157][157] [146]"
5030 l$(5)=" [157][157][157] [146][192][157][157] [146]":l$(6)=" [223][157][157][157] [157][157][157] [146][169][146]"
5040 l$(2)=" [185] [157][157][157] [184][185][157][157][157] [146]"
5480 pokev+21,0:poke53280,0:poke53281,9:print"[147]":pokes+4,0:sh=4:cl=0:co=0
5482 poke646,cl:print""l$(1)"[145][145]"l$(2)"[145][145]"l$(3)"[145][145]"l$(4)"[145][145]"l$(4);
5484 print"[145][145]"l$(5)"[145][145]"l$(6)
5490 printtab(4)"[158]score:"sctab(22)"high score:"hs
5500 print""tab(14)"level:"l:print""tab(13)"shields:"sh
5510 print" press f1 [146][158] to select difficulty level"
5515 print""tab(6)"press f3 [146][158] to select shields"
5520 print""tab(10)"press f5 [146][158] to start"
5525 co=co+1:ifco=15thencl=cl+1:ifcl=16thencl=0
5528 ifco=15thenco=0:goto5482
5530 geta$:ifa$=""then5525
5540 ifa$="[133]"thenl=l+1:ifl=21thenl=1
5550 ifa$<>"[134]"then5555
5551 ifsh=2thensh=4:goto5560
5552 ifsh=4thensh=6:goto5560
5553 ifsh=6thensh=8:goto5560
5554 ifsh=8thensh=2:goto5560
5555 ifa$="[135]"then5570
5560 print""tab(20)l"[157] ":print""tab(21)sh
5565 goto5530
5570 t=0:sc=0:n=1:lv=l:ifl>10thenn=2:lv=l-10
5580 poke53280,11:pokes+24,15:goto1000
6000 data 160,0,200,192,255,208,251,96
6001 data 0,0,0,0,0,0,0,0
6002 data 162,0,206,1,208,232,32,0
6003 data 192,224,24,208,245,96,162,0
6004 data 238,1,208,232,32,0,192,224
6005 data 24,208,245,96,162,0,206,0
6006 data 208,232,32,0,192,224,32,208
6007 data 245,96,162,0,238,0,208,232
6008 data 32,0,192,224,32,208,245,96
6009 data 162,0,206,3,208,232,32,0
6010 data 192,224,24,208,245,96,162,0
6011 data 238,3,208,232,32,0,192,224
6012 data 24,208,245,96,162,0,206,2
6013 data 208,232,32,0,192,224,32,208
6014 data 245,96,162,0,238,2,208,232
6015 data 32,0,192,224,32,208,245,96
6016 data 3,240,0,39,249,0,44,13
6017 data 0,46,29,0,127,255,128,31
6018 data 254,0,63,255,0,35,49,0
6019 data 12,204,0,12,204,0,14,220
6020 data 0,25,230,0,48,195,0,241
6021 data 227,192,241,227,192,0,0,0
6022 data 0,0,0,0,0,0,0,0
6023 data 0,0,0,0,0,0,0,0
6024 data 3,240,0,39,249,0,44,13
6025 data 0,46,29,0,127,255,128,31
6026 data 254,0,63,255,0,35,49,0
6027 data 12,204,0,14,220,0,25,230
6028 data 0,48,195,0,241,227,192,241
6029 data 227,192,0,0,0,0,0,0
6030 data 0,0,0,0,0,0,0,0
6031 data 0,0,0,0,0,0,0,0
6032 data 1,152,0,3,252,0,15,255
6033 data 0,30,247,128,30,7,128,124
6034 data 243,224,252,3,240,223,15,176
6035 data 203,253,48,213,106,176,206,7
6036 data 48,227,252,112,224,0,112,0
6037 data 0,0,0,0,0,0,0,0
6038 data 0,0,0,0,0,0,0,0
6039 data 0,0,0,0,0,0,0
6100 data 1,1,1,1,1,1,1
6101 data 1,1,1,1,1,1,1
6102 data 1,1,1,1,1,1,1
6103 data 1,1,1,2,1,1,1
6104 data 1,1,1,1,1,1,1
6105 data 1,1,1,1,1,1,1
6106 data 1,1,1,1,1,1,1
6107 data 0,1,1,0,1,1,0
6108 data 1,1,1,1,1,1,1
6109 data 1,1,1,1,1,1,1
6110 data 0,1,1,2,1,1,0
6112 data 1,1,1,1,1,1,1
6113 data 1,1,1,1,1,1,1
6114 data 0,1,1,0,1,1,0
6115 data 1,1,0,0,0,1,1
6116 data 0,1,1,1,1,1,0
6117 data 1,1,1,1,1,1,1
6118 data 1,1,1,2,1,1,1
6119 data 1,1,1,1,1,1,1
6120 data 0,1,1,1,1,1,0
6121 data 1,1,0,0,0,1,1
6122 data 1,1,0,0,0,1,1
6123 data 1,1,1,1,1,1,1
6124 data 0,1,1,1,1,1,0
6125 data 0,0,1,2,1,0,0
6126 data 0,1,1,1,1,1,0
6127 data 1,1,1,1,1,1,1
6128 data 1,1,0,0,0,1,1
6129 data 1,1,1,1,1,1,1
6130 data 1,0,1,0,1,0,1
6131 data 1,1,1,1,1,1,1
6132 data 1,0,1,2,1,0,1
6133 data 1,1,1,1,1,1,1
6134 data 1,0,1,0,1,0,1
6135 data 1,1,1,1,1,1,1
6136 data 1,0,1,0,1,0,1
6137 data 1,1,1,1,1,1,1
6138 data 1,0,1,0,1,0,1
6139 data 1,1,1,2,1,1,1
6140 data 1,0,1,0,1,0,1
6141 data 1,1,1,1,1,1,1
6142 data 1,0,1,0,1,0,1
6143 data 1,1,1,0,1,1,1
6144 data 1,0,1,0,1,0,1
6145 data 1,1,1,1,1,1,1
6146 data 0,0,0,2,0,0,0
6147 data 1,1,1,1,1,1,1
6148 data 1,0,1,0,1,0,1
6149 data 1,1,1,0,1,1,1
6150 data 0,0,0,1,0,0,0
6151 data 0,0,1,1,1,0,0
6152 data 1,1,0,1,0,1,1
6153 data 1,0,1,1,1,0,1
6154 data 1,1,0,1,0,1,1
6155 data 0,1,1,1,1,1,0
6156 data 0,0,0,2,0,0,0
6157 data 0,0,1,1,1,0,0
6158 data 0,1,1,0,1,1,0
6159 data 1,1,0,1,0,1,1
6160 data 0,1,1,2,1,1,0
6161 data 1,1,0,1,0,1,1
6162 data 0,1,1,0,1,1,0
6163 data 0,0,1,1,1,0,0
6164 data 1,1,0,1,1,1,1
6165 data 0,1,1,1,0,1,1
6166 data 1,1,0,1,1,0,1
6167 data 0,1,1,2,1,1,1
6168 data 1,1,0,1,1,0,1
6169 data 0,1,1,1,0,1,1
6170 data 1,1,0,1,1,1,1