| 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 |
Parent Directory
| 
Revision Log