"1DUNGEON for
Zork I: The Great Underground Empire
(c) Copyright 1983 Infocom, Inc. All Rights Reserved."
<DIRECTIONS NORTH EAST WEST SOUTH NE NW SE SW UP DOWN IN OUT LAND>
<GLOBAL SCORE-MAX 350>
Always false. See KITCHEN.
"SUBTITLE OBJECTS"
<OBJECT BOARD
(IN LOCAL-GLOBALS)
(SYNONYM BOARDS BOARD)
(DESC "board")
(FLAGS NDESCBIT)
(ACTION BOARD-F)>
Why teeth? Because you can BRUSH TEETH, which isn’t interesting, but then you can BRUSH TEETH WITH GUNK, because the tube is described as “like a tube of toothpaste”. Spoiler: it’s a bad idea.
(IN GLOBAL-OBJECTS)
But why is OVERBOARD listed as a synonym of TEETH? Because the game accepts THROW OBJECT OVERBOARD (if you’re in the boat), and it does it by a terrible hack.
The grammar table includes THROW OBJECT OBJECT. The V-OVERBOARD routine then checks whether the second object is the TEETH. The TEETH are global, meaning they’re always available. By sneaking the synonym OVERBOARD into the teeth, the game can check the validity of that second word without defining a whole new object.
(DESC "set of teeth")
(FLAGS NDESCBIT)
(ACTION TEETH-F)>
<OBJECT WALL
(IN GLOBAL-OBJECTS)
(SYNONYM WALL WALLS)
(ADJECTIVE SURROUNDING)
(DESC "surrounding wall")>
This object is global, but the granite wall is described as being between the NORTH-TEMPLE and the TREASURE-ROOM. And then the SLIDE-ROOM has the words “Granite Wall”.
What’s going on? Well, it turns out that you can transport yourself through the granite wall. Typing the magic word TREASURE (or TEMPLE) will move you from the NORTH-TEMPLE to the TREASURE-ROOM and back. This is completely ridiculous as a puzzle – nobody figures it out – so it’s good that there are two other ways to get past the CYCLOPS.
(IN GLOBAL-OBJECTS)
(SYNONYM WALL)
(ADJECTIVE GRANITE)
(DESC "granite wall")
(ACTION GRANITE-WALL-F)>
The songbird is always present but never in reach. Except when using the CANARY, and even then the bird flies away before you can interact with it.
(IN LOCAL-GLOBALS)
(SYNONYM BIRD SONGBIRD)
(ADJECTIVE SONG)
(DESC "songbird")
(FLAGS NDESCBIT)
(ACTION SONGBIRD-F)>
<OBJECT WHITE-HOUSE
(IN LOCAL-GLOBALS)
(SYNONYM HOUSE)
(ADJECTIVE WHITE BEAUTI COLONI)
(DESC "white house")
(FLAGS NDESCBIT)
(ACTION WHITE-HOUSE-F)>
<OBJECT FOREST
(IN LOCAL-GLOBALS)
(SYNONYM FOREST TREES PINES HEMLOCKS)
(DESC "forest")
(FLAGS NDESCBIT)
(ACTION FOREST-F)>
<OBJECT TREE
(IN LOCAL-GLOBALS)
(SYNONYM TREE BRANCH)
(ADJECTIVE LARGE STORM ;"-TOSSED")
(DESC "tree")
<OBJECT MOUNTAIN-RANGE
(IN MOUNTAINS)
(DESC "mountain range")
(SYNONYM MOUNTAIN RANGE)
(ADJECTIVE IMPASSABLE FLATHEAD)
(ACTION MOUNTAIN-RANGE-F)>
<OBJECT GLOBAL-WATER
(IN LOCAL-GLOBALS)
(SYNONYM WATER QUANTITY)
(DESC "water")
(FLAGS DRINKBIT)
(ACTION WATER-F)>
<OBJECT WATER
(IN BOTTLE)
(SYNONYM WATER QUANTITY LIQUID H2O)
(DESC "quantity of water")
(FLAGS TRYTAKEBIT TAKEBIT DRINKBIT)
(ACTION WATER-F)
(SIZE 4)>
<OBJECT KITCHEN-WINDOW
(IN LOCAL-GLOBALS)
(SYNONYM WINDOW)
(ADJECTIVE KITCHEN SMALL)
(DESC "kitchen window")
(ACTION KITCHEN-WINDOW-F)>
This is one of several places where the MIT kids used caving jargon without quite conveying that they knew what it meant. A “climbable chimney” would have meant something very different to Will and Patricia Crowther.
(IN LOCAL-GLOBALS)
(SYNONYM CHIMNEY)
(ADJECTIVE DARK NARROW)
(DESC "chimney")
(ACTION CHIMNEY-F)
<OBJECT GHOSTS
(IN ENTRANCE-TO-HADES)
(SYNONYM GHOSTS SPIRITS FIENDS FORCE)
(ADJECTIVE INVISIBLE EVIL)
(DESC "number of ghosts")
(ACTION GHOSTS-F)>
<OBJECT SKULL
(IN LAND-OF-LIVING-DEAD)
(SYNONYM SKULL HEAD TREASURE)
(ADJECTIVE CRYSTAL)
(DESC "crystal skull")
(FDESC
"Lying in one corner of the room is a beautifully carved crystal skull.
It appears to be grinning at you rather nastily.")
(FLAGS TAKEBIT)
(VALUE 10)
(TVALUE 10)>
The object names are misleading. RAISED-BASKET represents the basket at this end of the shaft, where you can interact with it. LOWERED-BASKET represents the basket at the other end of the shaft. When you raise or lower the basket, the two objects swap places.
(IN LOWER-SHAFT)
(SYNONYM CAGE DUMBWAITER BASKET)
(ADJECTIVE LOWERED)
(LDESC "From the chain is suspended a basket.")
(DESC "basket")
(FLAGS TRYTAKEBIT)
(ACTION BASKET-F)>
<OBJECT RAISED-BASKET
(IN SHAFT-ROOM)
(SYNONYM CAGE DUMBWAITER BASKET)
(DESC "basket")
(FLAGS TRANSBIT TRYTAKEBIT CONTBIT OPENBIT)
(ACTION BASKET-F)
(LDESC "At the end of the chain is a basket.")
(CAPACITY 50)>
<OBJECT LUNCH
(IN SANDWICH-BAG)
(SYNONYM FOOD SANDWICH LUNCH DINNER)
(ADJECTIVE HOT PEPPER)
(DESC "lunch")
(LDESC "A hot pepper sandwich is here.")>
A reject from Wumpus! So said early versions of Zork, including the release I played in 1980. But here the reference has been deleted. Sigh.
(IN BAT-ROOM)
(SYNONYM BAT VAMPIRE)
(ADJECTIVE VAMPIRE DERANGED)
(DESC "bat")
(FLAGS ACTORBIT TRYTAKEBIT)
(DESCFCN BAT-D)
(ACTION BAT-F)>
<OBJECT BELL
(IN NORTH-TEMPLE)
(SYNONYM BELL)
(ADJECTIVE SMALL BRASS)
(DESC "brass bell")
(FLAGS TAKEBIT)
(ACTION BELL-F)>
<OBJECT HOT-BELL
(SYNONYM BELL)
(ADJECTIVE BRASS HOT RED SMALL)
(DESC "red hot brass bell")
(FLAGS TRYTAKEBIT)
(ACTION HOT-BELL-F)
(LDESC "On the ground is a red hot bell.")>
<OBJECT AXE
(IN TROLL)
(SYNONYM AXE AX)
(ADJECTIVE BLOODY)
(DESC "bloody axe")
(FLAGS WEAPONBIT TRYTAKEBIT TAKEBIT NDESCBIT)
(ACTION AXE-F)
(SIZE 25)>
<OBJECT BOLT
(IN DAM-ROOM)
(SYNONYM BOLT NUT)
(ADJECTIVE METAL LARGE)
(DESC "bolt")
(FLAGS NDESCBIT TURNBIT TRYTAKEBIT)
(ACTION BOLT-F)>
This is a slightly quirky concept. The whole point of the “green bubble” is that it’s a light bulb, but you don’t know that because you’re a fantasy adventurer character.
But you do know what “plastic” is! Not to mention a battery-powered lantern. Zork’s patchwork setting is part of its charm, but here it trips up.
(IN DAM-ROOM)
(SYNONYM BUBBLE)
(ADJECTIVE SMALL GREEN PLASTIC)
(DESC "green bubble")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION BUBBLE-F)>
<OBJECT ALTAR
(IN SOUTH-TEMPLE)
(SYNONYM ALTAR)
(DESC "altar")
(FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT)
(CAPACITY 50)>
<OBJECT BOOK
(IN ALTAR)
(SYNONYM BOOK PRAYER PAGE BOOKS)
(ADJECTIVE LARGE BLACK)
(DESC "black book")
(ACTION BLACK-BOOK)
(FDESC "On the altar is a large black book, open to page 569.")
(SIZE 10)
(TEXT
"Commandment #12592|
|
Oh ye who go about saying unto each: \"Hello sailor\":|
Dost thou know the magnitude of thy sin before the gods?|
Yea, verily, thou shalt be ground between two stones.|
Shall the angry gods cast thy body into the whirlpool?|
Surely, thy eye shall be put out with a sharp stick!|
Even unto the ends of the earth shalt thou wander and|
Unto the land of the dead shalt thou be sent at last.|
Surely thou shalt repent of thy cunning." )>
<OBJECT BROKEN-LAMP
(SYNONYM LAMP LANTERN)
(ADJECTIVE BROKEN)
(DESC "broken lantern")
(FLAGS TAKEBIT)>
<OBJECT SCEPTRE
(IN COFFIN)
(SYNONYM SCEPTRE SCEPTER TREASURE)
(ADJECTIVE SHARP EGYPTIAN ANCIENT ENAMELED)
(DESC "sceptre")
(ACTION SCEPTRE-FUNCTION)
(LDESC
"An ornamented sceptre, tapering to a sharp point, is here.")
(FDESC
"A sceptre, possibly that of ancient Egypt itself, is in the coffin. The
sceptre is ornamented with colored enamel, and tapers to a sharp point.")
(SIZE 3)
(VALUE 4)
(TVALUE 6)>
<OBJECT TIMBERS
(IN TIMBER-ROOM)
(SYNONYM TIMBERS PILE)
(ADJECTIVE WOODEN BROKEN)
(DESC "broken timber")
(FLAGS TAKEBIT)
(SIZE 50)>
<OBJECT SLIDE
(IN LOCAL-GLOBALS)
(SYNONYM CHUTE RAMP SLIDE)
(ADJECTIVE STEEP METAL TWISTING)
(DESC "chute")
(FLAGS CLIMBBIT)
(ACTION SLIDE-FUNCTION)>
<OBJECT KITCHEN-TABLE
(IN KITCHEN)
(SYNONYM TABLE)
(ADJECTIVE KITCHEN)
(DESC "kitchen table")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(CAPACITY 50)>
<OBJECT ATTIC-TABLE
(IN ATTIC)
(SYNONYM TABLE)
(DESC "table")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(CAPACITY 40)>
<OBJECT SANDWICH-BAG
(IN KITCHEN-TABLE)
(SYNONYM BAG SACK)
(ADJECTIVE BROWN ELONGATED SMELLY)
(DESC "brown sack")
(FDESC
"On the table is an elongated brown sack, smelling of hot peppers.")
(CAPACITY 15)
(SIZE 3)
(ACTION SANDWICH-BAG-FCN)>
<OBJECT TOOL-CHEST
(IN MAINTENANCE-ROOM)
(SYNONYM CHEST CHESTS GROUP TOOLCHESTS)
(ADJECTIVE TOOL)
(DESC "group of tool chests")
(FLAGS CONTBIT OPENBIT TRYTAKEBIT SACREDBIT)
(ACTION TOOL-CHEST-FCN)>
<OBJECT YELLOW-BUTTON
(IN MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE YELLOW)
(DESC "yellow button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT BROWN-BUTTON
(IN MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE BROWN)
(DESC "brown button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT RED-BUTTON
(IN MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE RED)
(DESC "red button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT BLUE-BUTTON
(IN MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE BLUE)
(DESC "blue button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT TROPHY-CASE ;"first obj so L.R. desc looks right."
(IN LIVING-ROOM)
(SYNONYM CASE)
(ADJECTIVE TROPHY)
(DESC "trophy case")
(FLAGS TRANSBIT CONTBIT NDESCBIT TRYTAKEBIT SEARCHBIT)
(ACTION TROPHY-CASE-FCN)
(CAPACITY 10000)>
<OBJECT RUG
(IN LIVING-ROOM)
(SYNONYM RUG CARPET)
(ADJECTIVE LARGE ORIENTAL)
(DESC "carpet")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION RUG-FCN)>
<OBJECT CHALICE
(IN TREASURE-ROOM)
(SYNONYM CHALICE CUP SILVER TREASURE)
(ADJECTIVE SILVER ENGRAVINGS) ;"engravings exists..."
(DESC "chalice")
(FLAGS TAKEBIT TRYTAKEBIT CONTBIT)
(ACTION CHALICE-FCN)
(LDESC "There is a silver chalice, intricately engraved, here.")
(CAPACITY 5)
(SIZE 10)
(VALUE 10)
(TVALUE 5)>
Who carries around one clove of garlic? As a kid, I assumed this was a head of garlic, which left me permanently confused about what “clove” meant. Thanks Zork.
(IN SANDWICH-BAG)
(SYNONYM GARLIC CLOVE)
(DESC "clove of garlic")
(ACTION GARLIC-F)>
<OBJECT TRIDENT
(IN ATLANTIS-ROOM)
(SYNONYM TRIDENT FORK TREASURE)
(ADJECTIVE POSEIDON OWN CRYSTAL)
(DESC "crystal trident")
(FLAGS TAKEBIT)
(FDESC "On the shore lies Poseidon's own crystal trident.")
(SIZE 20)
(VALUE 4)
(TVALUE 11)>
<OBJECT CYCLOPS
(IN CYCLOPS-ROOM)
(SYNONYM CYCLOPS MONSTER EYE)
(ADJECTIVE HUNGRY GIANT)
(DESC "cyclops")
(FLAGS ACTORBIT NDESCBIT TRYTAKEBIT)
(ACTION CYCLOPS-FCN)
(STRENGTH 10000)>
<OBJECT DAM
(IN DAM-ROOM)
(SYNONYM DAM GATE GATES FCD\#3)
(DESC "dam")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION DAM-FUNCTION)>
This object is defined as being IN the LIVING-ROOM, but is also in the scenery list (the GLOBAL property) of the CELLAR. This isn’t very interesting, I admit.
(IN LIVING-ROOM)
(SYNONYM DOOR TRAPDOOR TRAP-DOOR COVER)
(ADJECTIVE TRAP DUSTY)
(DESC "trap door")
(ACTION TRAP-DOOR-FCN)>
<OBJECT BOARDED-WINDOW
(IN LOCAL-GLOBALS)
(SYNONYM WINDOW)
(ADJECTIVE BOARDED)
(DESC "boarded window")
(FLAGS NDESCBIT)
(ACTION BOARDED-WINDOW-FCN)>
<OBJECT FRONT-DOOR
(IN WEST-OF-HOUSE)
(SYNONYM DOOR)
(ADJECTIVE FRONT BOARDED)
(DESC "door")
(ACTION FRONT-DOOR-FCN)>
<OBJECT BARROW-DOOR
(IN STONE-BARROW)
(SYNONYM DOOR)
(ADJECTIVE HUGE STONE)
(DESC "stone door")
(ACTION BARROW-DOOR-FCN)>
<OBJECT BARROW
(IN STONE-BARROW)
(SYNONYM BARROW TOMB)
(ADJECTIVE MASSIVE STONE)
(DESC "stone barrow")
(FLAGS NDESCBIT)
(ACTION BARROW-FCN)>
<OBJECT BOTTLE
(IN KITCHEN-TABLE)
(SYNONYM BOTTLE CONTAINER)
(ADJECTIVE CLEAR GLASS)
(DESC "glass bottle")
(ACTION BOTTLE-FUNCTION)
(FDESC "A bottle is sitting on the table.")
(CAPACITY 4)>
<OBJECT CRACK
(IN LOCAL-GLOBALS)
(SYNONYM CRACK)
(ADJECTIVE NARROW)
(DESC "crack")
(FLAGS NDESCBIT)
(ACTION CRACK-FCN)>
Do you know how much a solid gold sarcophagus would weigh? More than 55, that’s for sure.
The real Ramses II was buried in gilded wood coffin inside an alabaster sarcophagus inside a larger granite sarcophagus. A fragment of the granite one was identified very recently!
(IN EGYPT-ROOM)
(SYNONYM COFFIN CASKET TREASURE)
(ADJECTIVE SOLID GOLD)
(DESC "gold coffin")
(LDESC
"The solid-gold coffin used for the burial of Ramses II is here.")
(CAPACITY 35)
(SIZE 55)
(VALUE 10)
(TVALUE 15)>
<OBJECT GRATE
(IN LOCAL-GLOBALS)
(SYNONYM GRATE GRATING)
(DESC "grating")
(ACTION GRATE-FUNCTION)>
<OBJECT PUMP
(IN RESERVOIR-NORTH)
(SYNONYM PUMP AIR-PUMP TOOL TOOLS)
(ADJECTIVE SMALL HAND-HELD)
(DESC "hand-held air pump")
<OBJECT DIAMOND
(SYNONYM DIAMOND TREASURE)
(ADJECTIVE HUGE ENORMOUS)
(DESC "huge diamond")
(FLAGS TAKEBIT)
(LDESC "There is an enormous diamond (perfectly cut) here.")
(VALUE 10)
(TVALUE 10)>
<OBJECT JADE
(IN BAT-ROOM)
(SYNONYM FIGURINE TREASURE)
(ADJECTIVE EXQUISITE JADE)
(DESC "jade figurine")
(FLAGS TAKEBIT)
(LDESC "There is an exquisite jade figurine here.")
(SIZE 10)
(VALUE 5)
(TVALUE 5)>
<OBJECT KNIFE
(IN ATTIC-TABLE)
(SYNONYM KNIVES KNIFE BLADE)
(ADJECTIVE NASTY UNRUSTY)
(DESC "nasty knife")
(FLAGS TAKEBIT WEAPONBIT TRYTAKEBIT)
(FDESC "On a table is a nasty-looking knife.")
(ACTION KNIFE-F)>
The idea of encountering your earlier self’s luckless corpse will reappear in Trinity.
(IN MAZE-5)
(SYNONYM BONES SKELETON BODY)
(DESC "skeleton")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION SKELETON)>
<OBJECT BURNED-OUT-LANTERN
(IN MAZE-5)
(SYNONYM LANTERN LAMP)
(ADJECTIVE RUSTY BURNED DEAD USELESS)
(DESC "burned-out lantern")
(FLAGS TAKEBIT)
(FDESC "The deceased adventurer's useless lantern is here.")
(SIZE 20)>
<OBJECT BAG-OF-COINS
(IN MAZE-5)
(SYNONYM BAG COINS TREASURE)
(ADJECTIVE OLD LEATHER)
(DESC "leather bag of coins")
(FLAGS TAKEBIT)
(LDESC "An old leather bag, bulging with coins, is here.")
(ACTION BAG-OF-COINS-F)
(SIZE 15)
(VALUE 10)
(TVALUE 5)>
<OBJECT LAMP
(IN LIVING-ROOM)
(SYNONYM LAMP LANTERN LIGHT)
(ADJECTIVE BRASS)
(DESC "brass lantern")
(ACTION LANTERN)
(FDESC "A battery-powered brass lantern is on the trophy case.")
(LDESC "There is a brass lantern (battery-powered) here.")
(SIZE 15)>
<OBJECT EMERALD
(IN BUOY)
(SYNONYM EMERALD TREASURE)
(ADJECTIVE LARGE)
(DESC "large emerald")
(FLAGS TAKEBIT)
(VALUE 5)
(TVALUE 10)>
<OBJECT ADVERTISEMENT
(IN MAILBOX)
(SYNONYM ADVERTISEMENT LEAFLET BOOKLET MAIL)
(ADJECTIVE SMALL)
(DESC "leaflet")
(LDESC "A small leaflet is on the ground.")
(TEXT
"\"WELCOME TO ZORK!|
|
ZORK is a game of adventure, danger, and low cunning. In it you
will explore some of the most amazing territory ever seen by mortals.
No computer should be without one!\"|
")
(SIZE 2)>
<OBJECT LEAK
(IN MAINTENANCE-ROOM)
(SYNONYM LEAK DRIP PIPE)
(DESC "leak")
(ACTION LEAK-FUNCTION)>
<OBJECT MACHINE
(IN MACHINE-ROOM)
(SYNONYM MACHINE PDP10 DRYER LID)
(DESC "machine")
(FLAGS CONTBIT NDESCBIT TRYTAKEBIT)
(ACTION MACHINE-F)
(CAPACITY 50)>
<OBJECT INFLATED-BOAT
(SYNONYM BOAT RAFT)
(ADJECTIVE INFLAT MAGIC PLASTIC SEAWORTHY)
(DESC "magic boat")
(ACTION RBOAT-FUNCTION)
(CAPACITY 100)
(SIZE 20)
(VTYPE NONLANDBIT)>
<OBJECT MAILBOX
(IN WEST-OF-HOUSE)
(SYNONYM MAILBOX BOX)
(ADJECTIVE SMALL)
(DESC "small mailbox")
(FLAGS CONTBIT TRYTAKEBIT)
(CAPACITY 10)
(ACTION MAILBOX-F)>
<OBJECT MATCH
(IN DAM-LOBBY)
(SYNONYM MATCH MATCHES MATCHBOOK)
(ADJECTIVE MATCH)
(DESC "matchbook")
(ACTION MATCH-FUNCTION)
(LDESC
"There is a matchbook whose cover says \"Visit Beautiful FCD#3\" here.")
(SIZE 2)
(TEXT
"|
(Close cover before striking)|
|
YOU too can make BIG MONEY in the exciting field of PAPER SHUFFLING!|
|
Mr. Anderson of Muddle, Mass. says: \"Before I took this course I
was a lowly bit twiddler. Now with what I learned at GUE Tech
I feel really important and can obfuscate and confuse with the best.\"|
|
Dr. Blank had this to say: \"Ten short days ago all I could look
forward to was a dead-end job as a doctor. Now I have a promising
future and make really big Zorkmids.\"|
|
GUE Tech can't promise these fantastic results to everyone. But when
you earn your degree from GUE Tech, your future will be brighter.|" )>
<OBJECT MIRROR-2
(IN MIRROR-ROOM-2)
(SYNONYM REFLECTION MIRROR ENORMOUS)
(DESC "mirror")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION MIRROR-MIRROR)>
<OBJECT MIRROR-1
(IN MIRROR-ROOM-1)
(SYNONYM REFLECTION MIRROR ENORMOUS)
(DESC "mirror")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION MIRROR-MIRROR)>
<OBJECT PAINTING
(IN GALLERY)
(SYNONYM PAINTING ART CANVAS TREASURE)
(ADJECTIVE BEAUTI)
(DESC "painting")
(ACTION PAINTING-FCN)
(FDESC
"Fortunately, there is still one chance for you to be a vandal, for on
the far wall is a painting of unparalleled beauty.")
(LDESC "A painting by a neglected genius is here.")
(SIZE 15)
(VALUE 4)
(TVALUE 6)>
<OBJECT CANDLES
(IN SOUTH-TEMPLE)
(SYNONYM CANDLES PAIR)
(ADJECTIVE BURNING)
(DESC "pair of candles")
(ACTION CANDLES-FCN)
(FDESC "On the two ends of the altar are burning candles.")
(SIZE 10)>
<OBJECT GUNK
(SYNONYM GUNK PIECE SLAG)
(ADJECTIVE SMALL VITREOUS)
(DESC "small piece of vitreous slag")
(FLAGS TAKEBIT TRYTAKEBIT)
(ACTION GUNK-FUNCTION)
(SIZE 10)>
<OBJECT BODIES
(IN LOCAL-GLOBALS)
(SYNONYM BODIES BODY REMAINS PILE)
(ADJECTIVE MANGLED)
(DESC "pile of bodies")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION BODY-FUNCTION)>
<OBJECT LEAVES
(IN GRATING-CLEARING)
(SYNONYM LEAVES LEAF PILE)
(DESC "pile of leaves")
(FLAGS TAKEBIT BURNBIT TRYTAKEBIT)
(ACTION LEAF-PILE)
(LDESC "On the ground is a pile of leaves.")
(SIZE 25)>
<OBJECT PUNCTURED-BOAT
(SYNONYM BOAT PILE PLASTIC)
(ADJECTIVE PLASTIC PUNCTURE LARGE)
(DESC "punctured boat")
(ACTION DBOAT-FUNCTION)
(SIZE 20)>
<OBJECT INFLATABLE-BOAT
(IN DAM-BASE)
(SYNONYM BOAT PILE PLASTIC VALVE)
(ADJECTIVE PLASTIC INFLAT)
(DESC "pile of plastic")
(ACTION IBOAT-FUNCTION)
(LDESC
"There is a folded pile of plastic here which has a small valve
attached.")
(SIZE 20)>
<OBJECT BAR
(IN LOUD-ROOM)
(SYNONYM BAR PLATINUM TREASURE)
(ADJECTIVE PLATINUM LARGE)
(DESC "platinum bar")
(LDESC "On the ground is a large platinum bar.")
(SIZE 20)
(VALUE 10)
(TVALUE 5)>
<OBJECT POT-OF-GOLD
(IN END-OF-RAINBOW)
(SYNONYM POT GOLD TREASURE)
(ADJECTIVE GOLD)
(DESC "pot of gold")
(FDESC "At the end of the rainbow is a pot of gold.")
(SIZE 15)
(VALUE 10)
(TVALUE 10)>
<OBJECT PRAYER
(IN NORTH-TEMPLE)
(SYNONYM PRAYER INSCRIPTION)
(ADJECTIVE ANCIENT OLD)
(DESC "prayer")
(TEXT
"The prayer is inscribed in an ancient script, rarely used today. It seems
to be a philippic against small insects, absent-mindedness, and the picking
up and dropping of small objects. The final verse consigns trespassers to
the land of the dead. All evidence indicates that the beliefs of the ancient
Zorkers were obscure." )>
<OBJECT RAILING
(IN DOME-ROOM)
(SYNONYM RAILING RAIL)
(ADJECTIVE WOODEN)
(DESC "wooden railing")
(FLAGS NDESCBIT)>
<OBJECT RAINBOW
(IN LOCAL-GLOBALS)
(SYNONYM RAINBOW)
(DESC "rainbow")
(ACTION RAINBOW-FCN)>
<OBJECT RIVER
(IN LOCAL-GLOBALS)
(DESC "river")
(SYNONYM RIVER)
(ADJECTIVE FRIGID)
(ACTION RIVER-FUNCTION)
(FLAGS NDESCBIT)>
<OBJECT BUOY
(IN RIVER-4)
(SYNONYM BUOY)
(ADJECTIVE RED)
(DESC "red buoy")
(FDESC "There is a red buoy here (probably a warning).")
(CAPACITY 20)
(SIZE 10)
(ACTION TREASURE-INSIDE)>
<ROUTINE TREASURE-INSIDE ()
<COND (<VERB? OPEN>
<RFALSE>)>>
<OBJECT ROPE
(IN ATTIC)
(SYNONYM ROPE HEMP COIL)
(ADJECTIVE LARGE)
(DESC "rope")
(FLAGS TAKEBIT SACREDBIT TRYTAKEBIT)
(ACTION ROPE-FUNCTION)
(FDESC "A large coil of rope is lying in the corner.")
(SIZE 10)>
<OBJECT RUSTY-KNIFE
(IN MAZE-5)
(SYNONYM KNIVES KNIFE)
(ADJECTIVE RUSTY)
(DESC "rusty knife")
(FLAGS TAKEBIT TRYTAKEBIT WEAPONBIT TOOLBIT)
(ACTION RUSTY-KNIFE-FCN)
(FDESC "Beside the skeleton is a rusty knife.")
(SIZE 20)>
<OBJECT SAND
(IN SANDY-CAVE)
(SYNONYM SAND)
(DESC "sand")
(FLAGS NDESCBIT)
(ACTION SAND-FUNCTION)>
<OBJECT BRACELET
(IN GAS-ROOM)
(SYNONYM BRACELET JEWEL SAPPHIRE TREASURE)
(ADJECTIVE SAPPHIRE)
(DESC "sapphire-encrusted bracelet")
(FLAGS TAKEBIT)
(SIZE 10)
(VALUE 5)
(TVALUE 5)>
<OBJECT SCREWDRIVER
(IN MAINTENANCE-ROOM)
(SYNONYM SCREWDRIVER TOOL TOOLS DRIVER)
(ADJECTIVE SCREW)
(DESC "screwdriver")
<OBJECT KEYS
(IN MAZE-5)
(SYNONYM KEY)
(ADJECTIVE SKELETON)
(DESC "skeleton key")
(SIZE 10)>
<OBJECT SHOVEL
(IN SANDY-BEACH)
(SYNONYM SHOVEL TOOL TOOLS)
(DESC "shovel")
(SIZE 15)>
<OBJECT COAL
(IN DEAD-END-5)
(SYNONYM COAL PILE HEAP)
(ADJECTIVE SMALL)
(DESC "small pile of coal")
(SIZE 20)>
<OBJECT LADDER
(IN LOCAL-GLOBALS)
(SYNONYM LADDER)
(ADJECTIVE WOODEN RICKETY NARROW)
(DESC "wooden ladder")
<OBJECT SCARAB
(IN SANDY-CAVE)
(SYNONYM SCARAB BUG BEETLE TREASURE)
(ADJECTIVE BEAUTI CARVED JEWELED)
(DESC "beautiful jeweled scarab")
(SIZE 8)
(VALUE 5)
(TVALUE 5)>
<OBJECT LARGE-BAG
(IN THIEF)
(SYNONYM BAG)
(ADJECTIVE LARGE THIEFS)
(DESC "large bag")
(ACTION LARGE-BAG-F)
(FLAGS TRYTAKEBIT NDESCBIT)>
<OBJECT STILETTO
(IN THIEF)
(SYNONYM STILETTO)
(ADJECTIVE VICIOUS)
(DESC "stiletto")
(ACTION STILETTO-FUNCTION)
(FLAGS WEAPONBIT TRYTAKEBIT TAKEBIT NDESCBIT)
(SIZE 10)>
<OBJECT MACHINE-SWITCH
(IN MACHINE-ROOM)
(SYNONYM SWITCH)
(DESC "switch")
(ACTION MSWITCH-FUNCTION)>
<OBJECT WOODEN-DOOR
(IN LIVING-ROOM)
(SYNONYM DOOR LETTERING WRITING)
(ADJECTIVE WOODEN GOTHIC STRANGE WEST)
(DESC "wooden door")
(ACTION FRONT-DOOR-FCN)
(TEXT
"The engravings translate to \"This space intentionally left blank.\"")>
<OBJECT SWORD
(IN LIVING-ROOM)
(SYNONYM SWORD ORCRIST GLAMDRING BLADE)
(ADJECTIVE ELVISH OLD ANTIQUE)
(DESC "sword")
(FLAGS TAKEBIT WEAPONBIT TRYTAKEBIT)
(ACTION SWORD-FCN)
(FDESC
"Above the trophy case hangs an elvish sword of great antiquity.")
(SIZE 30)
(TVALUE 0)>
<OBJECT MAP
(IN TROPHY-CASE)
(SYNONYM PARCHMENT MAP)
(ADJECTIVE ANTIQUE OLD ANCIENT)
(DESC "ancient map")
(FDESC
"In the trophy case is an ancient parchment which appears to be a map.")
(SIZE 2)
(TEXT
"The map shows a forest with three clearings. The largest clearing contains
a house. Three paths leave the large clearing. One of these paths, leading
southwest, is marked \"To Stone Barrow\".")>
<OBJECT BOAT-LABEL
(IN INFLATED-BOAT)
(SYNONYM LABEL FINEPRINT PRINT)
(ADJECTIVE TAN FINE)
(DESC "tan label")
(SIZE 2)
(TEXT
" !!!! FROBOZZ MAGIC BOAT COMPANY !!!!|
|
Hello, Sailor!|
|
Instructions for use:|
|
To get into a body of water, say \"Launch\".|
To get to shore, say \"Land\" or the direction in which you want
to maneuver the boat.|
|
Warranty:|
|
This boat is guaranteed against all defects for a period of 76
milliseconds from date of purchase or until first used, whichever comes first.|
|
Warning:|
This boat is made of thin plastic.|
Good Luck!|
" )>
<OBJECT THIEF
(IN ROUND-ROOM)
(SYNONYM THIEF ROBBER MAN PERSON)
(ADJECTIVE SHADY SUSPICIOUS SEEDY)
(DESC "thief")
(FLAGS ACTORBIT INVISIBLE CONTBIT OPENBIT TRYTAKEBIT)
(ACTION ROBBER-FUNCTION)
(LDESC
"There is a suspicious-looking individual, holding a large bag, leaning
against one wall. He is armed with a deadly stiletto.")
(STRENGTH 5)>
<OBJECT PEDESTAL
(IN TORCH-ROOM)
(SYNONYM PEDESTAL)
(ADJECTIVE WHITE MARBLE)
(DESC "pedestal")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(ACTION DUMB-CONTAINER)
(CAPACITY 30)>
<OBJECT TORCH
(IN PEDESTAL)
(SYNONYM TORCH IVORY TREASURE)
(ADJECTIVE FLAMING IVORY)
(DESC "torch")
(ACTION TORCH-OBJECT)
(FDESC "Sitting on the pedestal is a flaming torch, made of ivory.")
(SIZE 20)
(VALUE 14)
(TVALUE 6)>
<OBJECT GUIDE
(IN DAM-LOBBY)
(SYNONYM GUIDE BOOK BOOKS GUIDEBOOKS)
(ADJECTIVE TOUR GUIDE)
(DESC "tour guidebook")
(FDESC
"Some guidebooks entitled \"Flood Control Dam #3\" are on the reception
desk.")
(TEXT
"\" Flood Control Dam #3|
|
FCD#3 was constructed in year 783 of the Great Underground Empire to
harness the mighty Frigid River. This work was supported by a grant of
37 million zorkmids from your omnipotent local tyrant Lord Dimwit
Flathead the Excessive. This impressive structure is composed of
370,000 cubic feet of concrete, is 256 feet tall at the center, and 193
feet wide at the top. The lake created behind the dam has a volume
of 1.7 billion cubic feet, an area of 12 million square feet, and a
shore line of 36 thousand feet.|
|
We will now point out some of the more interesting features
of FCD#3 as we conduct you on a guided tour of the facilities:|
1) You start your tour here in the Dam Lobby. You will notice
on your right that...." )>
;" The construction of FCD#3 took 112 days from ground breaking to
the dedication. It required a work force of 384 slaves, 34 slave
drivers, 12 engineers, 2 turtle doves, and a partridge in a pear
tree. The work was managed by a command team composed of 2345
bureaucrats, 2347 secretaries (at least two of whom can type),
12,256 paper shufflers, 52,469 rubber stampers, 245,193 red tape
processors, and nearly one million dead trees.|"
<OBJECT TROLL
(IN TROLL-ROOM)
(SYNONYM TROLL)
(ADJECTIVE NASTY)
(DESC "troll")
(FLAGS ACTORBIT OPENBIT TRYTAKEBIT)
(ACTION TROLL-FCN)
(LDESC
"A nasty-looking troll, brandishing a bloody axe, blocks all passages
out of the room.")
(STRENGTH 2)>
<OBJECT TRUNK
(IN RESERVOIR)
(SYNONYM TRUNK CHEST JEWELS TREASURE)
(ADJECTIVE OLD)
(DESC "trunk of jewels")
(FDESC
"Lying half buried in the mud is an old trunk, bulging with jewels.")
(LDESC "There is an old trunk here, bulging with assorted jewels.")
(ACTION TRUNK-F)
(SIZE 35)
(VALUE 15)
(TVALUE 5)>
<OBJECT TUBE
(IN MAINTENANCE-ROOM)
(SYNONYM TUBE TOOTH PASTE)
(DESC "tube")
(ACTION TUBE-FUNCTION)
(LDESC
"There is an object which looks like a tube of toothpaste here.")
(CAPACITY 7)
(SIZE 5)
(TEXT
"---> Frobozz Magic Gunk Company <---|
All-Purpose Gunk")>
<OBJECT PUTTY
(IN TUBE)
(SYNONYM MATERIAL GUNK)
(ADJECTIVE VISCOUS)
(DESC "viscous material")
(SIZE 6)
(ACTION PUTTY-FCN)>
<OBJECT ENGRAVINGS
(IN ENGRAVINGS-CAVE)
(SYNONYM WALL ENGRAVINGS INSCRIPTION)
(ADJECTIVE OLD ANCIENT)
(DESC "wall with engravings")
(LDESC "There are old engravings on the walls here.")
(TEXT
"The engravings were incised in the living rock of the cave wall by
an unknown hand. They depict, in symbolic form, the beliefs of the
ancient Zorkers. Skillfully interwoven with the bas reliefs are excerpts
illustrating the major religious tenets of that time. Unfortunately, a
later age seems to have considered them blasphemous and just as skillfully
excised them.")>
<OBJECT OWNERS-MANUAL
(IN STUDIO)
(SYNONYM MANUAL PIECE PAPER)
(ADJECTIVE ZORK OWNERS SMALL)
(DESC "ZORK owner's manual")
(FDESC "Loosely attached to a wall is a small piece of paper.")
(TEXT
"|
Congratulations!|
|
You are the privileged owner of ZORK I: The Great Underground Empire,
a self-contained and self-maintaining universe. If used and maintained
in accordance with normal operating practices for small universes, ZORK
will provide many months of trouble-free operation.|
|")>
<OBJECT CLIMBABLE-CLIFF
(IN LOCAL-GLOBALS)
(SYNONYM WALL CLIFF WALLS LEDGE)
(ADJECTIVE ROCKY SHEER)
(DESC "cliff")
(ACTION CLIFF-OBJECT)
<OBJECT WHITE-CLIFF
(IN LOCAL-GLOBALS)
(SYNONYM CLIFF CLIFFS)
(ADJECTIVE WHITE)
(DESC "white cliffs")
(ACTION WCLIF-OBJECT)>
<OBJECT WRENCH
(IN MAINTENANCE-ROOM)
(SYNONYM WRENCH TOOL TOOLS)
(DESC "wrench")
(SIZE 10)>
<OBJECT CONTROL-PANEL
(IN DAM-ROOM)
(SYNONYM PANEL)
(ADJECTIVE CONTROL)
(DESC "control panel")
(FLAGS NDESCBIT)>
<OBJECT NEST
(IN UP-A-TREE)
(SYNONYM NEST)
(ADJECTIVE BIRDS)
(DESC "bird's nest")
(FDESC "Beside you on the branch is a small bird's nest.")
(CAPACITY 20)>
This egg is not an easter egg.
(IN NEST)
(SYNONYM EGG TREASURE)
(ADJECTIVE BIRDS ENCRUSTED JEWELED)
(DESC "jewel-encrusted egg")
(ACTION EGG-OBJECT)
(VALUE 5)
(TVALUE 5)
(CAPACITY 6)
(FDESC
"In the bird's nest is a large egg encrusted with precious jewels,
apparently scavenged by a childless songbird. The egg is covered with
fine gold inlay, and ornamented in lapis lazuli and mother-of-pearl.
Unlike most eggs, this one is hinged and closed with a delicate looking
clasp. The egg appears extremely fragile.")>
<OBJECT BROKEN-EGG
(SYNONYM EGG TREASURE)
(ADJECTIVE BROKEN BIRDS ENCRUSTED JEWEL)
(DESC "broken jewel-encrusted egg")
(CAPACITY 6)
(TVALUE 2)
(LDESC "There is a somewhat ruined egg here.")>
<OBJECT BAUBLE
(SYNONYM BAUBLE TREASURE)
(ADJECTIVE BRASS BEAUTI)
(DESC "beautiful brass bauble")
(FLAGS TAKEBIT)
(VALUE 1)
(TVALUE 1)>
<OBJECT CANARY
(IN EGG)
(SYNONYM CANARY TREASURE)
(ADJECTIVE CLOCKWORK GOLD GOLDEN)
(DESC "golden clockwork canary")
(ACTION CANARY-OBJECT)
(VALUE 6)
(TVALUE 4)
(FDESC
"There is a golden clockwork canary nestled in the egg. It has ruby
eyes and a silver beak. Through a crystal window below its left
wing you can see intricate machinery inside. It appears to have
wound down.")>
<OBJECT BROKEN-CANARY
(IN BROKEN-EGG)
(SYNONYM CANARY TREASURE)
(ADJECTIVE BROKEN CLOCKWORK GOLD GOLDEN)
(DESC "broken clockwork canary")
(FLAGS TAKEBIT)
(ACTION CANARY-OBJECT)
(TVALUE 1)
(FDESC
"There is a golden clockwork canary nestled in the egg. It seems to
have recently had a bad experience. The mountings for its jewel-like
eyes are empty, and its silver beak is crumpled. Through a cracked
crystal window below its left wing you can see the remains of
intricate machinery. It is not clear what result winding it would
have, as the mainspring seems sprung.")>
\
"SUBTITLE ROOMS"
"SUBTITLE CONDITIONAL EXIT FLAGS"
Set if the CYCLOPS is scared off or unconscious. (See also MAGIC-FLAG.)
<GLOBAL DEFLATE <>>
<GLOBAL DOME-FLAG <>>
This is only checked for the passage between the TIMBER-ROOM and the LOWER-SHAFT. Therefore it is only computed when in those two rooms. See NO-OBJS.
Set when the Land of the Living Dead exorcism is complete. See LLD-ROOM.
<GLOBAL LOW-TIDE <>>
Set if the CYCLOPS has been scared off, thus breaking down the door in the LIVING-ROOM. (See also CYCLOPS-FLAG.)
Why “magic”? Why not, I guess.
<GLOBAL RAINBOW-FLAG <>>
Set if the TROLL is dead or unconscious.
Set when you reach 350 points. See SCORE-UPD.
Oddly, this global is defined in two places in the source. See gverbs.zil.
Set if you’re not carrying the COFFIN. But this is only updated in the SOUTH-TEMPLE’s code, because that’s the only room where it matters.
Interestingly, there’s a comment on the northwest exit of the DEEP-CANYON which mentions this flag. This is left over from the MIT version of Zork, which had several other passages too narrow or steep to navigate with the coffin.
"SUBTITLE FOREST AND OUTSIDE OF HOUSE"
<ROOM WEST-OF-HOUSE
(IN ROOMS)
(DESC "West of House")
(NORTH TO NORTH-OF-HOUSE)
(SOUTH TO SOUTH-OF-HOUSE)
(NE TO NORTH-OF-HOUSE)
(SE TO SOUTH-OF-HOUSE)
(WEST TO FOREST-1)
(EAST "The door is boarded and you can't remove the boards.")
(SW TO STONE-BARROW IF WON-FLAG)
(IN TO STONE-BARROW IF WON-FLAG)
(ACTION WEST-HOUSE)
(GLOBAL WHITE-HOUSE BOARD)>
<ROOM STONE-BARROW
(IN ROOMS)
(LDESC
"You are standing in front of a massive barrow of stone. In the east face
is a huge stone door which is open. You cannot see into the dark of the
tomb.")
(DESC "Stone Barrow")
(NE TO WEST-OF-HOUSE)
(ACTION STONE-BARROW-FCN)
<ROOM NORTH-OF-HOUSE
(IN ROOMS)
(LDESC
"You are facing the north side of a white house. There is no door here,
and all the windows are boarded up. To the north a narrow path winds through
the trees.")
(DESC "North of House")
(SW TO WEST-OF-HOUSE)
(SE TO EAST-OF-HOUSE)
(WEST TO WEST-OF-HOUSE)
(EAST TO EAST-OF-HOUSE)
(NORTH TO PATH)
(SOUTH "The windows are all boarded.")
(GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE)>
<ROOM SOUTH-OF-HOUSE
(IN ROOMS)
(LDESC
"You are facing the south side of a white house. There is no door here,
and all the windows are boarded.")
(DESC "South of House")
(WEST TO WEST-OF-HOUSE)
(EAST TO EAST-OF-HOUSE)
(NE TO EAST-OF-HOUSE)
(NW TO WEST-OF-HOUSE)
(SOUTH TO FOREST-3)
(NORTH "The windows are all boarded.")
(GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE)>
<ROOM EAST-OF-HOUSE
(IN ROOMS)
(DESC "Behind House")
(NORTH TO NORTH-OF-HOUSE)
(SOUTH TO SOUTH-OF-HOUSE)
(SW TO SOUTH-OF-HOUSE)
(NW TO NORTH-OF-HOUSE)
(EAST TO CLEARING)
(WEST TO KITCHEN IF KITCHEN-WINDOW IS OPEN)
(IN TO KITCHEN IF KITCHEN-WINDOW IS OPEN)
(ACTION EAST-HOUSE)
(GLOBAL WHITE-HOUSE KITCHEN-WINDOW)>
<ROOM FOREST-1
(IN ROOMS)
(LDESC
"This is a forest, with trees in all directions. To the east,
there appears to be sunlight.")
(DESC "Forest")
(UP "There is no tree here suitable for climbing.")
(NORTH TO GRATING-CLEARING)
(EAST TO PATH)
(SOUTH TO FOREST-3)
(WEST "You would need a machete to go further west.")
(ACTION FOREST-ROOM)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM FOREST-2
(IN ROOMS)
(LDESC "This is a dimly lit forest, with large trees all around.")
(DESC "Forest")
(UP "There is no tree here suitable for climbing.")
(NORTH "The forest becomes impenetrable to the north.")
(EAST TO MOUNTAINS)
(SOUTH TO CLEARING)
(WEST TO PATH)
(ACTION FOREST-ROOM)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
The game scale gets a bit loose here.
(IN ROOMS)
(LDESC "The forest thins out, revealing impassable mountains.")
(DESC "Forest")
(UP "The mountains are impassable.")
(NORTH TO FOREST-2)
(EAST "The mountains are impassable.")
(SOUTH TO FOREST-2)
(WEST TO FOREST-2)
(GLOBAL TREE WHITE-HOUSE)>
<ROOM FOREST-3
(IN ROOMS)
(LDESC "This is a dimly lit forest, with large trees all around.")
(DESC "Forest")
(UP "There is no tree here suitable for climbing.")
(NORTH TO CLEARING)
(EAST "The rank undergrowth prevents eastward movement.")
(SOUTH "Storm-tossed trees block your way.")
(WEST TO FOREST-1)
(NW TO SOUTH-OF-HOUSE)
(ACTION FOREST-ROOM)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM PATH
(IN ROOMS)
(LDESC
"This is a path winding through a dimly lit forest. The path heads
north-south here. One particularly large tree with some low branches
stands at the edge of the path.")
(DESC "Forest Path")
(UP TO UP-A-TREE)
(NORTH TO GRATING-CLEARING)
(EAST TO FOREST-2)
(SOUTH TO NORTH-OF-HOUSE)
(WEST TO FOREST-1)
(ACTION FOREST-ROOM)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM UP-A-TREE
(IN ROOMS)
(DESC "Up a Tree")
(DOWN TO PATH)
(UP "You cannot climb any higher.")
(ACTION TREE-ROOM)
(GLOBAL TREE FOREST SONGBIRD WHITE-HOUSE)>
<ROOM GRATING-CLEARING
(IN ROOMS)
(DESC "Clearing")
(NORTH "The forest becomes impenetrable to the north.")
(EAST TO FOREST-2)
(WEST TO FOREST-1)
(SOUTH TO PATH)
(DOWN PER GRATING-EXIT)
(ACTION CLEARING-FCN)
(GLOBAL WHITE-HOUSE GRATE)>
<ROUTINE GRATING-EXIT ()
<COND (,GRATE-REVEALED
(T
<TELL "The grating is closed!" CR>
<THIS-IS-IT ,GRATE>
<RFALSE>)>)
(T <TELL "You can't go that way." CR> <RFALSE>)>>
<ROOM CLEARING
(IN ROOMS)
(LDESC
"You are in a small clearing in a well marked forest path that
extends to the east and west.")
(DESC "Clearing")
(UP "There is no tree here suitable for climbing.")
(EAST TO CANYON-VIEW)
(NORTH TO FOREST-2)
(SOUTH TO FOREST-3)
(WEST TO EAST-OF-HOUSE)
(ACTION FOREST-ROOM)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
\
"SUBTITLE HOUSE"
The DOWN exit implies that you could go down if FALSE-FLAG were true, but of course it never is. In fact FALSE-FLAG has no other use in the game but blocking this exit. It’s not clear why it’s set up this way, rather than an unconditional failure message.
(Possibly so the sword will glow if the thief is passing through the STUDIO below? But the thief is normally INVISIBLE and does not trigger the sword.)
This has the side effect that JUMP in the Kitchen is fatal. See V-LEAP.
(IN ROOMS)
(DESC "Kitchen")
(EAST TO EAST-OF-HOUSE IF KITCHEN-WINDOW IS OPEN)
(WEST TO LIVING-ROOM)
(OUT TO EAST-OF-HOUSE IF KITCHEN-WINDOW IS OPEN)
(UP TO ATTIC)
(DOWN TO STUDIO IF FALSE-FLAG ELSE
"Only Santa Claus climbs down chimneys.")
(ACTION KITCHEN-FCN)
(VALUE 10)
(GLOBAL KITCHEN-WINDOW CHIMNEY STAIRS)>
<ROOM ATTIC
(IN ROOMS)
(LDESC "This is the attic. The only exit is a stairway leading down.")
(DESC "Attic")
(DOWN TO KITCHEN)
(GLOBAL STAIRS)>
<ROOM LIVING-ROOM
(IN ROOMS)
(DESC "Living Room")
(EAST TO KITCHEN)
(WEST TO STRANGE-PASSAGE IF MAGIC-FLAG ELSE "The door is nailed shut.")
(DOWN PER TRAP-DOOR-EXIT)
(ACTION LIVING-ROOM-FCN)
(GLOBAL STAIRS)
(PSEUDO "NAILS" NAILS-PSEUDO "NAIL" NAILS-PSEUDO)>
\
"SUBTITLE CELLAR AND VICINITY"
<ROOM CELLAR
(IN ROOMS)
(DESC "Cellar")
(NORTH TO TROLL-ROOM)
(SOUTH TO EAST-OF-CHASM)
(UP TO LIVING-ROOM IF TRAP-DOOR IS OPEN)
(WEST
"You try to ascend the ramp, but it is impossible, and you slide back down.")
(ACTION CELLAR-FCN)
(FLAGS RLANDBIT)
(VALUE 25)
<ROOM TROLL-ROOM
(IN ROOMS)
(LDESC
"This is a small room with passages to the east and south and a
forbidding hole leading west. Bloodstains and deep scratches
(perhaps made by an axe) mar the walls.")
(DESC "The Troll Room")
(SOUTH TO CELLAR)
(EAST TO EW-PASSAGE
IF TROLL-FLAG ELSE "The troll fends you off with a menacing gesture.")
(WEST TO MAZE-1
IF TROLL-FLAG ELSE "The troll fends you off with a menacing gesture.")
(FLAGS RLANDBIT)
(ACTION TROLL-ROOM-F)>
<ROOM EAST-OF-CHASM
(IN ROOMS)
(LDESC
"You are on the east edge of a chasm, the bottom of which cannot be
seen. A narrow passage goes north, and the path you are on continues
to the east.")
(DESC "East of Chasm")
(NORTH TO CELLAR)
(EAST TO GALLERY)
(DOWN "The chasm probably leads straight to the infernal regions.")
(FLAGS RLANDBIT)
(PSEUDO "CHASM" CHASM-PSEUDO)>
<ROOM GALLERY
(IN ROOMS)
(LDESC
"This is an art gallery. Most of the paintings have been stolen by
vandals with exceptional taste. The vandals left through either the
north or west exits.")
(DESC "Gallery")
(WEST TO EAST-OF-CHASM)
(NORTH TO STUDIO)
<ROOM STUDIO
(IN ROOMS)
(LDESC
"This appears to have been an artist's studio. The walls and floors are
splattered with paints of 69 different colors. Strangely enough, nothing
of value is hanging here. At the south end of the room is an open door
(also covered with paint). A dark and narrow chimney leads up from a
fireplace; although you might be able to get up it, it seems unlikely
you could get back down.")
(DESC "Studio")
(SOUTH TO GALLERY)
(UP PER UP-CHIMNEY-FUNCTION)
(FLAGS RLANDBIT)
(GLOBAL CHIMNEY)
(PSEUDO "DOOR" DOOR-PSEUDO "PAINT" PAINT-PSEUDO)>
\
"SUBTITLE MAZE"
Everybody loves a maze.
Enter the maze?
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(EAST TO TROLL-ROOM)
(NORTH TO MAZE-1)
(SOUTH TO MAZE-2)
(WEST TO MAZE-4)
<ROOM MAZE-2
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(SOUTH TO MAZE-1)
(DOWN PER MAZE-DIODES) ;"to MAZE-4"
(EAST TO MAZE-3)
<ROOM MAZE-3
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(WEST TO MAZE-2)
(NORTH TO MAZE-4)
(UP TO MAZE-5)
<ROOM MAZE-4
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(WEST TO MAZE-3)
(NORTH TO MAZE-1)
(EAST TO DEAD-END-1)
<ROOM DEAD-END-1
(IN ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(SOUTH TO MAZE-4)
<ROOM MAZE-5
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.
A skeleton, probably the remains of a luckless adventurer, lies here.")
(DESC "Maze")
(EAST TO DEAD-END-2)
(NORTH TO MAZE-3)
(SW TO MAZE-6)
<ROOM DEAD-END-2
(IN ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(WEST TO MAZE-5)
<ROOM MAZE-6
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(DOWN TO MAZE-5)
(EAST TO MAZE-7)
(WEST TO MAZE-6)
(UP TO MAZE-9)
<ROOM MAZE-7
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(UP TO MAZE-14)
(WEST TO MAZE-6)
(DOWN PER MAZE-DIODES) ;"to DEAD-END-1"
(EAST TO MAZE-8)
(SOUTH TO MAZE-15)
<ROOM MAZE-8
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(NE TO MAZE-7)
(WEST TO MAZE-8)
(SE TO DEAD-END-3)
<ROOM DEAD-END-3
(IN ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(NORTH TO MAZE-8)
<ROOM MAZE-9
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(NORTH TO MAZE-6)
(DOWN PER MAZE-DIODES) ;"to MAZE-11"
(EAST TO MAZE-10)
(SOUTH TO MAZE-13)
(WEST TO MAZE-12)
(NW TO MAZE-9)
<ROOM MAZE-10
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(EAST TO MAZE-9)
(WEST TO MAZE-13)
(UP TO MAZE-11)
<ROOM MAZE-11
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(NE TO GRATING-ROOM)
(DOWN TO MAZE-10)
(NW TO MAZE-13)
(SW TO MAZE-12)
<ROOM GRATING-ROOM
(IN ROOMS)
(DESC "Grating Room")
(SW TO MAZE-11)
(UP TO GRATING-CLEARING
IF GRATE IS OPEN ELSE "The grating is closed.")
(ACTION MAZE-11-FCN)
(GLOBAL GRATE)
(FLAGS RLANDBIT)>
<ROOM MAZE-12
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(DOWN PER MAZE-DIODES) ;"to MAZE-5"
(SW TO MAZE-11)
(EAST TO MAZE-13)
(UP TO MAZE-9)
(NORTH TO DEAD-END-4)
<ROOM DEAD-END-4
(IN ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(SOUTH TO MAZE-12)
<ROOM MAZE-13
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(EAST TO MAZE-9)
(DOWN TO MAZE-12)
(SOUTH TO MAZE-10)
(WEST TO MAZE-11)
<ROOM MAZE-14
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(WEST TO MAZE-15)
(NW TO MAZE-14)
(NE TO MAZE-7)
(SOUTH TO MAZE-7)
<ROOM MAZE-15
(IN ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(WEST TO MAZE-14)
(SOUTH TO MAZE-7)
(SE TO CYCLOPS-ROOM)
\
"SUBTITLE CYCLOPS AND HIDEAWAY"
<ROOM CYCLOPS-ROOM
(IN ROOMS)
(DESC "Cyclops Room")
(NW TO MAZE-15)
(EAST TO STRANGE-PASSAGE
IF MAGIC-FLAG ELSE "The east wall is solid rock.")
(UP TO TREASURE-ROOM IF CYCLOPS-FLAG
ELSE "The cyclops doesn't look like he'll let you past.")
(ACTION CYCLOPS-ROOM-FCN)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<ROOM STRANGE-PASSAGE
(IN ROOMS)
(LDESC
"This is a long passage. To the west is one entrance. On the
east there is an old wooden door, with a large opening in it (about
cyclops sized).")
(DESC "Strange Passage")
(WEST TO CYCLOPS-ROOM)
(IN TO CYCLOPS-ROOM)
(EAST TO LIVING-ROOM)
(FLAGS RLANDBIT)>
<ROOM TREASURE-ROOM
(IN ROOMS)
(LDESC
"This is a large room, whose east wall is solid granite. A number
of discarded bags, which crumble at your touch, are scattered about
on the floor. There is an exit down a staircase.")
(DESC "Treasure Room")
(DOWN TO CYCLOPS-ROOM)
(ACTION TREASURE-ROOM-FCN)
(FLAGS RLANDBIT ;"CANT-HAVE-ONBIT")
(VALUE 25)
(GLOBAL STAIRS)>
\
"SUBTITLE RESERVOIR AREA"
<ROOM RESERVOIR-SOUTH
(IN ROOMS)
(DESC "Reservoir South")
(SE TO DEEP-CANYON)
(SW TO CHASM-ROOM)
(EAST TO DAM-ROOM)
(WEST TO STREAM-VIEW)
(NORTH TO RESERVOIR
IF LOW-TIDE ELSE "You would drown.")
(ACTION RESERVOIR-SOUTH-FCN)
(FLAGS RLANDBIT)
(GLOBAL GLOBAL-WATER)
(PSEUDO "LAKE" LAKE-PSEUDO "CHASM" CHASM-PSEUDO)>
<ROOM RESERVOIR
(IN ROOMS)
(DESC "Reservoir")
(NORTH TO RESERVOIR-NORTH)
(SOUTH TO RESERVOIR-SOUTH)
(UP TO IN-STREAM)
(WEST TO IN-STREAM)
(DOWN "The dam blocks your way.")
(ACTION RESERVOIR-FCN)
(FLAGS NONLANDBIT )
(PSEUDO "STREAM" STREAM-PSEUDO)
(GLOBAL GLOBAL-WATER)>
<ROOM RESERVOIR-NORTH
(IN ROOMS)
(DESC "Reservoir North")
(NORTH TO ATLANTIS-ROOM)
(SOUTH TO RESERVOIR
IF LOW-TIDE ELSE "You would drown.")
(ACTION RESERVOIR-NORTH-FCN)
(FLAGS RLANDBIT)
(GLOBAL GLOBAL-WATER STAIRS)
(PSEUDO "LAKE" LAKE-PSEUDO)>
<ROOM STREAM-VIEW
(IN ROOMS)
(LDESC
"You are standing on a path beside a gently flowing stream. The path
follows the stream, which flows from west to east.")
(DESC "Stream View")
(EAST TO RESERVOIR-SOUTH)
(WEST "The stream emerges from a spot too small for you to enter.")
(FLAGS RLANDBIT)
(GLOBAL GLOBAL-WATER)
(PSEUDO "STREAM" STREAM-PSEUDO)>
<ROOM IN-STREAM
(IN ROOMS)
(LDESC
"You are on the gently flowing stream. The upstream route is too narrow
to navigate, and the downstream route is invisible due to twisting
walls. There is a narrow beach to land on.")
(DESC "Stream")
(UP "The channel is too narrow.")
(WEST "The channel is too narrow.")
(LAND TO STREAM-VIEW)
(DOWN TO RESERVOIR)
(EAST TO RESERVOIR)
(FLAGS NONLANDBIT )
(GLOBAL GLOBAL-WATER)
(PSEUDO "STREAM" STREAM-PSEUDO)>
\
"SUBTITLE MIRROR ROOMS AND VICINITY"
<ROOM MIRROR-ROOM-1
(IN ROOMS)
(DESC "Mirror Room")
(NORTH TO COLD-PASSAGE)
(WEST TO TWISTING-PASSAGE)
(EAST TO SMALL-CAVE)
(ACTION MIRROR-ROOM)
(FLAGS RLANDBIT)>
<ROOM MIRROR-ROOM-2
(IN ROOMS)
(DESC "Mirror Room")
(WEST TO WINDING-PASSAGE)
(NORTH TO NARROW-PASSAGE)
(EAST TO TINY-CAVE)
(ACTION MIRROR-ROOM)
<ROOM SMALL-CAVE
(IN ROOMS)
(LDESC
"This is a tiny cave with entrances west and north, and a staircase
leading down.")
(DESC "Cave")
(NORTH TO MIRROR-ROOM-1)
(DOWN TO ATLANTIS-ROOM)
(SOUTH TO ATLANTIS-ROOM)
(WEST TO TWISTING-PASSAGE)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<ROOM TINY-CAVE
(IN ROOMS)
(LDESC
"This is a tiny cave with entrances west and north, and a dark,
forbidding staircase leading down.")
(DESC "Cave")
(NORTH TO MIRROR-ROOM-2)
(WEST TO WINDING-PASSAGE)
(DOWN TO ENTRANCE-TO-HADES)
(ACTION CAVE2-ROOM)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<ROOM COLD-PASSAGE
(IN ROOMS)
(LDESC
"This is a cold and damp corridor where a long east-west passageway
turns into a southward path.")
(DESC "Cold Passage")
(SOUTH TO MIRROR-ROOM-1)
(WEST TO SLIDE-ROOM)
(FLAGS RLANDBIT)>
<ROOM NARROW-PASSAGE
(IN ROOMS)
(LDESC
"This is a long and narrow corridor where a long north-south passageway
briefly narrows even further.")
(DESC "Narrow Passage")
(NORTH TO ROUND-ROOM)
(SOUTH TO MIRROR-ROOM-2)
(FLAGS RLANDBIT)>
<ROOM WINDING-PASSAGE
(IN ROOMS)
(LDESC
"This is a winding passage. It seems that there are only exits
on the east and north.")
(DESC "Winding Passage")
(NORTH TO MIRROR-ROOM-2)
(EAST TO TINY-CAVE)
(FLAGS RLANDBIT)>
<ROOM TWISTING-PASSAGE
(IN ROOMS)
(LDESC
"This is a winding passage. It seems that there are only exits
on the east and north.")
(DESC "Twisting Passage")
(NORTH TO MIRROR-ROOM-1)
(EAST TO SMALL-CAVE)
(FLAGS RLANDBIT)>
A very evocative room considering that the only detail is the TRIDENT’s description! I always imagined Byzantine undersea murals, but that was just me.
The text implies that the room was exposed when you drained the reservoir, which is not really true. (You can check this by arriving by mirror.)
(IN ROOMS)
(LDESC
"This is an ancient room, long under water. There is an exit to
the south and a staircase leading up.")
(DESC "Atlantis Room")
(UP TO SMALL-CAVE)
(SOUTH TO RESERVOIR-NORTH)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
\
"SUBTITLE ROUND ROOM AND VICINITY"
<ROOM EW-PASSAGE
(IN ROOMS)
(LDESC
"This is a narrow east-west passageway. There is a narrow stairway
leading down at the north end of the room.")
(DESC "East-West Passage")
(EAST TO ROUND-ROOM)
(WEST TO TROLL-ROOM)
(DOWN TO CHASM-ROOM)
(NORTH TO CHASM-ROOM)
(FLAGS RLANDBIT)
(VALUE 5)
(GLOBAL STAIRS)>
<ROOM ROUND-ROOM
(IN ROOMS)
(LDESC
"This is a circular stone room with passages in all directions. Several
of them have unfortunately been blocked by cave-ins.")
(DESC "Round Room")
(EAST TO LOUD-ROOM)
(WEST TO EW-PASSAGE)
(NORTH TO NS-PASSAGE)
(SOUTH TO NARROW-PASSAGE)
(SE TO ENGRAVINGS-CAVE)
(FLAGS RLANDBIT)>
<ROOM DEEP-CANYON
(IN ROOMS)
(DESC "Deep Canyon")
(NW TO RESERVOIR-SOUTH) ;COFFIN-CURE
(EAST TO DAM-ROOM)
(SW TO NS-PASSAGE)
(DOWN TO LOUD-ROOM)
(FLAGS RLANDBIT)
(ACTION DEEP-CANYON-F)
(GLOBAL STAIRS)>
<ROOM DAMP-CAVE
(IN ROOMS)
(LDESC
"This cave has exits to the west and east, and narrows to a crack toward
the south. The earth is particularly damp here.")
(DESC "Damp Cave")
(WEST TO LOUD-ROOM)
(EAST TO WHITE-CLIFFS-NORTH)
(SOUTH "It is too narrow for most insects.")
(FLAGS RLANDBIT)
(GLOBAL CRACK)>
<ROOM LOUD-ROOM
(IN ROOMS)
(DESC "Loud Room")
(EAST TO DAMP-CAVE)
(WEST TO ROUND-ROOM)
(UP TO DEEP-CANYON)
(ACTION LOUD-ROOM-FCN)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<ROOM NS-PASSAGE
(IN ROOMS)
(LDESC
"This is a high north-south passage, which forks to the northeast.")
(DESC "North-South Passage")
(NORTH TO CHASM-ROOM)
(NE TO DEEP-CANYON)
(SOUTH TO ROUND-ROOM)
(FLAGS RLANDBIT)>
<ROOM CHASM-ROOM
(IN ROOMS)
(LDESC
"A chasm runs southwest to northeast and the path follows it. You are
on the south side of the chasm, where a crack opens into a passage.")
(DESC "Chasm")
(NE TO RESERVOIR-SOUTH)
(SW TO EW-PASSAGE)
(UP TO EW-PASSAGE)
(SOUTH TO NS-PASSAGE)
(DOWN "Are you out of your mind?")
(FLAGS RLANDBIT)
(PSEUDO "CHASM" CHASM-PSEUDO)>
\
"SUBTITLE HADES ET AL"
<ROOM ENTRANCE-TO-HADES
(IN ROOMS)
(DESC "Entrance to Hades")
(UP TO TINY-CAVE)
(IN TO LAND-OF-LIVING-DEAD IF LLD-FLAG
ELSE "Some invisible force prevents you from passing through the gate.")
(SOUTH TO LAND-OF-LIVING-DEAD IF LLD-FLAG
ELSE "Some invisible force prevents you from passing through the gate.")
(ACTION LLD-ROOM)
(GLOBAL BODIES)
(PSEUDO "GATE" GATE-PSEUDO "GATES" GATE-PSEUDO)>
<ROOM LAND-OF-LIVING-DEAD
(IN ROOMS)
(LDESC
"You have entered the Land of the Living Dead. Thousands of lost souls
can be heard weeping and moaning. In the corner are stacked the remains
of dozens of previous adventurers less fortunate than yourself.
A passage exits to the north.")
(DESC "Land of the Dead")
(OUT TO ENTRANCE-TO-HADES)
(NORTH TO ENTRANCE-TO-HADES)
(GLOBAL BODIES)>
\
"SUBTITLE DOME, TEMPLE, EGYPT"
<ROOM ENGRAVINGS-CAVE ;"was CAVE4"
(IN ROOMS)
(LDESC
"You have entered a low cave with passages leading northwest and east.")
(DESC "Engravings Cave")
(NW TO ROUND-ROOM)
(EAST TO DOME-ROOM)
(FLAGS RLANDBIT)>
<ROOM EGYPT-ROOM ;"was EGYPT"
(IN ROOMS)
(LDESC
"This is a room which looks like an Egyptian tomb. There is an
ascending staircase to the west.")
(DESC "Egyptian Room")
(WEST TO NORTH-TEMPLE)
(UP TO NORTH-TEMPLE)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<ROOM DOME-ROOM ;"was DOME"
(IN ROOMS)
(DESC "Dome Room")
(WEST TO ENGRAVINGS-CAVE)
(DOWN TO TORCH-ROOM
IF DOME-FLAG ELSE "You cannot go down without fracturing many bones.")
(ACTION DOME-ROOM-FCN)
(FLAGS RLANDBIT)
(PSEUDO "DOME" DOME-PSEUDO)>
<ROOM TORCH-ROOM
(IN ROOMS)
(DESC "Torch Room")
(UP "You cannot reach the rope.")
(SOUTH TO NORTH-TEMPLE)
(DOWN TO NORTH-TEMPLE)
(ACTION TORCH-ROOM-FCN)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)
(PSEUDO "DOME" DOME-PSEUDO)>
<ROOM NORTH-TEMPLE ;"was TEMP1"
(IN ROOMS)
(LDESC
"This is the north end of a large temple. On the east wall is an
ancient inscription, probably a prayer in a long-forgotten language.
Below the prayer is a staircase leading down. The west wall is solid
granite. The exit to the north end of the room is through huge
marble pillars.")
(DESC "Temple")
(DOWN TO EGYPT-ROOM)
(EAST TO EGYPT-ROOM)
(NORTH TO TORCH-ROOM)
(OUT TO TORCH-ROOM)
(UP TO TORCH-ROOM)
(SOUTH TO SOUTH-TEMPLE)
(GLOBAL STAIRS)>
<ROOM SOUTH-TEMPLE ;"was TEMP2"
(IN ROOMS)
(LDESC
"This is the south end of a large temple. In front of you is what
appears to be an altar. In one corner is a small hole in the floor
which leads into darkness. You probably could not get back up it.")
(DESC "Altar")
(NORTH TO NORTH-TEMPLE)
(DOWN TO TINY-CAVE
IF COFFIN-CURE
ELSE "You haven't a prayer of getting the coffin down there.")
(ACTION SOUTH-TEMPLE-FCN)>
\
"SUBTITLE FLOOD CONTROL DAM #3"
The reservoir is underground (dark), but the dam and the river downstream are sunlit. (You can tell by the RAINBOW, and also by not needing a light source.) This is hard to visualize.
In MIT Zork, the CANYON-VIEW says “I can discern the top of the Flood Control Dam #3 far to the distant north.” By this version that has changed to “The mighty Frigid River flows out from a great dark cavern,” thus hanging a lantern on the problem.
(IN ROOMS)
(DESC "Dam")
(SOUTH TO DEEP-CANYON)
(DOWN TO DAM-BASE)
(EAST TO DAM-BASE)
(NORTH TO DAM-LOBBY)
(WEST TO RESERVOIR-SOUTH)
(ACTION DAM-ROOM-FCN)
(GLOBAL GLOBAL-WATER)>
<ROOM DAM-LOBBY ;"was LOBBY"
(IN ROOMS)
(LDESC
"This room appears to have been the waiting room for groups touring
the dam. There are open doorways here to the north and east marked
\"Private\", and there is a path leading south over the top of the dam.")
(DESC "Dam Lobby")
(SOUTH TO DAM-ROOM)
(NORTH TO MAINTENANCE-ROOM)
(EAST TO MAINTENANCE-ROOM)
<ROOM MAINTENANCE-ROOM ;"was MAINT"
(IN ROOMS)
(LDESC
"This is what appears to have been the maintenance room for Flood
Control Dam #3. Apparently, this room has been ransacked recently, for
most of the valuable equipment is gone. On the wall in front of you is a
group of buttons colored blue, yellow, brown, and red. There are doorways to
the west and south.")
(DESC "Maintenance Room")
(SOUTH TO DAM-LOBBY)
(WEST TO DAM-LOBBY)
(FLAGS RLANDBIT)>
\
"SUBTITLE RIVER AREA"
<ROOM DAM-BASE ;"was DOCK"
(IN ROOMS)
(LDESC
"You are at the base of Flood Control Dam #3, which looms above you
and to the north. The river Frigid is flowing by here. Along the
river are the White Cliffs which seem to form giant walls stretching
from north to south along the shores of the river as it winds its
way downstream.")
(DESC "Dam Base")
(NORTH TO DAM-ROOM)
(UP TO DAM-ROOM)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-1 ;"was RIVR1"
(IN ROOMS)
(LDESC
"You are on the Frigid River in the vicinity of the Dam. The river
flows quietly here. There is a landing on the west shore.")
(DESC "Frigid River")
(UP "You cannot go upstream due to strong currents.")
(WEST TO DAM-BASE)
(LAND TO DAM-BASE)
(DOWN TO RIVER-2)
(EAST "The White Cliffs prevent your landing here.")
(FLAGS NONLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-2 ;"was RIVR2"
(IN ROOMS)
(LDESC
"The river turns a corner here making it impossible to see the
Dam. The White Cliffs loom on the east bank and large rocks prevent
landing on the west.")
(DESC "Frigid River")
(UP "You cannot go upstream due to strong currents.")
(DOWN TO RIVER-3)
(LAND "There is no safe landing spot here.")
(EAST "The White Cliffs prevent your landing here.")
(WEST "Just in time you steer away from the rocks.")
(FLAGS NONLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-3 ;"was RIVR3"
(IN ROOMS)
(LDESC
"The river descends here into a valley. There is a narrow beach on the
west shore below the cliffs. In the distance a faint rumbling can be
heard.")
(DESC "Frigid River")
(UP "You cannot go upstream due to strong currents.")
(DOWN TO RIVER-4)
(LAND TO WHITE-CLIFFS-NORTH)
(WEST TO WHITE-CLIFFS-NORTH)
(FLAGS NONLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM WHITE-CLIFFS-NORTH ;"was WCLF1"
(IN ROOMS)
(LDESC
"You are on a narrow strip of beach which runs along the base of the
White Cliffs. There is a narrow path heading south along the Cliffs
and a tight passage leading west into the cliffs themselves.")
(DESC "White Cliffs Beach")
(SOUTH TO WHITE-CLIFFS-SOUTH IF DEFLATE ELSE "The path is too narrow.")
(ACTION WHITE-CLIFFS-FUNCTION)
(GLOBAL GLOBAL-WATER WHITE-CLIFF RIVER)>
<ROOM WHITE-CLIFFS-SOUTH ;"was WCLF2"
(IN ROOMS)
(LDESC
"You are on a rocky, narrow strip of beach beside the Cliffs. A
narrow path leads north along the shore.")
(DESC "White Cliffs Beach")
(NORTH TO WHITE-CLIFFS-NORTH
IF DEFLATE ELSE "The path is too narrow.")
(ACTION WHITE-CLIFFS-FUNCTION)
(GLOBAL GLOBAL-WATER WHITE-CLIFF RIVER)>
<ROOM RIVER-4 ;"was RIVR4"
(IN ROOMS)
(LDESC
"The river is running faster here and the sound ahead appears to be
that of rushing water. On the east shore is a sandy beach. A small
area of beach can also be seen below the cliffs on the west shore.")
(DESC "Frigid River")
(UP "You cannot go upstream due to strong currents.")
(DOWN TO RIVER-5)
(LAND "You can land either to the east or the west.")
(WEST TO WHITE-CLIFFS-SOUTH)
(EAST TO SANDY-BEACH)
(ACTION RIVR4-ROOM)
(FLAGS NONLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-5 ;"was RIVR5"
(IN ROOMS)
(LDESC
"The sound of rushing water is nearly unbearable here. On the east
shore is a large landing area.")
(DESC "Frigid River")
(UP "You cannot go upstream due to strong currents.")
(EAST TO SHORE)
(LAND TO SHORE)
(FLAGS NONLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SHORE ;"was FANTE"
(IN ROOMS)
(LDESC
"You are on the east shore of the river. The water here seems somewhat
treacherous. A path travels from north to south here, the south end
quickly turning around a sharp corner.")
(DESC "Shore")
(NORTH TO SANDY-BEACH)
(SOUTH TO ARAGAIN-FALLS)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SANDY-BEACH ;"was BEACH"
(IN ROOMS)
(LDESC
"You are on a large sandy beach on the east shore of the river, which is
flowing quickly by. A path runs beside the river to the south here, and
a passage is partially buried in sand to the northeast.")
(DESC "Sandy Beach")
(NE TO SANDY-CAVE)
(SOUTH TO SHORE)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SANDY-CAVE ;"was TCAVE"
(IN ROOMS)
(LDESC
"This is a sand-filled cave whose exit is to the southwest.")
(DESC "Sandy Cave")
(SW TO SANDY-BEACH)
(FLAGS RLANDBIT)>
<ROOM ARAGAIN-FALLS ;"was FALLS"
(IN ROOMS)
(DESC "Aragain Falls")
(WEST TO ON-RAINBOW IF RAINBOW-FLAG)
(DOWN "It's a long way...")
(NORTH TO SHORE)
(UP TO ON-RAINBOW IF RAINBOW-FLAG)
(ACTION FALLS-ROOM)
(GLOBAL GLOBAL-WATER RIVER RAINBOW)>
<ROOM ON-RAINBOW ;"was RAINB"
(IN ROOMS)
(LDESC
"You are on top of a rainbow (I bet you never thought you would walk
on a rainbow), with a magnificent view of the Falls. The rainbow
travels east-west here.")
(DESC "On the Rainbow")
(WEST TO END-OF-RAINBOW)
(EAST TO ARAGAIN-FALLS)
(GLOBAL RAINBOW)>
<ROOM END-OF-RAINBOW ;"was POG"
(IN ROOMS)
(LDESC
"You are on a small, rocky beach on the continuation of the Frigid
River past the Falls. The beach is narrow due to the presence of the
White Cliffs. The river canyon opens here and sunlight shines in
from above. A rainbow crosses over the falls to the east and a narrow
path continues to the southwest.")
(DESC "End of Rainbow")
(UP TO ON-RAINBOW IF RAINBOW-FLAG)
(NE TO ON-RAINBOW IF RAINBOW-FLAG)
(EAST TO ON-RAINBOW IF RAINBOW-FLAG)
(SW TO CANYON-BOTTOM)
(GLOBAL GLOBAL-WATER RAINBOW RIVER)>
<ROOM CANYON-BOTTOM ;"was CLBOT"
(IN ROOMS)
(LDESC
"You are beneath the walls of the river canyon which may be climbable
here. The lesser part of the runoff of Aragain Falls flows by below.
To the north is a narrow path.")
(DESC "Canyon Bottom")
(UP TO CLIFF-MIDDLE)
(NORTH TO END-OF-RAINBOW)
(GLOBAL GLOBAL-WATER CLIMBABLE-CLIFF RIVER)>
<ROOM CLIFF-MIDDLE ;"was CLMID"
(IN ROOMS)
(LDESC
"You are on a ledge about halfway up the wall of the river canyon.
You can see from here that the main flow from Aragain Falls twists
along a passage which it is impossible for you to enter. Below you is the
canyon bottom. Above you is more cliff, which appears
climbable.")
(DESC "Rocky Ledge")
(UP TO CANYON-VIEW)
(DOWN TO CANYON-BOTTOM)
(GLOBAL CLIMBABLE-CLIFF RIVER)>
The mighty Frigid River runs aboveground until it doesn’t. See DAM-ROOM.
(IN ROOMS)
(LDESC
"You are at the top of the Great Canyon on its west wall. From here
there is a marvelous view of the canyon and parts of the Frigid River
upstream. Across the canyon, the walls of the White Cliffs join the
mighty ramparts of the Flathead Mountains to the east. Following the
Canyon upstream to the north, Aragain Falls may be seen, complete with
rainbow. The mighty Frigid River flows out from a great dark cavern. To
the west and south can be seen an immense forest, stretching for miles
around. A path leads northwest. It is possible to climb down into
the canyon from here.")
(DESC "Canyon View")
(EAST TO CLIFF-MIDDLE)
(DOWN TO CLIFF-MIDDLE)
(NW TO CLEARING)
(WEST TO FOREST-3)
(SOUTH "Storm-tossed trees block your way.")
(GLOBAL CLIMBABLE-CLIFF RIVER RAINBOW)
(ACTION CANYON-VIEW-F)>
<ROUTINE CANYON-VIEW-F (RARG)
<COND (<AND <==? .RARG ,M-BEG>
<VERB? LEAP>
<NOT ,PRSO>>
<JIGS-UP "Nice view, lousy place to jump.">
<RTRUE>)>>
\
"SUBTITLE COAL MINE AREA"
<ROOM MINE-ENTRANCE ;"was ENTRA"
(IN ROOMS)
(LDESC
"You are standing at the entrance of what might have been a coal mine.
The shaft enters the west wall, and there is another exit on the south
end of the room.")
(DESC "Mine Entrance")
(SOUTH TO SLIDE-ROOM)
(IN TO SQUEEKY-ROOM)
(WEST TO SQUEEKY-ROOM)
(FLAGS RLANDBIT)>
<ROOM SQUEEKY-ROOM ;"was SQUEE"
(IN ROOMS)
(LDESC
"You are in a small room. Strange squeaky sounds may be heard coming
from the passage at the north end. You may also escape to the east.")
(DESC "Squeaky Room")
(NORTH TO BAT-ROOM)
(EAST TO MINE-ENTRANCE)
(FLAGS RLANDBIT)>
<ROOM BAT-ROOM ;"was BATS"
(IN ROOMS)
(DESC "Bat Room")
(SOUTH TO SQUEEKY-ROOM)
(EAST TO SHAFT-ROOM)
(ACTION BATS-ROOM)
<ROOM SHAFT-ROOM ;"was TSHAF"
(IN ROOMS)
(LDESC
"This is a large room, in the middle of which is a small shaft
descending through the floor into darkness below. To the west and
the north are exits from this room. Constructed over the top of the
shaft is a metal framework to which a heavy iron chain is attached.")
(DESC "Shaft Room")
(DOWN "You wouldn't fit and would die if you could.")
(WEST TO BAT-ROOM)
(NORTH TO SMELLY-ROOM)
(FLAGS RLANDBIT)
(PSEUDO "CHAIN" CHAIN-PSEUDO)>
<ROOM SMELLY-ROOM ;"was SMELL"
(IN ROOMS)
(LDESC
"This is a small non-descript room. However, from the direction
of a small descending staircase a foul odor can be detected. To the
south is a narrow tunnel.")
(DESC "Smelly Room")
(DOWN TO GAS-ROOM)
(SOUTH TO SHAFT-ROOM)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)
(PSEUDO "ODOR" GAS-PSEUDO "GAS" GAS-PSEUDO)>
<ROOM GAS-ROOM ;"was BOOM"
(IN ROOMS)
(LDESC
"This is a small room which smells strongly of coal gas. There is a
short climb up some stairs and a narrow tunnel leading east.")
(DESC "Gas Room")
(UP TO SMELLY-ROOM)
(EAST TO MINE-1)
(ACTION BOOM-ROOM)
(GLOBAL STAIRS)
(PSEUDO "GAS" GAS-PSEUDO "ODOR" GAS-PSEUDO)>
<ROOM LADDER-TOP ;"was TLADD"
(IN ROOMS)
(LDESC
"This is a very small room. In the corner is a rickety wooden
ladder, leading downward. It might be safe to descend. There is
also a staircase leading upward.")
(DESC "Ladder Top")
(DOWN TO LADDER-BOTTOM)
(UP TO MINE-4)
(FLAGS RLANDBIT)
<ROOM LADDER-BOTTOM ;"was BLADD"
(IN ROOMS)
(LDESC
"This is a rather wide room. On one side is the bottom of a
narrow wooden ladder. To the west and the south are passages
leaving the room.")
(DESC "Ladder Bottom")
(SOUTH TO DEAD-END-5)
(WEST TO TIMBER-ROOM)
(UP TO LADDER-TOP)
(FLAGS RLANDBIT)
(GLOBAL LADDER)>
<ROOM DEAD-END-5 ;"was DEAD7"
(IN ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the mine.")
(NORTH TO LADDER-BOTTOM)
(FLAGS RLANDBIT)>
The timbers are left over from an MIT Zork puzzle in which you had to anchor the rope at the top of the SLIDE-ROOM and lower yourself halfway down. The puzzle was dropped from this version of Zork, but a variation appeared in Sorcerer.
(IN ROOMS)
(LDESC
"This is a long and narrow passage, which is cluttered with broken
timbers. A wide passage comes from the east and turns at the
west end of the room into a very narrow passageway. From the west
comes a strong draft.")
(DESC "Timber Room")
(EAST TO LADDER-BOTTOM)
(WEST TO LOWER-SHAFT
IF EMPTY-HANDED
ELSE "You cannot fit through this passage with that load.")
(ACTION NO-OBJS)
<ROOM LOWER-SHAFT ;"was BSHAF"
(IN ROOMS)
(LDESC
"This is a small drafty room in which is the bottom of a long
shaft. To the south is a passageway and to the east a very narrow
passage. In the shaft can be seen a heavy iron chain.")
(DESC "Drafty Room")
(SOUTH TO MACHINE-ROOM)
(OUT TO TIMBER-ROOM
IF EMPTY-HANDED
ELSE "You cannot fit through this passage with that load.")
(EAST TO TIMBER-ROOM
IF EMPTY-HANDED
ELSE "You cannot fit through this passage with that load.")
(ACTION NO-OBJS)
(PSEUDO "CHAIN" CHAIN-PSEUDO)>
<ROOM MACHINE-ROOM ;"was MACHI"
(IN ROOMS)
(DESC "Machine Room")
(NORTH TO LOWER-SHAFT)
(ACTION MACHINE-ROOM-FCN)
(FLAGS RLANDBIT)>
\
"SUBTITLE COAL MINE"
<ROOM MINE-1 ;"was MINE1"
(IN ROOMS)
(LDESC "This is a non-descript part of a coal mine.")
(DESC "Coal Mine")
(NORTH TO GAS-ROOM)
(EAST TO MINE-1)
(NE TO MINE-2)
(FLAGS RLANDBIT)>
<ROOM MINE-2 ;"was MINE2"
(IN ROOMS)
(LDESC "This is a non-descript part of a coal mine.")
(DESC "Coal Mine")
(NORTH TO MINE-2)
(SOUTH TO MINE-1)
(SE TO MINE-3)
(FLAGS RLANDBIT)>
<ROOM MINE-3 ;"was MINE3"
(IN ROOMS)
(LDESC "This is a non-descript part of a coal mine.")
(DESC "Coal Mine")
(SOUTH TO MINE-3)
(SW TO MINE-4)
(EAST TO MINE-2)
(FLAGS RLANDBIT)>
<ROOM MINE-4 ;"was MINE4"
(IN ROOMS)
(LDESC "This is a non-descript part of a coal mine.")
(DESC "Coal Mine")
(NORTH TO MINE-3)
(WEST TO MINE-4)
(DOWN TO LADDER-TOP)
(FLAGS RLANDBIT)>
<ROOM SLIDE-ROOM ;"was SLIDE"
(IN ROOMS)
(LDESC
"This is a small chamber, which appears to have been part of a
coal mine. On the south wall of the chamber the letters \"Granite
Wall\" are etched in the rock. To the east is a long passage, and
there is a steep metal slide twisting downward. To the north is
a small opening.")
(DESC "Slide Room")
(EAST TO COLD-PASSAGE)
(NORTH TO MINE-ENTRANCE)
(DOWN TO CELLAR)
(FLAGS RLANDBIT)
(GLOBAL SLIDE)>
\
;"RANDOM TABLES FOR WALK-AROUND"
If you type WALK AROUND HOUSE while standing near the house, this table takes you in a neat circle around it.
If you type WALK AROUND FOREST while in the forest, this table takes you for a nice (non-random) ramble.
If you type WALK AROUND HOUSE while standing inside the house... it doesn’t work because the WHITE-HOUSE scenery object isn’t visible. There’s a bit of code which wants to use this table but it never runs.
<LTABLE LIVING-ROOM KITCHEN ATTIC KITCHEN>>
If you die, your possessions are scattered above ground according to this table. See RANDOMIZE-OBJECTS.
;"The GO routine must live here."
Set up the world at the start of the game. Start the timers. Print the banner. Set all those useful globals like HERE and PLAYER.
<PUTP ,INFLATED-BOAT ,P?VTYPE ,NONLANDBIT>
<SETG HERE ,WEST-OF-HOUSE>
<CRLF>)>
<SETG LIT T>
<SETG WINNER ,ADVENTURER>
<V-LOOK>
<AGAIN>>