Loadstar 188/188.d81/inf3.pt6

Commodore BASIC | 2022-08-26 | 9KB | 203 lines

0 rem *** save"@0:inf3.pt6",8
1 dv=peek(186):ifdv<8thendv=8
2 poke53272,29:print"";: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 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 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
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
80 rem *** gamestart
81 pokesa+6,3:pokevi+38,4:print"on the train down, you focus on what
82 [153]"nick told you about ray and his visit to
83 print"luthelcorp.  technically speaking, your
84 [153]"visit isn't breaking & entering sinceononon":[141]5:[151]vi[170]21,1
85 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
86 [153]"ononononluthelcorp has late night delivery.  or
87 print"it is since you're using someone else's "
88 print"access code.  what's important is ray  "
89 print"died the night he went to luthelcorp![145][145][145]":gosub5:pokevi+21,1
90 fort=1to3000:next:pokevi+21,0:pokevi+38,5
91 gosub210:print"when you are standing outside of the
92 [153]"luthelcorp building, you get the strange
93 print"feeling that you have been here before.[145][145]":gosub5
94 print"[145][145][145][145]you have to fight a very strong urge to
95 [153]"flee.  you take a step towards the tantan   "
96 [153]"a voice cries out print#'clark, don't!list'      onon":[141]5
97 [151]vi[170]38,4:[141]800:[153]"it is the voice that was speaking when
98 print"you woke to awareness in your apartment!
99 [153]"you stare at its owner.ononon":[141]5:[151]vi[170]21,255:[129]t[178]1[164]3000:[130]
100 [151]vi[170]21,0:[153]"ononyou know this face from another dream tantan
101 print"the dream where you and lea are being   "
102 print"chased by a mob with the same face![145][145][145]":gosub5:pokevi+38,5
103 pokevi+21,255:fort=1to3000:next:pokevi+21,0
104 gosub960:print"'come with me, mr. clark',
105 [153]"this familiar stranger re-":[153]"quest.  'it is not safe here
106 print"for either of us.'  you know":print"for certain that this is the
107 [153]"face of the mob that killed":[153]"you and that you died!
108 a$=" tactical retreat to subway   ":b$=" disregard & enter luthelcorp ":x=1
109 c$=" take strange clone prisoner  ":gosub200:oncgoto110,119,125
110 pokevi+38,4:gosub870:print"you show the clone your gun and tell him
111 [153]"not to follow you.  you desperately need
112 print"time alone to think.[145][145][145]":gosub5:pokevi+21,127:fort=1to3000:next
113 pokevi+21,0:print"[145][145]on the subway platform, you realize you "
114 print"panicked and [192][192] a pain rips [192][192] bullet [192][192]
115 [153]"you fall in front of an incoming train!ononon":[141]5
116 [151]vi[170]38,5:[151]vi[170]21,127:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
117 [133]"loadclrbad choice listtantan restart section (y/n)clr";g$:[139]g$[178]"y"[167]900
118 [153]"loadlist   you are being returned to clrloadstarlist.":[141]5:[137]285
119 [141]210:[153]"you barely make it inside the lobby when
120 print"you're seized by clones who seem to come
121 [153]"out of every conceivable hole!ononon":[141]5
122 [153]"ononthe clone who warned you of this danger "
123 [153]"tantan but you decided to be a total idiot  "
124 [153]"tantan leaves you to your fate.   ononon":[141]5:[137]117
125 [151]vi[170]38,4:[141]870:[153]"the clone insists the two of you go to
126 print"his hideout to talk since your apartment
127 [153]"has too many windows.ononon":[141]5:[151]vi[170]21,63:[129]t[178]1[164]3000:[130]
128 [151]vi[170]21,0:[153]"ononhe tells you he's behind on his kweven
129 print"treatments and daylight uv is damaging  to the untreated.    [145][145][145]"
130 gosub5:pokevi+38,5:pokevi+21,63:fort=1to3000:next:pokevi+21,0
131 gosub960:print"the clone tells you a fantas-
132 [153]"tic story about an alien fleet":[153]"in exodus from a dying world.
133 print"the fleet was running low on":print"fuel when it reached earth.
134 [153]"the military decided to col-":[153]"onize earth instead of contin-
135 print"uing on.  he objected & went
136 [153]"renegade.  it is not too late to save   your planet.":[141]5
137 [153]"loadhe asks that you be his ally. you're not
138 print"doing anything this weekend, so you say why not?[145][145][145]":gosub5:goto118
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
285 f$="hello connect":goto291
291 syssa+3:poke53280,0:poke53281,0:poke49152,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]  [15