historicalsource
/
zork1-gold
mirror of https://github.com/historicalsource/zork1-gold
1
0
Fork 0
Code Issues Releases Wiki Activity
zork1-gold/dungeon.zil

2730 lines
70 KiB
Plaintext
Raw Permalink Blame History

"1DUNGEON for
Zork I: The Great Underground Empire
(c) Copyright 1983 Infocom, Inc. All Rights Reserved.
-- CHEAPO EDITION"
<GLOBAL SCORE-MAX 350>
<GLOBAL FALSE-FLAG <>>
"SUBTITLE OBJECTS"
<OBJECT BOARD
(LOC LOCAL-GLOBALS)
(SYNONYM BOARDS BOARD)
(DESC "board")
(FLAGS NDESCBIT)
(ACTION BOARD-F)>
<OBJECT TEETH
(LOC GLOBAL-OBJECTS)
(SYNONYM OVERBOARD TEETH)
(DESC "set of teeth")
(FLAGS NDESCBIT)
(ACTION TEETH-F)>
<OBJECT WALL
(LOC GLOBAL-OBJECTS)
(SYNONYM WALL WALLS)
(ADJECTIVE SURROUNDING)
(DESC "surrounding wall")>
<OBJECT GRANITE-WALL
(LOC GLOBAL-OBJECTS)
(SYNONYM WALL)
(ADJECTIVE GRANITE)
(DESC "granite wall")
(ACTION GRANITE-WALL-F)>
<OBJECT SONGBIRD
(LOC LOCAL-GLOBALS)
(SYNONYM BIRD SONGBIRD)
(ADJECTIVE SONG)
(DESC "songbird")
(FLAGS NDESCBIT)
(ACTION SONGBIRD-F)>
<OBJECT WHITE-HOUSE
(LOC LOCAL-GLOBALS)
(SYNONYM HOUSE)
(ADJECTIVE WHITE BEAUTIFUL COLONIAL)
(DESC "white house")
(FLAGS NDESCBIT)
(ACTION WHITE-HOUSE-F)>
<OBJECT FOREST
(LOC LOCAL-GLOBALS)
(SYNONYM FOREST TREES PINES HEMLOCKS)
(DESC "forest")
(FLAGS NDESCBIT)
(ACTION FOREST-F)>
<OBJECT TREE
(LOC LOCAL-GLOBALS)
(SYNONYM TREE BRANCH)
(ADJECTIVE LARGE STORM-TOSSED ;"-TOSSED")
(DESC "tree")
(FLAGS NDESCBIT CLIMBBIT)>
<OBJECT MOUNTAIN-RANGE
(LOC MOUNTAINS)
(DESC "mountain range")
(SYNONYM MOUNTAIN RANGE)
(ADJECTIVE IMPASSABLE FLATHEAD)
(FLAGS NDESCBIT CLIMBBIT)
(ACTION MOUNTAIN-RANGE-F)>
<OBJECT GLOBAL-WATER
(LOC LOCAL-GLOBALS)
(SYNONYM WATER QUANTITY)
(DESC "water")
(FLAGS DRINKBIT)
(ACTION WATER-F)>
<OBJECT WATER
(LOC BOTTLE)
(SYNONYM WATER QUANTITY LIQUID H2O)
(DESC "quantity of water")
(FLAGS TRYTAKEBIT TAKEBIT DRINKBIT)
(ACTION WATER-F)
(SIZE 4)>
<OBJECT KITCHEN-WINDOW
(LOC LOCAL-GLOBALS)
(SYNONYM WINDOW)
(ADJECTIVE KITCHEN SMALL)
(DESC "kitchen window")
(FLAGS DOORBIT NDESCBIT)
(ACTION KITCHEN-WINDOW-F)>
<OBJECT CHIMNEY
(LOC LOCAL-GLOBALS)
(SYNONYM CHIMNEY)
(ADJECTIVE DARK NARROW)
(DESC "chimney")
(ACTION CHIMNEY-F)
(FLAGS CLIMBBIT NDESCBIT)>
<OBJECT GHOSTS
(LOC ENTRANCE-TO-HADES)
(SYNONYM GHOSTS SPIRITS FIENDS FORCE)
(ADJECTIVE INVISIBLE EVIL)
(DESC "number of ghosts")
(FLAGS ACTORBIT NDESCBIT)
(ACTION GHOSTS-F)>
<OBJECT SKULL
(LOC LAND-OF-LIVING-DEAD)
(SYNONYM SKULL)
(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)>
<OBJECT LOWERED-BASKET
(LOC 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
(LOC 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
(LOC SANDWICH-BAG)
(SYNONYM FOOD SANDWICH LUNCH DINNER)
(ADJECTIVE HOT PEPPER)
(DESC "lunch")
(FLAGS TAKEBIT FOODBIT)
(LDESC "A hot pepper sandwich is here.")>
<OBJECT BAT
(LOC BAT-ROOM)
(SYNONYM BAT VAMPIRE)
(ADJECTIVE VAMPIRE DERANGED)
(DESC "bat")
(FLAGS ACTORBIT TRYTAKEBIT)
(DESCFCN BAT-D)
(ACTION BAT-F)>
<OBJECT BELL
(LOC 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
(LOC TROLL)
(SYNONYM AXE AX)
(ADJECTIVE BLOODY)
(DESC "bloody axe")
(FLAGS WEAPONBIT TRYTAKEBIT TAKEBIT NDESCBIT)
(ACTION AXE-F)
(SIZE 25)>
<OBJECT BOLT
(LOC DAM-ROOM)
(SYNONYM BOLT NUT)
(ADJECTIVE METAL LARGE)
(DESC "bolt")
(FLAGS NDESCBIT TURNBIT TRYTAKEBIT)
(ACTION BOLT-F)>
<OBJECT BUBBLE
(LOC DAM-ROOM)
(SYNONYM BUBBLE)
(ADJECTIVE SMALL GREEN PLASTIC)
(DESC "green bubble")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION BUBBLE-F)>
<OBJECT ALTAR
(LOC SOUTH-TEMPLE)
(SYNONYM ALTAR)
(DESC "altar")
(FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT)
(CAPACITY 50)>
<OBJECT BOOK
(LOC ALTAR)
(SYNONYM BOOK PRAYER PAGE BOOKS)
(ADJECTIVE LARGE BLACK)
(DESC "black book")
(FLAGS READBIT TAKEBIT CONTBIT BURNBIT TURNBIT)
(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
(LOC COFFIN)
(SYNONYM SCEPTRE SCEPTER TREASURE)
(ADJECTIVE SHARP EGYPTIAN ANCIENT ENAMELED)
(DESC "sceptre")
(FLAGS TAKEBIT WEAPONBIT)
(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
(LOC TIMBER-ROOM)
(SYNONYM TIMBERS PILE TIMBER)
(ADJECTIVE WOODEN BROKEN)
(DESC "broken timber")
(FLAGS TAKEBIT)
(SIZE 50)>
<OBJECT SLIDE
(LOC LOCAL-GLOBALS)
(SYNONYM CHUTE RAMP SLIDE)
(ADJECTIVE STEEP METAL TWISTING)
(DESC "chute")
(FLAGS CLIMBBIT)
(ACTION SLIDE-FUNCTION)>
<OBJECT KITCHEN-TABLE
(LOC KITCHEN)
(SYNONYM TABLE)
(ADJECTIVE KITCHEN)
(DESC "kitchen table")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(CAPACITY 50)>
<OBJECT ATTIC-TABLE
(LOC ATTIC)
(SYNONYM TABLE)
(DESC "table")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(CAPACITY 40)>
<OBJECT SANDWICH-BAG
(LOC KITCHEN-TABLE)
(SYNONYM BAG SACK)
(ADJECTIVE BROWN ELONGATED SMELLY)
(DESC "brown sack")
(FLAGS TAKEBIT CONTBIT BURNBIT)
(FDESC
"On the table is an elongated brown sack, smelling of hot peppers.")
(CAPACITY 9)
(SIZE 9)
(ACTION SANDWICH-BAG-FCN)>
<OBJECT TOOL-CHEST
(LOC 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
(LOC MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE YELLOW)
(DESC "yellow button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT BROWN-BUTTON
(LOC MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE BROWN)
(DESC "brown button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT RED-BUTTON
(LOC MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE RED)
(DESC "red button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT BLUE-BUTTON
(LOC MAINTENANCE-ROOM)
(SYNONYM BUTTON SWITCH)
(ADJECTIVE BLUE)
(DESC "blue button")
(FLAGS NDESCBIT)
(ACTION BUTTON-F)>
<OBJECT TROPHY-CASE
(LOC LIVING-ROOM)
(SYNONYM CASE)
(ADJECTIVE TROPHY)
(DESC "trophy case")
(FLAGS TRANSBIT CONTBIT NDESCBIT TRYTAKEBIT SEARCHBIT)
(ACTION TROPHY-CASE-FCN)
(CAPACITY 10000)>
<OBJECT RUG
(LOC LIVING-ROOM)
(SYNONYM RUG CARPET)
(ADJECTIVE LARGE ORIENTAL)
(DESC "carpet")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION RUG-FCN)>
<OBJECT CHALICE
(LOC TREASURE-ROOM)
(SYNONYM CHALICE CUP SILVER TREASURE)
(ADJECTIVE SILVER ENGRAVINGS)
(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)>
<OBJECT GARLIC
(LOC SANDWICH-BAG)
(SYNONYM GARLIC CLOVE)
(DESC "clove of garlic")
(FLAGS TAKEBIT FOODBIT)
(ACTION GARLIC-F)
(SIZE 4)>
<OBJECT TRIDENT
(LOC 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
(LOC CYCLOPS-ROOM)
(SYNONYM CYCLOPS MONSTER EYE)
(ADJECTIVE HUNGRY GIANT)
(DESC "cyclops")
(FLAGS ACTORBIT NDESCBIT TRYTAKEBIT)
(ACTION CYCLOPS-FCN)
(STRENGTH 10000)>
<OBJECT DAM
(LOC DAM-ROOM)
(SYNONYM DAM GATE GATES FCD\#3)
(DESC "dam")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION DAM-FUNCTION)>
<OBJECT TRAP-DOOR
(LOC LIVING-ROOM)
(SYNONYM DOOR TRAPDOOR TRAP-DOOR COVER)
(ADJECTIVE TRAP DUSTY)
(DESC "trap door")
(FLAGS DOORBIT NDESCBIT INVISIBLE)
(ACTION TRAP-DOOR-FCN)>
<OBJECT BOARDED-WINDOW
(LOC LOCAL-GLOBALS)
(SYNONYM WINDOW)
(ADJECTIVE BOARDED)
(DESC "boarded window")
(FLAGS NDESCBIT)
(ACTION BOARDED-WINDOW-FCN)>
<OBJECT FRONT-DOOR
(LOC WEST-OF-HOUSE)
(SYNONYM DOOR)
(ADJECTIVE FRONT BOARDED)
(DESC "door")
(FLAGS DOORBIT NDESCBIT)
(ACTION FRONT-DOOR-FCN)>
<OBJECT BARROW-DOOR
(LOC STONE-BARROW)
(SYNONYM DOOR)
(ADJECTIVE HUGE STONE)
(DESC "stone door")
(FLAGS DOORBIT NDESCBIT OPENBIT)
(ACTION BARROW-DOOR-FCN)>
<OBJECT BARROW
(LOC STONE-BARROW)
(SYNONYM BARROW TOMB)
(ADJECTIVE MASSIVE STONE)
(DESC "stone barrow")
(FLAGS NDESCBIT)
(ACTION BARROW-FCN)>
<OBJECT BOTTLE
(LOC KITCHEN-TABLE)
(SYNONYM BOTTLE CONTAINER)
(ADJECTIVE CLEAR GLASS)
(DESC "glass bottle")
(FLAGS TAKEBIT TRANSBIT CONTBIT)
(ACTION BOTTLE-FUNCTION)
(FDESC "A bottle is sitting on the table.")
(CAPACITY 4)>
<OBJECT CRACK
(LOC LOCAL-GLOBALS)
(SYNONYM CRACK)
(ADJECTIVE NARROW)
(DESC "crack")
(FLAGS NDESCBIT)
(ACTION CRACK-FCN)>
<OBJECT COFFIN
(LOC EGYPT-ROOM)
(SYNONYM COFFIN CASKET TREASURE)
(ADJECTIVE SOLID GOLD)
(DESC "gold coffin")
(FLAGS TAKEBIT CONTBIT SACREDBIT SEARCHBIT)
(LDESC
"The solid-gold coffin used for the burial of Ramses II is here.")
(CAPACITY 35)
(SIZE 55)
(VALUE 10)
(TVALUE 15)>
<OBJECT GRATE
(LOC LOCAL-GLOBALS)
(SYNONYM GRATE GRATING)
(DESC "grating")
(FLAGS DOORBIT NDESCBIT INVISIBLE)
(ACTION GRATE-FUNCTION)>
<OBJECT PUMP
(LOC RESERVOIR-NORTH)
(SYNONYM PUMP AIR-PUMP TOOL TOOLS)
(ADJECTIVE SMALL HAND-HELD)
(DESC "hand-held air pump")
(FLAGS TAKEBIT TOOLBIT)>
<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
(LOC 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
(LOC 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)>
<OBJECT BONES
(LOC MAZE-5)
(SYNONYM BONES SKELETON BODY)
(DESC "skeleton")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION SKELETON)>
<OBJECT BURNED-OUT-LANTERN
(LOC 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
(LOC 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
(LOC LIVING-ROOM)
(SYNONYM LAMP LANTERN LIGHT)
(ADJECTIVE BRASS)
(DESC "brass lantern")
(FLAGS TAKEBIT LIGHTBIT)
(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
(LOC BUOY)
(SYNONYM EMERALD TREASURE)
(ADJECTIVE LARGE)
(DESC "large emerald")
(FLAGS TAKEBIT)
(VALUE 5)
(TVALUE 10)>
<OBJECT ADVERTISEMENT
(LOC MAILBOX)
(SYNONYM ADVERTISEMENT LEAFLET BOOKLET MAIL)
(ADJECTIVE SMALL)
(DESC "leaflet")
(FLAGS READBIT TAKEBIT BURNBIT)
(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
(LOC MAINTENANCE-ROOM)
(SYNONYM LEAK DRIP PIPE)
(DESC "leak")
(FLAGS NDESCBIT INVISIBLE)
(ACTION LEAK-FUNCTION)>
<OBJECT MACHINE
(LOC 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")
(FLAGS TAKEBIT BURNBIT VEHBIT OPENBIT SEARCHBIT)
(ACTION RBOAT-FUNCTION)
(CAPACITY 100)
(SIZE 20)
(VTYPE NONLANDBIT)>
<OBJECT MAILBOX
(LOC WEST-OF-HOUSE)
(SYNONYM MAILBOX BOX)
(ADJECTIVE SMALL)
(DESC "small mailbox")
(FLAGS CONTBIT TRYTAKEBIT)
(CAPACITY 10)
(ACTION MAILBOX-F)>
<OBJECT MATCH
(LOC DAM-LOBBY)
(SYNONYM MATCH MATCHES MATCHBOOK)
(ADJECTIVE MATCH)
(DESC "matchbook")
(FLAGS READBIT TAKEBIT)
(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
(LOC MIRROR-ROOM-2)
(SYNONYM REFLECTION MIRROR ENORMOUS)
(DESC "mirror")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION MIRROR-MIRROR)>
<OBJECT MIRROR-1
(LOC MIRROR-ROOM-1)
(SYNONYM REFLECTION MIRROR ENORMOUS)
(DESC "mirror")
(FLAGS TRYTAKEBIT NDESCBIT)
(ACTION MIRROR-MIRROR)>
<OBJECT PAINTING
(LOC GALLERY)
(SYNONYM PAINTING ART CANVAS TREASURE)
(ADJECTIVE BEAUTIFUL)
(DESC "painting")
(FLAGS TAKEBIT BURNBIT)
(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
(LOC SOUTH-TEMPLE)
(SYNONYM CANDLES PAIR)
(ADJECTIVE BURNING)
(DESC "pair of candles")
(FLAGS TAKEBIT FLAMEBIT ONBIT LIGHTBIT)
(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
(LOC LOCAL-GLOBALS)
(SYNONYM BODIES BODY REMAINS PILE)
(ADJECTIVE MANGLED)
(DESC "pile of bodies")
(FLAGS NDESCBIT TRYTAKEBIT)
(ACTION BODY-FUNCTION)>
<OBJECT LEAVES
(LOC 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")
(FLAGS TAKEBIT BURNBIT)
(ACTION DBOAT-FUNCTION)
(SIZE 20)>
<OBJECT INFLATABLE-BOAT
(LOC DAM-BASE)
(SYNONYM BOAT PILE PLASTIC VALVE)
(ADJECTIVE PLASTIC INFLATABLE)
(DESC "pile of plastic")
(FLAGS TAKEBIT BURNBIT)
(ACTION IBOAT-FUNCTION)
(LDESC
"There is a folded pile of plastic here which has a small valve
attached.")
(SIZE 20)>
<OBJECT BAR
(LOC LOUD-ROOM)
(SYNONYM BAR PLATINUM TREASURE)
(ADJECTIVE PLATINUM LARGE)
(DESC "platinum bar")
(FLAGS TAKEBIT SACREDBIT)
(LDESC "On the ground is a large platinum bar.")
(SIZE 20)
(VALUE 10)
(TVALUE 5)>
<OBJECT POT-OF-GOLD
(LOC END-OF-RAINBOW)
(SYNONYM POT GOLD TREASURE)
(ADJECTIVE GOLD)
(DESC "pot of gold")
(FLAGS TAKEBIT INVISIBLE)
(FDESC "At the end of the rainbow is a pot of gold.")
(SIZE 15)
(VALUE 10)
(TVALUE 10)>
<OBJECT PRAYER
(LOC NORTH-TEMPLE)
(SYNONYM PRAYER INSCRIPTION)
(ADJECTIVE ANCIENT OLD)
(DESC "prayer")
(FLAGS READBIT SACREDBIT NDESCBIT)
(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
(LOC DOME-ROOM)
(SYNONYM RAILING RAIL)
(ADJECTIVE WOODEN)
(DESC "wooden railing")
(FLAGS NDESCBIT)>
<OBJECT RAINBOW
(LOC LOCAL-GLOBALS)
(SYNONYM RAINBOW)
(DESC "rainbow")
(FLAGS NDESCBIT CLIMBBIT)
(ACTION RAINBOW-FCN)>
<OBJECT RIVER
(LOC LOCAL-GLOBALS)
(DESC "river")
(SYNONYM RIVER)
(ADJECTIVE FRIGID)
(ACTION RIVER-FUNCTION)
(FLAGS NDESCBIT)>
<OBJECT BUOY
(LOC RIVER-4)
(SYNONYM BUOY)
(ADJECTIVE RED)
(DESC "red buoy")
(FLAGS TAKEBIT CONTBIT)
(FDESC "There is a red buoy here (probably a warning).")
(CAPACITY 20)
(SIZE 10)
(ACTION TREASURE-INSIDE)>
<ROUTINE TREASURE-INSIDE ()
<COND (<VERB? OPEN>
<SCORE-OBJ ,EMERALD>
<RFALSE>)>>
<OBJECT ROPE
(LOC 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
(LOC 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
(LOC SANDY-CAVE)
(SYNONYM SAND)
(DESC "sand")
(FLAGS NDESCBIT)
(ACTION SAND-FUNCTION)>
<OBJECT BRACELET
(LOC GAS-ROOM)
(SYNONYM BRACELET JEWEL SAPPHIRE TREASURE)
(ADJECTIVE SAPPHIRE)
(DESC "sapphire-encrusted bracelet")
(FLAGS TAKEBIT)
(SIZE 10)
(VALUE 5)
(TVALUE 5)>
<OBJECT SCREWDRIVER
(LOC MAINTENANCE-ROOM)
(SYNONYM SCREWDRIVER TOOL TOOLS DRIVER)
(ADJECTIVE SCREW)
(DESC "screwdriver")
(FLAGS TAKEBIT TOOLBIT)>
<OBJECT KEYS
(LOC MAZE-5)
(SYNONYM KEY)
(ADJECTIVE SKELETON)
(DESC "skeleton key")
(FLAGS TAKEBIT TOOLBIT)
(SIZE 10)>
<OBJECT SHOVEL
(LOC SANDY-BEACH)
(SYNONYM SHOVEL TOOL TOOLS)
(DESC "shovel")
(FLAGS TAKEBIT TOOLBIT)
(SIZE 15)>
<OBJECT COAL
(LOC DEAD-END-5)
(SYNONYM COAL PILE HEAP)
(ADJECTIVE SMALL)
(DESC "small pile of coal")
(FLAGS TAKEBIT BURNBIT)
(SIZE 20)>
<OBJECT LADDER
(LOC LOCAL-GLOBALS)
(SYNONYM LADDER)
(ADJECTIVE WOODEN RICKETY NARROW)
(DESC "wooden ladder")
(FLAGS NDESCBIT CLIMBBIT)>
<OBJECT SCARAB
(LOC SANDY-CAVE)
(SYNONYM SCARAB BUG BEETLE TREASURE)
(ADJECTIVE BEAUTIFUL CARVED JEWELED)
(DESC "beautiful jeweled scarab")
(FLAGS TAKEBIT INVISIBLE)
(SIZE 8)
(VALUE 5)
(TVALUE 5)>
<OBJECT LARGE-BAG
(LOC THIEF)
(SYNONYM BAG)
(ADJECTIVE LARGE THIEFS THIEF\'S)
(DESC "large bag")
(ACTION LARGE-BAG-F)
(FLAGS TRYTAKEBIT NDESCBIT)>
<OBJECT STILETTO
(LOC THIEF)
(SYNONYM STILETTO)
(ADJECTIVE VICIOUS)
(DESC "stiletto")
(ACTION STILETTO-FUNCTION)
(FLAGS WEAPONBIT TRYTAKEBIT TAKEBIT NDESCBIT)
(SIZE 10)>
<OBJECT MACHINE-SWITCH
(LOC MACHINE-ROOM)
(SYNONYM SWITCH)
(DESC "switch")
(FLAGS NDESCBIT TURNBIT)
(ACTION MSWITCH-FUNCTION)>
<OBJECT WOODEN-DOOR
(LOC LIVING-ROOM)
(SYNONYM DOOR LETTERING WRITING)
(ADJECTIVE WOODEN GOTHIC STRANGE WEST)
(DESC "wooden door")
(FLAGS READBIT DOORBIT NDESCBIT TRANSBIT)
(ACTION FRONT-DOOR-FCN)
(TEXT
"The engravings translate to \"This space intentionally left blank.\"")>
<OBJECT SWORD
(LOC 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
(LOC TROPHY-CASE)
(SYNONYM PARCHMENT MAP)
(ADJECTIVE ANTIQUE OLD ANCIENT)
(DESC "ancient map")
(FLAGS INVISIBLE READBIT TAKEBIT)
(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
(LOC INFLATED-BOAT)
(SYNONYM LABEL FINEPRINT PRINT)
(ADJECTIVE TAN FINE)
(DESC "tan label")
(FLAGS READBIT TAKEBIT BURNBIT)
(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
(LOC 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
(LOC TORCH-ROOM)
(SYNONYM PEDESTAL)
(ADJECTIVE WHITE MARBLE)
(DESC "pedestal")
(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT)
(ACTION DUMB-CONTAINER)
(CAPACITY 30)>
<OBJECT TORCH
(LOC PEDESTAL)
(SYNONYM TORCH IVORY TREASURE)
(ADJECTIVE FLAMING IVORY)
(DESC "torch")
(FLAGS TAKEBIT FLAMEBIT ONBIT LIGHTBIT)
(ACTION TORCH-OBJECT)
(FDESC "Sitting on the pedestal is a flaming torch, made of ivory.")
(SIZE 20)
(VALUE 14)
(TVALUE 6)>
<OBJECT GUIDE
(LOC DAM-LOBBY)
(SYNONYM GUIDE BOOK BOOKS GUIDEBOOKS)
(ADJECTIVE TOUR GUIDE)
(DESC "tour guidebook")
(FLAGS READBIT TAKEBIT BURNBIT)
(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.|
|
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 could type),
12,256 paper shufflers, 52,469 rubber stampers, 245,193 red tape
processors, and nearly one million dead trees.|
|
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...." )>
<OBJECT TROLL
(LOC 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
(LOC RESERVOIR)
(SYNONYM TRUNK CHEST JEWELS TREASURE)
(ADJECTIVE OLD)
(DESC "trunk of jewels")
(FLAGS TAKEBIT INVISIBLE)
(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
(LOC MAINTENANCE-ROOM)
(SYNONYM TUBE TOOTH PASTE)
(DESC "tube")
(FLAGS TAKEBIT CONTBIT READBIT)
(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
(LOC TUBE)
(SYNONYM MATERIAL GUNK)
(ADJECTIVE VISCOUS)
(DESC "viscous material")
(FLAGS TAKEBIT TOOLBIT)
(SIZE 6)
(ACTION PUTTY-FCN)>
<OBJECT ENGRAVINGS
(LOC ENGRAVINGS-CAVE)
(SYNONYM WALL ENGRAVINGS INSCRIPTION)
(ADJECTIVE OLD ANCIENT)
(DESC "wall with engravings")
(FLAGS READBIT SACREDBIT)
(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
(LOC STUDIO)
(SYNONYM MANUAL PIECE PAPER)
(ADJECTIVE ZORK OWNERS SMALL)
(DESC "ZORK owner's manual")
(FLAGS READBIT TAKEBIT)
(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
(LOC LOCAL-GLOBALS)
(SYNONYM WALL CLIFF WALLS LEDGE)
(ADJECTIVE ROCKY SHEER)
(DESC "cliff")
(ACTION CLIFF-OBJECT)
(FLAGS NDESCBIT CLIMBBIT)>
<OBJECT WHITE-CLIFF
(LOC LOCAL-GLOBALS)
(SYNONYM CLIFF CLIFFS)
(ADJECTIVE WHITE)
(DESC "white cliffs")
(FLAGS NDESCBIT CLIMBBIT)
(ACTION WCLIF-OBJECT)>
<OBJECT WRENCH
(LOC MAINTENANCE-ROOM)
(SYNONYM WRENCH TOOL TOOLS)
(DESC "wrench")
(FLAGS TAKEBIT TOOLBIT)
(SIZE 10)>
<OBJECT CONTROL-PANEL
(LOC DAM-ROOM)
(SYNONYM PANEL)
(ADJECTIVE CONTROL)
(DESC "control panel")
(FLAGS NDESCBIT)>
<OBJECT NEST
(LOC UP-A-TREE)
(SYNONYM NEST)
(ADJECTIVE BIRDS BIRD\'S)
(DESC "bird's nest")
(FLAGS TAKEBIT BURNBIT CONTBIT OPENBIT SEARCHBIT)
(FDESC "Beside you on the branch is a small bird's nest.")
(CAPACITY 20)>
<OBJECT EGG
(LOC NEST)
(SYNONYM EGG TREASURE)
(ADJECTIVE BIRDS ENCRUSTED JEWELED)
(DESC "jewel-encrusted egg")
(FLAGS TAKEBIT CONTBIT SEARCHBIT)
(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")
(FLAGS TAKEBIT CONTBIT OPENBIT)
(CAPACITY 6)
(TVALUE 2)
(LDESC "There is a somewhat ruined egg here.")>
<OBJECT BAUBLE
(SYNONYM BAUBLE TREASURE)
(ADJECTIVE BRASS BEAUTIFUL)
(DESC "beautiful brass bauble")
(FLAGS TAKEBIT)
(VALUE 1)
(TVALUE 1)>
<OBJECT CANARY
(LOC EGG)
(SYNONYM CANARY TREASURE)
(ADJECTIVE CLOCKWORK GOLD GOLDEN)
(DESC "golden clockwork canary")
(FLAGS TAKEBIT SEARCHBIT)
(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
(LOC 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"
<GLOBAL CYCLOPS-FLAG <>>
<GLOBAL DEFLATE <>>
<GLOBAL DOME-FLAG <>>
<GLOBAL EMPTY-HANDED <>>
<GLOBAL LLD-FLAG <>>
<GLOBAL LOW-TIDE <>>
<GLOBAL MAGIC-FLAG <>>
<GLOBAL RAINBOW-FLAG <>>
<GLOBAL TROLL-FLAG <>>
<GLOBAL WON-FLAG <>>
<GLOBAL COFFIN-CURE <>>
"SUBTITLE FOREST AND OUTSIDE OF HOUSE"
<ROOM WEST-OF-HOUSE
(LOC 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 SORRY "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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL WHITE-HOUSE BOARD FOREST)>
<ROOM STONE-BARROW
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)>
<ROOM NORTH-OF-HOUSE
(LOC 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 SORRY "The windows are all boarded.")
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE FOREST)>
<ROOM SOUTH-OF-HOUSE
(LOC 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 SORRY "The windows are all boarded.")
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE FOREST)>
<ROOM EAST-OF-HOUSE
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL WHITE-HOUSE KITCHEN-WINDOW FOREST)>
<ROOM FOREST-1
(LOC ROOMS)
(LDESC
"This is a forest, with trees in all directions. To the east,
there appears to be sunlight.")
(DESC "Forest")
(UP SORRY "There is no tree here suitable for climbing.")
(NORTH TO GRATING-CLEARING)
(EAST TO PATH)
(SOUTH TO FOREST-3)
(WEST SORRY "You would need a machete to go further west.")
(ACTION FOREST-ROOM)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM FOREST-2
(LOC ROOMS)
(LDESC "This is a dimly lit forest, with large trees all around.")
(DESC "Forest")
(UP SORRY "There is no tree here suitable for climbing.")
(NORTH SORRY "The forest becomes impenetrable to the north.")
(EAST TO MOUNTAINS)
(SOUTH TO CLEARING)
(WEST TO PATH)
(ACTION FOREST-ROOM)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM MOUNTAINS
(LOC ROOMS)
(LDESC "The forest thins out, revealing impassable mountains.")
(DESC "Forest")
(UP SORRY "The mountains are impassable.")
(NORTH TO FOREST-2)
(EAST SORRY "The mountains are impassable.")
(SOUTH TO FOREST-2)
(WEST TO FOREST-2)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE WHITE-HOUSE)>
<ROOM FOREST-3
(LOC ROOMS)
(LDESC "This is a dimly lit forest, with large trees all around.")
(DESC "Forest")
(UP SORRY "There is no tree here suitable for climbing.")
(NORTH TO CLEARING)
(EAST SORRY "The rank undergrowth prevents eastward movement.")
(SOUTH SORRY "Storm-tossed trees block your way.")
(WEST TO FOREST-1)
(NW TO SOUTH-OF-HOUSE)
(ACTION FOREST-ROOM)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM PATH
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
<ROOM UP-A-TREE
(LOC ROOMS)
(DESC "Up a Tree")
(DOWN TO PATH)
(UP SORRY "You cannot climb any higher.")
(ACTION TREE-ROOM)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE FOREST SONGBIRD WHITE-HOUSE)>
<ROOM GRATING-CLEARING
(LOC ROOMS)
(DESC "Clearing")
(NORTH SORRY "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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL WHITE-HOUSE GRATE)>
<ROUTINE GRATING-EXIT ()
<COND (,GRATE-REVEALED
<COND (<FSET? ,GRATE ,OPENBIT>
,GRATING-ROOM)
(T
<TELL "The grating is closed!" CR>
<THIS-IS-IT ,GRATE>
<RFALSE>)>)
(T <TELL "You can't go that way." CR> <RFALSE>)>>
<ROOM CLEARING
(LOC ROOMS)
(LDESC
"You are in a small clearing in a well marked forest path that
extends to the east and west.")
(DESC "Clearing")
(UP SORRY "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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL TREE SONGBIRD WHITE-HOUSE FOREST)>
"SUBTITLE HOUSE"
<ROOM KITCHEN
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(VALUE 10)
(GLOBAL KITCHEN-WINDOW CHIMNEY STAIRS)>
<ROOM ATTIC
(LOC ROOMS)
(LDESC "This is the attic. The only exit is a stairway leading down.")
(DESC "Attic")
(DOWN TO KITCHEN)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL STAIRS)>
<ROOM LIVING-ROOM
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL STAIRS)
;(PSEUDO "NAILS" NAILS-PSEUDO "NAIL" NAILS-PSEUDO)>
<OBJECT NAILS
(LOC LIVING-ROOM)
(SYNONYM NAIL NAILS)
(DESC "nail")
(FLAGS NDESCBIT)
(ACTION NAILS-PSEUDO)>
"SUBTITLE CELLAR AND VICINITY"
<ROOM CELLAR
(LOC ROOMS)
(DESC "Cellar")
(NORTH TO TROLL-ROOM)
(SOUTH TO EAST-OF-CHASM)
(UP TO LIVING-ROOM IF TRAP-DOOR IS OPEN)
(WEST SORRY
"You try to ascend the ramp, but it is impossible, and you slide back down.")
(ACTION CELLAR-FCN)
(FLAGS RLANDBIT)
(VALUE 25)
(GLOBAL TRAP-DOOR SLIDE STAIRS)>
<ROOM TROLL-ROOM
(LOC 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
(LOC 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 SORRY "The chasm probably leads straight to the infernal regions.")
(FLAGS RLANDBIT)
(GLOBAL CHASM)
;(PSEUDO "CHASM" CHASM-PSEUDO)>
<OBJECT CHASM
(LOC LOCAL-GLOBALS)
(SYNONYM CHASM)
(DESC "chasm")
(FLAGS NDESCBIT)
(ACTION CHASM-PSEUDO)>
<ROOM GALLERY
(LOC 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)
(FLAGS RLANDBIT ONBIT)>
<ROOM STUDIO
(LOC 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)>
<OBJECT DOOR-P
(LOC STUDIO)
(SYNONYM DOOR)
(DESC "door")
(FLAGS NDESCBIT)
(ACTION DOOR-PSEUDO)>
<OBJECT PAINT
(LOC STUDIO)
(SYNONYM PAINT)
(DESC "paint")
(FLAGS NDESCBIT)
(ACTION PAINT-PSEUDO)>
"SUBTITLE MAZE"
<ROOM MAZE-1
(LOC 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)
(FLAGS MAZEBIT RLANDBIT)>
<ROOM MAZE-2
(LOC ROOMS)
(LDESC "This is part of a maze of twisty little passages, all alike.")
(DESC "Maze")
(SOUTH TO MAZE-1)
(DOWN PER MAZE-DIODES)
(EAST TO MAZE-3)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-3
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-4
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM DEAD-END-1
(LOC ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(SOUTH TO MAZE-4)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-5
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM DEAD-END-2
(LOC ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(WEST TO MAZE-5)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-6
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-7
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-8
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM DEAD-END-3
(LOC ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(NORTH TO MAZE-8)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-9
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-10
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-11
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
;<ROUTINE IN-MAZE? (PLACE)
<COND (<EQUAL? .PLACE ,MAZE-1 ,MAZE-2 ,MAZE-3 ,MAZE-4 ,MAZE-5
,MAZE-6 ,MAZE-7 ,MAZE-8 ,MAZE-9 ,MAZE-10
,MAZE-11 ,MAZE-12 ,MAZE-13 ,MAZE-14
,MAZE-15 ,DEAD-END-1
,DEAD-END-2 ,DEAD-END-3 ,DEAD-END-4>
<RTRUE>)
(T
<RFALSE>)>>
<ROOM GRATING-ROOM
(LOC 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 MAZEBIT RLANDBIT)>
<ROOM MAZE-12
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM DEAD-END-4
(LOC ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the maze.")
(SOUTH TO MAZE-12)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-13
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-14
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
<ROOM MAZE-15
(LOC 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)
(FLAGS MAZEBIT RLANDBIT )>
"SUBTITLE CYCLOPS AND HIDEAWAY"
<ROOM CYCLOPS-ROOM
(LOC 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
(LOC 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
(LOC 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
(LOC 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 CHASM LAKE)
;(PSEUDO "LAKE" LAKE-PSEUDO "CHASM" CHASM-PSEUDO)>
<OBJECT LAKE
(LOC LOCAL-GLOBALS)
(SYNONYM LAKE)
(DESC "lake")
(FLAGS NDESCBIT)
(ACTION LAKE-PSEUDO)>
<ROOM RESERVOIR
(LOC ROOMS)
(DESC "Reservoir")
(NORTH TO RESERVOIR-NORTH)
(SOUTH TO RESERVOIR-SOUTH)
(UP TO IN-STREAM)
(WEST TO IN-STREAM)
(DOWN SORRY "The dam blocks your way.")
(ACTION RESERVOIR-FCN)
(FLAGS NONLANDBIT )
;(PSEUDO "STREAM" STREAM-PSEUDO)
(GLOBAL GLOBAL-WATER STREAM)>
<OBJECT STREAM
(LOC LOCAL-GLOBALS)
(SYNONYM STREAM)
(DESC "stream")
(FLAGS NDESCBIT)
(ACTION STREAM-PSEUDO)>
<ROOM RESERVOIR-NORTH
(LOC 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 LAKE)
;(PSEUDO "LAKE" LAKE-PSEUDO)>
<ROOM STREAM-VIEW
(LOC 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 SORRY "The stream emerges from a spot too small for you to enter.")
(FLAGS RLANDBIT)
(GLOBAL GLOBAL-WATER STREAM)
;(PSEUDO "STREAM" STREAM-PSEUDO)>
<ROOM IN-STREAM
(LOC 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 SORRY "The channel is too narrow.")
(WEST SORRY "The channel is too narrow.")
(LAND TO STREAM-VIEW)
(DOWN TO RESERVOIR)
(EAST TO RESERVOIR)
(FLAGS NONLANDBIT)
(GLOBAL GLOBAL-WATER STREAM)
;(PSEUDO "STREAM" STREAM-PSEUDO)>
"SUBTITLE MIRROR ROOMS AND VICINITY"
<ROOM MIRROR-ROOM-1
(LOC 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
(LOC ROOMS)
(DESC "Mirror Room")
(WEST TO WINDING-PASSAGE)
(NORTH TO NARROW-PASSAGE)
(EAST TO TINY-CAVE)
(ACTION MIRROR-ROOM)
(FLAGS RLANDBIT ONBIT)>
<ROOM SMALL-CAVE
(LOC 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
(LOC 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
(LOC 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
(LOC 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
(LOC 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
(LOC 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)>
<ROOM ATLANTIS-ROOM
(LOC 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
(LOC 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
(LOC 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
(LOC ROOMS)
(DESC "Deep Canyon")
(NW TO RESERVOIR-SOUTH)
(EAST TO DAM-ROOM)
(SW TO NS-PASSAGE)
(DOWN TO LOUD-ROOM)
(FLAGS RLANDBIT)
(ACTION DEEP-CANYON-F)
(GLOBAL STAIRS)>
<ROOM DAMP-CAVE
(LOC 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 SORRY "It is too narrow for most insects.")
(FLAGS RLANDBIT)
(GLOBAL CRACK)>
<ROOM LOUD-ROOM
(LOC 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
(LOC 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
(LOC 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 SORRY "Are you out of your mind?")
(FLAGS RLANDBIT)
(GLOBAL CRACK STAIRS CHASM)
;(PSEUDO "CHASM" CHASM-PSEUDO)>
"SUBTITLE HADES ET AL"
<ROOM ENTRANCE-TO-HADES
(LOC 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)
(FLAGS RLANDBIT ONBIT)
(GLOBAL BODIES)
;(PSEUDO "GATE" GATE-PSEUDO "GATES" GATE-PSEUDO)>
<OBJECT GATE
(LOC ENTRANCE-TO-HADES)
(SYNONYM GATE GATES)
(DESC "gate")
(FLAGS NDESCBIT)
(ACTION GATE-PSEUDO)>
<ROOM LAND-OF-LIVING-DEAD
(LOC 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)
(FLAGS RLANDBIT ONBIT)
(GLOBAL BODIES)>
"SUBTITLE DOME, TEMPLE, EGYPT"
<ROOM ENGRAVINGS-CAVE
(LOC 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
(LOC 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
(LOC 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)
(GLOBAL DOME)
;(PSEUDO "DOME" DOME-PSEUDO)>
<OBJECT DOME
(LOC LOCAL-GLOBALS)
(SYNONYM DOME)
(DESC "dome")
(FLAGS NDESCBIT)
(ACTION DOME-PSEUDO)>
<ROOM TORCH-ROOM
(LOC ROOMS)
(DESC "Torch Room")
(UP SORRY "You cannot reach the rope.")
(SOUTH TO NORTH-TEMPLE)
(DOWN TO NORTH-TEMPLE)
(ACTION TORCH-ROOM-FCN)
(FLAGS RLANDBIT)
(GLOBAL STAIRS DOME)
;(PSEUDO "DOME" DOME-PSEUDO)>
<ROOM NORTH-TEMPLE
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL STAIRS)>
<ROOM SOUTH-TEMPLE
(LOC 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.")
(FLAGS RLANDBIT ONBIT SACREDBIT)
(ACTION SOUTH-TEMPLE-FCN)>
"SUBTITLE FLOOD CONTROL DAM #3"
<ROOM DAM-ROOM
(LOC 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)
(FLAGS RLANDBIT ONBIT)
(GLOBAL GLOBAL-WATER)>
<ROOM DAM-LOBBY
(LOC 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)
(FLAGS RLANDBIT ONBIT)>
<ROOM MAINTENANCE-ROOM
(LOC 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
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-1
(LOC 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 SORRY "You cannot go upstream due to strong currents.")
(WEST TO DAM-BASE)
(LAND TO DAM-BASE)
(DOWN TO RIVER-2)
(EAST SORRY "The White Cliffs prevent your landing here.")
(FLAGS NONLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-2
(LOC 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 SORRY "You cannot go upstream due to strong currents.")
(DOWN TO RIVER-3)
(LAND SORRY "There is no safe landing spot here.")
(EAST SORRY "The White Cliffs prevent your landing here.")
(WEST SORRY "Just in time you steer away from the rocks.")
(FLAGS NONLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM RIVER-3
(LOC 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 SORRY "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
(LOC 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.")
(WEST TO DAMP-CAVE IF DEFLATE ELSE "The path is too narrow.")
(ACTION WHITE-CLIFFS-FUNCTION)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER WHITE-CLIFF RIVER)>
<ROOM WHITE-CLIFFS-SOUTH
(LOC 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)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER WHITE-CLIFF RIVER)>
<ROOM RIVER-4
(LOC 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 SORRY "You cannot go upstream due to strong currents.")
(DOWN TO RIVER-5)
(LAND SORRY "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
(LOC ROOMS)
(LDESC
"The sound of rushing water is nearly unbearable here. On the east
shore is a large landing area.")
(DESC "Frigid River")
(UP SORRY "You cannot go upstream due to strong currents.")
(EAST TO SHORE)
(LAND TO SHORE)
(FLAGS NONLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SHORE
(LOC 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)
(FLAGS RLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SANDY-BEACH
(LOC 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)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL GLOBAL-WATER RIVER)>
<ROOM SANDY-CAVE
(LOC 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
(LOC ROOMS)
(DESC "Aragain Falls")
(WEST TO ON-RAINBOW IF RAINBOW-FLAG)
(DOWN SORRY "It's a long way...")
(NORTH TO SHORE)
(UP TO ON-RAINBOW IF RAINBOW-FLAG)
(ACTION FALLS-ROOM)
(FLAGS RLANDBIT SACREDBIT ONBIT)
(GLOBAL GLOBAL-WATER RIVER RAINBOW)>
<ROOM ON-RAINBOW
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL RAINBOW)>
<ROOM END-OF-RAINBOW
(LOC 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)
(FLAGS RLANDBIT ONBIT)
(GLOBAL GLOBAL-WATER RAINBOW RIVER)>
<ROOM CANYON-BOTTOM
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL GLOBAL-WATER CLIMBABLE-CLIFF RIVER)>
<ROOM CLIFF-MIDDLE
(LOC 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)
(FLAGS RLANDBIT ONBIT SACREDBIT)
(GLOBAL CLIMBABLE-CLIFF RIVER)>
<ROOM CANYON-VIEW
(LOC 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 SORRY "Storm-tossed trees block your way.")
(FLAGS RLANDBIT ONBIT SACREDBIT)
(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
(LOC 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
(LOC 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
(LOC ROOMS)
(DESC "Bat Room")
(SOUTH TO SQUEEKY-ROOM)
(EAST TO SHAFT-ROOM)
(ACTION BATS-ROOM)
(FLAGS RLANDBIT SACREDBIT)>
<ROOM SHAFT-ROOM
(LOC 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 SORRY "You wouldn't fit and would die if you could.")
(WEST TO BAT-ROOM)
(NORTH TO SMELLY-ROOM)
(FLAGS RLANDBIT)
(GLOBAL CHAIN)
;(PSEUDO "CHAIN" CHAIN-PSEUDO)>
<OBJECT CHAIN
(LOC LOCAL-GLOBALS)
(SYNONYM CHAIN)
(DESC "chain")
(FLAGS NDESCBIT)
(ACTION CHAIN-PSEUDO)>
<ROOM SMELLY-ROOM
(LOC ROOMS)
(LDESC
"This is a small nondescript 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 GAS)
;(PSEUDO "ODOR" GAS-PSEUDO "GAS" GAS-PSEUDO)>
<OBJECT GAS
(LOC LOCAL-GLOBALS)
(SYNONYM GAS ODOR)
(DESC "gas")
(FLAGS NDESCBIT)
(ACTION GAS-PSEUDO)>
<ROOM GAS-ROOM
(LOC 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)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL STAIRS GAS)
;(PSEUDO "GAS" GAS-PSEUDO "ODOR" GAS-PSEUDO)>
<ROOM LADDER-TOP
(LOC 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)
(GLOBAL LADDER STAIRS)>
<ROOM LADDER-BOTTOM
(LOC 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
(LOC ROOMS)
(DESC "Dead End")
(LDESC "You have come to a dead end in the mine.")
(NORTH TO LADDER-BOTTOM)
(FLAGS RLANDBIT)>
<ROOM TIMBER-ROOM
(LOC 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)
(FLAGS RLANDBIT SACREDBIT)>
<ROOM LOWER-SHAFT
(LOC 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)
(FLAGS RLANDBIT SACREDBIT)
(GLOBAL CHAIN)
;(PSEUDO "CHAIN" CHAIN-PSEUDO)>
<ROOM MACHINE-ROOM
(LOC ROOMS)
(DESC "Machine Room")
(NORTH TO LOWER-SHAFT)
(ACTION MACHINE-ROOM-FCN)
(FLAGS RLANDBIT)>
"SUBTITLE COAL MINE"
<ROOM MINE-1
(LOC ROOMS)
(LDESC "This is a nondescript 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
(LOC ROOMS)
(LDESC "This is a nondescript 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
(LOC ROOMS)
(LDESC "This is a nondescript 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
(LOC ROOMS)
(LDESC "This is a nondescript 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
(LOC 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"
<GLOBAL HOUSE-AROUND
<LTABLE (PURE) WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
WEST-OF-HOUSE>>
<GLOBAL FOREST-AROUND
<LTABLE (PURE) FOREST-1 FOREST-2 FOREST-3 PATH CLEARING FOREST-1>>
<GLOBAL IN-HOUSE-AROUND
<LTABLE (PURE) LIVING-ROOM KITCHEN ATTIC KITCHEN>>
<GLOBAL ABOVE-GROUND
<LTABLE (PURE) WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
FOREST-1 FOREST-2 FOREST-3 PATH CLEARING GRATING-CLEARING
CANYON-VIEW>>
;"The GO routine must live here."
<ROUTINE GO ()
<ENABLE <QUEUE I-FIGHT -1>> ;"ints now as in orig."
<QUEUE I-SWORD -1>
;<ENABLE <QUEUE I-SWORD -1>>
<ENABLE <QUEUE I-THIEF -1>>
<QUEUE I-CANDLES 40>
;<ENABLE <QUEUE I-CANDLES 40>>
<QUEUE I-LANTERN 200>
;<ENABLE <QUEUE I-LANTERN 200>>
<PUTP ,INFLATED-BOAT ,P?VTYPE ,NONLANDBIT>
<PUT ,DEF1-RES 1 <REST ,DEF1 2>>
<PUT ,DEF1-RES 2 <REST ,DEF1 4>>
<PUT ,DEF2-RES 2 <REST ,DEF2B 2>>
<PUT ,DEF2-RES 3 <REST ,DEF2B 4>>
<PUT ,DEF3-RES 1 <REST ,DEF3A 2>>
<PUT ,DEF3-RES 3 <REST ,DEF3B 2>>
<SETG HERE ,WEST-OF-HOUSE>
<THIS-IS-IT ,MAILBOX>
<CLEAR -1>
<INIT-STATUS-LINE>
<CRLF>
<COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
<V-VERSION>
<CRLF>)>
<SETG LIT T>
<SETG WINNER ,ADVENTURER>
<SETG PLAYER ,WINNER>
<MOVE ,WINNER ,HERE>
<V-LOOK>
<MAIN-LOOP>
<AGAIN>>
Reference in New Issue View Git Blame Copy Permalink