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

Annotation of /archive/bernie/Level0.opl

Parent Directory Parent Directory | Revision Log Revision Log


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

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

  ViewVC Help
Powered by ViewVC 1.1.26