481 lines
17 KiB
Plaintext
481 lines
17 KiB
Plaintext
|
|
||
|
|
||
|
.FUNCT MACHINERY-F
|
||
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
||
|
PRINTR "The machinery is extremely noisy and complicated. Other than that, you can't imagine of what use it is to anybody."
|
||
|
?ELS5: EQUAL? PRSA,V?AVOID \?ELS9
|
||
|
CALL HAMMER-F
|
||
|
RTRUE
|
||
|
?ELS9: EQUAL? PRSA,V?EXEX \FALSE
|
||
|
PRINTR "The machinery may or may not have been sped up, the facts being hard to determine."
|
||
|
|
||
|
|
||
|
.FUNCT ENGINE-ROOM-F,RARG
|
||
|
EQUAL? RARG,M-LOOK \FALSE
|
||
|
PRINTI "The room is filled with noise: crashing and smashing, gurgling of water, grinding of gears, and horrible screeching of metal. Huge devices of obscure purpose provide these effects. The most notable is a huge hammer that smashes continually against the stone floor: it makes any crossing of the room a dangerous enterprise. The whole construction brings to mind the words ""Infernal Machine."" Far off to the southeast is another room."
|
||
|
IN? DISPEL-SCROLL,CLOSET \?CND8
|
||
|
PRINTI " You can barely make out something on the floor of that room. It might be a scroll, but from here you can't tell for sure."
|
||
|
?CND8: CRLF
|
||
|
IN? TURTLE,CLOSET \TRUE
|
||
|
PRINTR "Across the room you can see the rainbow turtle, who frequently looks your way."
|
||
|
|
||
|
|
||
|
.FUNCT HAMMER-F
|
||
|
EQUAL? PRSA,V?WALK-AROUND,V?AVOID \?ELS5
|
||
|
PRINTR "It's hard to see how you'll avoid a painful experience."
|
||
|
?ELS5: EQUAL? PRSA,V?EXEX \FALSE
|
||
|
SET 'HAMMER-EXEX,TRUE-VALUE
|
||
|
PRINTR "The crashing of the hammer has become more frequent."
|
||
|
|
||
|
|
||
|
.FUNCT SE-TOWER-F,RARG=0
|
||
|
EQUAL? RARG,M-BEG \FALSE
|
||
|
EQUAL? PRSA,V?WALK \FALSE
|
||
|
EQUAL? PRSO,P?UP \?ELS10
|
||
|
CALL QUEUE,I-CRASH,2
|
||
|
PUT STACK,0,1
|
||
|
RFALSE
|
||
|
?ELS10: CALL INT,I-CRASH
|
||
|
PUT STACK,0,0
|
||
|
RFALSE
|
||
|
|
||
|
|
||
|
.FUNCT LIGHTS-F
|
||
|
EQUAL? PRSA,V?EXAMINE,V?READ \FALSE
|
||
|
PRINTR "The lights and displays hold no meaning for you. A random number generator may be controlling the whole thing, for all you know."
|
||
|
|
||
|
|
||
|
.FUNCT I-CRASH
|
||
|
LOC PLAYER
|
||
|
EQUAL? STACK,ENGINE-ROOM,CLOSET,SE-TOWER /?CND1
|
||
|
CALL INT,I-CRASH
|
||
|
PUT STACK,0,0
|
||
|
RFALSE
|
||
|
?CND1: ZERO? CRASH? \?PRD4
|
||
|
PUSH 1
|
||
|
JUMP ?PRD5
|
||
|
?PRD4: PUSH 0
|
||
|
?PRD5: SET 'CRASH?,STACK
|
||
|
ZERO? CRASH? \?THN9
|
||
|
ZERO? HAMMER-EXEX /?CND6
|
||
|
?THN9: PRINTI """Crash!"" A huge hammer smashes against the stone floor"
|
||
|
IN? PLAYER,CLOSET \?CND13
|
||
|
PRINTI " outside"
|
||
|
?CND13: PRINTI "."
|
||
|
CRLF
|
||
|
?CND6: ZERO? FAST? \?THN25
|
||
|
ZERO? HAMMER-EXEX /?ELS24
|
||
|
?THN25: PUSH 1
|
||
|
JUMP ?CND20
|
||
|
?ELS24: PUSH 2
|
||
|
?CND20: CALL QUEUE,I-CRASH,STACK
|
||
|
PUT STACK,0,1
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT CROSS-ENGINE-ROOM
|
||
|
EQUAL? HASTED?,WINNER \?ELS5
|
||
|
SET 'FAST?,TRUE-VALUE
|
||
|
EQUAL? WINNER,TURTLE \?ELS8
|
||
|
PRINTI "As the turtle starts across, he seems to set off something, for the machinery speeds up and the noise level becomes almost unbearable. Luckily, he makes it to the other side safely!"
|
||
|
CRLF
|
||
|
RETURN CLOSET
|
||
|
?ELS8: PRINTI "You zip across the room easily, but you must have touched something dangerous along the way, because the machinery speeds up, going faster and faster."
|
||
|
CRLF
|
||
|
RETURN CLOSET
|
||
|
?ELS5: EQUAL? WINNER,TURTLE \?ELS16
|
||
|
CALL INT,I-TURTLE
|
||
|
PUT STACK,0,0
|
||
|
PRINTI "The poor turtle starts, but he's just too slow. About halfway across the room he is dispatched by the enormous hammer, leaving only a rainbow colored smudge on the floor."
|
||
|
EQUAL? DEATH-CHEATED,TURTLE \?CND19
|
||
|
SET 'DEATH-CHEATED,FALSE-VALUE
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "But wait! Amazingly, the smudge reforms into a turtle again! The revived turtle just has time to turn his head in wonderment when the hammer smashes down again, remaking the rainbow smudge."
|
||
|
?CND19: PRINTI " Even that disappears at the next blow of the hammer."
|
||
|
CRLF
|
||
|
CALL JIGS-UP,FALSE-VALUE,FALSE-VALUE
|
||
|
RFALSE
|
||
|
?ELS16: ZERO? FAST? \?THN28
|
||
|
ZERO? CRASH? /?ELS27
|
||
|
?THN28: PRINTI "You start across the room, but less than halfway across, the huge hammer crashes down, right on top of you!"
|
||
|
CRLF
|
||
|
EQUAL? DEATH-CHEATED,ME \?CND32
|
||
|
PRINTI "Startlingly, you revive from this fatal blow, but even more startlingly, the first thing you see is the same huge hammer descending upon you!"
|
||
|
CRLF
|
||
|
?CND32: CALL JIGS-UP,FALSE-VALUE,FALSE-VALUE
|
||
|
RFALSE
|
||
|
?ELS27: SET 'FAST?,TRUE-VALUE
|
||
|
PRINTI "You make it across the room, but just barely; just as you duck through the door, a huge hammer crashes down behind, missing by an inch. Something you stepped on along the way clicked as well, and with a horrible screeching noise, the machinery speeds up, crashing faster and faster until it's twice as fast as before."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
RETURN CLOSET
|
||
|
|
||
|
|
||
|
.FUNCT RECROSS-ENGINE-ROOM
|
||
|
EQUAL? WINNER,TURTLE \?ELS5
|
||
|
EQUAL? HASTED?,TURTLE \?ELS10
|
||
|
IN? DISPEL-SCROLL,CLOSET \?CND11
|
||
|
SET 'TURTLE-REPORT?,TRUE-VALUE
|
||
|
?CND11: PRINTI "The turtle fairly zips across the engine room, dodging the giant hammers and gears. Suddenly he sets off a trap, and sharp spears fly at him from all directions! But they bounce harmlessly off his shell! He avoids one last crash of a huge hammer, but even at his speed, it's a near thing! With one more burst of speed, he reaches "
|
||
|
IN? PLAYER,ENGINE-ROOM \?ELS20
|
||
|
PUSH STR?284
|
||
|
JUMP ?CND16
|
||
|
?ELS20: PUSH STR?285
|
||
|
?CND16: PRINT STACK
|
||
|
PRINTI " safely!"
|
||
|
CRLF
|
||
|
RETURN ENGINE-ROOM
|
||
|
?ELS10: CALL INT,I-TURTLE
|
||
|
PUT STACK,0,0
|
||
|
PRINTI "The turtle starts across the room, as hammers and gears slowly turn and crash. Partway across the room, he sets off a trap! Spears fly at him from all directions! They just bounce off his shell, and he is unhurt. Unfortunately, at about this time, a enormous hammer smashes down. This does not bounce off his shell, and the poor creature expires."
|
||
|
CRLF
|
||
|
EQUAL? DEATH-CHEATED,TURTLE \?CND27
|
||
|
PRINTI "Astoundingly, the turtle renews himself! Unfortunately, he makes it no further, for the hammer is still too much for even his armor."
|
||
|
CRLF
|
||
|
?CND27: CALL JIGS-UP,FALSE-VALUE,FALSE-VALUE
|
||
|
RFALSE
|
||
|
?ELS5: IN? DISPEL-SCROLL,WINNER \?CND34
|
||
|
REMOVE DISPEL-SPELL
|
||
|
REMOVE DISPEL-SCROLL
|
||
|
?CND34: EQUAL? HASTED?,WINNER \?ELS39
|
||
|
PRINTI "You rush across the engine room, your speed enabling you to avoid the gigantic hammers and gears; at this speed they appear to move with great deliberation. Unfortunately, you set off a trap, and many sharp spears fly at you from all directions! They seem to move pretty fast. Too fast, in fact. You can't dodge them, and you are severely skewered."
|
||
|
JUMP ?CND37
|
||
|
?ELS39: PRINTI "You run across the room, trying to dodge the crashing machinery, and you are succeeding for a while until you set off a trap. A volley of sharp spears, powered by cunning machinery, comes at you from all directions. You are skewered! The huge hammer crashes down for the coup de grace."
|
||
|
?CND37: CRLF
|
||
|
EQUAL? DEATH-CHEATED,ME \?CND46
|
||
|
PRINTI "In an astounding feat of magic, you are reassembled and revived. In an even more astounding feat of trap design, you are dispatched again almost before you can take a breath."
|
||
|
CRLF
|
||
|
?CND46: CALL JIGS-UP,FALSE-VALUE,FALSE-VALUE
|
||
|
RFALSE
|
||
|
|
||
|
|
||
|
.FUNCT WAVES-F
|
||
|
EQUAL? PRSA,V?THROUGH,V?SWIM \FALSE
|
||
|
PRINTR "Don't press your luck. You'd probably drown."
|
||
|
|
||
|
|
||
|
.FUNCT SEA-STUFF-F
|
||
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
||
|
PRINTR "There's nothing much interesting to see."
|
||
|
?ELS5: EQUAL? PRSA,V?TAKE \FALSE
|
||
|
PRINTR "Why bother?"
|
||
|
|
||
|
|
||
|
.FUNCT NO-RESPONSE
|
||
|
PRINTR "You hear no response."
|
||
|
|
||
|
|
||
|
.FUNCT TURTLE-F,NEAR?
|
||
|
LOC PLAYER
|
||
|
IN? TURTLE,STACK /?PRD1
|
||
|
PUSH 0
|
||
|
JUMP ?PRD2
|
||
|
?PRD1: PUSH 1
|
||
|
?PRD2: SET 'NEAR?,STACK
|
||
|
EQUAL? WINNER,TURTLE \?ELS7
|
||
|
MOVE GLOBAL-TURTLE,GLOBAL-OBJECTS
|
||
|
ZERO? TURTLE-TIRED? /?CND8
|
||
|
ZERO? NEAR? /?ELS14
|
||
|
PRINTR "The turtle is asleep and appears oblivious to your words."
|
||
|
?ELS14: CALL NO-RESPONSE
|
||
|
RTRUE
|
||
|
?CND8: CALL QUEUE,I-TURTLE,-1
|
||
|
PUT STACK,0,1
|
||
|
FSET TURTLE,TOUCHBIT
|
||
|
EQUAL? TALK-TO-ANIMAL?,TURTLE /?ELS24
|
||
|
ZERO? NEAR? /?ELS27
|
||
|
PRINTI "The turtle looks at you quizzically. It's clear he would like to understand you, but he doesn't. He responds, but it's only snaps, hisses, and clicks to you."
|
||
|
CRLF
|
||
|
JUMP ?CND25
|
||
|
?ELS27: CALL NO-RESPONSE
|
||
|
?CND25: SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
RTRUE
|
||
|
?ELS24: EQUAL? PRSA,V?WALK \?ELS34
|
||
|
SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
INC 'TF-COUNT
|
||
|
IN? TURTLE,INSIDE-GATE \?ELS39
|
||
|
EQUAL? PRSO,P?WEST \?ELS39
|
||
|
SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
PRINTR """Uh, no thanks. I prefer to stay near my beach. I don't see much yummy seaweed out that way."""
|
||
|
?ELS39: IN? TURTLE,DIM-DESCENT \?ELS45
|
||
|
EQUAL? PRSO,P?DOWN,P?SOUTH \?ELS45
|
||
|
SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
PRINTR """Uh, no thanks. It looks dark and scary down there, and I get a kind of bad feeling about it, like you get when you eat old seaweed."""
|
||
|
?ELS45: EQUAL? PRSO,P?UP \?ELS51
|
||
|
LOC TURTLE
|
||
|
CALL GLOBAL-IN?,STAIRS,STACK
|
||
|
ZERO? STACK /?ELS51
|
||
|
ZERO? NEAR? /FALSE
|
||
|
PRINTI "The turtle huffs and puffs up the stairs. ""Pretty steep stairs for a turtle, friend..."""
|
||
|
CRLF
|
||
|
RFALSE
|
||
|
?ELS51: EQUAL? PRSO,P?DOWN \?ELS61
|
||
|
LOC TURTLE
|
||
|
CALL GLOBAL-IN?,STAIRS,STACK
|
||
|
ZERO? STACK /?ELS61
|
||
|
ZERO? NEAR? /?CND64
|
||
|
PRINTI """Those stairs are pretty steep. I'll follow you down, but I'm not going alone!"""
|
||
|
CRLF
|
||
|
?CND64: SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
RTRUE
|
||
|
?ELS61: GRTR? TF-COUNT,4 \FALSE
|
||
|
MOD TF-COUNT,6
|
||
|
ZERO? STACK \FALSE
|
||
|
CALL TURTLE-TIRES
|
||
|
RFALSE
|
||
|
?ELS34: EQUAL? PRSA,V?WHO \?ELS75
|
||
|
ZERO? NEAR? /?ELS80
|
||
|
PRINTR """Never heard of him."""
|
||
|
?ELS80: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS75: EQUAL? PRSA,V?THANK \?ELS87
|
||
|
CALL TURTLE-THANKS,NEAR?
|
||
|
RSTACK
|
||
|
?ELS87: EQUAL? PRSA,V?STAY \?ELS89
|
||
|
EQUAL? PRSO,GLOBAL-ROOM,FALSE-VALUE \?ELS89
|
||
|
SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
ZERO? NEAR? /?ELS96
|
||
|
PRINTR "The turtle hisses, ""Okay, I'll stay here for a while."""
|
||
|
?ELS96: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS89: EQUAL? PRSA,V?FOLLOW \?ELS103
|
||
|
EQUAL? PRSO,ME,FALSE-VALUE \?ELS108
|
||
|
SET 'TURTLE-FOLLOWS,TRUE-VALUE
|
||
|
SET 'TF-COUNT,0
|
||
|
SET 'TURTLE-TIRED-TELL,FALSE-VALUE
|
||
|
ZERO? NEAR? /?ELS113
|
||
|
PRINTR "The turtle hisses, ""I will follow you."""
|
||
|
?ELS113: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS108: ZERO? NEAR? /?ELS120
|
||
|
PRINTR "The turtle hisses, ""I'd follow you, but not that!"""
|
||
|
?ELS120: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS103: EQUAL? PRSA,V?BRING,V?TAKE \?ELS127
|
||
|
LOC PLAYER
|
||
|
IN? TURTLE,STACK /?ELS127
|
||
|
EQUAL? PRSA,V?BRING \?CND130
|
||
|
SET 'PRSO,PRSI
|
||
|
SET 'PRSI,FALSE-VALUE
|
||
|
?CND130: CALL ITAKE,FALSE-VALUE
|
||
|
EQUAL? PRSA,V?BRING \?CND133
|
||
|
EQUAL? HERE,CLOSET \?ELS140
|
||
|
PUSH P?NW
|
||
|
JUMP ?CND136
|
||
|
?ELS140: PUSH P?SE
|
||
|
?CND136: CALL DO-WALK,STACK
|
||
|
RTRUE
|
||
|
?CND133: EQUAL? HERE,CLOSET \TRUE
|
||
|
IN? PLAYER,ENGINE-ROOM \TRUE
|
||
|
PRINTI "The turtle sticks his head through the door across the mechanical wasteland."
|
||
|
IN? DISPEL-SCROLL,TURTLE \?CND150
|
||
|
PRINTI " In his mouth is a scroll of some sort."
|
||
|
?CND150: CRLF
|
||
|
RTRUE
|
||
|
?ELS127: EQUAL? PRSA,V?TAKE \?ELS156
|
||
|
FSET? PRSO,SCROLLBIT /FALSE
|
||
|
ZERO? NEAR? /?ELS166
|
||
|
PRINTR """I don't think I can carry that too easily."""
|
||
|
?ELS166: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS156: EQUAL? PRSA,V?OPEN \?ELS175
|
||
|
FSET? PRSO,DOORBIT \?ELS175
|
||
|
ZERO? NEAR? /?ELS182
|
||
|
PRINTR """I can't reach the latch. I'm a turtle, not an ostrich."""
|
||
|
?ELS182: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS175: EQUAL? PRSA,V?HELLO \?ELS189
|
||
|
ZERO? NEAR? /?ELS194
|
||
|
PRINTI """"
|
||
|
CALL PICK-ONE,TURTLE-REMARKS
|
||
|
PRINT STACK
|
||
|
PRINTR """"
|
||
|
?ELS194: CALL NO-RESPONSE
|
||
|
RSTACK
|
||
|
?ELS189: LOC PLAYER
|
||
|
IN? TURTLE,STACK /?THN202
|
||
|
LOC PLAYER
|
||
|
LOC STACK
|
||
|
IN? TURTLE,STACK \?ELS201
|
||
|
?THN202: PRINTR """I'm only a turtle, you know, even if I can talk!"""
|
||
|
?ELS201: CALL NO-RESPONSE
|
||
|
RTRUE
|
||
|
?ELS7: EQUAL? PRSA,V?TELL \?ELS209
|
||
|
EQUAL? PRSO,GLOBAL-TURTLE \?ELS209
|
||
|
ZERO? TURTLE-TIRED? /?ELS216
|
||
|
PRINTI "The turtle remains asleep."
|
||
|
CRLF
|
||
|
SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
RETURN 2
|
||
|
?ELS216: CALL OPPOSITE-SIDES?
|
||
|
ZERO? STACK /?ELS223
|
||
|
SET 'P-CONT,FALSE-VALUE
|
||
|
SET 'QUOTE-FLAG,FALSE-VALUE
|
||
|
PRINTR "The turtle seems to bend its head as if to listen, but with all this noise it's not very likely that he hears you."
|
||
|
?ELS223: SET 'P-MERGED,TRUE-VALUE
|
||
|
CALL GLOBAL-NOT-HERE-PRINT,GLOBAL-TURTLE
|
||
|
RTRUE
|
||
|
?ELS209: EQUAL? PRSO,GLOBAL-TURTLE \?ELS229
|
||
|
EQUAL? PRSA,V?YELL,V?WAVE-AT \?ELS229
|
||
|
CALL OPPOSITE-SIDES?
|
||
|
ZERO? STACK /?ELS229
|
||
|
PRINTI "The turtle takes notice, "
|
||
|
EQUAL? HERE,CLOSET \?ELS236
|
||
|
PRINTR "then glances at the rapidly pounding hammer. With a motion which might correspond to a shrug of the shoulder, he turns away, embarrassed."
|
||
|
?ELS236: PRINTI "nods his head, and starts in your direction."
|
||
|
CRLF
|
||
|
?CND234: SET 'WINNER,TURTLE
|
||
|
LOC TURTLE >HERE
|
||
|
EQUAL? HERE,CLOSET \?ELS247
|
||
|
PUSH P?NW
|
||
|
JUMP ?CND243
|
||
|
?ELS247: PUSH P?SE
|
||
|
?CND243: CALL DO-WALK,STACK
|
||
|
RTRUE
|
||
|
?ELS229: EQUAL? PRSO,GLOBAL-TURTLE \?ELS251
|
||
|
EQUAL? PRSA,V?EXAMINE \?ELS251
|
||
|
CALL OPPOSITE-SIDES?
|
||
|
ZERO? STACK /?ELS251
|
||
|
PRINTR "He is standing on the other side of the machinery."
|
||
|
?ELS251: EQUAL? PRSO,GLOBAL-TURTLE \?ELS257
|
||
|
CALL GLOBAL-NOT-HERE-PRINT,GLOBAL-TURTLE
|
||
|
RTRUE
|
||
|
?ELS257: EQUAL? PRSA,V?THROUGH,V?CLIMB-FOO,V?CLIMB-UP \?ELS259
|
||
|
PRINTR "The turtle doesn't allow you to get on his back."
|
||
|
?ELS259: EQUAL? PRSA,V?RUB \?ELS263
|
||
|
PRINTR "The turtle seems to appreciate the attention."
|
||
|
?ELS263: EQUAL? PRSA,V?CLEESH \?ELS267
|
||
|
PRINTR "As he is already a reptile, the spell has little effect."
|
||
|
?ELS267: EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS271
|
||
|
PRINTR "Come now, you can't do that!"
|
||
|
?ELS271: EQUAL? PRSA,V?REZROV \?ELS275
|
||
|
PRINTR "The turtle's shell pops off his back. Mortified, he retrieves it."
|
||
|
?ELS275: EQUAL? PRSA,V?GUNCHO \?ELS279
|
||
|
ZERO? TURTLE-TIRED? /?ELS282
|
||
|
PRINTI "The sleeping turtle seems to shrink to nothing, and vanishes!"
|
||
|
CRLF
|
||
|
JUMP ?CND280
|
||
|
?ELS282: PRINTI "The turtle barely has time to retract his head before he is consumed in flame!"
|
||
|
CRLF
|
||
|
?CND280: REMOVE TURTLE
|
||
|
RTRUE
|
||
|
?ELS279: EQUAL? PRSA,V?VAXUM \?ELS291
|
||
|
ZERO? TURTLE-TIRED? /?ELS296
|
||
|
PRINTR "The snoring sounds more friendly."
|
||
|
?ELS296: PRINTR "The turtle seems to make a friendly gesture, but then again turtles are pretty friendly anyway."
|
||
|
?ELS291: EQUAL? PRSA,V?MUNG \?ELS305
|
||
|
PRINTI "The turtle's shell is so thick and hard that your blow has no effect. The lovely colors on his back are not even marred."
|
||
|
ZERO? TURTLE-TIRED? /?ELS312
|
||
|
PRINTR " He doesn't even wake up."
|
||
|
?ELS312: PRINTR " He does withdraw into his shell briefly, but then emerges again."
|
||
|
?ELS305: ZERO? TURTLE-TIRED? /?ELS321
|
||
|
PRINTI "The turtle remains asleep."
|
||
|
CRLF
|
||
|
SET 'P-CONT,FALSE-VALUE
|
||
|
RETURN 2
|
||
|
?ELS321: EQUAL? PRSA,V?THANK \?ELS328
|
||
|
EQUAL? TALK-TO-ANIMAL?,TURTLE \?ELS328
|
||
|
CALL TURTLE-THANKS,TRUE-VALUE
|
||
|
RSTACK
|
||
|
?ELS328: EQUAL? PRSA,V?TAKE \?ELS332
|
||
|
EQUAL? TURTLE,PRSO \?ELS332
|
||
|
PRINTR "The turtle is much too large to take."
|
||
|
?ELS332: EQUAL? PRSA,V?GIVE \?ELS338
|
||
|
PRINTI "The turtle extends his head towards the "
|
||
|
PRINTD PRSO
|
||
|
PRINTR ", but decides it's not very interesting, and withdraws."
|
||
|
?ELS338: EQUAL? PRSA,V?HELLO \FALSE
|
||
|
PRINTI """"
|
||
|
CALL PICK-ONE,TURTLE-REMARKS
|
||
|
PRINT STACK
|
||
|
PRINTR """"
|
||
|
|
||
|
|
||
|
.FUNCT TURTLE-THANKS,NEAR?
|
||
|
ZERO? TURTLE-POINT \?ELS3
|
||
|
MOVE TURTLE,BEACH
|
||
|
ZERO? NEAR? /?ELS6
|
||
|
PRINTR """Glad to be of help. I think I'll get back to the beach, now."" The turtle departs."
|
||
|
?ELS6: PRINTR "There is no response."
|
||
|
?ELS3: ZERO? NEAR? /?ELS15
|
||
|
PRINTR """You're very welcome! It's nice to have someone to talk to for a change."""
|
||
|
?ELS15: CALL NO-RESPONSE
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT OPPOSITE-SIDES?
|
||
|
EQUAL? HERE,ENGINE-ROOM,CLOSET \FALSE
|
||
|
LOC TURTLE
|
||
|
EQUAL? STACK,ENGINE-ROOM,CLOSET \FALSE
|
||
|
LOC TURTLE
|
||
|
EQUAL? HERE,STACK \TRUE
|
||
|
RFALSE
|
||
|
|
||
|
|
||
|
.FUNCT I-TURTLE,LP
|
||
|
LOC PLAYER >LP
|
||
|
FSET TURTLE,TOUCHBIT
|
||
|
ZERO? TURTLE-FOLLOWS /?ELS5
|
||
|
IN? TURTLE,LP /?ELS5
|
||
|
INC 'TF-COUNT
|
||
|
EQUAL? LP,WEST-CASTLE,DUNGEON,BED \?ELS12
|
||
|
SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
PRINTR "The turtle won't follow any further."
|
||
|
?ELS12: EQUAL? LP,CLOSET \?ELS20
|
||
|
IN? TURTLE,ENGINE-ROOM /?THN17
|
||
|
?ELS20: EQUAL? LP,ENGINE-ROOM \?ELS16
|
||
|
IN? TURTLE,CLOSET \?ELS16
|
||
|
?THN17: SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
PRINTR "The turtle seems hesitant to follow you across the room. He looks at you as if he wants an explicit order."
|
||
|
?ELS16: MOVE TURTLE,LP
|
||
|
EQUAL? LP,ENDLESS-STAIR \?ELS31
|
||
|
PRINTI "You notice that the turtle is no longer following you. In fact, he seems to have vanished entirely."
|
||
|
CRLF
|
||
|
REMOVE TURTLE
|
||
|
CALL QUEUE,I-TURTLE,0
|
||
|
SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
RTRUE
|
||
|
?ELS31: EQUAL? LP,ENGINE-ROOM \?ELS35
|
||
|
PRINTR """Pretty steep stairs for a turtle, friend. But if you say so..."""
|
||
|
?ELS35: EQUAL? HASTED?,TURTLE \?ELS39
|
||
|
PRINTR "The turtle, moving with terrific speed, follows you."
|
||
|
?ELS39: GRTR? TF-COUNT,4 \?ELS43
|
||
|
CALL TURTLE-TIRES
|
||
|
RSTACK
|
||
|
?ELS43: PRINTR "The turtle, at his own leisurely pace, follows you."
|
||
|
?ELS5: ZERO? TURTLE-REPORT? /?ELS49
|
||
|
LOC TURTLE
|
||
|
IN? PLAYER,STACK \?ELS49
|
||
|
SET 'TURTLE-REPORT?,FALSE-VALUE
|
||
|
PRINTR "The returned turtle reports that the door across the way opens into a room with much magic in it: bright lights and other things he doesn't understand too well. He says there is an object of rolled paper lying on the floor as well."
|
||
|
?ELS49: IN? DISPEL-SCROLL,TURTLE \FALSE
|
||
|
IN? TURTLE,LP \FALSE
|
||
|
EQUAL? HERE,CLOSET /FALSE
|
||
|
MOVE DISPEL-SCROLL,LP
|
||
|
CALL THIS-IS-IT,DISPEL-SCROLL
|
||
|
ADD SCORE,TURTLE-POINT >SCORE
|
||
|
SET 'TURTLE-POINT,0
|
||
|
PRINTR "The turtle drops a brittle scroll at your feet. ""Not bad, huh?"""
|
||
|
|
||
|
|
||
|
.FUNCT TURTLE-TIRES
|
||
|
ZERO? TURTLE-FOLLOWS /FALSE
|
||
|
GRTR? TF-COUNT,20 \?ELS8
|
||
|
SET 'TURTLE-TIRED?,TRUE-VALUE
|
||
|
SET 'TURTLE-FOLLOWS,FALSE-VALUE
|
||
|
CALL INT,I-TURTLE
|
||
|
PUT STACK,0,0
|
||
|
PRINTR "The turtle has closed his shell, and fallen asleep. A quiet snoring sound issues from somewhere within."
|
||
|
?ELS8: ZERO? TURTLE-TIRED-TELL \?ELS12
|
||
|
SET 'TURTLE-TIRED-TELL,TRUE-VALUE
|
||
|
PRINTR """How long do you expect me to follow you around, anyway? I'm getting kind of tired, too. You would if you had a shell as heavy as mine. It's all right for now, though."""
|
||
|
?ELS12: PRINTR "The turtle, at his own leisurely pace, follows you."
|
||
|
|
||
|
.ENDI
|