1 |
james |
23 |
REM Level0 |
2 |
|
|
|
3 |
|
|
PROC initt: |
4 |
|
|
d$(1)="Your room" |
5 |
|
|
d$(2)="The landing" |
6 |
|
|
d$(3)="The entrance hall" |
7 |
|
|
d$(4)="The garden" |
8 |
|
|
d$(5)="Outside the shed" |
9 |
|
|
d$(6)="The shed" |
10 |
|
|
d$(7)="Outside your house" |
11 |
|
|
d$(8)="At the warehouse" |
12 |
|
|
d$(9)="The rave" |
13 |
|
|
d$(10)="The religious preacher" |
14 |
|
|
d$(11)="At the factory" |
15 |
|
|
d$(12)="Inside the factory" |
16 |
|
|
d$(13)="The edge of town" |
17 |
|
|
d$(14)="Outside the weather station" |
18 |
|
|
d$(15)="The lobby" |
19 |
|
|
d$(16)="Outside the control room" |
20 |
|
|
d$(17)="The control room" |
21 |
|
|
d$(18)="Outside the weather station" |
22 |
|
|
d$(19)="The side of the stadium" |
23 |
|
|
d$(20)="The teleport" |
24 |
|
|
d$(21)="Outside the stadium" |
25 |
|
|
d$(22)="Inside the stadium" |
26 |
|
|
d$(23)="The south park entrance" |
27 |
|
|
d$(24)="A street" |
28 |
|
|
d$(25)="The park" |
29 |
|
|
d$(26)="The apple tree" |
30 |
|
|
d$(27)="The north park entrance" |
31 |
|
|
d$(28)="Outside the dojo" |
32 |
|
|
d$(29)="Inside the dojo" |
33 |
|
|
d$(30)="A street" |
34 |
|
|
d$(31)="In the apple tree" |
35 |
|
|
ENDP |
36 |
|
|
|
37 |
|
|
PROC long: |
38 |
|
|
IF p%=1 |
39 |
|
|
out:("You are standing in your room. It is a large room, but that's comparative to your size. A sleek electric guitar is propped up in one corner. Above it, on a shelf, are a vast collection of Iron Maiden CDs and a fish bowl.") |
40 |
|
|
out:("The amp for the guitar sits in a blown up mess. Too much distortion on that solo...") |
41 |
|
|
out:("The landing is to the west.") |
42 |
|
|
ELSEIF p%=2 |
43 |
|
|
out:("You are on the landing. The stairs lead down to the entrance hall and your room is to the east.") |
44 |
|
|
ELSEIF p%=3 |
45 |
|
|
out:("You are in the entrance hall of your house. The front door is east and the back door to the garden is west. Stairs lead upwards.") |
46 |
|
|
ELSEIF p%=4 |
47 |
|
|
out:("You are in your garden, at the south end of which is a small shed. The fish pond is empty (the fish were never fed). The garden is rather boring. You can see a wheelbarrow.") |
48 |
|
|
ELSEIF p%=5 |
49 |
|
|
out:("You are standing outside the shed.") |
50 |
|
|
ELSEIF p%=6 |
51 |
|
|
out:("The shed is full of junk and garden tools.") |
52 |
|
|
ELSEIF p%=7 |
53 |
|
|
out:("You are standing outside your house. To the north you can hear the distant sound of drum and bass.") |
54 |
|
|
ELSEIF p%=8 |
55 |
|
|
out:("You are standing outside a converted warehouse. This is where all the noise was coming from. The door is open.") |
56 |
|
|
out:("The street continues south and east.") |
57 |
|
|
ELSEIF p%=9 |
58 |
|
|
out:("The rave is in full swing.") |
59 |
|
|
IF t%(2)=0 |
60 |
|
|
out:("The host staggers up to you. It's Well 'Ard") |
61 |
|
|
out:("Baza: /""Alrite Bernard! Came 2 join da fun?"" #") |
62 |
|
|
t%(2)=1 |
63 |
|
|
ENDIF |
64 |
|
|
out:("You look around. There's a stack of DJ equipment including a couple of amplifiers.") |
65 |
|
|
ELSEIF p%=10 |
66 |
|
|
out:("You are stopped by a bald man clad in strange, textured garments. He is preaching his theories about flight through religious meditation. You realise that he is trying to flog you a book on Yogic Flight.") |
67 |
|
|
out:("You can go north, east and south.") |
68 |
|
|
ELSEIF p%=11 |
69 |
|
|
out:("You are standing outside the famous Mr. Kipling's factory. The motto stands boldly above the entrance:") |
70 |
|
|
out:("*""EXCEEDINGLY GOOD CAKES""") |
71 |
|
|
ELSEIF p%=12 |
72 |
|
|
out:("Inside the factory the hum of machinery dominates the airwaves.") |
73 |
|
|
IF t%(3)=0 |
74 |
|
|
out:("#Justin approaches you and you realise it was him making the low pitch humming noises.") |
75 |
|
|
out:("/""Oh! 'Ello!"" #he says. /""Look 'ere I know you're busy - what with saving t' world - bot, you couldn't get os some apples could you?"" #") |
76 |
|
|
t%(3)=1 |
77 |
|
|
ELSE |
78 |
|
|
out:("#Justin is making some pies, and you realise it was him making the low pitch humming noises.") |
79 |
|
|
ENDIF |
80 |
|
|
ELSEIF p%=13 |
81 |
|
|
out:("You find yourself near the edge of town. The factory is to the north, the large stadium is to the east, and the weather station looms to the south.") |
82 |
|
|
ELSEIF p%=14 |
83 |
|
|
out:("Once a harmless, people-friendly centre, the weather station is now a base of anarchy and evil. Inside, the Weather sits scheming and devising his plan for domination of the world's atmosphere.") |
84 |
|
|
out:("The entrance is to the south, and the centre continues to the west.") |
85 |
|
|
ELSEIF p%=15 |
86 |
|
|
out:("You are in the lobby. There's no sign of the demented meteorologist. The place stinks of booze.") |
87 |
|
|
out:("A corridor leads south; the entrance is north.") |
88 |
|
|
ELSEIF p%=16 |
89 |
|
|
out:("You find yourself outside a large door:") |
90 |
|
|
out:("*""CONTROL ROOM""") |
91 |
|
|
out:("#Menacing chuckles can be heard from within - to burst in would be foolish. You are dying to look inside. Your life-long complex comes back to haunt you: it was never that you were short, it was that you were very short.") |
92 |
|
|
out:("If only you could peep through the keyhole.") |
93 |
|
|
ELSEIF p%=17 |
94 |
|
|
IF t%(4)=0 |
95 |
|
|
out:("The Evil Weather swings round. He is, as you thought, seriously intoxicated. The door slams shut behind you.") |
96 |
|
|
out:("/""Bernard!"" #he shouts, /""sho you've found me!"" #") |
97 |
|
|
t%(4)=1 |
98 |
|
|
ELSEIF t%(5)=0 |
99 |
|
|
out:("/""Shtop staring at me, Bernard!"" #shouts the Weather, advancing menacingly towards you.") |
100 |
|
|
ELSE |
101 |
|
|
out:("You are in the weather station control room. The Weather is unconscious on the floor.") |
102 |
|
|
ENDIF |
103 |
|
|
out:("There is a fire exit to the north.") |
104 |
|
|
ELSEIF p%=18 |
105 |
|
|
out:("You are at the west end of the station. A door marked ""FIRE EXIT"" is to the south.") |
106 |
|
|
ELSEIF p%=19 |
107 |
|
|
out:("You are round the side of the stadium. Exits are east and west.") |
108 |
|
|
ELSEIF p%=20 |
109 |
|
|
out:("A large futuristic device stands in your way. Having watched too many episodes of Star Trek and Babylon 5 you recognise this machine to be a teleport. The entrance to the teleport is south, and the street goes north and west.") |
110 |
|
|
ELSEIF p%=21 |
111 |
|
|
out:("You are outside the stadium.") |
112 |
|
|
IF t%(7)=0 :out:("Your beloved Pippa is meant to be giving her concert. Why can't you hear any music?") |
113 |
|
|
ELSE out:("You can hear the concert inside.") |
114 |
|
|
ENDIF |
115 |
|
|
ELSEIF p%=22 |
116 |
|
|
out:("/""Bernie,"" #Pippa runs up to you. /""You've got to find me a microphone!""") |
117 |
|
|
out:("#Blinded by love, you momentarily forget your mission and reply:") |
118 |
|
|
out:("/""Anything for you!"" #") |
119 |
|
|
ELSEIF p%=23 |
120 |
|
|
out:("You are standing at the south entrance of the park. The street continues west, and the stadium is to the south.") |
121 |
|
|
ELSEIF p%=24 |
122 |
|
|
out:("You are standing in a boring street, which continues east and west. You can see the stadium looming to the south.") |
123 |
|
|
ELSEIF p%=25 |
124 |
|
|
out:("You are in the town park, a large grassed area with trees and benches. The park continues west, and the two entrances are north and south.") |
125 |
|
|
ELSEIF p%=26 |
126 |
|
|
out:("The apple tree looms high above you, dominating this corner of the park. There's probably a good view from the top. Underneath the tree is an old wooden bench.") |
127 |
|
|
IF t%(11)=0 :out:("There are no apples on the tree, as it is winter.") :ELSE :out:("There are apples high up on the tree.") :ENDIF |
128 |
|
|
ELSEIF p%=27 |
129 |
|
|
out:("You are standing at the north entrance of the park. The street continues north.") |
130 |
|
|
ELSEIF p%=28 |
131 |
|
|
out:("You are standing outside Jon's Dojo. This is the home of the rare martial art of Jondistsu. Through the window you can see young hopefuls beating each other up.") |
132 |
|
|
out:("The street leads west and south.") |
133 |
|
|
ELSEIF p%=29 |
134 |
|
|
out:("You are inside Jon's Dojo. This place is dedicated to the martial arts. All sorts of weapons hang from the walls. The Jonditsu emblem is printed everywhere.") |
135 |
|
|
out:("The young fighters wrestle with each other, and practise kicks shouting the Jonditsu chant:") |
136 |
|
|
out:("/""Jon-Ha!"" #") |
137 |
|
|
IF t%(8)=0 |
138 |
|
|
out:("Jon approaches you:") |
139 |
|
|
out:("/""Hi Bernie! Come for a bit of training? By the way - have you seen my rugby ball?"" #") |
140 |
|
|
t%(8)=1 |
141 |
|
|
ELSE out:("Jon is here, instructing some fighters.") |
142 |
|
|
ENDIF |
143 |
|
|
ELSEIF p%=30 |
144 |
|
|
IF t%(10)=0 |
145 |
|
|
out:("Gomersall is here, looking perplexed as he stares at the screen on his calculator.") |
146 |
|
|
IF t%(9)=0 |
147 |
|
|
out:("/""What's up?"" #you ask.") |
148 |
|
|
out:("/""I've found out the access code for that teleport on the other side of town. I was walking past and my calculator picked up some readings. Unfortunately I can't decipher it because I've lost my contact lens."" #") |
149 |
|
|
t%(9)=1 |
150 |
|
|
ENDIF |
151 |
|
|
ENDIF |
152 |
|
|
out:("The street continues east and west.") |
153 |
|
|
ELSEIF p%=31 |
154 |
|
|
out:("You are up in the tree. There is a good view of the town's landmarks: the stadium to the south, the factory to the west, and the weather station in the distance.") |
155 |
|
|
ENDIF |
156 |
|
|
ENDP |
157 |
|
|
|
158 |
|
|
PROC gn: |
159 |
|
|
c%=1 |
160 |
|
|
IF p%=5 :p%=4 |
161 |
|
|
ELSEIF p%=6 :p%=5 |
162 |
|
|
ELSEIF p%=7 :p%=8 |
163 |
|
|
ELSEIF p%=8 :p%=9 |
164 |
|
|
ELSEIF p%=10 :p%=7 |
165 |
|
|
ELSEIF p%=11 :p%=10 |
166 |
|
|
ELSEIF p%=13 :p%=11 |
167 |
|
|
ELSEIF p%=14 :p%=13 |
168 |
|
|
ELSEIF p%=15 :p%=14 |
169 |
|
|
ELSEIF p%=16 :p%=15 |
170 |
|
|
ELSEIF p%=17 :IF t%(5)=0 :out:("The Evil Weather stands in the way.") :c%=0 :ELSE :p%=18 :ENDIF |
171 |
|
|
ELSEIF p%=20 :p%=21 |
172 |
|
|
ELSEIF p%=21 :p%=23 |
173 |
|
|
ELSEIF p%=23 :p%=25 |
174 |
|
|
ELSEIF p%=25 :p%=27 |
175 |
|
|
ELSEIF p%=27 :p%=28 |
176 |
|
|
ELSE nogo: :ENDIF |
177 |
|
|
ENDP |
178 |
|
|
|
179 |
|
|
PROC gw: |
180 |
|
|
c%=1 |
181 |
|
|
IF p%=1 :p%=2 |
182 |
|
|
ELSEIF p%=3 :p%=4 |
183 |
|
|
ELSEIF p%=7 :p%=3 |
184 |
|
|
ELSEIF p%=11 :p%=12 |
185 |
|
|
ELSEIF p%=14 :p%=18 |
186 |
|
|
ELSEIF p%=16 :IF t%(6)=0 :out:("It would be foolish to burst in without knowing who (or what) is inside.") :c%=0 :ELSE :p%=17 :ENDIF |
187 |
|
|
ELSEIF p%=19 :p%=13 |
188 |
|
|
ELSEIF p%=20 :p%=19 |
189 |
|
|
ELSEIF p%=21 :IF t%(7)=1 :out:("A security guard blocks your way:") :out:("/""No children allowed in the concert."" #") :c%=0 :ELSE :p%=22 :ENDIF |
190 |
|
|
ELSEIF p%=23 :p%=24 |
191 |
|
|
ELSEIF p%=24 :p%=10 |
192 |
|
|
ELSEIF p%=25 :p%=26 |
193 |
|
|
ELSEIF p%=28 :p%=30 |
194 |
|
|
ELSEIF p%=29 :p%=28 |
195 |
|
|
ELSEIF p%=30 :p%=8 |
196 |
|
|
ELSE nogo: :ENDIF |
197 |
|
|
ENDP |
198 |
|
|
|
199 |
|
|
PROC gs: |
200 |
|
|
c%=1 |
201 |
|
|
IF p%=4 :p%=5 |
202 |
|
|
ELSEIF p%=5: IF t%(1) :p%=6 :ELSE :out:("The shed door is locked.") :c%=0 :ENDIF |
203 |
|
|
ELSEIF p%=8 :p%=7 |
204 |
|
|
ELSEIF p%=9 :p%=8 |
205 |
|
|
ELSEIF p%=7 :p%=10 |
206 |
|
|
ELSEIF p%=10 :p%=11 |
207 |
|
|
ELSEIF p%=11 :p%=13 |
208 |
|
|
ELSEIF p%=13 :p%=14 |
209 |
|
|
ELSEIF p%=14 :p%=15 |
210 |
|
|
ELSEIF p%=15 :p%=16 |
211 |
|
|
ELSEIF p%=18 :out:("The fire exit can only be opened from the inside.") :c%=0 |
212 |
|
|
ELSEIF p%=20 :IF t%(12)=0 |
213 |
|
|
out:("The entrance to the teleport is barred by a force field. A small code box is attached to the side.") :c%=0 |
214 |
|
|
ELSE |
215 |
|
|
out:("You step inside the teleport. It activates immediately, and you feel yourself disappearing...") |
216 |
|
|
out:("Your password for this position is *say fishfood*") |
217 |
|
|
tp%=1: |
218 |
|
|
ENDIF |
219 |
|
|
ELSEIF p%=21 :p%=20 |
220 |
|
|
ELSEIF p%=23 :p%=21 |
221 |
|
|
ELSEIF p%=25 :p%=23 |
222 |
|
|
ELSEIF p%=27 :p%=25 |
223 |
|
|
ELSEIF p%=28 :p%=27 |
224 |
|
|
ELSE nogo: :ENDIF |
225 |
|
|
ENDP |
226 |
|
|
|
227 |
|
|
PROC ge: |
228 |
|
|
c%=1 |
229 |
|
|
IF p%=2 :p%=1 |
230 |
|
|
ELSEIF p%=4 :p%=3 |
231 |
|
|
ELSEIF p%=3 :p%=7 |
232 |
|
|
ELSEIF p%=8 :p%=30 |
233 |
|
|
ELSEIF p%=10 :p%=24 |
234 |
|
|
ELSEIF p%=12 :p%=11 |
235 |
|
|
ELSEIF p%=13 :p%=19 |
236 |
|
|
ELSEIF p%=18 :p%=14 |
237 |
|
|
ELSEIF p%=17 :IF t%(5)=0 :out:("The Evil Weather stands in the way.") :c%=0 :ELSE :p%=16 :ENDIF |
238 |
|
|
ELSEIF p%=19 :p%=20 |
239 |
|
|
ELSEIF p%=22 :p%=21 |
240 |
|
|
ELSEIF p%=24 :p%=23 |
241 |
|
|
ELSEIF p%=26 :p%=25 |
242 |
|
|
ELSEIF p%=28 :p%=29 |
243 |
|
|
ELSEIF p%=30 :p%=28 |
244 |
|
|
ELSE nogo: :ENDIF |
245 |
|
|
ENDP |
246 |
|
|
|
247 |
|
|
PROC gd: |
248 |
|
|
c%=1 |
249 |
|
|
IF p%=2 :p%=3 |
250 |
|
|
ELSEIF p%=31 :p%=26 |
251 |
|
|
ELSE nogo: :ENDIF |
252 |
|
|
ENDP |
253 |
|
|
|
254 |
|
|
PROC gu: |
255 |
|
|
c%=1 |
256 |
|
|
IF p%=3 :p%=2 |
257 |
|
|
ELSEIF p%=26 |
258 |
|
|
out:("You attempt to climb the tree, but the trunk is too slippery, so you don't get far.") :c%=0 |
259 |
|
|
ELSE nogo: :ENDIF |
260 |
|
|
ENDP |
261 |
|
|
|
262 |
|
|
PROC useo:(o%) |
263 |
|
|
LOCAL g% |
264 |
|
|
IF o%=1 AND p%=10 |
265 |
|
|
out:("You hand the man your money. The man gives you a book and scurries off to attack another atheist victim.") |
266 |
|
|
o%(1)=0 |
267 |
|
|
o%(6)=-1 |
268 |
|
|
score: |
269 |
|
|
ELSEIF o%=3 AND p%=5 AND t%(1)=0 |
270 |
|
|
out:("You use the knife on the lock and the door opens rustily.") |
271 |
|
|
t%(1)=1 |
272 |
|
|
score: |
273 |
|
|
ELSEIF o%=4 AND p%=17 |
274 |
|
|
out:("The weather can't resist a swig. It proves fatal. He crashes to the floor. You see a Mini Portable Weather Control System - a 'MPWCS'.") |
275 |
|
|
o%(4)=0 |
276 |
|
|
o%(10)=17 |
277 |
|
|
t%(5)=1 |
278 |
|
|
score: |
279 |
|
|
ELSEIF o%=5 AND p%=22 |
280 |
|
|
out:("/""Thanks Bernie."" #says Pippa. /""Give this to Jon, will you?"" #She hands you a rugby ball.") |
281 |
|
|
o%(5)=0 |
282 |
|
|
o%(11)=-1 |
283 |
|
|
t%(7)=1 |
284 |
|
|
score: |
285 |
|
|
ELSEIF o%=6 :xo:(6) |
286 |
|
|
ELSEIF o%=7 AND p%=12 |
287 |
|
|
out:("/""Oh! Thanks Bernie!"" #says Justin. /""Have a pie."" #") |
288 |
|
|
o%(7)=0 |
289 |
|
|
o%(9)=-1 |
290 |
|
|
score: |
291 |
|
|
ELSEIF o%=8 AND p%=30 |
292 |
|
|
out:("Gomersall puts the contact lens in his eye.") |
293 |
|
|
out:("/""It looks like the code from Star Trek."" #he says, and begins tapping away at his calculator. In a few moments a printout appears. /""Here you are."" #he says, handing the printout to you.") |
294 |
|
|
o%(8)=0 |
295 |
|
|
o%(13)=-1 |
296 |
|
|
t%(10)=1 |
297 |
|
|
score: |
298 |
|
|
ELSEIF o%=10 |
299 |
|
|
out:("You switch the MPWCS on. The screen lights up.") |
300 |
|
|
gSTYLE 16 |
301 |
|
|
out:("���������������������������") |
302 |
|
|
out:("� Please choose a season: �") |
303 |
|
|
out:("� 1. Winter �") |
304 |
|
|
out:("� 2. Spring �") |
305 |
|
|
out:("� 3. Summer �") |
306 |
|
|
out:("� 4. Autumn �") |
307 |
|
|
DO :g%=GET :UNTIL g%>48 AND g%<53 |
308 |
|
|
out:("� <"+CHR$(g%)+"> �") |
309 |
|
|
out:("���������������������������") |
310 |
|
|
gSTYLE 0 |
311 |
|
|
IF g%=51 AND (p%=26 OR p%=31) AND t%(11)=0 |
312 |
|
|
out:("The sun comes out and the tree bursts out in fruit. The machine switches itself off.") |
313 |
|
|
t%(11)=1 |
314 |
|
|
o%(7)=31 |
315 |
|
|
score: |
316 |
|
|
ELSE |
317 |
|
|
out:("Nothing seems to happen. You switch it off.") |
318 |
|
|
ENDIF |
319 |
|
|
ELSEIF o%=11 AND p%=29 |
320 |
|
|
out:("/""Thanks Bernie! Here's your reward."" #Jon hands you some ninja gloves.") |
321 |
|
|
o%(11)=0 |
322 |
|
|
o%(12)=-1 |
323 |
|
|
score: |
324 |
|
|
ELSEIF o%=12 AND p%=26 |
325 |
|
|
out:("You put the gloves on: climbing the tree with them is easy.") |
326 |
|
|
p%=31 |
327 |
|
|
c%=1 |
328 |
|
|
ELSEIF o%=13 AND p%=20 AND t%(12)=0 |
329 |
|
|
out:("You enter the code into the teleport, and the force field fades away.") |
330 |
|
|
t%(12)=1 |
331 |
|
|
score: |
332 |
|
|
ELSE |
333 |
|
|
out:("You can't do that") |
334 |
|
|
ENDIF |
335 |
|
|
ENDP |
336 |
|
|
|
337 |
|
|
PROC say: |
338 |
|
|
IF o$="ego volo volere" |
339 |
|
|
out:("You find yourself hovering above the ground...") |
340 |
|
|
IF p%=16 AND t%(4)=0 |
341 |
|
|
out:("...and can see through the keyhole. The Weather is at his control desk. Time is running out! You notice that he has drunk himself beyond stupidity.") |
342 |
|
|
IF t%(6)=0 :score: :ENDIF |
343 |
|
|
t%(6)=1 |
344 |
|
|
ELSE |
345 |
|
|
out:("...for a few seconds. Then the effect wears off and you hit the ground with a crash.") |
346 |
|
|
ENDIF |
347 |
|
|
ELSEIF o$="fishfood" |
348 |
|
|
out:("Jumping to level 2...") |
349 |
|
|
tp%=1 |
350 |
|
|
ELSEIF p%=9 |
351 |
|
|
out:("/""Sorry mate, I can't hear a word!"" #") |
352 |
|
|
ELSEIF p%=10 |
353 |
|
|
out:("/""The road that leads to flight can be found here,"" #says the man, waving a book.") |
354 |
|
|
ELSEIF p%=12 |
355 |
|
|
out:("/""Oh!"" #says Justin.") |
356 |
|
|
ELSEIF p%=17 AND t%(5)=0 |
357 |
|
|
out:("/""What'sh that you shay, Bernard?"" #shouts the Weather.") |
358 |
|
|
ELSE |
359 |
|
|
out:("There is no response") |
360 |
|
|
ENDIF |
361 |
|
|
ENDP |