home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 4
/
004.d81
/
spiders
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
207 lines
1 rem --------------------------------- grade 12 computer science project
2 rem spiders by ian phillips
3 rem ---------------------------------
4 rem :
5 gosub6000
6 rem ---------------------------------
7 rem redefining characters ---------------------------------
8 rem :
10 poke53272,(peek(53272)and240)+12:poke52,48:poke56,48:clr
20 poke56334,peek(56334)and254:poke1,peek(1)and251:fori=0to511
30 pokei+12288,peek(i+53248):next:poke1,peek(1)or4:poke56334,peek(56334)or1
40 : fori=13128to13135:reada:pokei,a:next
50 : fori=13040to13047:reada:pokei,a:next
60 : fori=13304to13311:reada:pokei,a:next
70 : fori=12536to12543:reada:pokei,a:next
71 : fori=13104to13111:reada:pokei,a:next
72 : fori=13008to13015:reada:pokei,a:next
73 : fori=13048to13055:reada:pokei,a:next
74 : fori=12936to12943:reada:pokei,a:next
78 :
80 data 153,219,126,60,231,60,102,219,24,189,66,126,255,231,231,195,24,126,255
81 data 0,255,255,255,255,60,102,231,231,102,60,24,60,255,255,255,255,255,255
82 data 255,255,0,0,0,120,120,0,0,0,126,199,254,220,140,134,195,126,28,62,255
83 data 255,126,62,28,8
85 print"[145] "
86 print"[145] press return to play "
87 getg$:ifg$<>chr$(13)then85
88 rem --------------------------------
89 rem set up game, counters etc... --------------------------------
90 rem :
91 c=5:poke53281,0:poke53280,11:forl=54272to54296:pokel,0:next:poke54296,15
92 poke54271,128:poke54284,64:poke54291,128:poke54278,128:poke54285,248
93 tv=8:tw=8:b=0:cf=0:print"[147]":poke54292,64:sc=0
100 rem -------------------------------
101 rem game board set up -------------------------------
102 rem :
105 print"[129] [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]
106 [153]" spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(
107 print" [166][218][166][166][166][166][166][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][166][166][166][166][166][218][166]
108 [153]" spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(
109 print" [166][218][218][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][218][218][166]
110 [153]" spc((NULL)spc((NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)spc((NULL)spc(
111 print" [166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166]
112 [153]" spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(
113 print" [166][218][166][166][218][166][166][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][166][166][218][166][166][218][166]
114 [153]" spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(
115 print" [166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][166]";
116 print"[166][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][218][218]";
117 print"[218][218][218][166][218][166][166][218][218][218][218][218][166][166][218][218][218][166][218][166][166][218][166][218][218][218][166][166][218][218][218][218][218][166][166][218][166][218][166][166]";
118 print"[166][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][218][218][166][166][218][218][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166]
119 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(spc(spc(spc(spc(spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(spc(spc(spc(spc(spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
120 print" [166][218][218][218][166][166][218][218][218][166][218][218][218][218][166][218][166][166][166][166][166][166][218][166][218][218][218][218][166][218][218][218][166][166][218][218][218][166]
121 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
122 print" [166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166]
123 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
124 print" [166][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][166]
125 [153]" spc((NULL)spc(spc(spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc(spc(spc((NULL)spc(
126 print" [166][218][218][218][218][218][218][218][218][218][218][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][218][218][218][218][218][218][218][218][218][218][166]
127 [153]" spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(
128 :
130 rem **** place game characters **** :
135 ifc>30thenc=30
140 : forl=1to(2*c)
150 x=int(1000*rnd(1))+1024:ifpeek(x)<>90then150
160 pokex,127:pokex+54272,7:next:forl=1toc
170 x=int(1000*rnd(1))+1024:ifpeek(x)<>90then170
180 pokex,31:pokex+54272,4:next:forl=1toc
190 fly=int(1000*rnd(1))+1024:ifpeek(fly)=90thenpokefly,94:pokefly+54272,1
195 ifpeek(fly)<>94thengoto190
200 spi=int(1000*rnd(1))+1024:ifpeek(spi)=90thenpokespi,105:pokespi+54272,1
205 ho=spi:ifpeek(spi)<>105thengoto200
210 mc=int(1000*rnd(1))+1024:ifpeek(mc)<>90then210
220 pokemc,127:pokemc+54272,7
240 :
250 rem ******* set timer ************* :
260 me=ti
290 :
500 rem -------------------------------
501 rem movement of spider -------------------------------
502 rem :
505 ifcf=1thenfly=spi
506 pokeho+54272,1:pokeho,8:poke54272+fly,1
510 getg$:poke56322,0:j=peek(56320):t=jand16:j=15-(jand15):poke56322,255
511 ifcm=3thengosub1000
512 ifcf<>0thenff=0:goto514
513 ifff=40thengosub1000
514 ff=ff+1:cm=cm+1:ifcf=1thensc=sc-1
515 ifg$=" "then7000
516 print"score:"sc"[157] [166][166][166][166][166][166][166]"
520 ifj=1thenmove=-40:goto530
521 ifj=2thenmove=+40:goto530
522 ifj=4thenmove=-1:goto530
523 ifj=8thenmove=+1:goto530
524 ift=16thenpokeho+54272,0:pokefly+54272,0:goto505
525 goto580
530 ifpeek((spi+move))=8then5000
531 ifpeek((spi+move))<>90then600
540 pokespi,90:pokespi+542