home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
slither
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
9KB
|
254 lines
1 rem all time high 43,840
10 poke53281,0:poke53280,0:poke52,56:poke56,56:i=rnd(-ti):printchr$(142)
20 j0=127:j2=56320:s=1024:si=54272:c=si:s1=si+1:s4=si+4:s5=si+5:s6=si+6:sv=si+24
22 bh=33:bs=34:bc=32:ns=40:c$=chr$(96)
30 fori=sitosv:pokei,0:next:pokes6,242:pokesv,15
32 poke56334,0:poke1,51
34 a=14336:b=53248:fori=0to1487:pokei+a,peek(i+b):next
36 poke1,55:poke56334,1:poke53272,30
38 fori=0to30:readp:poke49152+i,p:next
40 fori=14600to14631:readp:pokei,p:next
42 fori=15064to15159:readp:pokei,p:next
44 fori=14720to14799:readp:pokei,p:next
60 dimjd(32),l$(ns),fc(12),fs(13),bc(5)
64 jd(1)=-40:jd(2)=40:jd(4)=-1:jd(8)=1
66 forj=1tons:readl$(j):next
68 fori=1to12:readfc(i):next
70 fori=1to13:readfs(i):next
72 fori=1to5:readcb(i):next
99 :
100 print"[147]"
120 print"[156] [195][195][195][195][195] [195] [195] [195][195][195][195][195] [195] [195] [195][195][195][195][195] [195][195][195][195] "
122 print" [195] [195] [195] [195] [195] [195] [195] [195] [195]"
124 print"[154] [195][195][195] [195] [195] [195] [195][195][195][195][195] [195][195][195][195] [195][195][195][195]"
126 print"[159] [195] [195] [195] [195] [195] [195] [195] [195] [195]"
127 print" [195][195][195][195] [195][195][195][195][195] [195] [195] [195] [195] [195][195][195][195][195] [195] [195]"
130 fori=1to200:next
132 print""tab(12)"difficulty 12345":p=s+183
134 j=peek(j2):ifj=119thenp=p+1:ifp>s+187thenp=p-1
136 ifj=123thenp=p-1:ifp<s+183thenp=p+1
138 ifj=111then160
140 pokep,peek(p)or128:fori=1to30:next:pokep,peek(p)and127:goto134
160 di=p-(s+182):du=di:w=7:sc=0:l=1
162 poke53270,216:poke53282,6:poke53283,5
190 gosub700
192 p=s+165:pd=1
199 :
200 j=peek(j2):ifj=j0then250
202 j=j0-j:ifjd(j)thenpd=jd(j)
250 q=peek(p+pd):ifq<>bcthen300
252 pokep,bs:p=p+pd:pokep+c,cb:pokep,bh
260 ford=1to50:next:goto200
298 :
299 : * collision *
300 ifq<91then400
302 q=q-90:sc=sc+fs(q):pokep,bs:fori=q*12+10to0step-q/2:pokes1,i:pokes4,17:next
304 p=p+pd:pokep,bh:fori=0toq*12+10stepq/2:pokes1,i:pokes4,17:next:pokes4,16
310 pokep+c,cb:gosub350:du=du-1:ifdu=0then800
312 goto200
348 :
349 : * status line *
350 print"score ";:n=sc:goto940
360 print""tab(19)"("chr$(48+w)")"tab(28)"high ";:n=sh:gosub940
362 print"":return
398 :
399 : * crashed *
400 pokes1,5:pokes4,129:fori=15to0step-1:pokesv,i:pokep+c,i:poke53281,i
402 poke53280,i:poke53282,15-i:poke53283,i:forj=1to20:next:next
406 poke53282,6:poke53283,5:pokesv,15:pokes4,0:w=w-1:gosub360:ifw=0then410
408 pokep,bc:sys49152:fori=1to800:next:goto192
410 print"":printtab(15)"game over"
412 ifsc>shthensh=sc:gosub450
420 printtab(7)"press button to play again":gosub360
430 ifpeek(j2)<>111then430
440 gosub3100:goto130
450 forj=1to15:printtab(15)"[145]high score":fori=1to20:next:pokes1,38:pokes4,33
452 printtab(15)"[145][158]high score":fori=1to20:next:pokes1,40:pokes4,33:next
454 pokes4,32:return
598 :
599 : * place prizes *
600 r=int(rnd(1)*19)*40+int(rnd(1)*36)+122+s:ifpeek(r)<>bcorr=s+165then600
610 l1=l:ifl>12thenl1=12
620 poker,l1+90:poker+c,fc(l1):return
698 :
699 : * set up screen *
700 ifl=1thengosub900
701 print"[147][155]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";
702 fori=1to21:print"$ $";:next
704 print"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:poke2023,36:poke56295,15
705 l1=l:ifl>12thenl1=12
706 print""tab(17-len(l$(l))/2)"#"mid$(str$(l),2)"-"l$(l)" ";
707 poke646,fc(l1):printchr$(l1+218)
710 reada,b:ifa=0then720
711 n=1:ifb-a>39thenn=40
712 fori=a+stob+sstepn:pokei,36:pokei+c,15:next:goto710
720 forj=1todu:gosub600:next:gosub350:gosub360:cb=cb(di):fori=1to400:next
732 return
798 :
799 : * completed a screen *
800 du=di:fori=1to200:next:l1=l:ifl>12thenl1=12
810 print""
812 printtab(15)"bonus "right$(" "+str$(fs(l1+1)),3)
814 sc=sc+fs(l1+1):gosub350:fori=1to800:next:l=l+1:ifl<=nsthen190
820 k=0:l=1:gosub3100:print"[147]":pokes6,240
822 a=80:b=960:n=40:gosub960:a=961:b=999:n=1:gosub960:a=959:b=119:n=-40:gosub960
824 a=118:b=81:n=-1:gosub960
830 gosub350:gosub360:m=0:a$="level"+c$+chr$(di+112)+c$+c$+"bonus"
832 pokes6,251:forj=1to14:pokes1,j+70:pokes4,21:pokes4,20
834 fori=1196to1476step40:pokei+j-40,32:pokei+j,asc(mid$(a$,j,1))-64:next:next
836 fori=1to800:next:pokes6,242:fori=1to12:pokei+1597,i+90:pokei+55869,fc(i)
838 pokes1,i+5:pokes4,129:forj=1to10:next:m=m+fs(i)*di:pokes4,128
840 forj=1to20:next:print""tab(18)right$(" "+str$(m),4)
842 sc=sc+fs(i)*di:gosub350:next:di=di+1:du=du+1:ifdi>5thendi=5:du=5
854 fori=1to200:next:print""tab(12)di" bonus lives":w=w+di:ifw>9thenw=9
860 gosub360:print""tab(7)"get ready for difficulty"di
870 fori=1to2000:next:goto190
899 :
900 print"[147]"tab(9)ns"screens this level":pokes6,252:pokes1,75
902 pokes1+14,di*15+30:pokes4,21:pokes4,20:fori=1to2300:next:pokes6,242:return
940 printright$(" "+str$(n),6);:return
960 fori=a+stob+sstepn:pokei,42:pokei+c,2+k:k=notk:pokes1,5+k:pokes4,129
962 forj=1to4:next:pokes4,128:forj=1to2:next:next:return
998 :
999 : * ml data *
1000 data169,0,133,253,169,4,133,254,160,0,162,4
1002 data177,253,201,34,208,4,169,32,145,253,200,208,243,230,254,202,208,238,96
1099 : * character data *
1100 data40,158,158,190,190,158,158,40
1102 data40,190,190,190,190,190,190,40
1104 data36,254,36,36,36,254,36,0
1106 data85,85,85,85,85,85,85,85
1119 :
1120 data130,40,60,255,255,60,60,0
1122 data130,40,255,255,255,60,60,0
1124 data0,0,56,124,254,124,56,0
1126 data60,40,170,190,170,190,170,40
1128 data160,160,60,247,255,255,60,0
1130 data3,3,7,14,14,28,56,96
1132 data60,60,60,60,60,60,247,247
1134 data60,60,60,60,60,60,247,247
1136 data28,193,3,1,3,1,3,1
1138 data20,20,60,195,195,195,60,0
1140 data20,20,60,195,195,195,60,0
1142 data0,56,131,194,131,194,44,0
1159 :
1160 data254,198,198,198,198,198,254,0
1162 data6,6,6,6,6,6,6,0
1164 data254,6,6,254,192,192,254,0
1166 data254,6,6,254,6,6,254,0
1168 data198,198,198,254,6,6,6,0
1170 data254,192,192,254,6,6,254,0
1172 data192,192,192,254,198,198,254,0
1174 data254,6,6,6,6,6,6,0
1176 data254,198,198,254,198,198,254,0
1178 data254,198,198,254,6,6,6,0
1199 : * names *
1201 data"the courtyard"
1202 data"the gatehouse"
1203 data"the barracks"
1204 data"the garden"
1205 data"the chapel"
1206 data"the pit"
1207 data"gallery i"
1208 data"the library"
1209 data"the snake"
1210 data"the colonade"
1211 data"the wine cellar"
1212 data"the three rooms"
1213 data"the double-e room"
1214 data"gallery ii"
1215 data"the oval room"
1216 data"the greenhouse"
1217 data"the mesh room"
1218 data"the prison"
1219 data"the i-j-k room"
1220 data"the cubicles"
1221 data"triple-t"
1222 data"the vestibule"
1223 data"the arena"
1224 data"deathtrap i"
1225 data"the s-chamber"
1226 data"the spiral hall"
1227 data"the web"
1228 data"the maze"
1229 data"the pit ii"
1230 data"the atrium"
1231 data"the cloakrooms"
1232 data"the dungeon"
1233 data"the shifting hall"
1234 data"the suite"
1235 data"the pantry"
1236 data"gallery iii"
1237 data"the windbreak"
1238 data"deathtrap ii"
1239 data"the wall"
1240 data"deathtrap iii"
2999 : * miscellaneous *
3010 data10,12,7,15,10,7,9,15,9,9,15,10
3020 data10,25,50,75,100,125,150,175,200,250,300,400,500
3030 data15,10,12,14,13
3099 : * coordinate data *
3100 poke65,peek(61):poke66,peek(62):return
3110 data0,0
3120 data135,455,495,498,145,465,502,505,0,0
3130 data139,379,140,380,410,429,650,669,699,939,700,940,0,0
3140 data401,420,659,678,0,0
3150 data330,730,350,750,521,536,543,558,0,0
3160 data250,269,250,810,269,829,811,816,822,828,455,458,461,464,455,655
3162 data504,664,656,663,0,0
3170 data130,410,650,930,149,429,669,949,339,739,340,740,0,0
3180 data287,767,312,792,290,309,410,429,530,549,650,669,770,789,0,0
3190 data285,314,325,405,445,474,474,594,605,634,645,725,765,794,0,0
3200 data446,606,250,450,610,930,454,614,458,618,461,621,465,625,149,469
3202 data629,949,473,633,0,0
3210 data210,229,361,374,385,398,530,549,681,694,705,718,850,869,0,0
3220 data415,424,521,530,549,558,570,650,850,930,455,655,855,935,464,664
3222 data864,944,589,669,869,949,0,0
3230 data244,257,262,275,524,532,547,555,804,817,822,835,297,777,302,782,0,0
3240 data241,250,254,265,269,278,418,421,765,770,789,794,290,730,294,774
3242 data458,778,461,781,305,785,309,789,0,0
3250 data378,381,415,417,422,424,453,454,465,466,492,493,506,507,531,532
3252 data547,548,691,692,707,708,732,733
3254 data746,747,773,774,785,786,815,817,822,824,858,861,0,0
3260 data205,234,405,434,605,634,805,834,245,785,0,0
3270 data325,925,250,730,335,935,140,740,345,945,150,750,355,955,0,0
3280 data130,410,650,930,149,429,669,949,334,345,374,385,414,428
3282 data651,665,694,705,734,745,0,0
3290 data286,304,330,730,766,774,339,739,777,779,344,784,545,546
3292 data312,312,351,351,390,390,429,429,468,468,507,507,587,587,628,628,669,669
3294 data710,710,751,751,792,792,0,0
3300 data135,255,140,260,145,265,150,270,155,275,805,925,810,930,815,935
3302 data820,940,825,945,830,950,835,955,0,0
3310 data286,486,580,940,314,514,521,530,535,545,550,558,0,0
3320 data326,338,341,353,526,553,726,738,741,753,141,301,366,406,646,686
3322 data393,433,673,713,778,938,0,0
3330 data137,142,253,257,262,266,410,413,426,429,610,613,626,629,773,777,782
3332 data786,897,902,177,217,182,222,450,570,469,589,817,857,822,862,0,0
3340 data243,843,290,810,297,937,142,822,309,829,316,876,248,257,267,276
3342 data843,852,862,871,0,0
3350 data241,263,416,423,576,583,736,743,896,918,936,958,456,536,623,703,0,0
3360 data216,224,376,381,540,544,696,701,860,864,145,865,416,936,0,0
3370 data325,725,136,456,616,936,347,747,158,478,638,958,521,530,542,552
3372 data331,341,353,357,731,741,753,757,0,0
3380 data404,412,427,435,452,932,140,820,467,947,0,0
3390 data410,416,423,429,655,668,821,824,450,930,695,735,895,935,861,941
3392 data469,949,0,0
3400 data321,329,335,337,342,344,350,358,526,536,543,553,766,776,783,793
3402 data376,496,383,503,566,726,593,753,816,936,823,943,0,0
3410 data241,246,250,256,263,275,454,456,463,465,614,616,623,625,804,829
3412 data833,838,290,770,296,416,656,776,303,423,663,783,309,789,0,0
3420 data244,275,284,315,655,664,695,704,324,924,325,925,339,739,340,740
3422 data899,939,900,940,354,714,355,715,0,0
3430 data361,376,384,398,681,696,704,718,297,457,617,777,140,300,460,620
3432 data780,940,303,463,623,783,0,0
3440 data408,413,648,653,425,431,665,671,295,297,302,304,775,777,782,784
3442 data134,414,654,934,145,425,665,945,0,0
3450 data325,925,330,930,335,935,145,745,150,750,155,755,336,338,742,744,0,0
3460 data241,255,264,278,801,815,824,838,288,528,535,775,259,819,260,820
3462 data311,551,544,784,0,0
3470 data565,925,490,850,415,775,340,700,265,625,190,550,155,475,0,0
3480 data281,292,295,307,533,536,543,546,772,784,787,798,332,652,812,932
3482 data339,419,340,420,659,739,660,740,147,267,427,747,0,0
3490 data523,556,0,0
3500 data260,278,444,454,459,463,616,620,625,635,801,819,135,615,464,944,0,0