647 lines
22 KiB
Plaintext
647 lines
22 KiB
Plaintext
|
|
|
|
.FUNCT IRON-DOOR-F
|
|
EQUAL? PRSA,V?THROUGH,V?UNLOCK,V?OPEN \FALSE
|
|
LESS? YEAR,YEAR-PRESENT \?ELS10
|
|
PRINTR "The iron door appears to be locked from the outside."
|
|
?ELS10: PRINTR "The iron door is rusted shut and cannot be opened."
|
|
|
|
|
|
.FUNCT I-CLEFT
|
|
EQUAL? HERE,ZORK-IV,ROOM-8,TIMBER-ROOM /?THN4
|
|
EQUAL? HERE,LOWER-SHAFT,LADDER-BOTTOM,LADDER-TOP \?ELS3
|
|
?THN4: PRINTI "You feel a mild tremor from within the earth which passes quickly."
|
|
CRLF
|
|
JUMP ?CND1
|
|
?ELS3: PRINTI "There is a great tremor from within the earth. The entire dungeon shakes violently and loose debris starts to fall from above you."
|
|
CRLF
|
|
?CND1: EQUAL? HERE,MUSEUM-ANTE \?ELS14
|
|
PRINTI "To the east, to the right of the great iron door, a large cleft opens up, revealing an open area behind!"
|
|
CRLF
|
|
JUMP ?CND12
|
|
?ELS14: EQUAL? HERE,AQ-VIEW \?ELS18
|
|
PRINTI "One of the giant pillars supporting the aqueduct collapses in a pile of smoke and rubble!"
|
|
CRLF
|
|
JUMP ?CND12
|
|
?ELS18: EQUAL? HERE,AQ-2,AQ-3 \?CND12
|
|
PRINTI "The channel beneath your feet trembles. At once, the channel directly to the "
|
|
EQUAL? HERE,AQ-2 \?ELS27
|
|
PRINTI "north"
|
|
JUMP ?CND25
|
|
?ELS27: PRINTI "south"
|
|
?CND25: PRINTI " of you collapses with its supporting pillar and falls into the chasm!"
|
|
CRLF
|
|
?CND12: SET 'CLEFT-FLAG,TRUE-VALUE
|
|
FCLEAR CLEFT,INVISIBLE
|
|
SET 'AQ-FLAG,FALSE-VALUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT CLEFT-F
|
|
EQUAL? YEAR,YEAR-PRESENT /FALSE
|
|
PRINTR "There is no cleft here."
|
|
|
|
|
|
.FUNCT MUSEUM-ANTE-F,RARG
|
|
EQUAL? RARG,M-LOOK \FALSE
|
|
ZERO? CLEFT-FLAG /?ELS10
|
|
PRINTR "This is the south end of a monumental hall, full of dust and debris from a recent earthquake. To the east is a great iron door, rusted shut. To its right, however, is a gaping cleft in the rock and behind, a cleared area."
|
|
?ELS10: PRINTR "You are in the southern half of a monumental hall. To the east lies a tremendous iron door which appears to be rusted shut."
|
|
|
|
|
|
.FUNCT DDESC,STR1,DOOR,STR2
|
|
PRINT STR1
|
|
FSET? DOOR,OPENBIT \?ELS5
|
|
PRINTI "open"
|
|
JUMP ?CND3
|
|
?ELS5: PRINTI "closed"
|
|
?CND3: PRINT STR2
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MUSEUM-ENTRANCE-F,RARG
|
|
EQUAL? RARG,M-LOOK \FALSE
|
|
FSET? CAGE,INVISIBLE \?ELS10
|
|
PRINTR "This seems to be an entrance hall of some sort, judging by the grand iron door to the west, and the ornate stone and wooden doors which lead to the east and north, respectively. A few wide steps lead south."
|
|
?ELS10: PRINTI "This is the entrance to the Royal Museum, the finest and grandest in the Great Underground Empire. To the south, down a few steps, is the entrance to the Royal Puzzle and to the east, through a stone door, is the Royal Jewel Collection. A wooden door to the north is "
|
|
FSET? WOODEN-DOOR,OPENBIT \?ELS23
|
|
PUSH STR?110
|
|
JUMP ?CND19
|
|
?ELS23: PUSH STR?111
|
|
?CND19: PRINT STACK
|
|
PRINTI " and leads to the Museum of Technology. "
|
|
EQUAL? YEAR,YEAR-PRESENT \?ELS30
|
|
PRINTR "To the west is a great iron door, rusted shut. To its left, however, is a cleft in the rock providing a western route away from the museum."
|
|
?ELS30: LESS? YEAR,YEAR-PRESENT \?ELS34
|
|
PRINTR "To the west is a great iron door, which is rusted shut."
|
|
?ELS34: PRINTR "To the west is a great iron door, rusted shut. The cleft in the rock, present when you started, has filled in with rubble."
|
|
|
|
|
|
.FUNCT TIME-MACHINE-F,RARG=0
|
|
EQUAL? RARG,M-OBJDESC \?ELS5
|
|
PRINTI "Directly in front of you is a large golden machine, which has a seat with a console in front. On the console is a single button and a dial connected to a three-digit display which reads "
|
|
PRINTN TM-YEAR
|
|
PRINTR ". The machine is suprisingly shiny and shows few signs of age."
|
|
?ELS5: EQUAL? RARG,M-END \?ELS9
|
|
EQUAL? PRSA,V?PUT \?ELS9
|
|
EQUAL? PRSI,TIME-MACHINE \?ELS9
|
|
PRINTR "You can't put anything on or inside the machine itself."
|
|
?ELS9: EQUAL? RARG,M-BEG \?ELS15
|
|
EQUAL? PRSA,V?MOVE \?ELS15
|
|
PRINTR "You might be able to move the machine by pushing it."
|
|
?ELS15: EQUAL? RARG,M-BEG \?ELS21
|
|
EQUAL? PRSA,V?PUSH-TO \?ELS21
|
|
EQUAL? PRSO,TIME-MACHINE \?ELS21
|
|
PRINTR "That would be a good trick from inside it."
|
|
?ELS21: EQUAL? RARG,M-END \?ELS27
|
|
EQUAL? PRSO,TIME-MACHINE \?ELS27
|
|
EQUAL? PRSA,V?EXAMINE \?ELS34
|
|
PRINTI "The machine consists of a seat and a console containing one small button and a dial connected to a display which reads "
|
|
PRINTN TM-YEAR
|
|
PRINTR "."
|
|
?ELS34: EQUAL? PRSA,V?BOARD \?ELS38
|
|
FIRST? TM-SEAT \?ELS38
|
|
PRINTR "That will be somewhat uncomfortable!"
|
|
?ELS38: EQUAL? PRSA,V?RAISE,V?TAKE \?ELS44
|
|
PRINTR "The machine must weigh hundreds of pounds and cannot be carried."
|
|
?ELS44: EQUAL? PRSA,V?PUSH \?ELS48
|
|
PRINTR "You should specify in which direction to push the machine."
|
|
?ELS48: EQUAL? PRSA,V?PUSH-TO \FALSE
|
|
CALL DO-WALK,P-DIRECTION
|
|
EQUAL? STACK,M-FATAL /TRUE
|
|
PRINTI "With some effort, you push the machine into the room with you."
|
|
CRLF
|
|
EQUAL? HERE,CP-ANTE,MID-CP-ANTE \?ELS60
|
|
PRINTI "However, the machine seems to have sustained some damage as a result of going over the stairs."
|
|
CRLF
|
|
SET 'MACHINE-DAMAGED,TRUE-VALUE
|
|
JUMP ?CND58
|
|
?ELS60: EQUAL? HERE,MUSEUM-ANTE \?CND58
|
|
PRINTI "Pushing the machine through the cleft seems to have damaged it."
|
|
CRLF
|
|
SET 'MACHINE-DAMAGED,TRUE-VALUE
|
|
?CND58: MOVE TIME-MACHINE,HERE
|
|
RTRUE
|
|
?ELS27: EQUAL? RARG,M-BEG \FALSE
|
|
EQUAL? PRSA,V?WALK \?ELS70
|
|
PRINTR "You're not going anywhere in this heap."
|
|
?ELS70: EQUAL? PRSA,V?CLOSE,V?OPEN,V?PUSH /?THN77
|
|
EQUAL? PRSA,V?MOVE,V?PUT,V?TAKE \FALSE
|
|
?THN77: CALL HELD?,PRSO
|
|
ZERO? STACK \FALSE
|
|
IN? PRSO,TIME-MACHINE /FALSE
|
|
PRINTR "You can't do that from inside the machine."
|
|
|
|
|
|
.FUNCT TM-SEAT-F
|
|
EQUAL? PRSA,V?BOARD,V?CLIMB-ON \?ELS5
|
|
CALL PERFORM,V?BOARD,TIME-MACHINE
|
|
RTRUE
|
|
?ELS5: EQUAL? PRSA,V?PUT-BEHIND,V?PUT-UNDER \?ELS7
|
|
EQUAL? PRSI,TM-SEAT \?ELS7
|
|
EQUAL? PRSO,RING \?ELS14
|
|
PRINTI "The ring is concealed underneath the seat."
|
|
CRLF
|
|
SET 'RING-CONCEALED,TRUE-VALUE
|
|
REMOVE RING
|
|
RTRUE
|
|
?ELS14: PRINTR "It's too big to hide under the seat."
|
|
?ELS7: EQUAL? PRSA,V?RUB \?ELS22
|
|
PRINTR "There's nothing odd about the feel of the seat."
|
|
?ELS22: EQUAL? PRSA,V?MOVE,V?RAISE,V?LOOK-UNDER \FALSE
|
|
ZERO? RING-CONCEALED /?ELS31
|
|
PRINTI "You find the ring under the seat and put it on your finger."
|
|
CRLF
|
|
MOVE RING,WINNER
|
|
SET 'RING-CONCEALED,FALSE-VALUE
|
|
RTRUE
|
|
?ELS31: PRINTR "You notice a small hollow area under the seat."
|
|
|
|
|
|
.FUNCT TM-DIAL-F
|
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
|
PRINTI "The dial is set to "
|
|
PRINTN TM-YEAR
|
|
PRINTR "."
|
|
?ELS5: EQUAL? PRSA,V?TURN \FALSE
|
|
EQUAL? PRSI,INTNUM \?ELS14
|
|
GRTR? P-NUMBER,999 \?ELS19
|
|
PRINTR "You can't set it beyond 999."
|
|
?ELS19: SET 'TM-YEAR,P-NUMBER
|
|
PRINTI "The dial is set to "
|
|
PRINTN TM-YEAR
|
|
PRINTR "."
|
|
?ELS14: ZERO? PRSI \?ELS27
|
|
PRINTR "You have to say what to turn it to!"
|
|
?ELS27: PRINTR "You can't do that!"
|
|
|
|
|
|
.FUNCT TM-BUTTON-F
|
|
EQUAL? PRSA,V?PUSH \FALSE
|
|
EQUAL? TM-YEAR,YEAR-BUILT \?CND6
|
|
ZERO? TM-POINT \?CND6
|
|
INC 'SCORE
|
|
SET 'TM-POINT,TRUE-VALUE
|
|
?CND6: ZERO? MACHINE-DAMAGED \?THN16
|
|
IN? WINNER,TIME-MACHINE /?ELS15
|
|
?THN16: PRINTR "Nothing seems to have happened."
|
|
?ELS15: LESS? TM-YEAR,YEAR-BUILT \?ELS21
|
|
CALL REALLY-DEAD,STR?112
|
|
RSTACK
|
|
?ELS21: EQUAL? YEAR,TM-YEAR \?ELS23
|
|
PRINTR "Nothing seems to have happened."
|
|
?ELS23: LESS? TM-YEAR,YEAR-CLOSED \?ELS27
|
|
PRINTI "You experience a brief period of disorientation. When your vision returns,"
|
|
EQUAL? HERE,MUSEUM-ENTRANCE,MID-MUSEUM-ENTRANCE,OLD-MUSEUM-ENTRANCE \?ELS34
|
|
EQUAL? TM-YEAR,YEAR-CAGED \?ELS39
|
|
PRINTI " you are surrounded by a number of heavily armed guards, the dress and speech of which seem strange and unfamiliar. A commotion starts at a door to the east and a person with a flat head, wearing a gaudy crown and a purple robe, bursts into the room."
|
|
CRLF
|
|
CALL FLATHEAD-SENTENCE
|
|
RSTACK
|
|
?ELS39: CALL GUARDS-KILL
|
|
RSTACK
|
|
?ELS34: EQUAL? HERE,JEWEL-ROOM,MID-JEWEL-ROOM,OLD-JEWEL-ROOM \?ELS45
|
|
EQUAL? TM-YEAR,YEAR-CAGED \?ELS50
|
|
PRINTI " you find yourself in the middle of some kind of ceremony, with a strange flat-headed man wearing royal vestments about to break a bottle on the bars of an iron cage containing magnificent jewels. He appears somewhat pleased by your presence. "
|
|
CALL FLATHEAD-SENTENCE
|
|
RSTACK
|
|
?ELS50: GRTR? TM-YEAR,YEAR-CAGED \?ELS54
|
|
CALL GUARDS-KILL
|
|
RSTACK
|
|
?ELS54: PRINTI " your surroundings appear to have changed. From outside the door you hear the sounds of guards talking."
|
|
CRLF
|
|
CALL TGOTO,OLD-JEWEL-ROOM
|
|
RSTACK
|
|
?ELS45: EQUAL? HERE,TECH-MUSEUM,MID-TECH-MUSEUM,OLD-TECH-MUSEUM \FALSE
|
|
EQUAL? TM-YEAR,YEAR-BUILT /?ELS65
|
|
CALL GUARDS-KILL
|
|
RSTACK
|
|
?ELS65: PRINTI " your surroundings appear to have changed. From outside the door you hear the sounds of guards talking."
|
|
CRLF
|
|
CALL TGOTO,OLD-TECH-MUSEUM
|
|
RSTACK
|
|
?ELS27: CALL HAPPY-NEW-YEAR
|
|
RSTACK
|
|
|
|
|
|
.FUNCT HAPPY-NEW-YEAR
|
|
PRINTI "You experience a brief period of disorientation. When your vision returns, your surroundings appear somewhat altered."
|
|
CRLF
|
|
EQUAL? HERE,OLD-JEWEL-ROOM,MID-JEWEL-ROOM,JEWEL-ROOM \?ELS7
|
|
LESS? TM-YEAR,YEAR-PRESENT \?ELS12
|
|
CALL TGOTO,MID-JEWEL-ROOM
|
|
RSTACK
|
|
?ELS12: CALL TGOTO,JEWEL-ROOM
|
|
RSTACK
|
|
?ELS7: EQUAL? HERE,OLD-TECH-MUSEUM,MID-TECH-MUSEUM,TECH-MUSEUM \?ELS16
|
|
LESS? TM-YEAR,YEAR-PRESENT \?ELS21
|
|
CALL TGOTO,MID-TECH-MUSEUM
|
|
RSTACK
|
|
?ELS21: CALL TGOTO,TECH-MUSEUM
|
|
RSTACK
|
|
?ELS16: LESS? TM-YEAR,YEAR-PRESENT \?ELS25
|
|
CALL TGOTO,MID-MUSEUM-ENTRANCE
|
|
RSTACK
|
|
?ELS25: CALL TGOTO,MUSEUM-ENTRANCE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT I-SNAP
|
|
EQUAL? YEAR,YEAR-PRESENT /FALSE
|
|
SET 'TM-YEAR,YEAR-PRESENT
|
|
PRINTI "You start to feel light-headed and, before you can even think, you become completely disoriented. When you regain your faculties, you realize that your surroundings have changed."
|
|
CRLF
|
|
CALL TGOTO,SNAP-LOC,TRUE-VALUE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT MOVE-JEWELS
|
|
ZERO? RING-STOLEN \TRUE
|
|
EQUAL? TM-YEAR,YEAR-BUILT \?ELS7
|
|
MOVE PEDESTAL,OLD-JEWEL-ROOM
|
|
JUMP ?CND5
|
|
?ELS7: LESS? TM-YEAR,YEAR-PRESENT \?ELS9
|
|
MOVE PEDESTAL,MID-JEWEL-ROOM
|
|
JUMP ?CND5
|
|
?ELS9: MOVE PEDESTAL,JEWEL-ROOM
|
|
?CND5: MOVE SCEPTRE,PEDESTAL
|
|
FSET SCEPTRE,NDESCBIT
|
|
MOVE JEWELLED-KNIFE,PEDESTAL
|
|
FSET JEWELLED-KNIFE,NDESCBIT
|
|
ZERO? RING-CONCEALED \FALSE
|
|
MOVE RING,PEDESTAL
|
|
FSET RING,NDESCBIT
|
|
RTRUE
|
|
|
|
|
|
.FUNCT TGOTO,RM=0,SNAP=0
|
|
INC 'MOVES
|
|
CALL QUEUE,I-GUARDS-LEAVE,0
|
|
SET 'INVIS,FALSE-VALUE
|
|
GRTR? YEAR,YEAR-BUILT \?CND1
|
|
SET 'GUARDS-PRESENT,TRUE-VALUE
|
|
?CND1: EQUAL? YEAR,YEAR-PRESENT \?CND4
|
|
SET 'SNAP-LOC,HERE
|
|
CALL QUEUE,I-SNAP,40
|
|
PUT STACK,0,1
|
|
?CND4: EQUAL? TM-YEAR,YEAR-PRESENT \?ELS9
|
|
SET 'CLEFT-FLAG,TRUE-VALUE
|
|
JUMP ?CND7
|
|
?ELS9: SET 'CLEFT-FLAG,FALSE-VALUE
|
|
?CND7: FCLEAR JEWEL-DOOR,OPENBIT
|
|
FCLEAR WOODEN-DOOR,OPENBIT
|
|
FCLEAR IRON-DOOR,OPENBIT
|
|
EQUAL? YEAR,YEAR-BUILT \?CND12
|
|
ZERO? RING-CONCEALED /?ELS17
|
|
IN? TIME-MACHINE,OLD-TECH-MUSEUM \?ELS17
|
|
IN? SCEPTRE,PEDESTAL \?ELS17
|
|
IN? JEWELLED-KNIFE,PEDESTAL \?ELS17
|
|
SET 'RING-STOLEN,TRUE-VALUE
|
|
FSET CAGE,INVISIBLE
|
|
FSET PEDESTAL,INVISIBLE
|
|
REMOVE SCEPTRE
|
|
REMOVE JEWELLED-KNIFE
|
|
JUMP ?CND12
|
|
?ELS17: IN? TIME-MACHINE,OLD-TECH-MUSEUM \?THN22
|
|
ZERO? RING-CONCEALED /?ELS21
|
|
?THN22: SET 'CLUMSY-ROBBERY,TRUE-VALUE
|
|
REMOVE TIME-MACHINE
|
|
JUMP ?CND12
|
|
?ELS21: IN? RING,PEDESTAL \?THN26
|
|
IN? SCEPTRE,PEDESTAL \?THN26
|
|
IN? JEWELLED-KNIFE,PEDESTAL /?CND12
|
|
?THN26: SET 'MYSTERY,TRUE-VALUE
|
|
?CND12: EQUAL? TM-YEAR,YEAR-BUILT \?CND28
|
|
SET 'MYSTERY,FALSE-VALUE
|
|
SET 'CLUMSY-ROBBERY,FALSE-VALUE
|
|
?CND28: SET 'YEAR,TM-YEAR
|
|
CALL MOVE-TM-OBJECTS
|
|
CALL MOVE-JEWELS
|
|
MOVE WINNER,HERE
|
|
CALL GOTO,RM,FALSE-VALUE
|
|
EQUAL? YEAR,YEAR-BUILT \?ELS33
|
|
MOVE TIME-MACHINE,OLD-TECH-MUSEUM
|
|
MOVE SPINNER,OLD-TECH-MUSEUM
|
|
MOVE PRESSURIZER,OLD-TECH-MUSEUM
|
|
MOVE TECH-PLAQUE,OLD-TECH-MUSEUM
|
|
JUMP ?CND31
|
|
?ELS33: LESS? YEAR,YEAR-PRESENT \?ELS35
|
|
ZERO? CLUMSY-ROBBERY \?CND36
|
|
MOVE TIME-MACHINE,MID-TECH-MUSEUM
|
|
?CND36: MOVE SPINNER,MID-TECH-MUSEUM
|
|
MOVE PRESSURIZER,MID-TECH-MUSEUM
|
|
MOVE TECH-PLAQUE,MID-TECH-MUSEUM
|
|
MOVE CAGE,MID-JEWEL-ROOM
|
|
JUMP ?CND31
|
|
?ELS35: MOVE TIME-MACHINE,TECH-MUSEUM
|
|
MOVE SPINNER,TECH-MUSEUM
|
|
MOVE PRESSURIZER,TECH-MUSEUM
|
|
MOVE TECH-PLAQUE,TECH-MUSEUM
|
|
MOVE CAGE,JEWEL-ROOM
|
|
?CND31: ZERO? CLUMSY-ROBBERY \?THN44
|
|
EQUAL? HERE,TECH-MUSEUM,MID-TECH-MUSEUM,OLD-TECH-MUSEUM /?ELS43
|
|
?THN44: ZERO? SNAP \?CND41
|
|
PRINTI "You notice that the golden machine has disappeared!"
|
|
CRLF
|
|
JUMP ?CND41
|
|
?ELS43: MOVE WINNER,TIME-MACHINE
|
|
?CND41: ZERO? CLUMSY-ROBBERY /TRUE
|
|
REMOVE TIME-MACHINE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MOVE-TM-OBJECTS,F,MFLG=0,WFLG=0,N
|
|
FIRST? TIME-MACHINE >F /?KLU53
|
|
?KLU53: ZERO? F /?CND1
|
|
?PRG5: EQUAL? F,TM-DIAL,TM-SEAT,TM-BUTTON /?CND7
|
|
EQUAL? F,PLAYER \?ELS9
|
|
JUMP ?CND7
|
|
?ELS9: ZERO? MFLG \?CND7
|
|
SET 'MFLG,TRUE-VALUE
|
|
PRINTI "You notice that everything in the machine is gone"
|
|
?CND7: NEXT? F >N /?KLU54
|
|
?KLU54: EQUAL? F,TM-DIAL,TM-SEAT,TM-BUTTON /?CND16
|
|
MOVE F,HERE
|
|
?CND16: SET 'F,N
|
|
ZERO? F \?PRG5
|
|
?CND1: FIRST? WINNER >F /?KLU55
|
|
?KLU55: ZERO? F /?CND22
|
|
?PRG26: ZERO? WFLG \?CND28
|
|
SET 'WFLG,TRUE-VALUE
|
|
ZERO? MFLG /?ELS33
|
|
PRINTI ": come to mention it, everything you were holding has vanished too"
|
|
JUMP ?CND28
|
|
?ELS33: PRINTI "You notice that everything you were holding is gone"
|
|
?CND28: NEXT? F >N /?KLU56
|
|
?KLU56: MOVE F,HERE
|
|
SET 'F,N
|
|
ZERO? F \?PRG26
|
|
?CND22: ZERO? MFLG \?THN49
|
|
ZERO? WFLG /FALSE
|
|
?THN49: PRINTR "!"
|
|
|
|
|
|
.FUNCT GUARDS-KILL
|
|
CALL PICK-ONE,GUARD-KILLERS
|
|
PRINT STACK
|
|
CRLF
|
|
CALL REALLY-DEAD,STR?9
|
|
RSTACK
|
|
|
|
|
|
.FUNCT FLATHEAD-SENTENCE
|
|
CALL REALLY-DEAD,STR?116
|
|
RSTACK
|
|
|
|
|
|
.FUNCT REALLY-DEAD,STR
|
|
PRINT STR
|
|
CRLF
|
|
PRINTI "
|
|
|
|
** You have died **
|
|
|
|
"
|
|
QUIT
|
|
RTRUE
|
|
|
|
|
|
.FUNCT HEAR-FLATHEAD
|
|
SET 'FLATHEAD-HEARD,TRUE-VALUE
|
|
PRINTR "One particularly loud and grating voice can now be heard above the others outside the room. ""Very nice! Very nice! Not enough security, but very nice! Now, Lord Feepness, pay attention! I've been thinking and what we need is a dam, a tremendous dam to control the Frigid River, with thousands of gates. Yes! I can see it now. We shall call it ... Flood Control Dam #2. No, not quite right. Aha! It will be Flood Control Dam #3."" ""Pardon me, my Lord, but wouldn't that be just a tad excessive?"" ""Nonsense! Now, let me tell you my idea for hollowing out volcanoes..."" With that, the voices trail out into nothingness."
|
|
|
|
|
|
.FUNCT OLD-TECH-MUSEUM-F,RARG
|
|
EQUAL? RARG,M-LOOK \?ELS5
|
|
EQUAL? HERE,OLD-JEWEL-ROOM \?ELS5
|
|
PRINTI "You are in a high-ceilinged chamber, in the center of which is a pedestal which "
|
|
ZERO? RING-STOLEN \?ELS12
|
|
PRINTI "is the intended home of the Crown Jewels of the Great Underground Empire: a jewelled knife, a golden ring, and the royal sceptre."
|
|
IN? SCEPTRE,PEDESTAL \?THN18
|
|
IN? RING,PEDESTAL \?THN18
|
|
IN? JEWELLED-KNIFE,PEDESTAL /?CND10
|
|
?THN18: PRINTI " Not all of the jewels are in place, however."
|
|
JUMP ?CND10
|
|
?ELS12: PRINTI "is bare."
|
|
?CND10: PRINTI " The room is, by appearances, unfinished."
|
|
CRLF
|
|
ZERO? GUARDS-PRESENT /TRUE
|
|
PRINTR "Through the door you can hear voices which, from their sound, belong to military or police personnel."
|
|
?ELS5: EQUAL? RARG,M-LOOK \?ELS35
|
|
EQUAL? HERE,OLD-TECH-MUSEUM \?ELS38
|
|
PRINTI "You are in a large, unfinished room, probably intended to be a part of the Royal Museum."
|
|
CRLF
|
|
JUMP ?CND36
|
|
?ELS38: PRINTI "This appears to be an unfinished entranceway to the Royal Museum. There are doors to the east and north, and a blind stairway to the south. A heavy iron door to the west is closed and locked."
|
|
CRLF
|
|
?CND36: ZERO? GUARDS-PRESENT /TRUE
|
|
PRINTR "Through the door you can hear voices which, from their sound, belong to military or police personnel."
|
|
?ELS35: EQUAL? RARG,M-END \?ELS52
|
|
ZERO? FLATHEAD-HEARD \?ELS52
|
|
ZERO? GUARDS-PRESENT /?ELS52
|
|
RANDOM 100
|
|
GRTR? 6,STACK \?ELS52
|
|
CALL HEAR-FLATHEAD
|
|
RSTACK
|
|
?ELS52: EQUAL? RARG,M-ENTER \?ELS56
|
|
ZERO? GUARDS-PRESENT /?ELS56
|
|
RANDOM 12
|
|
ADD 3,STACK
|
|
CALL QUEUE,I-GUARDS-LEAVE,STACK
|
|
PUT STACK,0,1
|
|
RTRUE
|
|
?ELS56: EQUAL? RARG,M-BEG \?ELS60
|
|
EQUAL? PRSA,V?OPEN \?ELS60
|
|
EQUAL? PRSO,WOODEN-DOOR,JEWEL-DOOR \?ELS60
|
|
ZERO? GUARDS-PRESENT /?ELS60
|
|
PRINTR "You open the door ever so slightly and see dozens of armed officials. You shut the door quickly and quietly, realizing that you would be killed in an instant if you left the room."
|
|
?ELS60: EQUAL? RARG,M-BEG \FALSE
|
|
ZERO? GUARDS-PRESENT /FALSE
|
|
RANDOM 100
|
|
GRTR? 3,STACK \FALSE
|
|
CALL GUARD-CAUGHT
|
|
RSTACK
|
|
|
|
|
|
.FUNCT I-GUARDS-LEAVE
|
|
SET 'GUARDS-PRESENT,FALSE-VALUE
|
|
PRINTR "You hear, from outside the door, guards marching away, their voices fading. After a few moments, a booming crash signals the close of what must be a tremendous door. Then there is silence."
|
|
|
|
|
|
.FUNCT GUARD-CAUGHT
|
|
CALL REALLY-DEAD,STR?117
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ROBOT-F
|
|
EQUAL? PRSA,V?FOLLOW \?ELS5
|
|
PRINTR "It moved very quickly and left the door closed."
|
|
?ELS5: PRINTR "There is no robot here."
|
|
|
|
|
|
.FUNCT JEWEL-ROOM-F,RARG
|
|
EQUAL? RARG,M-END \?ELS5
|
|
IN? TIME-MACHINE,HERE \?ELS5
|
|
RANDOM 100
|
|
GRTR? 4,STACK \?ELS5
|
|
PRINTI "An odd robot-like device glides into the room, dusting the floor as it moves. Its head gyrates briefly as it scans the machine. ""Shame. Shame,"" it says, rather tinnily. ""Someone has been tampering with the machines again."" Six beady mechanical eyes focus on you as the robot picks up the gold machine. ""Hands off, adventurer!"" are its last words as it leaves the room, closing the door behind it."
|
|
CRLF
|
|
FCLEAR JEWEL-DOOR,OPENBIT
|
|
FCLEAR WOODEN-DOOR,OPENBIT
|
|
MOVE TIME-MACHINE,TECH-MUSEUM
|
|
RTRUE
|
|
?ELS5: EQUAL? RARG,M-LOOK \FALSE
|
|
PRINTI "You are in a high-ceilinged chamber"
|
|
FSET? CAGE,INVISIBLE /?ELS18
|
|
PRINTR " in the middle of which sits a tall, round steel cage, which is securely locked. In the middle of the cage is a pedestal on which sit the Crown Jewels of the Great Underground Empire: a sceptre, a jewelled knife, and a golden ring. A small bronze plaque, now tarnished, is on the cage."
|
|
?ELS18: PRINTR " in the middle of which is a bare pedestal. The room is unfinished with no indication of its purpose. A small plaque is fastened to a wall."
|
|
|
|
|
|
.FUNCT CROWN-JEWELS-F
|
|
EQUAL? PRSA,V?TAKE \?ELS5
|
|
CALL HELD?,PRSO
|
|
ZERO? STACK \FALSE
|
|
EQUAL? YEAR,YEAR-BUILT /?THN13
|
|
FSET? CAGE,INVISIBLE \?ELS12
|
|
?THN13: FCLEAR PRSO,NDESCBIT
|
|
RFALSE
|
|
?ELS12: PRINTR "The jewels are inside a locked cage."
|
|
?ELS5: EQUAL? PRSA,V?PUT \?ELS20
|
|
EQUAL? PRSI,PEDESTAL \?ELS20
|
|
IN? PRSO,WINNER \?ELS20
|
|
PRINTI "The "
|
|
PRINTD PRSO
|
|
PRINTI " is now resting on the pedestal."
|
|
CRLF
|
|
MOVE PRSO,PEDESTAL
|
|
FSET PRSO,NDESCBIT
|
|
RTRUE
|
|
?ELS20: EQUAL? PRSA,V?PUT \FALSE
|
|
CALL HELD?,PRSO
|
|
ZERO? STACK \FALSE
|
|
PRINTI "You don't have the "
|
|
PRINTD PRSO
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT TECH-MUSEUM-F,RARG
|
|
EQUAL? RARG,M-LOOK \FALSE
|
|
FSET? CAGE,INVISIBLE \?ELS10
|
|
CALL DDESC,STR?118,WOODEN-DOOR,STR?119
|
|
RSTACK
|
|
?ELS10: CALL DDESC,STR?120,WOODEN-DOOR,STR?119
|
|
RSTACK
|
|
|
|
|
|
.FUNCT PLAQUE-F
|
|
EQUAL? PRSA,V?READ,V?EXAMINE \FALSE
|
|
ZERO? RING-STOLEN /?CND6
|
|
PRINTR "The plaque explains that this room was to be the home of the Crown Jewels of the Great Underground Empire. However, following the unexplained disappearance of a priceless ring during the final stages of construction, Lord Flathead decided to place the remaining jewels in a safer location. Interestingly enough, he distrusted museum security enough to place his prized possesion, an incredibly gaudy crown, within a locked safe in a volcano specifically hollowed out for that purpose."
|
|
?CND6: GET 0,8
|
|
BOR STACK,2
|
|
PUT 0,8,STACK
|
|
PRINTI "
|
|
Crown Jewels
|
|
|
|
Presented To The Royal Museum
|
|
By His Gracious Lord
|
|
|
|
DIMWIT FLATHEAD
|
|
|
|
|
|
Dedicated
|
|
* 777 GUE *
|
|
|
|
"
|
|
GET 0,8
|
|
BAND STACK,-3
|
|
PUT 0,8,STACK
|
|
ZERO? CLUMSY-ROBBERY /?ELS16
|
|
PRINTR "Underneath the plaque, in small lettering, is a description of a clumsy attempt to steal the jewels using a time travel device from the Technological Museum which the curators were surprised to discover was not a non-working model. After the attempt, the machine was removed from the exhibit."
|
|
?ELS16: ZERO? MYSTERY /TRUE
|
|
PRINTR "Underneath the plaque, in small lettering, is a description of a mysterious happening during the final stages of construction of the Museum, in which some of the crown jewels were found displaced from their proper positions. Fortunately, nothing was missing. The mystery was never solved and the museum was opened despite the objections of Lord Flathead that security was too lax."
|
|
|
|
|
|
.FUNCT WOODEN-DOOR-F
|
|
EQUAL? PRSA,V?LISTEN \?ELS5
|
|
ZERO? GUARDS-PRESENT /?ELS5
|
|
CALL PERFORM,V?LISTEN,VOICES
|
|
RTRUE
|
|
?ELS5: EQUAL? PRSA,V?KNOCK \FALSE
|
|
ZERO? GUARDS-PRESENT /FALSE
|
|
PRINTR "You realize that calling attention to yourself would be fatal."
|
|
|
|
|
|
.FUNCT JEWEL-DOOR-F
|
|
EQUAL? PRSA,V?KNOCK \?ELS5
|
|
ZERO? GUARDS-PRESENT /?ELS5
|
|
CALL PERFORM,V?KNOCK,WOODEN-DOOR
|
|
RTRUE
|
|
?ELS5: EQUAL? PRSA,V?UNLOCK,V?OPEN \FALSE
|
|
FSET? JEWEL-DOOR,OPENBIT \?ELS14
|
|
PRINTR "It is already open."
|
|
?ELS14: EQUAL? YEAR,YEAR-BUILT \?ELS18
|
|
EQUAL? HERE,OLD-MUSEUM-ENTRANCE \?ELS18
|
|
PRINTR "The door is locked, probably by the guards on their way out."
|
|
?ELS18: PRINTI "The door is now open."
|
|
CRLF
|
|
FSET JEWEL-DOOR,OPENBIT
|
|
RTRUE
|
|
|
|
|
|
.FUNCT CAGE-F
|
|
EQUAL? PRSA,V?OPEN \?ELS5
|
|
PRINTR "The cage is locked."
|
|
?ELS5: EQUAL? PRSA,V?CLOSE \FALSE
|
|
PRINTR "The cage is already closed."
|
|
|
|
|
|
.FUNCT VOICES-F
|
|
ZERO? GUARDS-PRESENT /?ELS5
|
|
EQUAL? YEAR,YEAR-BUILT \?ELS5
|
|
PRINTI "The voices are muffled by the door which (fortunately for you) separates you. They seem to be in heated debate on the topic of "
|
|
CALL PICK-ONE,BLATHER
|
|
PRINT STACK
|
|
PRINTR "."
|
|
?ELS5: PRINTR "Are you hearing things now?"
|
|
|
|
|
|
.FUNCT MUSEUM-PIECES,RARG=0
|
|
EQUAL? RARG,M-OBJDESC \?ELS5
|
|
EQUAL? DESC-OBJECT,SPINNER /TRUE
|
|
PRINTI "A strange grey machine, shaped somewhat like a clothes dryer, is on one side of the room. On the other side of the hall is a powerful-looking black machine, a tight tangle of wires, pipes, and motors.
|
|
A plaque is mounted near the door."
|
|
LESS? YEAR,YEAR-CLOSED \?ELS15
|
|
PRINTR " The grey machine, it turns out, is a Frobozz Magic Pressurizer, used in the coal mines of the Empire. The black machine is a Frobozz Magic Room Spinner. The golden machine is referred to as a Temporizer. All are non-working models donated by Frobozzco president John D. Flathead."
|
|
?ELS15: PRINTR " The writing is faded, however, and cannot be made out clearly. The two machines seem to be in bad shape, rusting in many spots."
|
|
?ELS5: EQUAL? PRSA,V?MOVE,V?TAKE \?ELS23
|
|
PRINTR "It's massive and cannot even be moved."
|
|
?ELS23: EQUAL? PRSA,V?PUSH-TO,V?PUSH \?ELS27
|
|
PRINTR "It's too heavy to be pushed."
|
|
?ELS27: EQUAL? PRSA,V?MUNG \?ELS31
|
|
PRINTR "It seems quite indestructible."
|
|
?ELS31: EQUAL? PRSA,V?PUT \FALSE
|
|
EQUAL? PRSI,SPINNER,PRESSURIZER \FALSE
|
|
PRINTR "There's no good place to put anything there."
|
|
|
|
|
|
.FUNCT TECH-PLAQUE-F
|
|
EQUAL? PRSA,V?TAKE \?ELS5
|
|
PRINTR "It's bolted to the wall."
|
|
?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE
|
|
LESS? YEAR,YEAR-CLOSED \?ELS14
|
|
PRINTR "The plaque merely identifies the machines and names their donor. They are non-working models of existing state-of-the-art machinery."
|
|
?ELS14: PRINTR "The words cannot be made out."
|
|
|
|
|
|
.FUNCT PEDESTAL-F
|
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
|
FIRST? PEDESTAL \FALSE
|
|
PRINTR "The Royal Jewels are on the pedestal."
|
|
?ELS5: EQUAL? PRSA,V?TAKE,V?PUT-ON,V?PUT \FALSE
|
|
FSET? CAGE,INVISIBLE /FALSE
|
|
PRINTR "You can't reach it through the cage."
|
|
|
|
.ENDI
|