home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 188
/
188.d81
/
inf3.main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
10KB
|
216 lines
0 rem *** save"@0:inf3.main",8
1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186):print"";
2 goto10
5 poke198,0
6 getk$:ifk$=""then6
7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
9 return
10 dv=peek(186):ifdv<8thendv=8
12 sys57812"inf3.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
14 sys57812"holst.mus",dv,0:poke780,0:poke781,0:poke782,150:sys65493
18 sys57812"inf3.font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
20 print"[147]":poke53272,29:gosub800
22 poke214,19:print:print" alien infiltration iii
24 [153]" by cheryl de boissiere
33 sys57812"alien.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
35 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
36 sys49615:poke781,0:poke782,150:sys49664
37 vi=53248:pg=64:sa=pg*256:sp=248
38 ss=49152:pokevi+32,0:pokevi+33,0
39 rem *** setup sinus interrupt
40 syssa
41 rem *** poke sprite data
42 yy=14:fori=0to7
43 poke2040+i,248+i:rem sprite pointers
44 pokevi+39+i,i+1:rem sprite colors
45 pokevi+37,14:pokevi+38,15:next
46 pokevi+29,255:rem x size
47 pokevi+23,0:rem y size
48 pokevi+28,255:rem multicolor on
49 pokevi+37,5:rem multicolor 1
50 pokevi+38,13:rem multicolor 2
51 pokevi+21,0:rem turn sprites on
52 pokess,7:zz=2:zy=10:zx=zy:gosub800
53 pokesa+6,2:pokesa+7,1:pokesa+8,zz
54 pokesa+9,zz:pokesa+10,zy
56 pokesa+13,zx:pokevi+37,14
58 pokevi+38,zc:pokevi+39,3
60 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
61 if zy=40 then zy=10:zx=zx+5
62 y=y+1:ify<3thenzc=5
63 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto66
64 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto70
65 goto53
66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
69 goto64
70 rem *** turn off sinus
72 pokevi+21,0:pokevi+32,0:pokevi+33,0
73 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
74 poke53272,29:goto80
75 rem *** replay
76 ifpeek(49152)=0thenreturn
77 ifpeek(49152)=7thenreturn
80 rem *** gamestart
81 print""spc(20)"you are james clark,":printspc(20)"[145] "
82 printspc(20)"homicide detective.":printspc(20)"[145] "
83 printspc(20)"you awake abruptly, ":printspc(20)"[145] "
84 printspc(20)"feeling something is":printspc(20)"[145] "
85 printspc(20)"[145][145]terribly wrong [192][192] ":printspc(20)"[145] "
86 printspc(20)"[145][145]fragments of a weird":printspc(20)"[145] "
87 printspc(20)"[145][145]dream linger: you ":printspc(20)"[145] "
88 printspc(20)"[145][145]are wet and sticky. ":printspc(20)" "
89 printspc(20)"[145]someone hands you a ":printspc(20)"towel and ask your
90 [153][166]20)"name. you're given":[153][166]20)"clothes. you dressononon
91 gosub5:pokesa+6,3:pokevi+38,4:pokevi+21,255:fort=1to3000:next:pokevi+21,0
92 print""spc(20)"quickly. soon, you ":printspc(20)"are moving through "
93 printspc(20)"strange corridors. ":printspc(20)"and then, through a "
94 printspc(20)"long series of dark":printspc(20)"and smelly tunnels. "
95 printspc(20)"[152]'you died, clark. i":printspc(20)"cannot give you back"
96 printspc(20)"your life. but i've":printspc(20)"given you a second "
97 printspc(20)"chance [192][192] a new body":printspc(20)"with old memories!' [155][145][145][145]"
98 gosub5:pokevi+38,5:pokevi+21,255:fort=1to3000:next:pokevi+21,0
99 gosub210:print"you shake off the dream and stumble into
100 [153]"the bathroom. a stranger looks back at you from the mirror!":[141]5
101 [153]"onononononno stranger tantan it is your younger self "
102 [153]"you see reflected. the dream was real! you sit down to get your ";
103 [153]"bearings.":[141]5:a$[178]" call wencube (your partner) "
104 b$[178]" call division headquarters ":c$[178]" drop by startower cyber cafe ":x[178]1
105 [141]800:[141]200:[145]c[137]106,112,290
106 [141]830:[153]"onyou call ray's home. a woman answers
107 print"the phone. she tells you the funeral[145][145][145]":gosub5:pokevi+38,4
108 pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5
109 print"[145]was this morning. she ask you who you are. you hang up quickly";
110 print". [145][145][145]":gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0
111 a$=" drop in on your fave labtech ":gosub210:gosub200:oncgoto289,112,290
112 gosub870:print"you call the station and ask for ray's
113 [153]"location. an irate person tells you raywencube's funeral was ";
114 [153]"today!ononon":[141]5:[151]vi[170]38,4:[151]vi[170]21,63:[129]t[178]1[164]3000:[130]
115 [151]vi[170]21,0:[153]"ononyou apologize and say you've been away.
116 print"you ask for yourself and are told that "
117 print"you died a month back! [145][145][145]":gosub5:pokevi+38,5:pokevi+21,63
118 fort=1to3000:next:pokevi+21,0:a$=" call wencube (your partner) "
119 b$=" drop in on your fave labtech ":gosub210:gosub200:oncgoto106,289,290
200 rem *** options table
201 print""spc(16)"[155]options":print" [156] 1 [146] [155]"a$
202 print" [156] 2 [146] [155]"b$:print" [156] 3 [146] [155]"c$:c=0
203 ifx=1thenprint"[145][145][145][145][145][155] 1 [156]"a$
204 ifx=2thenprint"[145][145][145][155] 2 [156]"b$
205 ifx=3thenprint"[145][155] 3 [156]"c$
206 gosub5:ifk$=""andx<3thenx=x+1
207 ifk$="[145]"andx>1thenx=x-1
208 ifk$=chr$(13)thenc=x:return
209 goto200
210 rem *** james clark2
211 print"[147] [158] [164][175][175][164] [150] [153] ";
212 print" [155] [158] [172][191] [168][188][146][187] [154] [153] ";
213 print" [154] [155] [158] [172][185][191] [146][166]";
214 print"[187][146][187] [150] [153] [155] [158] [191]";
215 print" [191] [146][166][172][146] [153] [155] ";
216 print" [158] [191] [191][220][185][220][166] [166][146] [153] [155] ";
217 print" [158] [191] [191][150][162] [162][158][146][191] [146] [153] ";
218 print" [155] [158] [158][187] [146][181][150][185][190] [188][146][185][158][182][191][172][146]";
219 print" [153] [155] [158][188][167][150][166]";
220 print" [192] [166][158][180][146][190] [153] [155] [150] ";
221 print"[150] [158][188][150][220][175][175][175] [158][146][190] [153] ";
222 print" [150][205] [192] [206][146] [158] [153] ";
223 print" [150][220][183][183][183][167][146] ";
224 print" [153] [185][184][183][183][163][220] [206][163][183]";
225 print"[183][184][146][162][175][151] [153] [190] ";
226 print" [188][151][146] [153] [150] [172][188]";
227 print" [172][150][146][187][151] [153] ";
228 print" [150][172] [146][188] [172][150][169] [146][187][151] [153] ";
229 print" [150][172] [146][187] [172][150][169] [146]";
230 print"[187][151] [155] [153] [150][172] [146][190] ";
231 print" [150][146][188] [146] [151] [155] [151] [153] [151] [150] ";
232 print" [146][190] [187] [172][150][146] [188] [188][153][146][155]":return
235 rem *** clear text
236 fori=hto24:poke781,i:sys59903:next:poke214,j:return
289 f$="inf3.pt3":goto291
290 f$="inf3.pt2"
291 syssa+3:poke53281,0:poke53280,0:sys49935
293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
294 poke631,13:poke632,13:poke198,2:end
800 rem *** cityscape6
801 print"[147][155] [156] [158] [185][185][185][185][185] . . ";
802 print" .[155] [156] .[156] [167][154] [146][180][151] [155].";
803 print" .[155] . [155] [158] [156] [155] .[155] ";
804 print"[170][154] [154][180][146]L[175][151] [152] . [153]. ";
805 print" [155] [