776 lines
24 KiB
Plaintext
776 lines
24 KiB
Plaintext
|
|
|
|
.FUNCT MAPS-F
|
|
EQUAL? PRSA,V?TAKE \?ELS5
|
|
PRINTR "Most of the maps are murals painted onto the walls. The others are securely mounted."
|
|
?ELS5: EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTR "The maps on the walls were made in the Elder days, when the face of the earth was different. You can recognize the ancient cities of Galepath and Mareilon on the shores of the Sea from your legends class at the University, but you have trouble discerning any other places. One map shows a proud castle standing on a cliff rising above the Sea. Largoneth it was, the once-proud home of Entharion the Wise, King of Quendor. As you realize that this place was the King's Map Room, you are filled with wonder at the ancient days."
|
|
|
|
|
|
.FUNCT ENTHARION-F
|
|
EQUAL? PRSA,V?WHO,V?EXAMINE \?ELS5
|
|
PRINTR "You can remember little of the legends of Entharion the Wise. Perhaps you should have paid more attention in Legends class."
|
|
?ELS5: EQUAL? PRSA,V?ZIFMIA \FALSE
|
|
PRINTR "Poor Entharion, he's been dead these many years. You would need more than a summoning spell to get him here."
|
|
|
|
|
|
.FUNCT GLOBE-F
|
|
EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTR "The globe represents the world as it was thought to be in the ancient days. Very little can be recognized of the seas or land masses."
|
|
|
|
|
|
.FUNCT PEDESTAL-F
|
|
EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTR "A globe is sitting on it."
|
|
|
|
|
|
.FUNCT PURLOINED-ROOM-F,RARG
|
|
EQUAL? RARG,M-LOOK \?ELS5
|
|
ZERO? DOOR-ILLUSION-GONE \?ELS10
|
|
PRINTI "A more incongruous place than this would be difficult to believe. The room itself is nothing more than a small room at the base of the northeast tower with a narrow passageway entering from the west. Standing in front of you to the north, however, is a door surpassing anything you could have imagined. For starters, its massive lock is wrapped in a dozen six-inch thick iron chains. In addition, a certain five-headed monster sporting razor-sharp spears for tongues seems to be imbedded within its heavy oak frame. One is almost embarrassed to mention the gargoyles spewing flame and sulphurous ash which ornament either side of the door, or the ninety-seven slimy groping tentacles which taunt you ever closer to certain death. A sign, floating serenely above the door and glowing hideously in purple letters, offers the following rude understatement: "
|
|
GETP FLOATING-SIGN,P?TEXT
|
|
PRINT STACK
|
|
PRINTR "."
|
|
?ELS10: PRINTI "This rather unobtrusive room at the base of the northwest tower sports a small passageway to the west and a small, rickety door to the north which is "
|
|
FSET? DOOR-REALITY,OPENBIT \?ELS21
|
|
PRINTI "open"
|
|
JUMP ?CND19
|
|
?ELS21: PRINTI "closed"
|
|
?CND19: PRINTR "."
|
|
?ELS5: EQUAL? RARG,M-BEG \FALSE
|
|
EQUAL? PRSA,V?WALK \FALSE
|
|
EQUAL? PRSO,P?UP,P?NORTH \FALSE
|
|
ZERO? DOOR-ILLUSION-GONE \FALSE
|
|
EQUAL? WINNER,PLAYER \?ELS38
|
|
CALL PERFORM,V?OPEN,DOOR-ILLUSION
|
|
RTRUE
|
|
?ELS38: PRINTR """I'd like to, but the door's closed."""
|
|
|
|
|
|
.FUNCT DOOR-ILLUSION-F
|
|
ZERO? DOOR-ILLUSION-GONE \FALSE
|
|
EQUAL? PRSA,V?KULCAD \?ELS10
|
|
PRINTI "As the last syllable of the kulcad spell echoes through the chamber, the door itself seems to dissolve. Slowly at first, then quickly, each of its rather unlovely ornaments turns pale, then transparent, then - nothing! What remains is a simple, wooden door which is standing shut. You move hesitantly toward the door. Nothing. You pause for a moment to regain your composure."
|
|
CRLF
|
|
SET 'DOOR-KULCAD,TRUE-VALUE
|
|
FSET DOOR-ILLUSION,INVISIBLE
|
|
FCLEAR DOOR-REALITY,INVISIBLE
|
|
FCLEAR DOOR-REALITY,OPENBIT
|
|
FCLEAR DOOR-REALITY,LOCKEDBIT
|
|
SET 'DOOR-ILLUSION-GONE,TRUE-VALUE
|
|
REMOVE MONSTERS-1
|
|
REMOVE MONSTERS-2
|
|
REMOVE MONSTERS-3
|
|
RTRUE
|
|
?ELS10: EQUAL? PRSA,V?SHOW \?ELS14
|
|
EQUAL? PRSI,ADVENTURER \?ELS14
|
|
CALL PERFORM,V?POINT,PRSO
|
|
RTRUE
|
|
?ELS14: EQUAL? PRSA,V?POINT \?ELS18
|
|
IN? ADVENTURER,HERE \?ELS18
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
ZERO? ADVENTURER-CHARMED /?ELS25
|
|
PRINTI "As you motion toward the monstrous door, the adventurer follows the imaginary line which proceeds thence from your outstretched arm."
|
|
CRLF
|
|
CRLF
|
|
CALL NO-ILLUSIONS
|
|
RTRUE
|
|
?ELS25: PRINTR "The adventurer seems frightened, and he backs up toward the door."
|
|
?ELS18: EQUAL? PRSA,V?UNLOCK,V?RUB,V?OPEN /?THN35
|
|
EQUAL? PRSA,V?ATTACK,V?KILL,V?MUNG /?THN35
|
|
EQUAL? PRSA,V?KNOCK \?ELS34
|
|
?THN35: IGRTR? 'BEATEN-UP,4 \?CND37
|
|
CALL JIGS-UP,STR?132
|
|
RTRUE
|
|
?CND37: CALL PICK-ONE,ILLUSION-HACKS
|
|
PRINT STACK
|
|
CRLF
|
|
CALL PICK-ONE,SIGN-TEXTS
|
|
PUTP FLOATING-SIGN,P?TEXT,STACK
|
|
RTRUE
|
|
?ELS34: EQUAL? PRSA,V?REZROV \FALSE
|
|
PRINTR "As you cast the rezrov spell, the door shudders briefly, and a few tentacles pause in their unending motion. The two gargoyles look at each other, perplexed. After a tense moment, the sign above the door flashes briefly: ""Fat Chance""."
|
|
|
|
|
|
.FUNCT MIRROR-F
|
|
FSET? HERE,NDESCBIT \?ELS5
|
|
EQUAL? PRSA,V?KREBF \?ELS10
|
|
FCLEAR HERE,NDESCBIT
|
|
PRINTR "Shards of glass fly into the air, solving a jigsaw puzzle of a million pieces. The mirror is repaired!"
|
|
?ELS10: PRINTR "There's no mirror left here after the way you treated it."
|
|
?ELS5: EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE \?ELS18
|
|
PRINTI "The scene behind the ""mirror"" is an underground landscape."
|
|
FSET? ADVENTURER-LG,INVISIBLE /?CND21
|
|
PRINTI " A weary adventurer is standing there, dejected."
|
|
?CND21: CRLF
|
|
RTRUE
|
|
?ELS18: EQUAL? PRSA,V?ATTACK,V?MUNG \FALSE
|
|
PRINTI "The mirror here smashes into tiny shards. Behind the mirror is a bare rock wall."
|
|
CRLF
|
|
CALL NO-MORE-ADVENTURER
|
|
FSET HERE,NDESCBIT
|
|
RTRUE
|
|
|
|
|
|
.FUNCT SHARDS-F
|
|
FSET? HERE,NDESCBIT /?ELS5
|
|
PRINTR "There are no shards of glass here...yet."
|
|
?ELS5: EQUAL? PRSA,V?PUT,V?MOVE,V?TAKE /?THN10
|
|
EQUAL? PRSA,V?RUB \FALSE
|
|
?THN10: PRINTR "You would slice your fingers on them."
|
|
|
|
|
|
.FUNCT MIRROR-HALL-F,RARG,RM
|
|
EQUAL? RARG,M-LOOK \?ELS5
|
|
GETP HERE,P?COUNT >RM
|
|
GET MIRROR-HALL-TBL1,RM
|
|
PRINT STACK
|
|
FSET? HERE,NDESCBIT \?ELS10
|
|
PRINTI " Hall of Mirrors. Where there used to be a large mirror mounted on the wall is only an empty frame. Shards of mirror cover the floor."
|
|
CRLF
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI " Hall of Mirrors. The hall itself is astounding and not a little bit confusing. To be sure, its northern wall is glass, but it does not seem to reflect anything within the hall. Rather, it seems to be a window on another world. This other world appears to be a large underground labyrinth, filled with tunnels, caves, and peculiar rock formations."
|
|
CRLF
|
|
?CND8: ZERO? ADVENTURER-LOC /FALSE
|
|
CALL DESCRIBE-ADVENTURER
|
|
RSTACK
|
|
?ELS5: EQUAL? RARG,M-ENTER \?ELS24
|
|
MOVE GLOBAL-ADVENTURER,GLOBAL-OBJECTS
|
|
RFALSE
|
|
?ELS24: EQUAL? RARG,M-END \FALSE
|
|
FSET? HERE,NDESCBIT /FALSE
|
|
ZERO? ADVENTURER-SUMMONED \FALSE
|
|
FSET? ADVENTURER-LG,INVISIBLE \FALSE
|
|
RANDOM 100
|
|
GRTR? 15,STACK \FALSE
|
|
SET 'ADVENTURER-LOC,HERE
|
|
CALL QUEUE,I-LG-ADVENTURER,-1
|
|
PUT STACK,0,1
|
|
PRINTI "From the other side of the ""mirror"" a bedraggled adventurer comes into view, carrying a brass lantern and an elvish sword, which is glowing dimly. He stops and stares in your direction."
|
|
CRLF
|
|
SET 'ADVENTURER-SEEN,TRUE-VALUE
|
|
FCLEAR ADVENTURER-LG,INVISIBLE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MIRROR-STUFF-F
|
|
FSET? HERE,NDESCBIT \?ELS5
|
|
CALL GLOBAL-NOT-HERE-PRINT,MIRROR-STUFF
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTR "The scene is an underground world, quite dissimilar from your own."
|
|
|
|
|
|
.FUNCT NO-MORE-ADVENTURER
|
|
FSET ADVENTURER-LG,INVISIBLE
|
|
SET 'ADVENTURER-LOC,FALSE-VALUE
|
|
CALL QUEUE,I-LG-ADVENTURER,0
|
|
RTRUE
|
|
|
|
|
|
.FUNCT I-LG-ADVENTURER
|
|
ZERO? ADVENTURER-SUMMONED \?THN6
|
|
EQUAL? HERE,ADVENTURER-LOC /?ELS5
|
|
?THN6: CALL NO-MORE-ADVENTURER
|
|
RFALSE
|
|
?ELS5: RANDOM 100
|
|
GRTR? 25,STACK \FALSE
|
|
PRINTI "The adventurer, after checking his compass, walks off."
|
|
CRLF
|
|
CALL NO-MORE-ADVENTURER
|
|
RTRUE
|
|
|
|
|
|
.FUNCT DESCRIBE-ADVENTURER
|
|
PRINTI "A bedraggled adventurer, carrying a brass lantern and a dimly glowing elvish sword, can be seen through the ""mirror"". He "
|
|
CALL PICK-ONE,ADVENTURER-FEEBLES
|
|
PRINT STACK
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT GLOBAL-ADVENTURER-F
|
|
EQUAL? PRSA,V?ZIFMIA \?ELS5
|
|
CALL NO-ZIF
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?FOLLOW \?ELS7
|
|
ZERO? ADVENTURER-SUMMONED /?ELS7
|
|
EQUAL? ADV-OLD-LOC,HERE \?ELS14
|
|
CALL GOTO,ADV-NEW-LOC
|
|
RTRUE
|
|
?ELS14: PRINTR "You have lost track of him."
|
|
?ELS7: CALL GLOBAL-NOT-HERE-PRINT,GLOBAL-ADVENTURER
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ADVENTURER-LG-F
|
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
|
CALL DESCRIBE-ADVENTURER
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?WAVE-AT \?ELS7
|
|
PRINTR "He doesn't seem to notice your gesture."
|
|
?ELS7: EQUAL? PRSA,V?ZIFMIA \?ELS11
|
|
PRINTI "All at once, the bedraggled adventurer appears before you, brightly glowing sword in hand. His jaw has dropped and his eyes are bulging. His eyes dart this way and that, as if looking for a way to escape."
|
|
CRLF
|
|
ADD SCORE,SUMMON-POINT >SCORE
|
|
SET 'SUMMON-POINT,0
|
|
MOVE ADVENTURER,HERE
|
|
SET 'ADVENTURER-SUMMONED,TRUE-VALUE
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
CALL QUEUE,I-ADVENTURER,-1
|
|
PUT STACK,0,1
|
|
CALL THIS-IS-IT,ADVENTURER
|
|
RTRUE
|
|
?ELS11: EQUAL? PRSA,V?CLEESH \?ELS15
|
|
PRINTR "The spell has no effect, perhaps because he isn't here."
|
|
?ELS15: EQUAL? PRSA,V?GUNCHO \FALSE
|
|
PRINTI "Behind the ""mirror"", the luckless adventurer seems to fade away. He shimmers briefly and then vanishes without a trace."
|
|
CRLF
|
|
CALL NO-MORE-ADVENTURER
|
|
SET 'ADVENTURER-SUMMONED,TRUE-VALUE
|
|
RETURN ADVENTURER-SUMMONED
|
|
|
|
|
|
.FUNCT ADVENTURER-C
|
|
EQUAL? PRSA,V?TAKE \?ELS5
|
|
CALL PERFORM,V?ASK-FOR,ADVENTURER,PRSO
|
|
RTRUE
|
|
?ELS5: EQUAL? PRSA,V?READ \FALSE
|
|
ZERO? ADVENTURER-CHARMED \?ELS12
|
|
PRINTR "The adventurer pulls back as you approach."
|
|
?ELS12: PRINTI "The adventurer moves closer so that you might read it."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT ADVENTURER-D,RARG
|
|
PRINTI "There is a bedraggled and weary adventurer standing here. He is carrying "
|
|
CALL PRINT-CONTENTS,ADVENTURER
|
|
ZERO? ADVENTURER-CHARMED /?CND3
|
|
PRINTI ". He seems pleased to see you and frequently smiles in your direction"
|
|
?CND3: PRINTR "."
|
|
|
|
|
|
.FUNCT SWORD-F
|
|
EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTR "The sword is of elvish workmanship and is glowing brightly."
|
|
|
|
|
|
.FUNCT ADVENTURER-ACTOR
|
|
EQUAL? PRSA,V?FOLLOW \?ELS5
|
|
ZERO? ADVENTURER-CHARMED /?ELS10
|
|
PRINTR """Sorry, but I've got better things to do than follow you."""
|
|
?ELS10: PRINTR """I'd sooner follow Dimwit Flathead!"""
|
|
?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS19
|
|
ZERO? ADVENTURER-CHARMED \?ELS24
|
|
PRINTR "He glances suspiciously at it."
|
|
?ELS24: EQUAL? PRSO,DOOR-ILLUSION \?ELS28
|
|
PRINTR """It's a door."""
|
|
?ELS28: PRINTI """It's "
|
|
CALL PRINTA,PRSO
|
|
PRINTR "."""
|
|
?ELS19: EQUAL? PRSA,V?THROUGH,V?OPEN \?ELS36
|
|
EQUAL? PRSO,DOOR-ILLUSION \?ELS36
|
|
ZERO? ADVENTURER-CHARMED /?ELS43
|
|
SET 'WINNER,PLAYER
|
|
LOC WINNER >HERE
|
|
CALL PERFORM,V?POINT,DOOR-ILLUSION
|
|
RTRUE
|
|
?ELS43: PRINTR "The adventurer looks at you suspiciously. ""Can't you open it yourself?"""
|
|
?ELS36: EQUAL? PRSA,V?HELLO \?ELS50
|
|
ZERO? ADVENTURER-CHARMED /?ELS55
|
|
PRINTR """Hello. Nice to meet you."""
|
|
?ELS55: ZERO? PRSO /?ELS60
|
|
PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTR " steps away from you."
|
|
?ELS60: PRINTR "The adventurer steps warily away."
|
|
?ELS50: EQUAL? PRSA,V?UNTIE \?ELS69
|
|
EQUAL? PRSO,MAGIC-ROPE \?ELS69
|
|
ZERO? ADVENTURER-CHARMED /?ELS69
|
|
PRINTR "The adventurer tries to untie the rope, but he only becomes entangled. He gives up and glares suspiciously at you."
|
|
?ELS69: EQUAL? PRSA,V?ATTACK,V?MUNG \?ELS75
|
|
EQUAL? PRSO,DOOR-ILLUSION \?ELS75
|
|
PRINTR "He pauses as if searching for the right thing to say. ""I've known strange people, but fighting a wooden door?"""
|
|
?ELS75: EQUAL? PRSA,V?MUNG,V?CUT \?ELS81
|
|
EQUAL? PRSO,MAGIC-ROPE \?ELS81
|
|
ZERO? ADVENTURER-CHARMED \?ELS88
|
|
PRINTR """Not bloody likely! There's magic there!"""
|
|
?ELS88: ZERO? ROPE-MAGIC? \?ELS92
|
|
CALL ROPE-DISSOLVES
|
|
MOVE JEWELLED-BOX,ADVENTURER
|
|
LOC ADVENTURER
|
|
MOVE PROTECTION-SCROLL,STACK
|
|
PRINTR "The adventurer draws his sword and slices the rope cleanly into so much fluff. He opens the box, revealing a scroll! He drops this on the ground disdainfully but retains the box."
|
|
?ELS92: ZERO? PRSI /?THN97
|
|
EQUAL? PRSI,SWORD \?ELS96
|
|
?THN97: PRINTR """Ooo! Nice idea!"" He slashes at the rope with his sword, but to no avail. The rope is impervious to the magic of this weapon! He looks crestfallen."
|
|
?ELS96: PRINTR """I doubt that would work."""
|
|
?ELS81: EQUAL? PRSA,V?SSHOW,V?SGIVE /FALSE
|
|
EQUAL? PRSA,V?SHOW,V?GIVE \?ELS108
|
|
EQUAL? PRSI,ME \?ELS108
|
|
EQUAL? PRSA,V?GIVE \?ELS113
|
|
CALL PERFORM,V?ASK-FOR,ADVENTURER,PRSO
|
|
RTRUE
|
|
?ELS113: ZERO? ADVENTURER-CHARMED /?ELS115
|
|
PRINTI "The "
|
|
PRINTD ADVENTURER
|
|
PRINTI " allows you a quick look at the "
|
|
PRINTD PRSO
|
|
PRINTR "."
|
|
?ELS115: PRINTI "The "
|
|
PRINTD ADVENTURER
|
|
PRINTR " gives you a suspicious look and attempts to conceal his possessions."
|
|
?ELS108: PRINTR """I'll do what I please, thank you."""
|
|
|
|
|
|
.FUNCT ADVENTURER-F
|
|
EQUAL? WINNER,ADVENTURER \?ELS5
|
|
CALL ADVENTURER-ACTOR
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?WAVE-AT \?ELS7
|
|
ZERO? ADVENTURER-CHARMED /?ELS12
|
|
PRINTR "The adventurer waves right back."
|
|
?ELS12: PRINTR "The adventurer steps back a few paces."
|
|
?ELS7: EQUAL? PRSA,V?FOLLOW \?ELS21
|
|
PRINTR "He's right here!"
|
|
?ELS21: EQUAL? PRSA,V?KILL,V?ATTACK \?ELS25
|
|
SET 'ADVENTURER-CHARMED,FALSE-VALUE
|
|
CALL JIGS-UP,STR?150
|
|
RSTACK
|
|
?ELS25: EQUAL? PRSA,V?NITFOL \?ELS27
|
|
PRINTR "He already speaks your language, but now a bit better."
|
|
?ELS27: EQUAL? PRSA,V?GUNCHO \?ELS31
|
|
PRINTI "The adventurer blurs as though you were seeing him from a distance, wavers like a mirage, and then vanishes."
|
|
CRLF
|
|
REMOVE ADVENTURER
|
|
CALL QUEUE,I-ADVENTURER,0
|
|
RSTACK
|
|
?ELS31: EQUAL? PRSA,V?FROTZ \?ELS35
|
|
PRINTI "The adventurer is now bathed in light, much to his amazement."
|
|
CRLF
|
|
SET 'ADVENTURER-CHARMED,FALSE-VALUE
|
|
FSET ADVENTURER,LIGHTBIT
|
|
FSET ADVENTURER,ONBIT
|
|
RTRUE
|
|
?ELS35: EQUAL? PRSA,V?VAXUM \?ELS39
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
SET 'ADVENTURER-CHARMED,TRUE-VALUE
|
|
CALL QUEUE,I-ADVENTURER-UNCHARM,20
|
|
PUT STACK,0,1
|
|
PRINTR "The adventurer smiles at you with an air of good will."
|
|
?ELS39: EQUAL? PRSA,V?HELLO \?ELS43
|
|
ZERO? ADVENTURER-CHARMED /?ELS48
|
|
PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTR " waves back and says ""Hello!"""
|
|
?ELS48: PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTR " keeps his distance, eyeing you cautiously."
|
|
?ELS43: EQUAL? PRSA,V?SEARCH \?ELS57
|
|
PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTR " isn't inclined to allow himself to be searched."
|
|
?ELS57: EQUAL? PRSA,V?MUNG \?ELS61
|
|
PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTI " dodges your blow and becomes very wary of you."
|
|
CRLF
|
|
SET 'ADVENTURER-CHARMED,FALSE-VALUE
|
|
RTRUE
|
|
?ELS61: EQUAL? PRSA,V?GIVE \?ELS65
|
|
EQUAL? PRSI,ADVENTURER \?ELS65
|
|
ZERO? ADVENTURER-CHARMED \?ELS72
|
|
PRINTI "The "
|
|
PRINTD PRSI
|
|
PRINTI " eyes you suspiciously. Why, he thinks, is this sorcerer handing me something"
|
|
FSET? PRSO,TREASURE \?CND75
|
|
PRINTI ", especially something valuable"
|
|
?CND75: PRINTR "?"
|
|
?ELS72: ZERO? SAILOR? /?ELS83
|
|
SUB MOVES,SAILOR?
|
|
LESS? STACK,2 \?ELS83
|
|
MOVE PRSO,ADVENTURER
|
|
PRINTI "A wide smile comes over his face as he takes the "
|
|
PRINTD PRSO
|
|
PRINTR ", as though your action resolved for him some great mystery."
|
|
?ELS83: FSET? PRSO,TREASURE \?ELS89
|
|
PRINTI "The "
|
|
PRINTD PRSI
|
|
PRINTI " gratefully accepts the offer of the "
|
|
PRINTD PRSO
|
|
PRINTI ". He is fascinated by its beauty and stops to thank you."
|
|
CRLF
|
|
MOVE PRSO,ADVENTURER
|
|
RTRUE
|
|
?ELS89: PRINTI "The "
|
|
PRINTD PRSI
|
|
PRINTR " refuses your offer politely."
|
|
?ELS65: EQUAL? PRSA,V?SHOW \?ELS97
|
|
EQUAL? PRSI,ADVENTURER \?ELS97
|
|
ZERO? ADVENTURER-CHARMED \?ELS104
|
|
PRINTR "He ignores you pointedly."
|
|
?ELS104: EQUAL? PRSO,DOOR-ILLUSION /FALSE
|
|
FSET? PRSO,TREASURE \?ELS110
|
|
PRINTI "His eyes light up at the sight of the "
|
|
PRINTD PRSO
|
|
PRINTI "."
|
|
CRLF
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
RETURN ADVENTURER-STAY
|
|
?ELS110: PRINTR "He yawns briefly, indicating his disinterest."
|
|
?ELS97: EQUAL? PRSA,V?TAKE \FALSE
|
|
EQUAL? PRSI,ADVENTURER \FALSE
|
|
CALL PERFORM,V?ASK-FOR,PRSI,PRSO
|
|
RTRUE
|
|
|
|
|
|
.FUNCT I-ADVENTURER-UNCHARM
|
|
SET 'ADVENTURER-CHARMED,FALSE-VALUE
|
|
IN? ADVENTURER,HERE \FALSE
|
|
PRINTR "The adventurer looks at you as if seeing you for the first time. It's not clear that he likes what he sees, either."
|
|
|
|
|
|
.FUNCT I-ADVENTURER,L,NL
|
|
LOC ADVENTURER >L
|
|
FSET? L,ONBIT \?ELS3
|
|
FCLEAR LANTERN,ONBIT
|
|
JUMP ?CND1
|
|
?ELS3: FSET LANTERN,ONBIT
|
|
?CND1: INC 'ADVENTURER-MOVE
|
|
ZERO? ADVENTURER-MOVE /TRUE
|
|
GETP L,P?ADVFCN
|
|
CALL STACK
|
|
ZERO? STACK \TRUE
|
|
ZERO? ADVENTURER-STAY /?ELS14
|
|
SET 'ADVENTURER-STAY,FALSE-VALUE
|
|
EQUAL? HERE,L \FALSE
|
|
ZERO? ADVENTURER-CHARMED /FALSE
|
|
PRINTI "The adventurer"
|
|
CALL PICK-ONE,ADVENTURER-LOITERS
|
|
PRINT STACK
|
|
CRLF
|
|
RTRUE
|
|
?ELS14: EQUAL? L,MIRROR-HALL-1,MIRROR-HALL-2,MIRROR-HALL-3 /?THN27
|
|
EQUAL? L,MIRROR-HALL-4,NORTH-GATE \?ELS26
|
|
?THN27: CALL NEXT-HALL,L,TRUE-VALUE >NL
|
|
CALL TREASURE-HERE?,NL
|
|
ZERO? STACK /?ELS33
|
|
CALL MOVE-ADVENTURER,NL
|
|
RSTACK
|
|
?ELS33: LESS? ADVENTURER-MOVE,5 \?ELS35
|
|
CALL NEXT-HALL,L,FALSE-VALUE
|
|
CALL MOVE-ADVENTURER,STACK
|
|
RSTACK
|
|
?ELS35: CALL ADVENTURER-DECIDE,L
|
|
RSTACK
|
|
?ELS26: RANDOM 100
|
|
GRTR? 25,STACK \?ELS39
|
|
EQUAL? HERE,L \?ELS39
|
|
PRINTI "The adventurer "
|
|
ZERO? ADVENTURER-CHARMED /?ELS48
|
|
ZERO? SAILOR? \?ELS54
|
|
RANDOM 100
|
|
GRTR? 16,STACK \?ELS54
|
|
SET 'SAILOR?,MOVES
|
|
PRINTR "waves at you and asks ""Hello, Sailor?"" Strange, you've never even been to sea."
|
|
?ELS54: CALL PICK-ONE,ADVENTURER-NICE
|
|
PRINT STACK
|
|
CRLF
|
|
RTRUE
|
|
?ELS48: CALL PICK-ONE,ADVENTURER-QUIPS
|
|
PRINT STACK
|
|
CRLF
|
|
RTRUE
|
|
?ELS39: CALL ADVENTURER-TAKE,L
|
|
ZERO? STACK /?ELS68
|
|
SET 'ADVENTURER-STAY,FALSE-VALUE
|
|
RTRUE
|
|
?ELS68: ZERO? ADV-HASTE \?ELS73
|
|
EQUAL? HASTED?,ADVENTURER \?ELS73
|
|
SET 'ADV-HASTE,TRUE-VALUE
|
|
CALL ADVENTURER-DECIDE,L
|
|
CALL I-ADVENTURER
|
|
RTRUE
|
|
?ELS73: SET 'ADV-HASTE,FALSE-VALUE
|
|
CALL ADVENTURER-DECIDE,L
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MOVE-ADVENTURER,RM,L,CNT=0,OBJ,DIR
|
|
LOC ADVENTURER >L
|
|
EQUAL? L,NORTH-GATE \?ELS3
|
|
EQUAL? RM,PURLOINED-ROOM \?ELS3
|
|
CALL TREASURE-HERE?,RM
|
|
ZERO? STACK \?ELS3
|
|
FSET PURLOINED-ROOM,VILLAIN
|
|
EQUAL? HERE,L \TRUE
|
|
PRINTR "The adventurer starts toward the east but, seeing nothing of interest, changes his mind."
|
|
?ELS3: EQUAL? RM,TEMPLE \?ELS12
|
|
EQUAL? HERE,L \?CND13
|
|
PRINTI "The adventurer looks as if he might go into the temple, but then he thinks better of it."
|
|
CRLF
|
|
?CND13: FSET TEMPLE,VILLAIN
|
|
RTRUE
|
|
?ELS12: EQUAL? RM,T-A \?ELS19
|
|
EQUAL? HERE,L \?CND20
|
|
PRINTI "The adventurer starts to descend further, but chickens out. He won't make Dungeon Master at that rate!"
|
|
CRLF
|
|
?CND20: FSET T-A,VILLAIN
|
|
SET 'RM,DIM-DESCENT
|
|
JUMP ?CND1
|
|
?ELS19: EQUAL? RM,WEST-CASTLE \?CND1
|
|
EQUAL? HERE,L \?CND27
|
|
PRINTI "The adventurer peers through the gate, but he decides against passing through."
|
|
CRLF
|
|
?CND27: FSET WEST-CASTLE,VILLAIN
|
|
SET 'RM,COURTYARD-1
|
|
?CND1: EQUAL? HERE,L \?ELS34
|
|
PRINTI "The adventurer "
|
|
EQUAL? HASTED?,ADVENTURER \?ELS39
|
|
PRINTI "rockets out of"
|
|
JUMP ?CND37
|
|
?ELS39: PRINTI "leaves"
|
|
?CND37: PRINTI " the room"
|
|
CALL DOOR-FROM?,L,RM >OBJ
|
|
ZERO? OBJ /?CND48
|
|
PRINTI " through the "
|
|
PRINTD OBJ
|
|
?CND48: PRINTI ", heading "
|
|
CALL DIR-FROM,L,RM >DIR
|
|
EQUAL? DIR,P?UP,P?DOWN /?CND55
|
|
PRINTI "to "
|
|
?CND55: CALL DIR-PRINT,DIR
|
|
SET 'ADV-NEW-LOC,RM
|
|
SET 'ADV-OLD-LOC,L
|
|
PRINTI "."
|
|
CRLF
|
|
JUMP ?CND32
|
|
?ELS34: EQUAL? HERE,RM \?CND32
|
|
EQUAL? HERE,PURLOINED-ROOM \?ELS66
|
|
FSET? MAP-ROOM,VILLAIN /?ELS66
|
|
CALL TREASURE-HERE?,HERE
|
|
ZERO? STACK /?ELS66
|
|
PRINTI "An adventurer peeks into the room, sees the "
|
|
CALL TREASURE-HERE?,HERE
|
|
PRINTD STACK
|
|
PRINTI ", and enters."
|
|
CRLF
|
|
JUMP ?CND32
|
|
?ELS66: PRINTI "A bedraggled adventurer "
|
|
EQUAL? HASTED?,ADVENTURER \?ELS77
|
|
PRINTI "speeds"
|
|
JUMP ?CND75
|
|
?ELS77: PRINTI "walks"
|
|
?CND75: PRINTI " into the room from "
|
|
CALL DIR-FROM,RM,L
|
|
CALL DIR-PRINT,STACK
|
|
CALL DOOR-FROM?,RM,L >OBJ
|
|
ZERO? OBJ /?CND86
|
|
PRINTI ", coming through the "
|
|
PRINTD OBJ
|
|
?CND86: PRINTI "."
|
|
CRLF
|
|
?CND32: MOVE ADVENTURER,RM
|
|
FSET RM,VILLAIN
|
|
EQUAL? RM,PURLOINED-ROOM /FALSE
|
|
CALL ADVENTURER-TAKE,RM
|
|
RSTACK
|
|
|
|
|
|
.FUNCT DOOR-FROM?,HERE,THERE,P,L,TX
|
|
SET 'P,0
|
|
?PRG1: NEXTP HERE,P >P
|
|
ZERO? P /FALSE
|
|
LESS? P,LOW-DIRECTION /?PRG1
|
|
GETPT HERE,P >TX
|
|
PTSIZE TX >L
|
|
EQUAL? L,DEXIT \?PRG1
|
|
GETB TX,REXIT
|
|
EQUAL? STACK,THERE \?PRG1
|
|
GETB TX,DEXITOBJ
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ADVENTURER-TAKE,RM,F,N,TR=0,CNT=0,OBJ
|
|
FIRST? RM >F /?KLU47
|
|
?KLU47:
|
|
?PRG1: ZERO? F \?ELS5
|
|
JUMP ?REP2
|
|
?ELS5: NEXT? F >N /?KLU48
|
|
?KLU48: FSET? F,TAKEBIT \?CND8
|
|
FSET? F,INVISIBLE /?CND8
|
|
EQUAL? F,STRONG-BOX /?CND8
|
|
FSET? F,TREASURE /?THN13
|
|
RANDOM 100
|
|
GRTR? 25,STACK \?CND8
|
|
?THN13: GETP F,P?ADVFCN
|
|
CALL STACK
|
|
ZERO? STACK \?CND8
|
|
MOVE F,ADVENTURER
|
|
INC 'CNT
|
|
SET 'OBJ,F
|
|
FSET? F,TREASURE \?CND15
|
|
SET 'TR,TRUE-VALUE
|
|
?CND15:
|
|
?CND8: SET 'F,N
|
|
JUMP ?PRG1
|
|
?REP2: EQUAL? HERE,RM \FALSE
|
|
GRTR? CNT,0 \FALSE
|
|
PRINTI "The adventurer stoops over and picks up "
|
|
EQUAL? CNT,1 \?ELS32
|
|
PRINTI "the "
|
|
PRINTD OBJ
|
|
JUMP ?CND30
|
|
?ELS32: PRINTI "some objects"
|
|
?CND30: ZERO? TR /?CND39
|
|
PRINTI " and seems pleased by his discovery"
|
|
?CND39: PRINTR "."
|
|
|
|
|
|
.FUNCT DIR-FROM,HERE,THERE,P,L,TX,O
|
|
SET 'P,0
|
|
?PRG1: NEXTP HERE,P >P
|
|
ZERO? P /FALSE
|
|
EQUAL? P,P?IN \?ELS7
|
|
JUMP ?PRG1
|
|
?ELS7: LESS? P,LOW-DIRECTION /?PRG1
|
|
GETPT HERE,P >TX
|
|
PTSIZE TX >L
|
|
EQUAL? L,DEXIT,UEXIT,CEXIT \?PRG1
|
|
GETB TX,REXIT
|
|
EQUAL? STACK,THERE \?PRG1
|
|
RETURN P
|
|
|
|
|
|
.FUNCT DIR-PRINT,DIR,CNT=0
|
|
?PRG1: GET DIR-STRINGS,CNT
|
|
EQUAL? STACK,DIR \?CND3
|
|
EQUAL? DIR,P?UP,P?DOWN /?CND6
|
|
PRINTI "the "
|
|
?CND6: ADD CNT,1
|
|
GET DIR-STRINGS,STACK
|
|
PRINT STACK
|
|
RTRUE
|
|
?CND3: INC 'CNT
|
|
JUMP ?PRG1
|
|
|
|
|
|
.FUNCT ADVENTURER-DECIDE,L,P,S,TX
|
|
NEXTP L,0 >P
|
|
PUT ADV-POSS,0,0
|
|
?PRG1: LESS? P,LOW-DIRECTION \?ELS5
|
|
JUMP ?REP2
|
|
?ELS5: GETPT L,P >TX
|
|
PTSIZE TX >S
|
|
EQUAL? S,UEXIT /?THN11
|
|
EQUAL? S,DEXIT \?ELS14
|
|
GETB TX,DEXITOBJ
|
|
FSET? STACK,LOCKEDBIT \?THN11
|
|
?ELS14: EQUAL? S,CEXIT \?CND3
|
|
GETB TX,CEXITFLAG
|
|
VALUE STACK
|
|
ZERO? STACK /?CND3
|
|
?THN11: GETB TX,REXIT >S
|
|
GET ADV-POSS,0
|
|
ADD STACK,1 >TX
|
|
PUT ADV-POSS,0,TX
|
|
PUT ADV-POSS,TX,S
|
|
?CND3: NEXTP L,P >P
|
|
JUMP ?PRG1
|
|
?REP2: GET ADV-POSS,0 >S
|
|
ZERO? S \?ELS21
|
|
PRINTI "**BUG: Can't move from "
|
|
LOC ADVENTURER
|
|
PRINTD STACK
|
|
PRINTR "!"
|
|
?ELS21: EQUAL? S,1 \?ELS25
|
|
GET ADV-POSS,1
|
|
CALL MOVE-ADVENTURER,STACK
|
|
RSTACK
|
|
?ELS25: SET 'P,0
|
|
?PRG28: IGRTR? 'P,S \?ELS32
|
|
JUMP ?REP29
|
|
?ELS32: GET ADV-POSS,P >TX
|
|
FSET? TX,VILLAIN /?PRG28
|
|
CALL MOVE-ADVENTURER,TX
|
|
RTRUE
|
|
?REP29: CALL RANDOM-ELEMENT,ADV-POSS
|
|
CALL MOVE-ADVENTURER,STACK
|
|
RSTACK
|
|
|
|
|
|
.FUNCT NEXT-HALL,RM,L-R=1,TBL,OFFS=0,NR
|
|
SET 'TBL,HALL-TBL
|
|
?PRG1: GET TBL,OFFS >NR
|
|
EQUAL? NR,RM \?CND3
|
|
ZERO? L-R /?ELS8
|
|
ADD OFFS,1
|
|
GET TBL,STACK
|
|
RSTACK
|
|
?ELS8: SUB OFFS,1
|
|
GET TBL,STACK
|
|
RSTACK
|
|
?CND3: INC 'OFFS
|
|
JUMP ?PRG1
|
|
|
|
|
|
.FUNCT TREASURE-HERE?,RM,F
|
|
FIRST? RM >F /?KLU10
|
|
?KLU10:
|
|
?PRG1: ZERO? F /FALSE
|
|
FSET? F,TREASURE \?ELS7
|
|
RETURN F
|
|
?ELS7: NEXT? F >F /?KLU11
|
|
?KLU11: JUMP ?PRG1
|
|
|
|
|
|
.FUNCT PURLOINED-ROOM-A,TX
|
|
CALL TREASURE-HERE?,PURLOINED-ROOM >TX
|
|
ZERO? TX /?ELS3
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
EQUAL? HERE,PURLOINED-ROOM \FALSE
|
|
MOVE TX,ADVENTURER
|
|
FSET? DOOR-REALITY,INVISIBLE \FALSE
|
|
PRINTI "The adventurer stops to pick up the "
|
|
PRINTD TX
|
|
PRINTI ". As he rises, he casts a cursory glance at the door, then he notices you. "
|
|
ZERO? ADVENTURER-CHARMED /?ELS15
|
|
PRINTI "He smiles at you as he pockets the "
|
|
PRINTD TX
|
|
PRINTI "."
|
|
CRLF
|
|
RFALSE
|
|
?ELS15: PRINTI "He straightens quickly, glaring at you with distrust."
|
|
CRLF
|
|
RFALSE
|
|
?ELS3: ZERO? ADVENTURER-NOTES-DOOR \FALSE
|
|
SET 'ADVENTURER-NOTES-DOOR,TRUE-VALUE
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
FSET? DOOR-REALITY,INVISIBLE \FALSE
|
|
PRINTI "The adventurer glances around the room in a businesslike way and makes a few notes on his map."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT NO-ILLUSIONS
|
|
FSET DOOR-ILLUSION,INVISIBLE
|
|
FCLEAR DOOR-REALITY,INVISIBLE
|
|
FCLEAR DOOR-REALITY,LOCKEDBIT
|
|
FSET DOOR-REALITY,OPENBIT
|
|
SET 'DOOR-ILLUSION-GONE,TRUE-VALUE
|
|
PRINTI "The seemingly fearless adventurer shrugs and walks purposefully toward the door, ignoring all harm to his person in the form of knives, tentacles, and molten lead. As three buckets of the latter pour over his head, he casts you a perplexed look.
|
|
""Did you try the doorknob?"" he asks, as twenty-seven knives delicately skewer him.
|
|
Before you can answer, he reaches for one of the gargoyle heads which, by sheerest coincidence, has just flooded him in red-orange flame, and turns it gently.
|
|
""I think it's unlocked,"" he says, stoically ignoring the host of human-sized rats which feed on his incinerated torso.
|
|
His left hand, broken and bloodied, pulls at the gargoyle head.
|
|
""I'm going on ahead!"" he cries, opening a simple wooden door.
|
|
Wooden door? You rub your eyes for a moment and look again as he goes through it. Yes, just a plain wooden door."
|
|
CRLF
|
|
ADD SCORE,DOOR-POINT >SCORE
|
|
SET 'DOOR-POINT,0
|
|
MOVE ADVENTURER,MAP-ROOM
|
|
SET 'ADVENTURER-STAY,TRUE-VALUE
|
|
RETURN ADVENTURER-STAY
|
|
|
|
.ENDI
|