/[james]/archive/bernie/Level0.opl
ViewVC logotype

Contents of /archive/bernie/Level0.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (show annotations) (download)
Thu Mar 13 12:07:05 2003 UTC (21 years, 7 months ago) by james
File size: 13468 byte(s)
Initial import.

1 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

  ViewVC Help
Powered by ViewVC 1.1.26