home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / appndxa / masters / hugecave.agt < prev    next >
Text File  |  1992-10-19  |  282KB  |  10,570 lines
  1.  
  2. #COMMENT
  3.  
  4. SECRET WORD #1 -- ABRADE (v) to wear away by friction; to erode.
  5.                   (in AGT "Blurb")
  6.  
  7. SECRET WORD #2 -- CUPIDITY (n) greed.
  8.                   (OPEN GRANDFATHER CLOCK)
  9.  
  10. SECRET WORD #3 -- EXACERBATE (v) to worsen; embitter.
  11.                   (In ROOM [R651  Top of Barrow])
  12.  
  13. SECRET WORD #4 -- GENRE (n) formal category or style of art.
  14.                   (In ROOM [Dead End -- really])
  15.  
  16. SECRET WORD #5 -- HARBINGER (n) forerunner.
  17.                   (READ OLD DIARY)
  18.  
  19. SECRET WORD #6 -- MILLIEU (n) environment; means of expression.
  20.                   (In ROOM [blocked passageway])
  21.  
  22. SECRET WORD #7 -- NECROMANCY (n) black magic; dealing with the dead.
  23.                   (OPEN SPELUNKER MAGAZINE)
  24.  
  25. SECRET WORD #8 -- RESTIVE (adj) unmanageable; fretting under control.
  26.                   (EXAMINE ROCK-CRYSTAL SCULPTURE)
  27.  
  28. SECRET WORD #9 -- SOPORIFIC (adj) sleep producer.
  29.                   (In ROOM [little twisty maze])
  30.  
  31. SECRET WORD #10 -- TURPITUDE (n) depravity.
  32.                    (In ROOM [treasure room])
  33.  
  34. #END_COMMENT
  35.  
  36.  
  37. #COMMENT
  38. Below is a list of the points awarded in the game:
  39.  
  40. 15 Old Cave game treasures at 15 points each -- for a total of 225 points
  41.  
  42. large sparkling nugget of gold
  43. several diamonds
  44. bars of silver
  45. precious jewelry
  46. rare coins
  47. pirate's treasure chest
  48. golden eggs
  49. jewel-encrusted trident
  50. vase resting on a velvet pillow
  51. emerald the size of a plover's egg
  52. platinum pyramid
  53. Persian rug
  54. glistening pearl
  55. rare spices
  56. golden chain
  57.  
  58.  
  59. 22 New Humongous Cave game treasures at 15 points each -- a total of 330 points
  60.  
  61. ruby yacht of Omar Khayyam
  62. string of ancient Indian turquoise beads
  63. sapphire-encrusted sceptre
  64. Chinese jade bracelet
  65. gem-encrusted helmet
  66. iridium crown
  67. shiny ring (crafted of the finest mithril)
  68. finely-carved crystalline sculpture
  69. small casket full of rare black opals
  70. scrimshaw spyglass
  71. bag filled with pieces of eight
  72. polished metal plate
  73. floppy disk
  74. gold key
  75. jeweled cane
  76. rare stamps
  77. golden weathercock
  78. beautiful rose
  79. apple
  80. silver cross
  81. Jeweled Urn
  82. gold watch
  83.  
  84. Cave game action points -- for a total of 445 points
  85.  
  86.   10 points  -- Print AGT order form
  87.    1 point   -- magazine dropped at Witt's End
  88.   10 points  -- oil rusty door
  89.    5 points  -- first watering of plant
  90.    4 points  -- second watering of plant
  91.   10 points  -- frighten troll with bear
  92.   10 points  -- kill snake
  93.   10 points  -- attack dragon
  94.   10 points  -- feed bear
  95.   15 points  -- retrieved eggs via magic
  96.   10 points  -- Chopped down tree
  97.   15 points  -- Visit Hell
  98.   10 points  -- Kissed toad
  99.   15 points  -- Open safe using combination
  100.   40 points  -- make it to "Cave closing soon" announcement
  101.   20 points  -- "Cave closed" announcement -- enter "master game"
  102.   30 points  -- Found Treasure room by entering 2 foot slit
  103.   10 points  -- Remove grate from air-conditioning duct
  104.   10 points  -- Read disk
  105.   10 points  -- Throw something into chasm, then ask for HELP
  106.   15 points  -- Prayed in church while candle lit
  107.   15 points  -- Get sceptre and "Zorton" hint
  108.   15 points  -- Down into whirlpool after eating mushroom
  109.   15 points  -- Say "Melenkurion" at Stone Face
  110.   15 points  -- Get sword from rock
  111.   15 points  -- Free Djinn from flask
  112.   15 points  -- Open clam with trident
  113.   15 points  -- Attack ogre with sword
  114.   15 points  -- Throw dragon's teeth at goblins
  115.   15 points  -- Attach suction cups to floor
  116.   10 points  -- Smell the beautiful rose
  117.   10 points  -- Ring the church bells
  118.   10 points  -- Digging hole to shaft room
  119.   10 points  -- Read commandment list
  120. ====
  121.  445 points
  122.  
  123.  225  {Old game treasures}
  124.  330  {New game treasures}
  125. ====
  126. 1000 points in total
  127.  
  128. #END_COMMENT
  129.  
  130. #DEFINE [Total number of treasures] 37
  131.  
  132. FLAG [Got all the treasures]
  133.  
  134. VARIABLE [Number of treasures dropped]
  135.  
  136. #DEFINE [Is a treasure?] NOUNPointsGT 10
  137.  
  138. #DEFINE [Total Points] 1000
  139.  
  140. #OPTIONS /Labels[] /Messages""
  141.  
  142. #COMMENT  Turn off warnings -- this message is not directly referenced
  143. #OPTIONS :-Warnings
  144.  
  145. #COMMENT Macros for special "rooms"
  146. #DEFINE [Nowhere]    0
  147. #DEFINE [Carried]    1
  148. #DEFINE [Worn]    1000
  149.  
  150. #COMMENT Macros for the directions used with ChangePassageway
  151. #DEFINE [North]      1
  152. #DEFINE [South]      2
  153. #DEFINE [East]       3
  154. #DEFINE [West]       4
  155. #DEFINE [NorthEast]  5
  156. #DEFINE [NorthWest]  6
  157. #DEFINE [SouthEast]  7
  158. #DEFINE [SouthWest]  8
  159. #DEFINE [Up]         9
  160. #DEFINE [Down]      10
  161. #DEFINE [Enter]     11
  162. #DEFINE [Exit]      12
  163.  
  164. #COMMENT Return "Warnings" to its previous state
  165. #OPTIONS =Warnings
  166.  
  167. #COMMENT ---- Room FLAG noun numbers -- used to add things to NOUN MENU lists
  168. #COMMENT      for various rooms -- i.e., WATER appears in multiple places
  169.  
  170. FLAG_NOUNS
  171. [Water] Water
  172. [Stream] Stream
  173. [Building] Building
  174. [Tree] Tree
  175. [Chasm] Chasm
  176. [Mist] Mist
  177. [Road] Road
  178. [Bridge] Bridge
  179. [A Sign] Sign
  180. [Bells] Bells
  181. END_FLAG_NOUNS
  182.  
  183.  
  184. TITLE
  185. COLORS CYAN YELLOW BLACK YELLOW RED
  186. ADVENTURE IN HUMONGOUS CAVE
  187.  
  188. Based on "public domain" games by Will Crowther,
  189. Don Woods, David Platt and David Malmberg
  190.  
  191. This version adapted for the Adventure Game Toolkit and
  192. (c) 1990 by David Malmberg
  193.  
  194. END_TITLE
  195.  
  196. INSTRUCTIONS
  197.  
  198. During your adventure in the cave, I will be your eyes and hands.  I know of
  199. places, actions, and things.  Most of my vocabulary describes places and is
  200. used to move you there.  To move, try words like FOREST, BUILDING, STREAMBED,
  201. ENTER, EAST, NORTHWEST, NORTH, SOUTH, UP or DOWN.  I know about a few special
  202. objects, like a black rod hidden in the cave.  These objects can be
  203. manipulated using some of the various action words I know.  The objects may
  204. have side effects; for instance, the rod scares the bird.  Usually adventurers
  205. having trouble moving just need to try a few more words.  Usually people
  206. trying unsuccessfully to manipulate an object are attempting something beyond
  207. their (or my!) capabilities and should try a completely different tack.  To
  208. speed the game you can sometimes move long distances with a single word.  For
  209. example, "BUILDING" usually gets you to the building from anywhere above
  210. ground except when lost in the forest.  Also, note that cave passages turn a
  211. lot, and that leaving a room to the NORTH does not guarantee entering the next
  212. from the SOUTH.
  213.  
  214.       Your commands should generally be in the format:
  215.  
  216.        <verb> <(multiple) noun phrase(s)> <preposition> <noun phrase/object>
  217.  
  218.       Some (hypothetical) examples of valid commands:
  219.  
  220.         PLACE A RED ROCK IN THE SMALL BOWL
  221.          PUT THE GREEN ROCK AND THE SMALL PEBBLE BEHIND THE OAK TREE
  222.          READ MY POETRY BOOK
  223.          SWIM IN THE SWIMMING POOL
  224.          EXAMINE THE GOLD RING, THE DWARF AND THE SILVER NECKLACE
  225.          EAT THE CELERY, THE TUNA, THE APPLE AND THE ONION
  226.          THROW THE BATTLE AXE AND THE LARGE ROCK AT THE WEREWOLF
  227.          SHOOT THE BURGLAR WITH THE REVOLVER
  228.          ATTACK HIM
  229.            ("HIM" will refer to last noun mentioned, e.g., the burglar)
  230.          FIRE THE LASER PISTOL AT THE ALIEN MUTANT
  231.          GET THE BOOK (also: TAKE THE BOOK)
  232.          READ IT
  233.            ("IT" will refer to last noun mentioned, e.g., the book)
  234.          GET ALL (will get everything movable at the current location)
  235.          GET THE KEYS, BOTTLE, FOOD AND THE CLOAK
  236.          EXAMINE THE KEYS, BOTTLE, FOOD AND CLOAK
  237.          PUSH THE RED BUTTON AND THE GREEN BUTTON
  238.          UNLOCK THE FILE CABINET WITH THE STEEL KEY
  239.          JUMP THROUGH THE OPENING
  240.          JUMP OVER THE LOG
  241.          NORTH
  242.          SOUTHWEST
  243.          PLACE AN AXE AND THE SHIELD NEXT TO THE BIG TREE
  244.          PUT THE FOOD ON THE KITCHEN TABLE
  245.          TURN ON THE FLASHLIGHT
  246.          LIGHT THE TORCH WITH THE WOODEN MATCHES
  247.          SCREAM AT THE UGLY TROLL
  248.          CLIMB UP THE LADDER
  249.          EXTINGUISH THE FIRE (or PUT OUT THE FIRE)
  250.          DRINK THE WHITE WINE
  251.          THROW THE FIRE WOOD IN THE STOVE
  252.          PULL THE BELL CORD
  253.          WEAR THE STUPID HAT (also: PUT ON THE STUPID HAT)
  254.          TAKE OFF THE HAT (also: REMOVE THE HAT)
  255.          NE (for NORTHEAST)
  256.          DROP THE KEY AND THE BOTTLE
  257.          ENTER THE CAVE
  258.          XYZZY (i.e., a "magic" word)
  259.          TURN THE DOORKNOB
  260.          PLAY WITH THE DOG
  261.          TALK TO (or TALK WITH) THE OLD MAN (ABOUT THE WEATHER)
  262.          TELL JEFF ABOUT THE SWORD
  263.          ASK JODIE ABOUT THE CRIME
  264.  
  265.      Compound commands can be created by connecting single commands (like
  266.       those above) with "AND", "THEN" or the punctuation symbols "," or ";" to
  267.       connect two or more separate commands.  However, "end-of-sentence"
  268.       punctuation symbols like ".", "!" and "?" should not be used.  Below are
  269.       a few examples of valid compound commands:
  270.  
  271.         TURN THE DOORKNOB THEN ENTER THE CAVE
  272.          CLIMB DOWN THE LADDER THEN SOUTH, WEST AND NORTHWEST
  273.          GET THE CLOAK AND THEN EXAMINE IT; READ THE LABEL
  274.          DROP THE FOOD AND THE BOTTLE THEN UNLOCK THE DOOR AND THEN LEAVE
  275.          GET THE TORCH, LIGHT IT WITH THE WOODEN MATCHES THEN EXAMINE IT
  276.  
  277.      If the game understands all of the words in your command, but still
  278.       seems confused by the command -- then try to say the same thing using
  279.       fewer words and a simpler sentence.  When in doubt, simplify your
  280.       input commands as much as possible.  This also saves typing effort.
  281.  
  282. 
  283. SPECIAL COMMANDS:
  284.  
  285.      The game uses a number of special commands for various "housekeeping"
  286.       chores.  These are all pretty standard for most adventure games,
  287.       specifically:
  288.  
  289.         HELP         May (or may not) give you a hint.
  290.  
  291.         SCORE        Will summarize your progress, so far.
  292.  
  293.         INVENTORY    Will display a list of the items you are carrying, and
  294.                        those items you are wearing.
  295.  
  296.         BRIEF        Will cause location descriptions to be brief.
  297.  
  298.         VERBOSE      Will cause location descriptions to be verbose.
  299.  
  300.         LOOK         Will give you a full (verbose) description of
  301.                        your current location.
  302.  
  303.         LIST EXITS   Will list the obvious (visible) exits from your current
  304.                        location.  There may be other ways to exit the location
  305.                        -- but they may not be obvious.
  306.  
  307.         OOPS         Will allow you to edit (using the cursor keys, and the
  308.                        delete, insert and backspace keys) your previous
  309.                        input command.  For example, if you enter THORW ROPE by
  310.                        mistake, OOPS will enable you to edit this command and
  311.                        correct it to THROW ROPE.
  312.  
  313.         SAVE GAME    Will save the current game status on disk.
  314.  
  315.         RESTORE GAME Will restore a previously saved game from disk.
  316.  
  317.         SCRIPT       Causes output to go to both the screen and a printer
  318.                        (using the LP1 port).
  319.  
  320.         UNSCRIPT     Causes output to go to the screen (only).
  321.  
  322.         SOUND ON/OFF SOUND OFF turns the sound off and SOUND ON turns it on.
  323.  
  324.         VIEW         Will allow you to view the various illustrations (if
  325.                        any) available at any location.  For example, VIEW
  326.                        SCENE will show a picture of the current location,
  327.                        VIEW OGRE will show a picture to the ogre, etc.
  328.  
  329.         QUIT         Quits the current game session.  Always exit using QUIT
  330.                        -- so the game can erase some temporary data files and
  331.                        save disk space!
  332.  
  333. 
  334. FUNCTION AND ALT-CURSOR KEYS:
  335.  
  336.      The combination of the ALT key and the cursor keys have all been
  337.       programmed to create an input command corresponding to their respective
  338.       movement or compass directions, i.e., the ALT key and the up-arrow key
  339.       causes a NORTH command to be generated, the ALT key and the home key
  340.       causes a NORTHWEST command to be generated, etc.
  341.  
  342.       Similarly, the function keys have been predefined to stand for several
  343.       of the most frequently used commands.  Further, by giving the command
  344.       DEFINE, you may re-define any of the function keys to give any command
  345.       you wish.  For example, in this game you might find it useful to
  346.       re-define one of the function keys to give the command KILL ORC WITH AXE
  347.       or GIVE CANDY TO BABY.
  348.  
  349.       Hitting the '?' key (during the game) will display a diagram of keys and
  350.       their current definitions.
  351.  
  352. 
  353. "POP-UP" HINTS:
  354.  
  355.      This game also has a "pop-up" hint system.  Any time you are stuck and
  356.       need a hint, hit the <Alt> key and the <h> key together and a
  357.       menu-driven system of hints for the game will pop-up for you to use.
  358.       Hitting the ESC key will return you to the game when you are done with
  359.       the hints.
  360.  
  361. 
  362. "LOOK-AND-FEEL" OPTIONS:
  363.  
  364.      This particular game is using a special version of the AGT (Adventure
  365.       Game Toolkit) called the "Master's Edition" which allows the user to
  366.       customize the manner in which the game's general interface is defined
  367.       and to specify the game's overall "look-and-feel."  The user may define
  368.       color schemes, status line options, command input method, size and
  369.       "layout" of the screen, etc.  Once the player has a set of
  370.       "look-and-feel" options he or she likes, these options may be saved as
  371.       the standard defaults for this game and any other AGT game the user
  372.       plays.
  373.  
  374.       One of the options available is a unique "menu-driven" input option that
  375.       allows the player to enter game commands by selecting words from a menu.
  376.       This option is particularly helpful for players who are often frustrated
  377.       by their inability to figure out an adventure game's vocabulary -- since
  378.       the menu always displays a list of "feasible" (though not always "smart"
  379.       or even appropriate) commands from which the player may make a
  380.       selection.
  381.  
  382.       The "look-and-feel" options are accessed by hitting the ESC key during
  383.       the game (i.e., not now).
  384.  
  385.  
  386. SPECIAL CHALLENGE:
  387.  
  388. When first released, this game offered a special $100 prize to the first
  389. person to discover 10 "secret words" that were hidden throughout this
  390. adventure!!!  Sorry, but the prize has already been won.
  391.  
  392. But as a special challenge, the secret words have been left in the game.  Try
  393. to find them!!!
  394.  
  395. END_INSTRUCTIONS
  396.  
  397.  
  398. MAXIMUM_SCORE [Total Points]
  399.  
  400. MAX_LIVES 10
  401.  
  402. STARTING_ROOM [end of road]
  403.  
  404. #INCLUDE HUGEROOM.AGT
  405.  
  406. SYNONYMS
  407. TURN TWIST
  408. PUSH RUB
  409. DROP POUR INSERT CHANGE
  410. THROW GIVE
  411. LIGHT ON BURN
  412. EXTINGUISH OFF
  413. ATTACK KILL HIT HACK STAB CHOP CUT MURDER HURT DESTROY
  414. TELL ASK YELL TALK
  415. Dummy_Verb1  RIDE
  416. Dummy_Verb2  RELEASE FREE
  417. Dummy_Verb3  WATER
  418. Dummy_Verb4  SAY GO WALK RUN MOVE CRAWL
  419. Dummy_Verb5  FIND SEARCH
  420. Dummy_Verb6  JUMP
  421. Dummy_Verb7  CROSS CLIMB FOLLOW
  422. Dummy_Verb8  WAVE
  423. Dummy_Verb9  FILL
  424. Dummy_Verb10 FEED
  425. Dummy_Verb11 DIG EXCAVATE
  426. Dummy_Verb12 BLAST BREAK DYNAMITE
  427. Dummy_Verb13 FEE FIE FOE FOO
  428. Dummy_Verb14 ABRA ABRACADABRA HOCUS POCUS SESAME SHAZAM AHRIMAN ARTICHOKE YOHO
  429. Dummy_Verb15 CALM WAKE
  430. Dummy_Verb16 TURBO
  431. Dummy_Verb17 XYZZY
  432. Dummy_Verb18 PLUGH
  433. Dummy_Verb19 PLOVER BUILDING
  434. Dummy_Verb20 FOREST
  435. Dummy_Verb21 SLAB STREAMBED
  436. Dummy_Verb22 BEDQUILT HILL
  437. Dummy_Verb23 SHELL DEPRESSION
  438. Dummy_Verb24 ORIENTAL VALLEY
  439. Dummy_Verb25 GIANT SLIT BARREN
  440. Dummy_Verb26 OIL
  441. Dummy_Verb27 RING
  442. Dummy_Verb28 THURB
  443. Dummy_Verb29 ZORTON
  444. Dummy_Verb30 PHUGGG
  445. Dummy_Verb31 SAMOHT
  446. Dummy_Verb32 NOSIDE
  447. Dummy_Verb33 MELENKURION
  448. Dummy_Verb34 SWIM
  449. Dummy_Verb35 FUCK SHIT PISS
  450. Dummy_Verb36 SIT
  451. Dummy_Verb37 KISS
  452. Dummy_Verb38 FOOBAR QWERTY DAVE DAVID MALMBERG
  453. Dummy_Verb39 PRAY
  454. Dummy_Verb40 YES
  455. Dummy_Verb41 NO
  456. Dummy_Verb42 SMELL
  457. Dummy_Verb43 WASH
  458. Dummy_Verb44 OOPS
  459. Dummy_Verb45 ATTACH TIE
  460. END_SYNONYMS
  461.  
  462. INTRODUCTION
  463.  
  464. Somewhere nearby is Humongous Cave, where others have found fortunes in
  465. treasure and gold, though it is rumored that some who enter are never seen
  466. again. The object of the game is for you to explore the cave and return
  467. (safely) with as much treasure as possible.  The cave is a mysterious and
  468. magical place.  You will face many puzzling and perilous challenges as you
  469. explore.
  470.  
  471. END_INTRODUCTION
  472.  
  473. #COMMENT ******** meta commands
  474.  
  475. ;FLAGS, VARIABLES AND COUNTERS, ETC.
  476. ;Flag 0  Display CMD detail as it is being processed
  477. ;        enter DEBUG to toggle ON and OFF
  478.  
  479.  
  480. #COMMENT -- Vault/Combination example from Alan Bender
  481.  
  482. FLAG [has read about secret words]
  483. FLAG [has found gold watch]
  484. FLAG [has read commandment list]
  485. FLAG [have given moon shining message]
  486. FLAG [Has smelled the beautiful rose]
  487. FLAG [Has rung the church bells]
  488. FLAG [Has got points for prayer]
  489. FLAG [Pitcher has water in it]
  490. FLAG [Quitting]              ON if really, really, really quitting
  491. FLAG [first number]          ON if player got first number correctly
  492. FLAG [second number]         ON if player has second number correctly
  493. FLAG [third number]          ON when player has all three numbers
  494. FLAG [vault unlocked]        ON when combination is successful
  495. FLAG [vault points earned]   When combination is successful - earn 15 points
  496. FLAG [temporary]             ON as required
  497. FLAG [Has read AGT info in guidebook]
  498. Flag [Has read AGT info in diary]
  499. FLAG [Has visited Hell]      Has visited Hell if ON
  500. FLAG [player has met toad]   Has met toad if ON
  501. FLAG [eggs returned]         Player has got eggs back
  502. FLAG [bear following]        Bear is following if ON
  503. FLAG [bottle full]           Bottle has liquid in it if ON, is empty if OFF
  504. FLAG [cave closed]           Cave is closed if ON, open if OFF
  505. FLAG [troll eliminated]      Troll has been paid off or frighten away if ON
  506. FLAG [lamp lit]              Lantern/Lamp is ON or OFF
  507. FLAG [dark w/o lamp]         ON if it would be dark here if Lantern/Lamp is off
  508. FLAG [new batteries]         ON if Lantern/Lamp has new set of batteries
  509. FLAG [bridge exists]         ON if crystal bridge currently exists
  510. FLAG [armed]                 NOT Using bare hands in attack if ON
  511. #DEFINE [axe/knife] [armed]  also flag to indicate axe or knife is being thrown
  512. #DEFINE [temp] [armed]       also numerous temporary other uses
  513. FLAG [dwarf here]            Dwarf is in room if ON
  514. FLAG [treasure stolen]       Pirate has stolen treasure if ON
  515. FLAG [cave hint offered]     Hint about location of cave has been offered if ON
  516. FLAG [bird toggle]           Toggle flag for different responses to GET BIRD
  517. FLAG [snake toggle]          Toggle flag for different commands about SNAKE
  518. FLAG [programmer angry]      Has angered programmer if ON
  519. FLAG [secret word given]     Programmer has given secret word if ON
  520. FLAG [cave closing]          Cave is in process of closing if ON
  521. FLAG [pirate seen twice]     Pirate has made two appearances if ON
  522. FLAG [maze hint offered]     Hint about moving in mazes has been offered if ON
  523. FLAG [Water here]            There is water at this location if ON
  524. FLAG [Djinn has been freed]  Djinn has been freed and given "backwards" hit
  525. FLAG [Wizard has appeared]   Wizard has appeared if ON
  526. FLAG [Phuggg hint given]     Djinn has given "PHUGGG" hint if ON
  527. FLAG [Vial has exploded]     Vial has exploded if ON
  528. FLAG [Player is very strong] Player has eaten mushroom and is strong if ON
  529. FLAG [Goblins have appeared] Goblins have appeared if ON
  530. FLAG [Has used compass in Rabbit's Warren]
  531. FLAG [Has dug in bottom of hole]
  532. FLAG [Has just said 'ZORTON'] in cylindrical chamber -- playing "end game"
  533. FLAG [Player has thrown something into chasm]
  534. FLAG [Had "hardware failure"]
  535. FLAG [Player is wizard]
  536. FLAG [temp flag]
  537. FLAG [Is PM time?] -- A.M./P.M. Flag
  538.  
  539. COUNTER [Mushroom strength counter] -- counts turns since player ate mushroom
  540. COUNTER [Goblin counter] -- counts turns since goblins first appeared
  541. COUNTER [Quicksand is hard -- counter] -- counts turn for quicksand to be hard
  542. COUNTER [Rover counter - to all you "Prisoner" fans] -- turns since rover freed
  543.  
  544. VARIABLE [hours] -- time - hours
  545. VARIABLE [minutes] -- time - minutes
  546. VARIABLE [minutes per move]
  547. #DEFINE [maximum minutes per move] 3
  548. VARIABLE [matches left]
  549. VARIABLE [candles left]
  550. COUNTER [Candle Counter] count of turn's candle has burned
  551. #DEFINE [Candle Life] 20  number of turns a candle will last
  552. VARIABLE [Cold Counter]
  553. VARIABLE [battery life]   count of turns Lamp's batteries will last
  554. VARIABLE [ffff count]     count of FEE FIE FOE FOO words
  555. VARIABLE [cave countdown] countdown until cave closes & master game begins
  556.  
  557. VARIABLE [Status of Safe]
  558. #COMMENT
  559.                           [Status of Safe] = 0 if safe is closed
  560.                           [Status of Safe] = 1 if safe is open
  561.                           [Status of Safe] = 2 if safe is fused shut
  562. #END_COMMENT
  563.  
  564.  
  565. #define [battery max] 500
  566.  
  567. #define [first] 7               <-- First number of combination (RIGHT)
  568. #define [second] 20             <-- Second number of combination (LEFT]
  569. #define [third] 43              <-- Third number of combination (RIGHT)
  570.  
  571. ;AUTOMATIC COMMANDS
  572.  
  573. ;Set FLAGS based on game or room status
  574.  
  575. COMMAND ANY
  576. FlagOFF [new batteries] ;first turn of game only - initialize conditions
  577. SetVariableTo [battery life] [battery max]
  578. SetVariableTo [ffff count] 0 ;set FEE FIE FOE FOO count to 0
  579. TurnFlagON [bottle full]
  580. SetVariableTo [matches left] 10
  581. SetVariableTo [candles left] 5
  582. SetVariableTo [Cold Counter] 0
  583. SetVariableTo [Number of treasures dropped] 0
  584. END_COMMAND
  585.  
  586. COMMAND ANY
  587. FlagOFF [new batteries] ;first turn of game only - initialize conditions
  588. #COMMENT -- initialize time at start of game -- to 6:45 AM
  589. TurnFlagOFF [Is PM time?]
  590. SetVariableTo [minutes] 45
  591. SetVariableTo [hours] 6
  592. TurnFlagON [new batteries]
  593. END_COMMAND
  594.  
  595. #COMMENT -- Time related stuff
  596.  
  597. #COMMENT -- Add a random number of minutes to time each move, specifically:
  598. #COMMENT    from 0 to 1 less than [maximum minutes per move], i.e.,
  599. #COMMENT    For example -- from 0 to 3 minutes per move for this game
  600.  
  601. COMMAND ANY
  602. RandomVariable [minutes per move] [maximum minutes per move]
  603. AddVariables [minutes] [minutes per move]
  604. END_COMMAND
  605.  
  606. #COMMENT -- Limit minutes to 60 and increase hour if minutes 60 or greater
  607.  
  608. COMMAND ANY
  609. VariableGT [minutes] 59
  610. SubtractFromVariable [minutes] 60
  611. AddToVariable [hours] 1 ; increase hour if minutes 60 or greater
  612. END_COMMAND
  613.  
  614. #COMMENT -- Limit hours to 12 and toggle AM/PM flag as appropriate
  615.  
  616. COMMAND ANY
  617. VariableGT [hours] 12
  618. SubtractFromVariable [hours] 12
  619. ToggleFlag [Is PM time?]
  620. END_COMMAND
  621.  
  622. #COMMENT -- Announce that moon is shining - when appropriate
  623.  
  624. COMMAND ANY
  625. NOT AtLocation [end of road]
  626. TurnFlagOFF [have given moon shining message]
  627. END_COMMAND
  628.  
  629. COMMAND ANY
  630. AtLocation [end of road]
  631. FlagOFF [have given moon shining message]
  632. FlagON [Is PM time?]
  633. VariableGT [hours] 8 ; after 8:00 PM
  634. PrintMessage [Moon is shining!]
  635. BlankLine
  636. END_COMMAND
  637.  
  638. COMMAND ANY
  639. AtLocation [end of road]
  640. FlagOFF [have given moon shining message]
  641. FlagOFF [Is PM time?]
  642. VariableLT [hours] 6 ; before 6:00 AM
  643. PrintMessage [Moon is shining!]
  644. BlankLine
  645. END_COMMAND
  646.  
  647. MESSAGE [Moon is shining!]
  648. It is a full moon tonight and you can see quite clearly even though it is night
  649. time.
  650. END_MESSAGE
  651.  
  652. #COMMENT -- Grandfather clock chimes - when appropriate
  653.  
  654. COMMAND ANY
  655. AtLocation [Inside building]
  656. VariableEquals [minutes] 0
  657. PrintMessage [clock chimes the hour]
  658. BlankLine
  659. END_COMMAND
  660.  
  661. COMMAND ANY
  662. AtLocation [Inside building]
  663. VariableEquals [minutes] 15
  664. OR
  665. VariableEquals [minutes] 30
  666. OR
  667. VariableEquals [minutes] 45
  668. PrintMessage [clock chimes the quarter hour]
  669. BlankLine
  670. END_COMMAND
  671.  
  672. MESSAGE [clock chimes the hour]
  673. The grandfather loudly chimes the hour.  It is now #VAR[hours]#:0#VAR[minutes]#.
  674. END_MESSAGE
  675.  
  676. MESSAGE [clock chimes the quarter hour]
  677. The grandfather loudly chimes the quarter hour.  It is #VAR[hours]#:#VAR[minutes]#.
  678. END_MESSAGE
  679.  
  680. COMMAND ANY
  681. TurnFlagOFF [dark w/o lamp]
  682. RoomNeedsLight
  683. TurnFlagON [dark w/o lamp]
  684. END_COMMAND
  685.  
  686. COMMAND ANY
  687. NOT Present [threatening dwarf]
  688. Destroy [threatening dwarf] ;causes dwarf not to get left in another room
  689. END_COMMAND
  690.  
  691. COMMAND ANY
  692. TurnFlagOFF [dwarf here]
  693. Present [ON lamp] ;lamp - dwarf can only be seen in light
  694. Present [little dwarf]
  695. OR
  696. Present [threatening dwarf]
  697. TurnFlagON [dwarf here]
  698. END_COMMAND
  699.  
  700. COMMAND ANY
  701.  NewLife
  702.  TurnFlagOFF [first number]
  703.  TurnFlagOFF [second number]
  704.  TurnFlagOFF [third number]       <--< Reset the vault Combination status
  705. END_COMMAND
  706.  
  707. #COMMENT -- have candle blow out after [Candle Life] turns
  708.  
  709. COMMAND ANY
  710. Present [burning candle]
  711. CounterGT [Candle Counter] [Candle Life]
  712. TurnCounterOFF [Candle Counter]
  713. PrintMessage "A sudden draft blows out your candle."
  714. BlankLine
  715. Destroy [burning candle]
  716. VariableEquals [candles left] 0
  717. PrintMessage [Unfortunately, that was your last candle]
  718. BlankLine
  719. END_COMMAND
  720.  
  721. #COMMENT -- control appearance of vampire bats and their biting of player
  722.  
  723. COMMAND ANY
  724. FlagOFF [Player is wizard]
  725. Chance 50
  726. InRoom [vampire bats]
  727. NOT IsWearing [Silver Cross]
  728. PrintMessage [A bat just bit you]
  729. BlankLine
  730. GoToRoom [Dead]
  731. KillPlayer
  732. DoneWithTurn
  733. END_COMMAND
  734.  
  735. COMMAND ANY
  736. Chance 80
  737. AtLocation [R29  Odd Room]
  738. NOT InRoom [vampire bats]
  739. PutInCurrentRoom [vampire bats]
  740. PrintMessage [You hear bat wings flapping]
  741. Blankline
  742. END_COMMAND
  743.  
  744. MESSAGE [A bat just bit you]
  745. A vampire bat just bit you.  This is normally fatal, so you may wish to make
  746. your peace with God.
  747. END_MESSAGE
  748.  
  749. MESSAGE [You hear bat wings flapping]
  750. You hear the flapping of many wings.  Bats!!  A shiver of fear shocks your
  751. very being.
  752. END_MESSAGE
  753.  
  754. #COMMENT -- swap mail for rare stamps if outside private office
  755.  
  756. COMMAND ANY
  757. NOT AtLocation [private office]
  758. Present [pile of mail]
  759. SwapLocations [pile of mail] [rare stamps]
  760. END_COMMAND
  761.  
  762. #COMMENT -- Rabbit warren related
  763.  
  764. COMMAND ANY
  765. AtLocation [inside Rabbit's Warren]
  766. VerbIsDirection
  767. PrintMessage [back where you started]
  768. BlankLine
  769. END_COMMAND
  770.  
  771. #COMMENT -- COLD area related
  772.  
  773. COMMAND ANY
  774. FlagOFF [Player is wizard]
  775. AtLocationGT [computer center] ; in cold area of cave
  776. AtLocationLT [valley]
  777. NOT IsWearing [heavy parka] (* NOT wearing parka *)
  778. AddToVariable [Cold Counter] 1 (* Increment count of turns player is cold *)
  779. VariableEquals [Cold Counter] 18 (* 18 turns without parka *)
  780. SetVariableTo [Cold Counter] 0
  781. PrintMessage [You freeze to death]
  782. MinusScore 10
  783. GoToRoom [Dead]
  784. BlankLine
  785. KillPlayer
  786. DoneWithTurn
  787. END_COMMAND
  788.  
  789. MESSAGE [You freeze to death]
  790. You are not properly dressed for such cold.  Your little body, being exposed
  791. to this an extreme temperature, quickly becomes frozen stiff like a giant
  792. popsicle.
  793. END_MESSAGE
  794.  
  795. #COMMENT ------- set "Water here" FLAG
  796.  
  797. COMMAND ANY
  798. TurnFlagOFF [Water here]
  799. RoomFlagON [Water]
  800. TurnFlagON [Water here]
  801. END_MESSAGE
  802.  
  803. #COMMENT ------- random wizard appearance -- "ends game"
  804.  
  805. COMMAND ANY
  806. NOT IsWearing [metallic cloak]
  807. FlagOFF [Player is wizard]
  808. Chance 2
  809. TurnsGT 200
  810. FlagOFF [Wizard has appeared]
  811. AtLocationGT [hall of mists]
  812. AtLocationLT [cylindrical chamber] ;most of cave area
  813. FlagOFF [Dwarf here]
  814. PrintMessage [WIZARD.ENDS.GAME]
  815. TurnFlagON [Wizard has appeared]
  816. GoToRoom [Dead]
  817. BlankLine
  818. KillPlayer
  819. DoneWithTurn
  820. END_MESSAGE
  821.  
  822. MESSAGE [WIZARD.ENDS.GAME]
  823. A large cloud of green smoke appears in front of you.  It clears away to
  824. reveal a tall wizard, clothed in gray.  He fixes you with a steely glare and
  825. declares, "This adventure has lasted too long."  With that he makes a single
  826. pass over you with his hands, and everything around you fades away into a gray
  827. nothingness.
  828. END_MESSAGE
  829.  
  830. #COMMENT ------- random "hardware failure" -- kills player
  831.  
  832. COMMAND ANY
  833. NOT IsWearing [metallic cloak]
  834. FlagOFF [Player is wizard]
  835. Chance 2
  836. TurnsGT 200
  837. FlagOFF [Had "hardware failure"]
  838. AtLocationGT [hall of mists]
  839. AtLocationLT [cylindrical chamber] ;most of cave area
  840. FlagOFF [Dwarf here]
  841. PrintMessage [hardware failure]
  842. TurnFlagON [Had "hardware failure"]
  843. GoToRoom [PC ROMs]
  844. BlankLine
  845. KillPlayer
  846. DoneWithTurn
  847. END_MESSAGE
  848.  
  849. #COMMENT ------- random "cameo" appearances
  850.  
  851. COMMAND ANY
  852. Chance 3
  853. AtLocationGT [hall of mists]
  854. AtLocationLT [cylindrical chamber] ;most of cave area
  855. FlagOFF [Dwarf here]
  856. RandomMessage [CAMEO 1] [CAMEO 7]
  857. BlankLine
  858. END_MESSAGE
  859.  
  860. MESSAGE [CAMEO 1]
  861. From somewhere in the distance, there comes a musical skirl of light, elvish
  862. laughter and the sounds of merriment.
  863. END_MESSAGE
  864.  
  865. #COMMENT  Turn off warnings -- this message is not directly referenced
  866. #OPTIONS :-Warnings
  867.  
  868. MESSAGE [There is a rumbling sound deep within the earth]
  869. There is a rumbling sound deep within the earth.
  870. END_MESSAGE
  871.  
  872. MESSAGE [IRS men appear]
  873. Seven men, wearing gray business suits and carrying briefcases, suddenly
  874. appear out of the shadows and surround you.  They identify themselves as
  875. representatives of the Internal Revenue Service!  With absolutely no show of
  876. emotion, they report: "We understand that you have been accumulating some
  877. un-declared income.  We wish to warn you that we are watching you closely as
  878. you play this game, and all of this income must be properly and totally
  879. accounted for on your next tax return.  If it isn't, you will go to jail or
  880. worse!"
  881.  
  882. They then disappear in a >POOF< of red, white and blue smoke.
  883. END_MESSAGE
  884.  
  885. MESSAGE [CAMEO 2]
  886. From somewhere nearby, there suddenly comes a sound of something mechanical in
  887. motion.  As you turn toward it, an incredible figure rolls into the light of
  888. your lamp.  It stands about five feet high on a wheeled metal pedestal, and
  889. has a globular light- filled head, accordion-pleated metal arms, and a
  890. cylindrical body the size of an oil drum with a plastic panel on the front.
  891. It rolls past without taking any notice of you, all the while waving its arms,
  892. flashing a light behind its front panel and bellowing "WARNING! WARNING!
  893. DANGER!" at the top of its not inconsiderable voice.  It rolls on out of
  894. sight, and moments later there is an immense flash of light and a tremendous
  895. blast of sparks and smoke.  When the air clears, you find that no trace
  896. remains of the strange apparition.
  897. END_MESSAGE
  898.  
  899. MESSAGE [CAMEO 3]
  900. With a sudden gust of air, a large cave bat flutters into view, flies around
  901. your head several times, squeaks with disgust, and flutters on out of sight.
  902. END_MESSAGE
  903.  
  904. MESSAGE [CAMEO 4]
  905. Suddenly, the ground quivers underfoot; a dull rumbling sound resounds from
  906. the rock around you, and in the distance you can hear the crash of falling
  907. rock.  The earth tremor subsides after a few seconds without causing any major
  908. damage.
  909. END_MESSAGE
  910.  
  911. MESSAGE [CAMEO 5]
  912. From the darkness nearby comes the sound of shuffling feet.  As you turn
  913. toward the sound, a nine-foot cyclops ambles into the light of your lamp.
  914. The cyclops is dressed in a three-piece suit of worsted wool, and is wearing a
  915. black silk top-hat and cowboy boots and is carrying an ebony walking-stick.
  916. It catches sight of you and stops, seeming frozen in its tracks, with its
  917. bloodshot eye bulging in amazement and its fang-filled jaw drooping with
  918. shock.  After staring at you in incredulous disbelief for a few moments, it
  919. reaches into the pocket of its vest and pulls out a small plastic bag filled
  920. with a leafy green substance, and examines it carefully.  "It must be worth
  921. eighty pazools an ounce after all" mumbles the cyclops, who casts one final
  922. look at you, shudders, and staggers away out of sight.
  923. END_MESSAGE
  924.  
  925. MESSAGE [CAMEO 6]
  926. From somewhere in the distance comes a heart-wrenching scream of mortal
  927. terror!  "NO!  DON'T!  NO!  NO!  HELP!!!!" cries the voice, and then lets out
  928. a wail of agony that is cut off abruptly.  Subdued crunching and slurping
  929. sounds can be heard for a minute or so, and then silence falls.
  930. END_MESSAGE
  931.  
  932. #COMMENT Return "Warnings" to its previous state
  933. #OPTIONS =Warnings
  934.  
  935. MESSAGE [CAMEO 7]
  936. From somewhere nearby come the sounds of sliding, stumbling feet. As you turn
  937. toward them, the beam of your lamp falls upon a tall, shambling figure
  938. approaching you out of the darkness.  Standing no more than five feet tall, it
  939. cannot possibly weigh more than fifty pounds including the shroud and bandages
  940. in which it is wrapped; a musty reek like the scent of old, dead earth seeps
  941. from it and fills the air.  As you cower back in disgust and horror, the
  942. figure halts, examines you through eyes resembling wet pebbles, and whispers
  943. "Peace, man!" in a voice like wind rustling through dead trees.  It then turns
  944. and shambles away into the darkness.
  945. END_MESSAGE
  946.  
  947. ;Commands to deal with lamp/light status and countdown
  948.  
  949. COMMAND ANY
  950. FlagOFF [Player is wizard]
  951. FlagON [lamp lit]
  952. SubtractFromVariable [battery life] 1 ;countdown to zero when batteries are dead
  953. END_COMMAND
  954.  
  955. COMMAND ANY
  956. FlagON [lamp lit]
  957. VariableEquals [battery life] 26 ;batteries almost dead
  958. Present [ON lamp]
  959. PrintMessage [battery hint]
  960. BlankLine
  961. END_COMMAND
  962.  
  963. COMMAND ANY
  964. FlagON [lamp lit]
  965. VariableLT [battery life] 26 ;batteries almost dead
  966. VariableGT [battery life] 0
  967. Present [ON lamp]
  968. PrintMessage [lamp growing weaker]
  969. BlankLine
  970. END_COMMAND
  971.  
  972. MESSAGE [lamp growing weaker]
  973. The batteries in your lamp are growing weaker.  They will only last for #VAR[battery life]#
  974. more turns!
  975. END_MESSAGE
  976.  
  977. COMMAND ANY
  978. VariableEquals [battery life] 0 ;countdown to zero when batteries are dead
  979. Present [ON lamp]
  980. PrintMessage "Your lamp has run out of power."
  981. TurnFlagOFF [lamp lit]
  982. SwapLocations [ON lamp] [OFF lamp]
  983. PrintMessage [call it a day]
  984. GoToRoom [Dead]
  985. BlankLine
  986. DoneWithTurn
  987. END_COMMAND
  988.  
  989. COMMAND ANY
  990. NOT Present [Burning Candle]
  991. NOT Present [ON lamp]
  992. FlagON [dark w/o lamp]
  993. PrintMessage [now dark]
  994. NOT AtLocation [debris room]       ;XYZZY location
  995. NOT AtLocation [Y2]                ;PLUGH location
  996. NOT AtLocation [programmer's den]  ;TURBO location
  997. Chance 25
  998. PrintMessage "You fell into a pit and broke every bone in your body!"
  999. GoToRoom [bottom of the pit]
  1000. MinusScore 10 ;lose 10 points for dying
  1001. SendToRoom [OFF lamp] [inside building]
  1002. Destroy [ON lamp]
  1003. KillPlayer
  1004. DoneWithTurn
  1005. END_COMMAND
  1006.  
  1007. #COMMENT -- commands to control meeting toad and have toad follow player
  1008.  
  1009. COMMAND ANY
  1010. Present [horny toad]
  1011. TurnFlagON [player has met toad]
  1012. END_COMMAND
  1013.  
  1014. COMMAND ANY
  1015. IsSomewhere [horny toad]
  1016. FlagON [player has met toad]
  1017. PutInCurrentRoom [horny toad]
  1018. VerbIsDirection (* moving to another location *)
  1019. PrintMessage [The toad hops along after you]
  1020. BlankLine
  1021. END_COMMAND
  1022.  
  1023. MESSAGE [The toad hops along after you]
  1024. The toad hops along after you.
  1025. END_MESSAGE
  1026.  
  1027. COMMAND ANY
  1028. Chance 20
  1029. Present [horny toad]
  1030. PrintMessage [The toad says: RIB-BIT!]
  1031. BlankLine
  1032. END_COMMAND
  1033.  
  1034. MESSAGE [The toad says: RIB-BIT!]
  1035. The toad says: RIB--BIT!
  1036. END_MESSAGE
  1037.  
  1038. ;Commands to deal with random pirate activities
  1039.  
  1040. COMMAND ANY
  1041. Chance 5
  1042. AtLocationGT [hall of mists]
  1043. AtLocationLT [cylindrical chamber] ;most of cave area
  1044. PrintMessage "There are faint rustling noises from the darkness behind you."
  1045. BlankLine
  1046. FlagON [treasure stolen]
  1047. FlagOFF [pirate seen twice] ;hasn't made both appearances
  1048. IsNowhere [treasure chest]
  1049. PrintMessage [pirate hides chest]
  1050. BlankLine
  1051. SendToRoom [treasure chest] [pirate's den]
  1052. TurnFlagON [pirate seen twice] ;pirate is now done
  1053. END_COMMAND
  1054.  
  1055. COMMAND ANY
  1056. Chance 15
  1057. FlagOFF [treasure stolen]
  1058. AtLocationGT [hall of mists]
  1059. AtLocationLT [cylindrical chamber] ;most of cave area
  1060. NOT AtLocation [plover room]
  1061. NOT AtLocation [dark-room]
  1062. IsCarryingTreasure 5 ;carrying something worth more than 4 points
  1063. PrintMessage [pirate steals treasure]
  1064. BlankLine
  1065. TurnFlagON [treasure stolen]
  1066. SendTreasuresToRoom [pirate's den] 5
  1067. END_COMMAND
  1068.  
  1069. MESSAGE [pirate steals treasure]
  1070. Out from the shadows behind you pounces a bearded pirate!  "Har, har" he
  1071. chortles, "I'll just take all this booty and hide it away with me chest deep
  1072. in the maze!".  He snatches your treasure and vanishes into the gloom.
  1073. END_MESSAGE
  1074.  
  1075. ;Commands to deal with random dwarf attacks on player
  1076.  
  1077. COMMAND ANY
  1078. Chance 25
  1079. IsNowhere [dwarf's axe]
  1080. AtLocationGT [hall of mists]
  1081. AtLocationLT [cylindrical chamber] ;most of cave area
  1082. Present [ON lamp] ;lamp - dwarf can only be seen in light
  1083. PrintMessage [dwarf throws axe]
  1084. PutInCurrentRoom [dwarf's axe]
  1085. BlankLine
  1086. DoneWithTurn
  1087. END_COMMAND
  1088.  
  1089. MESSAGE [dwarf throws axe]
  1090. A little dwarf just walked around a corner, saw you, threw a little axe at you
  1091. which missed, cursed, and ran away.
  1092. END_MESSAGE
  1093.  
  1094. COMMAND ANY
  1095. FlagOFF [Player is wizard]
  1096. Chance 3
  1097. FlagOFF [dwarf here]
  1098. AtLocationGT [hall of mists]
  1099. AtLocationLT [cylindrical chamber] ;most of cave area
  1100. NOT AtLocation [programmer's den]
  1101. Present [ON lamp] ;lamp - dwarf can only be seen in light
  1102. PrintMessage [threatening dwarf in room]
  1103. BlankLine
  1104. PutInCurrentRoom [little dwarf]
  1105. TurnFlagON [dwarf here]
  1106. END_COMMAND
  1107.  
  1108. COMMAND ANY
  1109. FlagOFF [Player is wizard]
  1110. Chance 3
  1111. FlagOFF [dwarf here]
  1112. AtLocationGT [hall of mists]
  1113. AtLocationLT [cylindrical chamber] ;most of cave area
  1114. NOT AtLocation [programmer's den]
  1115. Present [ON lamp] ;lamp - dwarf can only be seen in light
  1116. PrintMessage [threatening dwarf in room]
  1117. PutInCurrentRoom [threatening dwarf]
  1118. BlankLine
  1119. TurnFlagON [dwarf here]
  1120. END_COMMAND
  1121.  
  1122. COMMAND ANY
  1123. VerbIsDirection ;player trying to move out of room
  1124. Present [little dwarf]
  1125. Present [ON lamp] ;lamp - dwarf can only be seen in light
  1126. PrintMessage "A little dwarf with a big knife blocks your way."
  1127. DoneWithTurn
  1128. END_COMMAND
  1129.  
  1130. COMMAND ANY
  1131. FlagON [dwarf here]
  1132. Chance 34
  1133. Present [ON lamp] ;lamp - dwarf can only be seen in light
  1134. TurnFlagON [axe/knife] ;a knife is being thrown
  1135. PrintMessage "A sharp, nasty knife is thrown at you!"
  1136. BlankLine
  1137. Chance 60
  1138. PrintMessage "The knife just misses you by inches!"
  1139. TurnFlagOFF [axe/knife] ;knife no longer being thrown
  1140. BlankLine
  1141. END_COMMAND
  1142.  
  1143. COMMAND ANY
  1144. FlagON [axe/knife] ;knife was thrown
  1145. IsWearing [metallic cloak]
  1146. PrintMessage "The knife bounces harmlessly off your magic cloak."
  1147. TurnFlagOFF [axe/knife] ;knife no longer being thrown
  1148. BlankLine
  1149. END_COMMAND
  1150.  
  1151. COMMAND ANY
  1152. FlagON [axe/knife] ;knife was thrown AND not wearing cloak
  1153. PrintMessage
  1154. The knife is thrown very accurately and gets you in the middle of the chest!
  1155.  
  1156. END_Message
  1157. TurnFlagOFF [axe/knife] ;knife no longer being thrown
  1158. MinusScore 10 ;lose 10 points for dying
  1159. SendToRoom [OFF lamp] [inside building]
  1160. Destroy [ON lamp]
  1161. KillPlayer
  1162. DoneWithTurn
  1163. END_COMMAND
  1164.  
  1165. ;Commands to close cave
  1166.  
  1167. COMMAND ANY
  1168. FlagON [Got all the treasures]
  1169. FlagOFF [cave closed] ;cave still open
  1170. FlagOFF [cave closing] ;haven't starting to close yet
  1171. SetVariableTo [cave countdown] 11 ;10 turns until master game
  1172. LockIt [iron grate]
  1173. CloseIt [iron grate]
  1174. Destroy [iron keys]
  1175. SendToRoom [crystal bridge] [east bank of fissure]
  1176. SendToRoom [crystal bridge 2] [west side of fissure]
  1177. Destroy [open fissure] ;phony bridge
  1178. Destroy [phony troll]
  1179. Destroy [burly troll]
  1180. Destroy [bridge wreckage]
  1181. END_COMMAND
  1182.  
  1183. ;Continuation of previous COMMAND
  1184. COMMAND ANY
  1185. FlagON [Got all the treasures]
  1186. FlagOFF [cave closed] ;cave still open
  1187. FlagOFF [cave closing] ;haven't starting to close yet
  1188. TurnFlagON [cave closing] ;now we have
  1189. SendToRoom [rickety bridge] [SW chasm]
  1190. Destroy [ferocious bear]
  1191. Destroy [gentle bear]
  1192. Destroy [contented bear]
  1193. PlusScore 40
  1194. PrintMessage [closing soon]
  1195. BlankLine
  1196. END_COMMAND
  1197.  
  1198. MESSAGE [closing soon]
  1199. A sepulchral voice reverberating through the cave says: "Cave closing soon.
  1200. All adventurers exit immediately through main office."
  1201. END_MESSAGE
  1202.  
  1203. COMMAND ANY
  1204. FlagON [cave closing]
  1205. SubtractFromVariable [cave countdown] 1
  1206. VariableGT [cave countdown] 0
  1207. VariableLT [cave countdown] 9
  1208. PrintMessage "The cave will close in #VAR[cave countdown]# turns!"
  1209. BlankLine
  1210. END_COMMAND
  1211.  
  1212. COMMAND ANY
  1213. FlagON [cave closing]
  1214. VariableEquals [cave countdown] 0
  1215. SendTreasuresToRoom [inside building] 5
  1216. SendAllToRoom [NoWhere] ;destroy all other carried items
  1217. GetIT [ON Lamp]
  1218. SetVariableTo [battery life] 50 ;lamp will be on for 50 turns
  1219. PrintMessage [cave now closed]
  1220. BlankLine
  1221. END_COMMAND
  1222.  
  1223. MESSAGE [cave now closed]
  1224. The sepulchral voice entones, "The cave is now closed."  As the echoes fade,
  1225. there is a blinding flash of light (and a small puff of orange smoke).  . . .
  1226.  
  1227. As your eyes refocus you look around and find...
  1228. END_MESSAGE
  1229.  
  1230. ;Continuation of previous COMMAND
  1231.  
  1232. COMMAND ANY
  1233. FlagON [cave closing]
  1234. VariableEquals [cave countdown] 0
  1235. TurnFlagON [cave closed]
  1236. RemoveEverything
  1237. PlusScore 20
  1238. END_COMMAND
  1239.  
  1240. ;Continuation of previous COMMAND
  1241.  
  1242. COMMAND ANY
  1243. FlagON [cave closing]
  1244. VariableEquals [cave countdown] 0
  1245. #COMMENT swap "slit" room and "fake slit" room
  1246. GoToRoom [fake slit]
  1247. ChangePassageway [NORTH] [valley]
  1248. ChangePassageway [EAST] [forest (near road)]
  1249. ChangePassageway [SOUTH] [depression outside grate]
  1250. ChangePassageway [WEST] [hill by road]
  1251. GoToRoom [cylindrical chamber]
  1252. DoneWithTurn
  1253. END_COMMAND
  1254.  
  1255. #COMMENT ------- Djinn gives Phuggg hint
  1256.  
  1257. COMMAND ANY
  1258. Chance 5
  1259. AtLocationGT [hall of mists]
  1260. AtLocationLT [cylindrical chamber] ;most of cave area
  1261. FlagOFF [Dwarf here]
  1262. FlagON [Djinn has been freed]
  1263. FlagOFF [Phuggg hint given]
  1264. PrintMessage [PHUGGG.HINT]
  1265. BlankLine
  1266. TurnFlagON [Phuggg hint given]
  1267. END_MESSAGE
  1268.  
  1269. MESSAGE [PHUGGG.HINT]
  1270. A large phosphorescent cloud of smoke drifts into view, and a large mouth and
  1271. two dark eyes take shape on the side.  One of the eyes winks at you, and the
  1272. djinn's deep voice says "GREETINGS AGAIN, MORTAL.  I HAVE REMEMBERED A PIECE
  1273. OF ANCIENT LORE THAT I LEARNED FROM MY AUNT, AN AFREET OF GREAT KNOWLEDGE.
  1274. THERE IS ANOTHER MAGIC WORD THAT YOU MIGHT FIND OF USE IF YOU SHOULD EVER FIND
  1275. YOURSELF BEING ATTACKED BY THOSE PESTIFEROUS DWARVES.  YOU SHOULD USE IT ONLY
  1276. AS A LAST RESORT, THOUGH, SINCE IT IS A MOST POTENT WORD AND IS PRONE TO
  1277. BACKFIRE FOR NO OBVIOUS REASON; ALSO, IT SHOULD NEVER BE USED NEAR WATER OR
  1278. NEAR ANY SHARP WEAPON OR THE RESULTS MAY BE MOST UNFORTUNATE.  THE WORD IS
  1279. 'phuggg'", whispers the djinn, "AND IT MUST BE PRONOUNCED CAREFULLY IF IT IS
  1280. TO HAVE THE PROPER EFFECT.  FAREWELL AGAIN, AND GOOD LUCK!"  With that, the
  1281. djinn-cloud drifts away out of sight.
  1282. END_MESSAGE
  1283.  
  1284. #COMMENT ------- mushroom wears off
  1285.  
  1286. COMMAND ANY
  1287. CounterGT [Mushroom strength counter] 12
  1288. TurnFlagOFF [Player is very strong]
  1289. TurnCounterOFF [Mushroom strength counter]
  1290. PrintMessage [You get weak]
  1291. BlankLine
  1292. SendToRoom [small mushroom - growing] [dank cubicle] ; mushroom grows back
  1293. END_MESSAGE
  1294.  
  1295. MESSAGE [You get weak]
  1296. A strange malaise suddenly afflicts you.  You shiver with chill, and your
  1297. muscles seem to turn to putty; everything around you becomes gray and unreal.
  1298. The fit quickly passes, and you find that your body has degenerated back to
  1299. what it was like before you ate the mushroom.
  1300. END_MESSAGE
  1301.  
  1302. #COMMENT ------- Goblins appearance and follow player
  1303.  
  1304. #COMMENT
  1305. When you first try to exit the "translucent room", a horde of slavering
  1306. goblins appear.  They continue to follow you until you kill them by throwing
  1307. the dragon's teeth at them or five turns have elapsed -- at when point they
  1308. kill you.
  1309. #END_COMMENT
  1310.  
  1311. COMMAND ANY
  1312. CounterGT [Goblin counter] 5
  1313. TurnFlagOFF [Goblins have appeared]
  1314. TurnCounterOFF [Goblin counter]
  1315. PrintMessage [Goblins kill you]
  1316. Destroy [gooseberry goblins]
  1317. GoToRoom [Dead]
  1318. BlankLine
  1319. KillPlayer
  1320. DoneWithTurn
  1321. END_COMMAND
  1322.  
  1323. MESSAGE [Goblins appear]
  1324. Suddenly and without warning, there appears from within the very cave walls
  1325. around you a horde of vicious little goblins!  Each one stands about eight
  1326. inches high on a pair of spindly black legs, has a globular, spine-covered
  1327. body resembling a giant gooseberry, a wide mouth filled with sharp teeth, and
  1328. a pair of glittering little green eyes!  They swarm around you and try to
  1329. block your way.
  1330. END_MESSAGE
  1331.  
  1332. MESSAGE [Goblins are here - 1]
  1333. You are surrounded by a horde of silent little gooseberry goblins!
  1334. END_MESSAGE
  1335.  
  1336. MESSAGE [Goblins are here - 2]
  1337. One of the gooseberry goblins begins to giggle in a high-pitched voice.
  1338. Another takes up the giggling, then another....  soon all of them are giggling
  1339. insanely and jumping up and down with glee!
  1340. END_MESSAGE
  1341.  
  1342. MESSAGE [Goblins are here - 3]
  1343. You are now surrounded by a giggling horde of little gooseberry goblins!
  1344. END_MESSAGE
  1345.  
  1346. MESSAGE [Goblins are here - 4]
  1347. The goblins are jumping up and down frantically, and are working themselves
  1348. into a real slavering frenzy!!
  1349. END_MESSAGE
  1350.  
  1351. MESSAGE [Goblins are here - 5]
  1352. Now, you are surrounded by a slavering horde of gooseberry goblins!
  1353. END_MESSAGE
  1354.  
  1355. MESSAGE [Goblins kill you]
  1356. With a shrill cry, the gooseberry goblins hurl themselves upon you, tickling
  1357. you mercilessly.  You crush and hurl away several of them, but are soon borne
  1358. down to the ground by the endless attack.  The goblins then gleefully rip out
  1359. your throat, and you sink into unconsciousness.
  1360. END_MESSAGE
  1361.  
  1362. COMMAND ANY
  1363. CounterGT [Goblin counter] 0
  1364. PutInCurrentRoom [gooseberry goblins]
  1365. VerbIsDirection
  1366. PrintMessage [GOBLIN.CHASE]
  1367. BlankLine
  1368. END_COMMAND
  1369.  
  1370. COMMAND ANY
  1371. CounterEquals [Goblin counter] 1
  1372. PrintMessage [Goblins are here - 1]
  1373. BlankLine
  1374. END_COMMAND
  1375.  
  1376. COMMAND ANY
  1377. CounterEquals [Goblin counter] 2
  1378. PrintMessage [Goblins are here - 2]
  1379. BlankLine
  1380. END_COMMAND
  1381.  
  1382. COMMAND ANY
  1383. CounterEquals [Goblin counter] 3
  1384. PrintMessage [Goblins are here - 3]
  1385. BlankLine
  1386. END_COMMAND
  1387.  
  1388. COMMAND ANY
  1389. CounterEquals [Goblin counter] 4
  1390. PrintMessage [Goblins are here - 4]
  1391. BlankLine
  1392. END_COMMAND
  1393.  
  1394. COMMAND ANY
  1395. CounterEquals [Goblin counter] 5
  1396. PrintMessage [Goblins are here - 5]
  1397. BlankLine
  1398. END_COMMAND
  1399.  
  1400. MESSAGE [GOBLIN.CHASE]
  1401. You are being pursued by a vicious horde of little gooseberry goblins!
  1402. END_MESSAGE
  1403.  
  1404. #COMMENT ------- Singing sword randomly sings something different
  1405.  
  1406. COMMAND ANY
  1407. Present [singing sword]
  1408. Chance 8
  1409. RandomMessage [sword song 1] [sword song 10]
  1410. BlankLine
  1411. END_COMMAND
  1412.  
  1413. MESSAGE [sword song 1]
  1414. The magic sword chimes out the bell-like tones of "Khumbu Ice-fall" by ringing
  1415. its blade against the ground.
  1416. END_MESSAGE
  1417.  
  1418. #COMMENT  Turn off warnings -- this message is not directly referenced
  1419. #OPTIONS :-Warnings
  1420.  
  1421. MESSAGE [sword song 2]
  1422. The sword begins to sing "A Day in the Life" in a quiet, introspective voice.
  1423. END_MESSAGE
  1424.  
  1425. MESSAGE [sword song 3]
  1426. The magic sword begins singing "Cold Blue Steel and Sweet Fire" to itself in a
  1427. plaintive, hopeless voice.
  1428. END_MESSAGE
  1429.  
  1430. MESSAGE [sword song 4]
  1431. The sword starts to jauntily whistling the March from Tchaikovsky's
  1432. "Nutcracker Suite".
  1433. END_MESSAGE
  1434.  
  1435. MESSAGE [sword song 5]
  1436. The sword is (somehow) singing Tchaikovsky's "1812 Overture" in twelve parts,
  1437. by itself!
  1438. END_MESSAGE
  1439.  
  1440. MESSAGE [sword song 6]
  1441. The stirring strains of Rossini's "William Tell" overture fill the room,
  1442. coming from the singing sword.
  1443. END_MESSAGE
  1444.  
  1445. MESSAGE [sword song 7]
  1446. From the singing sword resound the massed voices of a two-hundred-singer
  1447. choir, filling the air with the stirring sound of the Hallelujah Chorus from
  1448. Handel's "Messiah".
  1449. END_MESSAGE
  1450.  
  1451. MESSAGE [sword song 8]
  1452. The sharp and shiny sword somehow managing to sing Harry Partch's "Daphne of
  1453. the Dunes" without destroying its singing organs (whatever they happen to
  1454. be...)
  1455. END_MESSAGE
  1456.  
  1457. MESSAGE [sword song 9]
  1458. The sword begins singing "Witchi-Tai-To" in two-part harmony with itself.
  1459. END_MESSAGE
  1460.  
  1461. #COMMENT Return "Warnings" to its previous state
  1462. #OPTIONS =Warnings
  1463.  
  1464. MESSAGE [sword song 10]
  1465. The singing sword is glowing and vibrating, and the eerie electronic notes of
  1466. Charles Wuorinen's "Time's Encomium" issue from its blade and fill the air.
  1467. END_MESSAGE
  1468.  
  1469. #COMMENT ------- Put various Safes and exits from safe where they belong
  1470.  
  1471. COMMAND ANY
  1472. AtLocation [room with vaulted ceiling]
  1473. PutInCurrentRoom [walk-in safe - closed]
  1474. VariableEquals [Status of Safe] 1
  1475. PutInCurrentRoom [walk-in safe - open]
  1476. Destroy [walk-in safe - closed]
  1477. GoToRoom [in the safe]
  1478. ChangePassageway [Exit] [room with vaulted ceiling]
  1479. ChangePassageway [South] [room with vaulted ceiling]
  1480. ChangePassageway [North] [NoWhere]
  1481. PutInCurrentRoom [safe door - south]
  1482. Destroy [safe door - north]
  1483. GoToRoom [room with vaulted ceiling]
  1484. END_COMMAND
  1485.  
  1486. COMMAND ANY
  1487. AtLocation [room with vaulted ceiling]
  1488. VariableEquals [Status of Safe] 2
  1489. PutInCurrentRoom [walk-in safe - fused shut]
  1490. Destroy [walk-in safe - closed]
  1491. END_COMMAND
  1492.  
  1493. COMMAND ANY
  1494. AtLocation [room with vaulted ceiling]
  1495. NOT VariableEquals [Status of Safe] 1
  1496. ChangePassageway [Enter] [NoWhere]
  1497. ChangePassageway [North] [hall of mt. king]
  1498. END_COMMAND
  1499.  
  1500. COMMAND ANY
  1501. AtLocation [peelgrunt room]
  1502. PutInCurrentRoom [walk-in safe - closed]
  1503. VariableEquals [Status of Safe] 1
  1504. PutInCurrentRoom [walk-in safe - open]
  1505. Destroy [walk-in safe - closed]
  1506. GoToRoom [in the safe]
  1507. ChangePassageway [Exit] [peelgrunt room]
  1508. ChangePassageway [North] [peelgrunt room]
  1509. PutInCurrentRoom [safe door - north]
  1510. Destroy [safe door - south]
  1511. ChangePassageway [South] [NoWhere]
  1512. GoToRoom [peelgrunt room]
  1513. END_COMMAND
  1514.  
  1515. COMMAND ANY
  1516. AtLocation [peelgrunt room]
  1517. VariableEquals [Status of Safe] 2
  1518. PutInCurrentRoom [walk-in safe - fused shut]
  1519. Destroy [walk-in safe - closed]
  1520. END_COMMAND
  1521.  
  1522. COMMAND ANY
  1523. AtLocation [peelgrunt room]
  1524. NOT VariableEquals [Status of Safe] 1
  1525. ChangePassageway [Enter] [NoWhere]
  1526. ChangePassageway [Exit] [passage by steps]
  1527. ChangePassageway [South] [passage by steps]
  1528. END_COMMAND
  1529.  
  1530. #COMMENT ------- various Rover messages and actions
  1531.  
  1532. COMMAND ANY
  1533. CounterEquals [Rover counter - to all you "Prisoner" fans] 3
  1534. PrintMessage "The bubbling sound grows louder."
  1535. BlankLine
  1536. END_COMMAND
  1537.  
  1538. COMMAND ANY
  1539. CounterEquals [Rover counter - to all you "Prisoner" fans] 6
  1540. PrintMessage "The bubbling sound ends with a loud >splash<."
  1541. BlankLine
  1542. END_COMMAND
  1543.  
  1544. COMMAND ANY
  1545. CounterEquals [Rover counter - to all you "Prisoner" fans] 9
  1546. PrintMessage "A hollow, echoing >ROAR< sounds in the distance."
  1547. BlankLine
  1548. END_COMMAND
  1549.  
  1550. COMMAND ANY
  1551. CounterEquals [Rover counter - to all you "Prisoner" fans] 12
  1552. PrintMessage "A strange throbbing sound can be heard in the distance."
  1553. BlankLine
  1554. END_COMMAND
  1555.  
  1556. COMMAND ANY
  1557. CounterEquals [Rover counter - to all you "Prisoner" fans] 15
  1558. PrintMessage "The throbbing sound is growing louder."
  1559. BlankLine
  1560. END_COMMAND
  1561.  
  1562. COMMAND ANY
  1563. CounterEquals [Rover counter - to all you "Prisoner" fans] 18
  1564. PrintMessage [The sound is approaching quickly]
  1565. BlankLine
  1566. END_COMMAND
  1567.  
  1568. MESSAGE [The sound is approaching quickly]
  1569. The source of the throbbing sound is approaching quickly.  Another hollow
  1570. >ROAR< echoes through the cave.
  1571. END_MESSAGE
  1572.  
  1573. COMMAND ANY
  1574. CounterEquals [Rover counter - to all you "Prisoner" fans] 21
  1575. PrintMessage "There is a loud >ROAR< only a short distance away!!"
  1576. BlankLine
  1577. END_COMMAND
  1578.  
  1579. COMMAND ANY
  1580. CounterEquals [Rover counter - to all you "Prisoner" fans] 24
  1581. PrintMessage [It is an immense blob]
  1582. BlankLine
  1583. PutInCurrentRoom [Rover]
  1584. END_COMMAND
  1585.  
  1586. MESSAGE [It is an immense blob]
  1587. Into view there bounces a horrible creature!!  Six feet across, it resembles a
  1588. large blob of translucent white jelly; although it looks massive, it is
  1589. bouncing lightly up and down as though it were as light as a feather.  It is
  1590. emitting a constant throbbing sound, and it >ROAR<s loudly as it sees you.
  1591.  
  1592. There is an immense and unfriendly-looking blob in the room with you!
  1593. END_MESSAGE
  1594.  
  1595. COMMAND ANY
  1596. CounterGT [Rover counter - to all you "Prisoner" fans] 32
  1597. TurnCounterOFF [Rover counter - to all you "Prisoner" fans]
  1598. PrintMessage [Rover kills you!]
  1599. Destroy [Rover]
  1600. GoToRoom [Dead]
  1601. BlankLine
  1602. KillPlayer
  1603. DoneWithTurn
  1604. END_COMMAND
  1605.  
  1606. COMMAND ANY
  1607. CounterGT [Rover counter - to all you "Prisoner" fans] 24
  1608. PutInCurrentRoom [Rover]
  1609. VerbIsDirection
  1610. PrintMessage [ROVER.CHASE]
  1611. BlankLine
  1612. END_COMMAND
  1613.  
  1614. MESSAGE [Rover kills you!]
  1615. The blob >ROAR<s triumphantly and bounces straight at you with amazing speed,
  1616. crushing you to the ground and cutting off your air supply with its body.  You
  1617. quickly suffocate.
  1618. END_MESSAGE
  1619.  
  1620. MESSAGE [ROVER.CHASE]
  1621. The blob bounces after you with incredible speed; it follows your every move.
  1622. END_MESSAGE
  1623.  
  1624. COMMAND ANY
  1625. CounterGT [Rover counter - to all you "Prisoner" fans] 24
  1626. NOT VerbIsDirection
  1627. PrintMessage [ROVER.BUMPS.YOU]
  1628. BlankLine
  1629. END_COMMAND
  1630.  
  1631. MESSAGE [ROVER.BUMPS.YOU]
  1632. The blob >ROAR<s and bounces straight at you with amazing speed, bumping you.
  1633. END_MESSAGE
  1634.  
  1635. #COMMENT ------- Quicksand gets "soft" after 5 turns
  1636.  
  1637. COMMAND ANY
  1638. CounterGT [Quicksand is hard -- counter] 5
  1639. TurnCounterOFF [Quicksand is hard -- counter]
  1640. END_COMMAND
  1641.  
  1642. #COMMENT ------- Jump from platform above volcano and get fried!
  1643.  
  1644. COMMAND ANY
  1645. VerbIsDirection
  1646. AtLocation [tiny platform above volcano]
  1647. PrintMessage [SIZZLE]
  1648. GoToRoom [Dead]
  1649. BlankLine
  1650. KillPlayer
  1651. DoneWithTurn
  1652. END_COMMAND
  1653.  
  1654. MESSAGE [SIZZLE]
  1655. EEEEEEEEEAAAAAAAAAAAaaaaaahhhhhhhhhhhhh..........        >sizzle<
  1656. END_MESSAGE
  1657.  
  1658. ;Commands to deal with other random activities
  1659.  
  1660. COMMAND ANY
  1661. FlagON [bear following]
  1662. PutInCurrentRoom [contented bear]
  1663. END_COMMAND
  1664.  
  1665. COMMAND ANY
  1666. AtLocation [Y2]
  1667. Chance 25
  1668. PrintMessage "A hollow voice says "Plugh"."
  1669. BlankLine
  1670. END_COMMAND
  1671.  
  1672. COMMAND ANY
  1673. AtLocation [Y2]
  1674. Chance 15
  1675. PrintMessage "A hollow voice says "Plover"."
  1676. BlankLine
  1677. END_COMMAND
  1678.  
  1679. COMMAND ANY
  1680. NOT AtLocation [SW chasm] ;one side of troll bridge
  1681. NOT AtLocation [NE chasm] ;other side
  1682. Destroy [burly troll]
  1683. Destroy [phony troll]
  1684. TurnFlagOFF [troll eliminated] ;troll can now appear when you try to cross bridge
  1685. END_COMMAND
  1686.  
  1687. COMMAND ANY
  1688. NOT AtLocation [east bank of fissure] ;one side
  1689. NOT AtLocation [west side of fissure] ;other side
  1690. Destroy [open fissure] ;phony bridge
  1691. END_COMMAND
  1692.  
  1693. ;Commands to offer and give HINTS
  1694.  
  1695. COMMAND ANY
  1696. FlagOFF [cave hint offered]
  1697. AtLocation [forest]
  1698. OR
  1699. AtLocation [forest (near road)]
  1700. TurnFlagON [cave hint offered]
  1701. PrintMessage "Are you trying to get into the cave?"
  1702. PromptForYes
  1703. PrintMessage [want the hint?]
  1704. PromptForYes
  1705. TurnFlagON [temp] ;hint has been rejected - so far
  1706. PrintMessage [hint costs 5]
  1707. PrintMessage [is this acceptable?]
  1708. PromptForYes
  1709. TurnFlagOFF [temp] ;hint has been accepted
  1710. PrintMessage [follow the stream]
  1711. MinusScore 5
  1712. DoneWithTurn
  1713. END_COMMAND
  1714.  
  1715. ;Direction commands
  1716.  
  1717. ;BEAR related
  1718.  
  1719. COMMAND ANY
  1720. VerbIsDirection
  1721. FlagON [bear following]
  1722. PrintMessage "You are being followed by a very large, tame bear."
  1723. BlankLine
  1724. END_COMMAND
  1725.  
  1726. ;CLAM/OYSTER related
  1727.  
  1728. COMMAND ANY
  1729. VerbIsDirection
  1730. IsCarrying [giant clam]
  1731. PrintMessage "You can't fit this five-foot clam through that little passage!"
  1732. DoneWithTurn
  1733. END_COMMAND
  1734.  
  1735. COMMAND ANY
  1736. VerbIsDirection
  1737. IsCarrying [giant oyster]
  1738. PrintMessage "You can't fit this five foot oyster through that little passage!"
  1739. DoneWithTurn
  1740. END_COMMAND
  1741.  
  1742. ;DRAGON related
  1743.  
  1744. COMMAND ANY
  1745. InRoom [green dragon]
  1746. VerbIsDirection
  1747. PrintMessage [better not] ;Dragon won't let you
  1748. DoneWithTurn
  1749. END_COMMAND
  1750.  
  1751. ;Witt's End related
  1752.  
  1753. COMMAND ANY
  1754. AtLocation [witt's end]
  1755. VerbIsDirection
  1756. PrintMessage [back where you started]
  1757. BlankLine
  1758. END_COMMAND
  1759.  
  1760. #COMMENT ------- NORTH
  1761.  
  1762. COMMAND NORTH
  1763. Present [Gigantic Rabbit]
  1764. PrintMessage
  1765. The rabbit won't let you pass.  He hits you several times with his cane.
  1766. End_Message
  1767. DoneWithTurn
  1768. END_COMMAND
  1769.  
  1770. COMMAND NORTH
  1771. AtLocation [In the middle of the duct]
  1772. OR
  1773. AtLocation [In the middle of the duct - 2]
  1774. OR
  1775. AtLocation [In the middle of the duct - 3]
  1776. PrintMessage [Middle to North]
  1777. BlankLine
  1778. END_COMMAND
  1779.  
  1780. COMMAND NORTH
  1781. AtLocation [end of the duct]
  1782. PrintMessage [You crawl north into duct]
  1783. BlankLine
  1784. END_COMMAND
  1785.  
  1786. COMMAND NORTH
  1787. AtLocation [Southern end of long hall]
  1788. PrintMessage [You must use access card]
  1789. DoneWithTurn
  1790. END_COMMAND
  1791.  
  1792. COMMAND NORTH
  1793. AtLocation [programmer's den]
  1794. FlagOFF [programmer angry] ;programmer is not angry
  1795. FlagOFF [secret word given] ;programmer has not given his secret word
  1796. TurnFlagON [secret word given]
  1797. PrintMessage [progammer gives password]
  1798. BlankLine
  1799. GetIt [access card]
  1800. END_COMMAND
  1801.  
  1802. COMMAND NORTH
  1803. AtLocation [bedquilt room]
  1804. Chance 33
  1805. GoToRoom [north-south canyon above passage]
  1806. DoneWithTurn
  1807. END_COMMAND
  1808.  
  1809. COMMAND NORTH
  1810. AtLocation [bedquilt room]
  1811. Chance 50
  1812. GoToRoom [junction of canyons]
  1813. DoneWithTurn
  1814. END_COMMAND
  1815.  
  1816. COMMAND NORTH
  1817. AtLocation [bedquilt room]
  1818. GoToRoom [large low room]
  1819. DoneWithTurn
  1820. END_COMMAND
  1821.  
  1822. COMMAND NORTH
  1823. InRoom [green snake]
  1824. PrintMessage [that's unsafe]
  1825. DoneWithTurn
  1826. END_COMMAND
  1827.  
  1828. COMMAND NORTH
  1829. InRoom [rusty door]
  1830. PrintMessage [too rusty to open]
  1831. PrintMessage [hinges rusted]
  1832. DoneWithTurn
  1833. END_COMMAND
  1834.  
  1835. MESSAGE [hinges rusted]
  1836. The hinges are quite thoroughly rusted now and won't budge.
  1837. END_MESSAGE
  1838.  
  1839. COMMAND NORTH
  1840. AtLocation [reservoir]
  1841. PrintMessage [CANT.SWIM]
  1842. DoneWithTurn
  1843. END_COMMAND
  1844.  
  1845. COMMAND NORTH
  1846. AtLocation [breath-taking view]
  1847. NOT Present [wheatstone bridge 1]
  1848. PrintMessage [NO.ARCH]
  1849. DoneWithTurn
  1850. END_COMMAND
  1851.  
  1852. COMMAND NORTH
  1853. AtLocation [breath-taking view]
  1854. Present [wheatstone bridge 1]
  1855. FlagON [bear following]
  1856. PrintMessage [LEAVE.BEAR]
  1857. DoneWithTurn
  1858. END_COMMAND
  1859.  
  1860. COMMAND NORTH
  1861. AtLocation [breath-taking view]
  1862. Present [wheatstone bridge 1]
  1863. IsCarrying [mithril ring]
  1864. PrintMessage [FUMES.MISS]
  1865. GoToRoom [S end of Stone Faces]
  1866. BlankLine
  1867. DoneWithTurn
  1868. END_COMMAND
  1869.  
  1870. COMMAND NORTH
  1871. AtLocation [breath-taking view]
  1872. Present [wheatstone bridge 1]
  1873. NOT IsCarrying [mithril ring]
  1874. PrintMessage [FUMES.BURN]
  1875. GoToRoom [Dead]
  1876. BlankLine
  1877. KillPlayer
  1878. DoneWithTurn
  1879. END_COMMAND
  1880.  
  1881. MESSAGE [NO.ARCH]
  1882. I'm afraid you can't go that way - walking on red-hot lava is contrary to
  1883. union regulations (and is bad for your health anyhow).
  1884. END_MESSAGE
  1885.  
  1886. MESSAGE [LEAVE.BEAR]
  1887. That archway looks pretty fragile - you'd better leave the bear here.
  1888. END_MESSAGE
  1889.  
  1890. MESSAGE [FUMES.BURN]
  1891. As you approach the center of the archway, hot vapors saturated with brimstone
  1892. drift up from the lava in the gorge beneath your feet.  You are swiftly
  1893. overcome by the foul gasses and, with your lungs burned out, fall off of the
  1894. bridge and into the gorge.
  1895. END_MESSAGE
  1896.  
  1897. MESSAGE [FUMES.MISS]
  1898. As you approach the center of the archway, hot vapors saturated with brimstone
  1899. drift up from the lava in the gorge beneath your feet.  The mithril ring in
  1900. your hand quivers and glows, and the fumes eddy away from the bridge without
  1901. harming you.
  1902. END_MESSAGE
  1903.  
  1904. COMMAND NORTH
  1905. AtLocation [N end of Stone Faces]
  1906. Present [Statue of minotaur]
  1907. GoToRoom [passage near basilisk's den]
  1908. DoneWithTurn
  1909. END_COMMAND
  1910.  
  1911. COMMAND NORTH
  1912. AtLocation [passage near basilisk's den]
  1913. IsSomeWhere [basilisk - north]
  1914. GoToRoom  [north of basilisk's den]
  1915. PrintMessage [BAS.GRUMBLE]
  1916. BlankLine
  1917. DoneWithTurn
  1918. END_COMMAND
  1919.  
  1920. MESSAGE [BAS.GRUMBLE]
  1921. The basilisk stirs restlessly and grumbles in its sleep, but it does not
  1922. awaken.
  1923. END_MESSAGE
  1924.  
  1925. COMMAND NORTH
  1926. AtLocation [room with vaulted ceiling]
  1927. Present [walk-in safe - open]
  1928. PrintMessage [SAFE.BLOCKS]
  1929. DoneWithTurn
  1930. END_COMMAND
  1931.  
  1932. COMMAND NORTH
  1933. AtLocation [bottom of icy slide]
  1934. PrintMessage [SLIDE.SLIPPERY]
  1935. DoneWithTurn
  1936. END_COMMAND
  1937.  
  1938. COMMAND NORTH
  1939. Present [ogre blocking your path]
  1940. PrintMessage [OGRE.BLOCKS]
  1941. DoneWithTurn
  1942. END_COMMAND
  1943.  
  1944. MESSAGE [OGRE.BLOCKS]
  1945. The ogre growls at you and refuses to let you pass.
  1946. END_MESSAGE
  1947.  
  1948. #COMMENT ------- SOUTH
  1949.  
  1950. COMMAND SOUTH
  1951. AtLocation [At Turn In Duct]
  1952. PrintMessage [North to Middle]
  1953. BlankLine
  1954. END_COMMAND
  1955.  
  1956. COMMAND SOUTH
  1957. AtLocation [In the middle of the duct]
  1958. OR
  1959. AtLocation [In the middle of the duct - 2]
  1960. OR
  1961. AtLocation [In the middle of the duct - 3]
  1962. PrintMessage [Middle to South]
  1963. BlankLine
  1964. END_COMMAND
  1965.  
  1966. COMMAND SOUTH
  1967. InRoom [green snake]
  1968. PrintMessage [that's unsafe]
  1969. DoneWithTurn
  1970. END_COMMAND
  1971.  
  1972. COMMAND SOUTH
  1973. AtLocation [programmer's den]
  1974. FlagOFF [programmer angry] ;programmer is not angry
  1975. FlagOFF [secret word given] ;programmer has not given his secret word
  1976. TurnFlagON [secret word given]
  1977. PrintMessage [progammer gives password]
  1978. BlankLine
  1979. GetIt [access card]
  1980. END_COMMAND
  1981.  
  1982. MESSAGE [progammer gives password]
  1983. A bearded programmer steps out from the shadows and says, "Since you didn't
  1984. try to steal any of my stuff, I'll give you a special plastic card and reveal
  1985. a secret password.  Use the password wisely and enjoy your stay in HUMONGOUS
  1986. CAVE, my son."  With that, the programmer vanishes, leaving a few 0 and 1 bits
  1987. that briefly form the word:
  1988.  
  1989.      TURBO
  1990.  
  1991. END_MESSAGE
  1992.  
  1993. COMMAND SOUTH
  1994. AtLocation [N end of reservoir]
  1995. Present [Darwin the turtle]
  1996. PrintMessage [TURTLE.BACK]
  1997. SendToRoom [Darwin the turtle] [nowhere]
  1998. GoToRoom [reservoir]
  1999. BlankLine
  2000. DoneWithTurn
  2001. END_COMMAND
  2002.  
  2003. COMMAND SOUTH
  2004. AtLocation [N end of reservoir]
  2005. NOT Present [Darwin the turtle]
  2006. PrintMessage [CANT.SWIM]
  2007. DoneWithTurn
  2008. END_COMMAND
  2009.  
  2010. COMMAND SOUTH
  2011. AtLocation [S end of Stone Faces]
  2012. NOT Present [wheatstone bridge 2]
  2013. PrintMessage [NO.ARCH]
  2014. DoneWithTurn
  2015. END_COMMAND
  2016.  
  2017. COMMAND SOUTH
  2018. AtLocation [S end of Stone Faces]
  2019. Present [wheatstone bridge 2]
  2020. IsCarrying [mithril ring]
  2021. NOT IsCarrying [sapphire-encrusted sceptre]
  2022. PrintMessage [FUMES.MISS]
  2023. GoToRoom [breath-taking view]
  2024. BlankLine
  2025. DoneWithTurn
  2026. END_COMMAND
  2027.  
  2028. COMMAND SOUTH
  2029. AtLocation [S end of Stone Faces]
  2030. Present [wheatstone bridge 2]
  2031. IsCarrying [mithril ring]
  2032. IsCarrying [sapphire-encrusted sceptre]
  2033. PrintMessage [GHOST.BANG]
  2034. GoToRoom [Dead]
  2035. BlankLine
  2036. KillPlayer
  2037. Destroy [wheatstone bridge 1]
  2038. Destroy [wheatstone bridge 2]
  2039. DoneWithTurn
  2040. END_COMMAND
  2041.  
  2042. MESSAGE [GHOST.BANG]
  2043. As you reach the center of the bridge, a ghostly figure appears in front of
  2044. you.  He (?) stands at least eight feet tall, and has the lower body of an
  2045. enormous snake, six arms, and an angry expression on his face.  "You'll not
  2046. have my sceptre that easily!" he cries, and makes a complex magical gesture
  2047. with his lower right arm.  There is a brilliant flash of light and a vicious
  2048. >crack<, and the bridge cracks and plummets into the gorge.
  2049. END_MESSAGE
  2050.  
  2051. COMMAND SOUTH
  2052. AtLocation [S end of Stone Faces]
  2053. Present [wheatstone bridge 2]
  2054. NOT IsCarrying [mithril ring]
  2055. PrintMessage [FUMES.BURN]
  2056. GoToRoom [Dead]
  2057. BlankLine
  2058. KillPlayer
  2059. DoneWithTurn
  2060. END_COMMAND
  2061.  
  2062. MESSAGE [PETRIFY.SELF]
  2063. The basilisk stirs grumpily and awakens, peering sleepily about.  It sees its
  2064. reflection in the metal plate that you are carrying, shudders, and turns into
  2065. solid granite.
  2066. END_MESSAGE
  2067.  
  2068. MESSAGE [PETRIFY.ME]
  2069. The basilisk stirs grumpily and awakens, peering sleepily about.  It spies
  2070. you, growls, and stares you straight in the eye.  Your body is instantly
  2071. petrified.
  2072. END_MESSAGE
  2073.  
  2074. COMMAND SOUTH
  2075. AtLocation [steep slide in lava tube]
  2076. GoToRoom [S end of fog-filled room]
  2077. PrintMessage [OOF]
  2078. BlankLine
  2079. DoneWithTurn
  2080. END_COMMAND
  2081.  
  2082. #COMMENT
  2083. You must be carrying the metal plate when you go SOUTH from "north of
  2084. basilisk's den" to get past the Basilisk.  When you do the Basilisk sees
  2085. his reflection in the plate and it petrifies him.
  2086.  
  2087. If you are not carrying the plate, the Basilisk wakes up and looks at you and
  2088. you get petrified and die.
  2089. #END_COMMENT
  2090.  
  2091. COMMAND SOUTH
  2092. AtLocation [north of basilisk's den]
  2093. IsSomeWhere [basilisk - north]
  2094. IsCarrying [metal plate]
  2095. GoToRoom [passage near basilisk's den]
  2096. SwapLocations [petrified basilisk - north] [basilisk - north]
  2097. SwapLocations [petrified basilisk - south] [basilisk - south]
  2098. PrintMessage [PETRIFY.SELF]
  2099. BlankLine
  2100. DoneWithTurn
  2101. END_COMMAND
  2102.  
  2103. COMMAND SOUTH
  2104. AtLocation [north of basilisk's den]
  2105. IsSomeWhere [basilisk - north]
  2106. NOT IsCarrying [metal plate]
  2107. GoToRoom [Dead]
  2108. PrintMessage [PETRIFY.ME]
  2109. BlankLine
  2110. KillPlayer
  2111. DoneWithTurn
  2112. END_COMMAND
  2113.  
  2114. COMMAND SOUTH
  2115. AtLocation [peelgrunt room]
  2116. Present [walk-in safe - open]
  2117. PrintMessage [SAFE.BLOCKS]
  2118. DoneWithTurn
  2119. END_COMMAND
  2120.  
  2121. COMMAND SOUTH
  2122. AtLocation [crack 2]
  2123. Present [green slime]
  2124. PrintMessage [SLIMED]
  2125. KillPlayer
  2126. GoToRoom [Dead]
  2127. BlankLine
  2128. DoneWithTurn
  2129. END_COMMAND
  2130.  
  2131. MESSAGE [SLIMED]
  2132. As you enter into the passage, you are forced to brush up against some of the
  2133. green slime.  Instantly it flows down and covers your body, and rapidly
  2134. digests away all of your flesh.
  2135. END_MESSAGE
  2136.  
  2137. #COMMENT ------- EAST
  2138.  
  2139. COMMAND EAST
  2140. AtLocation [inside Rabbit's Warren]
  2141. FlagON [Has used compass in Rabbit's Warren]
  2142. PrintMessage [find way out]
  2143. GoToRoom [windy cavern]
  2144. BlankLine
  2145. DoneWithTurn
  2146. END_COMMAND
  2147.  
  2148. COMMAND EAST
  2149. AtLocation [west side of fissure]
  2150. NOT InRoom [crystal bridge 2]
  2151. PrintMessage [no way across]
  2152. DoneWithTurn
  2153. END_COMMAND
  2154.  
  2155. COMMAND EAST
  2156. AtLocation [alcove]
  2157. IsCarryingNothing
  2158. GoToRoom [plover room]
  2159. PrintMessage [squeeze through tunnel]
  2160. BlankLine
  2161. DoneWithTurn
  2162. END_COMMAND
  2163.  
  2164. COMMAND EAST
  2165. AtLocation [alcove]
  2166. IsCarryingSomething
  2167. PrintMessage [something won't fit]
  2168. DoneWithTurn
  2169. END_COMMAND
  2170.  
  2171. COMMAND EAST
  2172. AtLocation [witt's end]
  2173. Chance 20
  2174. PrintMessage [find way out]
  2175. BlankLine
  2176. GoToRoom [anteroom]
  2177. BlankLine
  2178. DoneWithTurn
  2179. END_COMMAND
  2180.  
  2181. MESSAGE [find way out]
  2182. Finally, you discover a small tunnel leading east.  You just manage to fit
  2183. through and find yourself ...
  2184. END_MESSAGE
  2185.  
  2186. COMMAND EAST
  2187. AtLocation [translucent room]
  2188. FlagOFF [Goblins have appeared]
  2189. TurnFlagON [Goblins have appeared]
  2190. TurnCounterON [Goblin counter]
  2191. PrintMessage [Goblins appear]
  2192. PutInCurrentRoom [gooseberry goblins]
  2193. DoneWithTurn
  2194. END_COMMAND
  2195.  
  2196. COMMAND EAST
  2197. AtLocation [ice room]
  2198. GoToRoom [bottom of icy slide]
  2199. PrintMessage [OOF]
  2200. BlankLine
  2201. DoneWithTurn
  2202. END_COMMAND
  2203.  
  2204. COMMAND EAST
  2205. AtLocation [coral passage]
  2206. CounterEquals [Quicksand is hard -- counter] 0
  2207. OR
  2208. IsCarrying [giant clam]
  2209. OR
  2210. IsCarrying [giant oyster]
  2211. PrintMessage [SCHLURP]
  2212. GoToRoom [Dead]
  2213. BlankLine
  2214. KillPlayer
  2215. DoneWithTurn
  2216. END_COMMAND
  2217.  
  2218. COMMAND EAST
  2219. AtLocation [coral passage]
  2220. CounterGT [Quicksand is hard -- counter] 0
  2221. NOT IsCarrying [giant clam]
  2222. NOT IsCarrying [giant oyster]
  2223. GoToRoom [bend in coral passage]
  2224. BlankLine
  2225. DoneWithTurn
  2226. END_COMMAND
  2227.  
  2228. MESSAGE [SCHLURP]
  2229. Hmmmm..  This sand is rather soft, and you're sinking in a little... In fact
  2230. you're sinking in a lot!   Oh, no - it's QUICKSAND!!  HELP!! HELP!!! HELP!!
  2231. >glub<   >glub<    >glub<     >blurp<
  2232. END_MESSAGE
  2233.  
  2234. #COMMENT ------- WEST
  2235.  
  2236. COMMAND WEST
  2237. AtLocation [R646  Graveyard]
  2238. OR
  2239. AtLocation [R647  Graveyard]
  2240. OR
  2241. AtLocation [R648  The Barrow]
  2242. BlankLine
  2243. PrintMessage "You sink down into the treacherous marsh...down...down...>GLOOP!<"
  2244. GoToROOM [Dead]
  2245. BlankLine
  2246. DoneWithTurn
  2247. END_COMMAND
  2248.  
  2249. COMMAND WEST
  2250. AtLocation [east bank of fissure]
  2251. NOT InRoom [crystal bridge]
  2252. PrintMessage [no way across]
  2253. DoneWithTurn
  2254. END_COMMAND
  2255.  
  2256. COMMAND WEST
  2257. InRoom [green snake]
  2258. PrintMessage [that's unsafe]
  2259. DoneWithTurn
  2260. END_COMMAND
  2261.  
  2262. COMMAND WEST
  2263. AtLocation [plover room]
  2264. IsCarrying [egg-sized emerald]
  2265. LoadWeightEquals [treasure weight] ;only carrying emerald
  2266. PrintMessage [squeeze through tunnel]
  2267. GoToRoom [alcove]
  2268. BlankLine
  2269. DoneWithTurn
  2270. END_COMMAND
  2271.  
  2272. COMMAND WEST
  2273. AtLocation [plover room]
  2274. IsCarryingNothing
  2275. GoToRoom [alcove]
  2276. PrintMessage [squeeze through tunnel]
  2277. BlankLine
  2278. DoneWithTurn
  2279. END_COMMAND
  2280.  
  2281. COMMAND WEST
  2282. AtLocation [plover room]
  2283. IsCarryingSomething
  2284. PrintMessage [something won't fit]
  2285. DoneWithTurn
  2286. END_COMMAND
  2287.  
  2288. COMMAND WEST
  2289. AtLocation [bend in coral passage]
  2290. CounterEquals [Quicksand is hard -- counter] 0
  2291. OR
  2292. IsCarrying [giant clam]
  2293. OR
  2294. IsCarrying [giant oyster]
  2295. PrintMessage [SCHLURP]
  2296. GoToRoom [Dead]
  2297. BlankLine
  2298. KillPlayer
  2299. DoneWithTurn
  2300. END_COMMAND
  2301.  
  2302. COMMAND WEST
  2303. AtLocation [bend in coral passage]
  2304. CounterGT [Quicksand is hard -- counter] 0
  2305. NOT IsCarrying [giant clam]
  2306. NOT IsCarrying [giant oyster]
  2307. GoToRoom [coral passage]
  2308. BlankLine
  2309. DoneWithTurn
  2310. END_COMMAND
  2311.  
  2312. #COMMENT ------- SOUTHWEST
  2313.  
  2314. COMMAND SOUTHWEST
  2315. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2316. FlagOFF [cave closing] ;Cave still open
  2317. Present [phony troll]
  2318. AtLocation [NE chasm] ;one side of troll bridge
  2319. GoToRoom [SW chasm] ;other side
  2320. PutInCurrentRoom [phony troll]
  2321. PutInCurrentRoom [rickety bridge]
  2322. PrintMessage [scamper across]
  2323. DoneWithTurn
  2324. END_COMMAND
  2325.  
  2326. COMMAND SOUTHWEST
  2327. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2328. FlagOFF [cave closing] ;Cave still open
  2329. AtLocation [NE chasm] ;one side of troll bridge
  2330. InRoom [rickety bridge] ;troll bridge
  2331. NOT InRoom [burly troll]
  2332. FlagOFF [troll eliminated] ;troll can now appear when you try to cross bridge
  2333. PutInCurrentRoom [burly troll]
  2334. PrintMessage [troll appears]
  2335. DoneWithTurn
  2336. END_COMMAND
  2337.  
  2338. COMMAND SOUTHWEST
  2339. FlagON [eggs returned] ; Player has got eggs back via magic words
  2340. FlagOFF [cave closing] ;Cave still open
  2341. AtLocation [NE chasm] ;one side of troll bridge
  2342. InRoom [rickety bridge] ;troll bridge
  2343. NOT InRoom [burly troll]
  2344. PrintMessage [REVENGE]
  2345. TurnFlagOFF [bear following]
  2346. SendToRoom [bridge wreckage] [SW chasm]
  2347. GoToRoom [bottom of the pit]
  2348. MinusScore 10
  2349. KillPlayer
  2350. DoneWithTurn
  2351. END_COMMAND
  2352.  
  2353. MESSAGE [REVENGE]
  2354. As you reach the middle of the bridge, the troll appears from out of the
  2355. tunnel behind you, wearing a large backpack.  "So, Mister Magician," he
  2356. shouts, "you like to use magic to steal back my hard-earned toll?  Let's see
  2357. how you like a little of MY magic!!"  With that, he aims a tube running from
  2358. the backpack directly at the bridge and pulls a trigger.  A spout of magical
  2359. fire roars out and incinerates the bridge supports, causing the bridge to sway
  2360. giddily and collapse into the chasm.  You plunge down to your death.
  2361. END_MESSAGE
  2362.  
  2363. COMMAND SOUTHWEST
  2364. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2365. FlagOFF [cave closing] ;Cave still open
  2366. AtLocation [NE chasm] ;one side of troll bridge
  2367. InRoom [rickety bridge]
  2368. InRoom [burly troll]
  2369. PrintMessage [troll refuses]
  2370. DoneWithTurn
  2371. END_COMMAND
  2372.  
  2373. COMMAND SOUTHWEST
  2374. InRoom [rickety bridge]
  2375. FlagON [bear following]
  2376. PrintMessage [bridge buckles under bear]
  2377. Destroy [rickety bridge]
  2378. Destroy [burly troll]
  2379. Destroy [phony troll]
  2380. Destroy [contented bear]
  2381. TurnFlagOFF [bear following]
  2382. SendToRoom [bridge wreckage] [SW chasm]
  2383. GoToRoom [bottom of the pit]
  2384. MinusScore 10
  2385. SendToRoom [OFF lamp] [inside building]
  2386. Destroy [ON lamp]
  2387. KillPlayer
  2388. DoneWithTurn
  2389. END_COMMAND
  2390.  
  2391. COMMAND SOUTHWEST
  2392. AtLocation [pink foggy room]
  2393. Present [pink faint glow]
  2394. GoToRoom [fog-filled room by cairn]
  2395. DoneWithTurn
  2396. END_COMMAND
  2397.  
  2398. #COMMENT ------- NORTHWEST
  2399.  
  2400. COMMAND NORTHWEST
  2401. AtLocation [N end of Stone Faces]
  2402. Present [Statue of minotaur]
  2403. GoToRoom [S end of fog-filled room]
  2404. DoneWithTurn
  2405. END_COMMAND
  2406.  
  2407. #COMMENT ------- NORTHEAST
  2408.  
  2409. COMMAND NORTHEAST
  2410. AtLocation [N end of Stone Faces]
  2411. Present [Statue of minotaur]
  2412. GoToRoom [Banshee passage]
  2413. DoneWithTurn
  2414. END_COMMAND
  2415.  
  2416. COMMAND NORTHEAST
  2417. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2418. FlagOFF [cave closing]
  2419. AtLocation [SW chasm] ;one side of troll bridge
  2420. InRoom [rickety bridge] ;troll bridge
  2421. FlagOFF [troll eliminated] ;troll can now appear when you try to cross bridge
  2422. NOT InRoom [burly troll]
  2423. PutInCurrentRoom [burly troll]
  2424. PrintMessage [troll appears]
  2425. DoneWithTurn
  2426. END_COMMAND
  2427.  
  2428. COMMAND NORTHEAST
  2429. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2430. FlagOFF [cave closing]
  2431. AtLocation [SW chasm] ;one side of troll bridge
  2432. InRoom [rickety bridge] ;troll bridge
  2433. InRoom [burly troll]
  2434. PrintMessage [troll refuses]
  2435. DoneWithTurn
  2436. END_COMMAND
  2437.  
  2438. COMMAND NORTHEAST
  2439. FlagOFF [cave closing] ;Cave still open
  2440. AtLocation [SW chasm] ;one side of troll bridge
  2441. InRoom [bridge wreckage]
  2442. PrintMessage [no longer any way across]
  2443. DoneWithTurn
  2444. END_COMMAND
  2445.  
  2446. COMMAND NORTHEAST
  2447. FlagON [eggs returned] ; Player has got eggs back via magic words
  2448. FlagOFF [cave closing] ;Cave still open
  2449. AtLocation [SW chasm] ;one side of troll bridge
  2450. NOT InRoom [burly troll]
  2451. PrintMessage [REVENGE]
  2452. TurnFlagOFF [bear following]
  2453. SendToRoom [bridge wreckage] [SW chasm]
  2454. GoToRoom [bottom of the pit]
  2455. MinusScore 10
  2456. KillPlayer
  2457. DoneWithTurn
  2458. END_COMMAND
  2459.  
  2460. COMMAND NORTHEAST
  2461. FlagOFF [eggs returned] ; Player has not gotten eggs back via magic words
  2462. FlagOFF [cave closing] ;Cave still open
  2463. Present [phony troll]
  2464. AtLocation [SW chasm] ;one side of troll bridge
  2465. GoToRoom [NE chasm] ;other side
  2466. PutInCurrentRoom [phony troll]
  2467. PutInCurrentRoom [rickety bridge]
  2468. PrintMessage [scamper across]
  2469. DoneWithTurn
  2470. END_COMMAND
  2471.  
  2472. #COMMENT ------- UP
  2473.  
  2474. COMMAND UP
  2475. AtLocation [R28  Cavern]
  2476. IsCarrying [Long Ladder]
  2477. PrintMessage [You are trapped]
  2478. DoneWithTurn
  2479. END_COMMAND
  2480.  
  2481. MESSAGE [You are trapped]
  2482. You climb the stairs only to discover that someone has closed the coffin lid.
  2483. You push and push, but you can't budge it.  You are trapped!
  2484. END_MESSAGE
  2485.  
  2486. COMMAND UP
  2487. AtLocation [R642  Stairs]
  2488. BlankLine
  2489. PrintMessage "The stairs give way and you topple down...down...>SPLAT!<..."
  2490. BlankLine
  2491. GoToROOM [Dead]
  2492. DoneWithTurn
  2493. END_COMMAND
  2494.  
  2495. COMMAND UP
  2496. AtLocation [Southern end of long hall]
  2497. IsSomeWhere [open vault] ; vault is open above
  2498. GoToRoom [inside building]
  2499. PrintMessage [You climb the stairs]
  2500. DoneWithTurn
  2501. END_COMMAND
  2502.  
  2503. COMMAND UP
  2504. AtLocation [Southern end of long hall]
  2505. NOT IsSomeWhere [open vault] ; vault is NOT open above
  2506. PrintMessage [You can't climb the stairs]
  2507. DoneWithTurn
  2508. END_COMMAND
  2509.  
  2510. COMMAND UP
  2511. AtLocation [Bottom of Hole]
  2512. PrintMessage "You keep slipping back down.  After a while, you give up."
  2513. DoneWithTurn
  2514. END_COMMAND
  2515.  
  2516. COMMAND UP
  2517. AtLocation [Ladder Top]
  2518. PrintMessage "The pole is too slippery to climb -- even with your tennis shoes."
  2519. DoneWithTurn
  2520. END_COMMAND
  2521.  
  2522. MESSAGE [Starting Up]
  2523. You step on to the stairs and begin to climb up.  It seems like a very easy
  2524. climb and you don't even have to pause to rest.  You notice that it seems to
  2525. get cooler as you climb.  Finally, you reach the top of the stairs almost
  2526. refreshed for your little bout of exercise.  (One of the wonders of Adventure
  2527. Games is that they need not be logical, consistent or fair.  Sometimes, this
  2528. works to the player's advantage -- like now.)
  2529.  
  2530. END_MESSAGE
  2531.  
  2532. COMMAND UP
  2533. AtLocation [Gates of Hell]
  2534. PrintMessage [Starting Up]
  2535. GoToRoom [circular Room]
  2536. BlankLine
  2537. DoneWithTurn
  2538. END_COMMAND
  2539.  
  2540. COMMAND UP
  2541. AtLocation [bedquilt room]
  2542. PrintMessage [back where you started]
  2543. DoneWithTurn
  2544. END_COMMAND
  2545.  
  2546. COMMAND UP
  2547. AtLocation [hall of mists]
  2548. IsCarrying [gold nugget]
  2549. PrintMessage [can't be serious]
  2550. PrintMessage "The dome is unclimbable!"
  2551. DoneWithTurn
  2552. END_COMMAND
  2553.  
  2554. COMMAND UP
  2555. AtLocation [below grate]
  2556. IsOpen [iron grate]
  2557. GoToRoom [depression outside grate]
  2558. DoneWithTurn
  2559. END_COMMAND
  2560.  
  2561. COMMAND UP
  2562. AtLocation [below grate]
  2563. IsClosed [iron grate]
  2564. PrintMessage [this exit closed]
  2565. DoneWithTurn
  2566. END_COMMAND
  2567.  
  2568. COMMAND UP
  2569. AtLocation [room with vaulted ceiling]
  2570. Present [walk-in safe - open]
  2571. PrintMessage [SAFE.BLOCKS]
  2572. DoneWithTurn
  2573. END_COMMAND
  2574.  
  2575. COMMAND UP
  2576. AtLocation [bottom of icy slide]
  2577. PrintMessage [SLIDE.SLIPPERY]
  2578. DoneWithTurn
  2579. END_COMMAND
  2580.  
  2581. #COMMENT ------- DOWN
  2582.  
  2583. COMMAND DOWN
  2584. AtLocation [R644  Top of Tower]
  2585. BlankLine
  2586. PrintMessage "The stairs give way and you topple down...down...>SPLAT!<..."
  2587. BlankLine
  2588. GoToROOM [Dead]
  2589. DoneWithTurn
  2590. END_COMMAND
  2591.  
  2592. COMMAND DOWN
  2593. AtLocation [inside building]
  2594. IsSomeWhere [open vault] ; vault is open above
  2595. GoToRoom [Southern end of long hall]
  2596. PrintMessage [You climb down the stairs]
  2597. BlankLine
  2598. DoneWithTurn
  2599. END_COMMAND
  2600.  
  2601. MESSAGE [You climb down the stairs]
  2602. You climb down the steep stairway in the safe.
  2603. END_MESSAGE
  2604.  
  2605. COMMAND DOWN
  2606. AtLocation [on the beach]
  2607. Present [Gigantic Hole]
  2608. FlagOFF [Has dug in bottom of hole]
  2609. GoToRoom [Bottom of hole]
  2610. PrintMessage [You slip down the sandy side of the hole]
  2611. BlankLine
  2612. DoneWithTurn
  2613. END_COMMAND
  2614.  
  2615. COMMAND DOWN
  2616. AtLocation [on the beach]
  2617. Present [Gigantic Hole]
  2618. FlagON [Has dug in bottom of hole]
  2619. GoToRoom [Shaft Room]
  2620. PrintMessage [You slip down the sandy side of the hole]
  2621. BlankLine
  2622. DoneWithTurn
  2623. END_COMMAND
  2624.  
  2625. COMMAND DOWN
  2626. Present [Small Hole]
  2627. OR
  2628. Present [Large Hole]
  2629. PrintMessage
  2630. You climb down into the hole -- then with great difficulty back up.
  2631. End_Message
  2632. DoneWithTurn
  2633. END_COMMAND
  2634.  
  2635. COMMAND DOWN
  2636. AtLocation [Shaft Room]
  2637. NOT IsWearing [Tennis Shoes]
  2638. GoToRoom [Dead]
  2639. PrintMessage "The pole is too slippery.  You lose your grip and fall...."
  2640. BlankLine
  2641. DoneWithTurn
  2642. END_COMMAND
  2643.  
  2644. COMMAND DOWN
  2645. AtLocation [circular Room]
  2646. PrintMessage [Start down]
  2647. BlankLine
  2648. END_COMMAND
  2649.  
  2650. MESSAGE [Start Down]
  2651. You step on to the staircase and begin to climb down.  You climb down for a
  2652. long, long time.  You are getting warmer and quite tired.  You pause to rest.
  2653. END_MESSAGE
  2654.  
  2655. COMMAND DOWN
  2656. AtLocation [1st Level]
  2657. PrintMessage [Going down]
  2658. BlankLine
  2659. END_COMMAND
  2660.  
  2661. MESSAGE [Going Down]
  2662. You resume your climb down.  Down and down you go, round and round you go, in
  2663. a spin, lovin the spin your in, under that old black magic ... called love,
  2664. etc....
  2665.  
  2666. It is quite warm here.  Once again, you pause to rest.
  2667. END_MESSAGE
  2668.  
  2669. COMMAND DOWN
  2670. AtLocation [2nd Level]
  2671. OR
  2672. AtLocation [3rd Level]
  2673. PrintMessage [More Going down]
  2674. BlankLine
  2675. END_COMMAND
  2676.  
  2677. MESSAGE [More Going Down]
  2678. You resume your climb down.  It is really getting hot here.  Once again, you
  2679. pause to rest.
  2680. END_MESSAGE
  2681.  
  2682. COMMAND DOWN
  2683. AtLocation [4th Level]
  2684. PrintMessage [Final Going down]
  2685. BlankLine
  2686. END_COMMAND
  2687.  
  2688. MESSAGE [Final Going Down]
  2689. With the end in sight, you make one last effort to finish these !@#$%^&ing
  2690. stairs.  You can hardly stand the heat.  Finally, you reach the bottom.
  2691. END_MESSAGE
  2692.  
  2693. COMMAND DOWN
  2694. InRoom [green snake]
  2695. PrintMessage [that's unsafe]
  2696. DoneWithTurn
  2697. END_COMMAND
  2698.  
  2699. MESSAGE [that's unsafe]
  2700. Going that way would require getting VERY close to the snake!  I'm sorry, but
  2701. I just can't allow it.  For your own good, you can't go that way.
  2702. END_MESSAGE
  2703.  
  2704. COMMAND DOWN
  2705. InRoom [gigantic beanstalk top]
  2706. PrintMessage [climb down beanstalk]
  2707. GoToRoom [west pit]
  2708. BlankLine
  2709. DoneWithTurn
  2710. END_COMMAND
  2711.  
  2712. COMMAND DOWN
  2713. AtLocation [depression outside grate]
  2714. IsOpen [iron grate]
  2715. GoToRoom [below grate]
  2716. DoneWithTurn
  2717. END_COMMAND
  2718.  
  2719. COMMAND DOWN
  2720. AtLocation [steep slide in lava tube]
  2721. GoToRoom [S end of fog-filled room]
  2722. PrintMessage [OOF]
  2723. BlankLine
  2724. DoneWithTurn
  2725. END_COMMAND
  2726.  
  2727. MESSAGE [OOF]
  2728. Wheeeeeeeeeeeeeeee.......   >oof<
  2729.  
  2730. That was fun!
  2731. END_MESSAGE
  2732.  
  2733. COMMAND DOWN
  2734. AtLocation [ice room]
  2735. GoToRoom [bottom of icy slide]
  2736. PrintMessage [OOF]
  2737. BlankLine
  2738. DoneWithTurn
  2739. END_COMMAND
  2740.  
  2741. COMMAND DOWN
  2742. AtLocation [cavern with waterfall]
  2743. PrintMessage [WHIRLPOOL?]
  2744. PromptForNO
  2745. PrintMessage "Smart (yet cowardly) move!"
  2746. DoneWithTurn
  2747. END_COMMAND
  2748.  
  2749. COMMAND DOWN
  2750. AtLocation [cavern with waterfall]
  2751. #COMMENT -- going into whirlpool
  2752. FlagON [Player is very strong] ; player will not lose his stuff
  2753. IsCarrying [ON Lamp]
  2754. PrintMessage [FLOW.DOWN]
  2755. GoToRoom  [N end of reservoir]
  2756. PrintMessage [WHIRL.LAND]
  2757. PlusScore 15
  2758. BlankLine
  2759. DoneWithTurn
  2760. END_COMMAND
  2761.  
  2762. COMMAND DOWN
  2763. AtLocation [cavern with waterfall]
  2764. #COMMENT -- going into whirlpool
  2765. FlagON [Player is very strong] ; player will not lose his stuff
  2766. NOT IsCarrying [ON Lamp]
  2767. PrintMessage [FLOW.DARK]
  2768. GoToRoom  [N end of reservoir]
  2769. PrintMessage [WHIRL.LAND]
  2770. PlusScore 15
  2771. BlankLine
  2772. DoneWithTurn
  2773. END_COMMAND
  2774.  
  2775. COMMAND DOWN
  2776. AtLocation [cavern with waterfall]
  2777. #COMMENT -- going into whirlpool
  2778. FlagOFF [Player is very strong] ; player will lose his stuff
  2779. IsCarrying [ON Lamp]
  2780. SendAllToRoom [nowhere]
  2781. GetIt [ON Lamp] ; Lamp is not lost
  2782. PrintMessage [FLOW.RIP]
  2783. GoToRoom  [N end of reservoir]
  2784. BlankLine
  2785. PrintMessage [WHIRL.LAND]
  2786. BlankLine
  2787. PlusScore 5
  2788. DoneWithTurn
  2789. END_COMMAND
  2790.  
  2791. COMMAND DOWN
  2792. AtLocation [cavern with waterfall]
  2793. #COMMENT -- going into whirlpool
  2794. FlagOFF [Player is very strong] ; player will lose his stuff
  2795. NOT IsCarrying [ON Lamp]
  2796. SendAllToRoom [nowhere]
  2797. PrintMessage [FLOW.D.RIP]
  2798. GoToRoom  [N end of reservoir]
  2799. BlankLine
  2800. PrintMessage [WHIRL.LAND]
  2801. BlankLine
  2802. PlusScore 5
  2803. DoneWithTurn
  2804. END_COMMAND
  2805.  
  2806. MESSAGE [WHIRLPOOL?]
  2807. Into the whirlpool??
  2808. END_MESSAGE
  2809.  
  2810. MESSAGE [FLOW.DOWN]
  2811. You plunge into the water and are sucked down by the whirlpool.
  2812. END_MESSAGE
  2813.  
  2814. MESSAGE [FLOW.RIP]
  2815. You plunge into the water and are sucked down by the whirlpool.  The current
  2816. is incredibly strong, and you barely manage to hold onto your lamp; everything
  2817. else is pulled from your grasp and is lost in the swirling waters.
  2818. END_MESSAGE
  2819.  
  2820. MESSAGE [FLOW.DARK]
  2821. You plunge into the water and are sucked down by the whirlpool into pitch
  2822. darkness.
  2823. END_MESSAGE
  2824.  
  2825. MESSAGE [FLOW.D.RIP]
  2826. You plunge into the water and are sucked down by the whirlpool into pitch
  2827. darkness.  The current is incredibly strong, and everything that you are
  2828. carrying is ripped from your grasp and is lost in the swirling waters.
  2829. END_MESSAGE
  2830.  
  2831. MESSAGE [WHIRL.LAND]
  2832. The swirling waters deposit you, not ungently, on solid ground.
  2833. END_MESSAGE
  2834.  
  2835. #COMMENT ------- EXIT
  2836.  
  2837. COMMAND EXIT
  2838. AtLocation [translucent room]
  2839. FlagOFF [Goblins have appeared]
  2840. TurnFlagON [Goblins have appeared]
  2841. TurnCounterON [Goblin counter]
  2842. PrintMessage [Goblins appear]
  2843. PutInCurrentRoom [gooseberry goblins]
  2844. DoneWithTurn
  2845. END_COMMAND
  2846.  
  2847. COMMAND EXIT
  2848. AtLocation [room with vaulted ceiling]
  2849. Present [walk-in safe - open]
  2850. PrintMessage [SAFE.BLOCKS]
  2851. DoneWithTurn
  2852. END_COMMAND
  2853.  
  2854. COMMAND EXIT
  2855. AtLocation [peelgrunt room]
  2856. Present [walk-in safe - open]
  2857. PrintMessage [SAFE.BLOCKS]
  2858. DoneWithTurn
  2859. END_COMMAND
  2860.  
  2861. #COMMENT ------- ENTER
  2862.  
  2863. COMMAND ENTER BUILDING
  2864. AtLocation [end of road]
  2865. GoToRoom [inside building]
  2866. DoneWithTurn
  2867. END_COMMAND
  2868.  
  2869. COMMAND ENTER COFFIN
  2870. InRoom [open coffin]
  2871. GoToRoom [R28  Cavern]
  2872. PrintMessage [You climb down the steps in the open coffin]
  2873. BlankLine
  2874. DoneWithTurn
  2875. END_COMMAND
  2876.  
  2877. COMMAND ENTER DUCT
  2878. AtLocation [air-conditioned room]
  2879. Present [air-conditioning grate]
  2880. GoToRoom [At Turn In Duct]
  2881. BlankLine
  2882. DoneWithTurn
  2883. END_COMMAND
  2884.  
  2885. COMMAND ENTER
  2886. AtLocation [inside building]
  2887. IsSomeWhere [open vault] ; vault is open above
  2888. GoToRoom [Southern end of long hall]
  2889. PrintMessage [You climb down the stairs]
  2890. BlankLine
  2891. DoneWithTurn
  2892. END_COMMAND
  2893.  
  2894. COMMAND ENTER
  2895. AtLocation [depression outside grate]
  2896. IsOpen [iron grate]
  2897. GoToRoom [below grate]
  2898. BlankLine
  2899. DoneWithTurn
  2900. END_COMMAND
  2901.  
  2902. COMMAND ENTER
  2903. AtLocation [room with vaulted ceiling]
  2904. Present [walk-in safe - open]
  2905. GoToRoom [in the safe]
  2906. PrintMessage [ENTER.SAFE]
  2907. BlankLine
  2908. DoneWithTurn
  2909. END_COMMAND
  2910.  
  2911. COMMAND ENTER
  2912. AtLocation [room with vaulted ceiling]
  2913. NOT Present [walk-in safe - open]
  2914. PrintMessage [CANTENTERSAFE]
  2915. DoneWithTurn
  2916. END_COMMAND
  2917.  
  2918. MESSAGE [ENTER.SAFE]
  2919. You duck your head as you enter the walk-in safe.
  2920. END_MESSAGE
  2921.  
  2922. MESSAGE [CANTENTERSAFE]
  2923. The safe's door is closed, and you can't get in!
  2924. END_MESSAGE
  2925.  
  2926. COMMAND ENTER
  2927. AtLocation [peelgrunt room]
  2928. Present [walk-in safe - open]
  2929. GoToRoom [in the safe]
  2930. PrintMessage [ENTER.SAFE]
  2931. BlankLine
  2932. DoneWithTurn
  2933. END_COMMAND
  2934.  
  2935. COMMAND ENTER
  2936. AtLocation [peelgrunt room]
  2937. NOT Present [walk-in safe - open]
  2938. PrintMessage [CANTENTERSAFE]
  2939. DoneWithTurn
  2940. END_COMMAND
  2941.  
  2942. ;MAGIC words
  2943.  
  2944. #COMMENT -- MELENKURION
  2945.  
  2946. COMMAND MELENKURION
  2947. AtLocation [cylindrical chamber] ;playing "end game"
  2948. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  2949. END_COMMAND
  2950.  
  2951. #COMMENT
  2952. From the "N end of Stone Faces", the player must say the magic word MELENKURION
  2953. to cause the wall to crumble and three new passages to appear.
  2954. #END_COMMENT
  2955.  
  2956. COMMAND MELENKURION
  2957. AtLocation [N end of Stone Faces]
  2958. NOT Present [Statue of minotaur]
  2959. PutInCurrentRoom [Statue of minotaur]
  2960. PrintMessage [CRUMBLE]
  2961. PlusScore 15
  2962. DoneWithTurn
  2963. END_COMMAND
  2964.  
  2965. MESSAGE [CRUMBLE]
  2966. Rock silently crumbles off of the wall in front of you, revealing dark
  2967. passages leading northwest, north, and northeast.
  2968. END_MESSAGE
  2969.  
  2970. MESSAGE [Strange -- nothing happened!]
  2971.  
  2972. Strange!  Nothing happened.  At least, nothing obvious happened.
  2973. END_MESSAGE
  2974.  
  2975. COMMAND MELENKURION
  2976. Present [walk-in safe - closed]
  2977. PrintMessage [SAFE.FUSES]
  2978. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  2979. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  2980. #COMMENT Rover released if wrong password given
  2981. DoneWithTurn
  2982. END_COMMAND
  2983.  
  2984. COMMAND MELENKURION
  2985. PrintMessage [Strange -- nothing happened!]
  2986. DoneWithTurn
  2987. END_COMMAND
  2988.  
  2989. #COMMENT -- ZORTON
  2990.  
  2991. #COMMENT
  2992. If you give the magic word ZORTON, the safe will open.  Any other magic world
  2993. (i.e., PLUGH, XYZZY, PLOVER, etc.) will cause the safe to be fused shut and
  2994. Rover (for all you "Prisoner" fans) to be released.
  2995. #END_COMMENT
  2996.  
  2997. COMMAND ZORTON
  2998. Present [walk-in safe - closed]
  2999. SetVariableTo [Status of Safe] 1 ; safe is now open
  3000. PrintMessage [SAFE.OPENS]
  3001. DoneWithTurn
  3002. END_COMMAND
  3003.  
  3004. COMMAND ZORTON
  3005. AtLocation [cylindrical chamber] ;playing "end game"
  3006. TurnFlagON [Has just said 'ZORTON']
  3007. END_COMMAND
  3008.  
  3009. COMMAND ZORTON
  3010. PrintMessage [Strange -- nothing happened!]
  3011. DoneWithTurn
  3012. END_COMMAND
  3013.  
  3014. #COMMENT -- THURB
  3015.  
  3016. COMMAND THURB
  3017. AtLocation [cylindrical chamber] ;playing "end game"
  3018. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3019. END_COMMAND
  3020.  
  3021. COMMAND THURB
  3022. Present [walk-in safe - closed]
  3023. PrintMessage [SAFE.FUSES]
  3024. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3025. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3026. #COMMENT Rover released if wrong password given
  3027. DoneWithTurn
  3028. END_COMMAND
  3029.  
  3030. COMMAND THURB
  3031. AtLocation [Ice Cave "MAZE" room]
  3032. OR
  3033. AtLocation [small icy chamber]
  3034. GoToRoom [ice room]
  3035. PrintMessage [FOOF]
  3036. BlankLine
  3037. DoneWithTurn
  3038. END_COMMAND
  3039.  
  3040. COMMAND THURB
  3041. PrintMessage [Strange -- nothing happened!]
  3042. DoneWithTurn
  3043. END_COMMAND
  3044.  
  3045. ;TURBO
  3046.  
  3047. COMMAND TURBO
  3048. AtLocation [cylindrical chamber] ;playing "end game"
  3049. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3050. END_COMMAND
  3051.  
  3052. COMMAND TURBO
  3053. Present [walk-in safe - closed]
  3054. PrintMessage [SAFE.FUSES]
  3055. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3056. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3057. #COMMENT Rover released if wrong password given
  3058. DoneWithTurn
  3059. END_COMMAND
  3060.  
  3061. COMMAND TURBO
  3062. FlagOFF [cave closing] ;cave open
  3063. FlagON [secret word given] ;programmer has given secret word
  3064. FlagOFF [programmer angry] ;programmer not angry
  3065. AtLocation [programmer's den]
  3066. PrintMessage [FOOF]
  3067. GoToRoom [inside building]
  3068. BlankLine
  3069. DoneWithTurn
  3070. END_COMMAND
  3071.  
  3072. COMMAND TURBO
  3073. FlagOFF [cave closing] ;cave open
  3074. FlagON [secret word given] ;programmer has given secret word
  3075. FlagOFF [programmer angry] ;programmer not angry
  3076. AtLocation [inside building]
  3077. GoToRoom [programmer's den]
  3078. PrintMessage [FOOF]
  3079. BlankLine
  3080. DoneWithTurn
  3081. END_COMMAND
  3082.  
  3083. COMMAND TURBO
  3084. FlagON [programmer angry]
  3085. PrintMessage [magic word fails]
  3086. DoneWithTurn
  3087. END_COMMAND
  3088.  
  3089. COMMAND TURBO
  3090. PrintMessage [doesn't work here]
  3091. DoneWithTurn
  3092. END_COMMAND
  3093.  
  3094. ;XYZZY
  3095.  
  3096. COMMAND XYZZY
  3097. AtLocation [cylindrical chamber] ;playing "end game"
  3098. FlagON [Has just said 'ZORTON'] ; i.e., "right" previous secret word
  3099. PrintMessage [FOOF]
  3100. GoToRoom [end of road] ; gets out of cylindrical chamber
  3101. BlankLine
  3102. DoneWithTurn
  3103. END_COMMAND
  3104.  
  3105. COMMAND XYZZY
  3106. Present [walk-in safe - closed]
  3107. PrintMessage [SAFE.FUSES]
  3108. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3109. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3110. #COMMENT Rover released if wrong password given
  3111. DoneWithTurn
  3112. END_COMMAND
  3113.  
  3114. COMMAND XYZZY
  3115. FlagOFF [cave closing] ;cave open
  3116. AtLocation [debris room] ;XYZZY area
  3117. PrintMessage [FOOF]
  3118. GoToRoom [inside building]
  3119. BlankLine
  3120. DoneWithTurn
  3121. END_COMMAND
  3122.  
  3123. COMMAND XYZZY
  3124. FlagOFF [cave closing] ;cave open
  3125. AtLocation [inside building]
  3126. PrintMessage [FOOF]
  3127. GoToRoom [debris room] ;XYZZY area
  3128. BlankLine
  3129. DoneWithTurn
  3130. END_COMMAND
  3131.  
  3132. COMMAND XYZZY
  3133. PrintMessage [doesn't work here]
  3134. DoneWithTurn
  3135. END_COMMAND
  3136.  
  3137. #COMMENT -- PHUGGG
  3138.  
  3139. COMMAND PHUGGG
  3140. AtLocation [cylindrical chamber] ;playing "end game"
  3141. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3142. END_COMMAND
  3143.  
  3144. COMMAND PHUGGG
  3145. Present [walk-in safe - closed]
  3146. PrintMessage [SAFE.FUSES]
  3147. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3148. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3149. #COMMENT Rover released if wrong password given
  3150. DoneWithTurn
  3151. END_COMMAND
  3152.  
  3153. COMMAND PHUGGG
  3154. AtLocationLT [hall of mists]
  3155. OR
  3156. AtLocationGT [cylindrical chamber] ;most of cave area
  3157. PrintMessage [Strange -- nothing happened!]
  3158. DoneWithTurn
  3159. END_MESSAGE
  3160.  
  3161. COMMAND PHUGGG
  3162. Chance 85
  3163. FlagON [Water here]
  3164. OR
  3165. Present [water bottle]
  3166. PrintMessage [Strange -- nothing happened!]
  3167. DoneWithTurn
  3168. END_MESSAGE
  3169.  
  3170. COMMAND PHUGGG
  3171. Chance 90
  3172. FlagON [Water here]
  3173. OR
  3174. Present [water bottle]
  3175. PrintMessage [JELLYFISH]
  3176. GoToRoom [Dead]
  3177. BlankLine
  3178. KillPlayer
  3179. DoneWithTurn
  3180. END_MESSAGE
  3181.  
  3182. MESSAGE [JELLYFISH]
  3183.  
  3184.         >splurch!<
  3185.  
  3186. Oh, no!  You've turned yourself into a jellyfish, and fallen to the ground and
  3187. been splattered far and wide!  Well, that certainly wasn't very smart!!!  You
  3188. were warned not to use the word 'phuggg' near water!
  3189. END_MESSAGE
  3190.  
  3191. COMMAND PHUGGG
  3192. FlagON [Water here]
  3193. OR
  3194. Present [water bottle]
  3195. PrintMessage [CAVE.DESTROYED]
  3196. GoToRoom [Dead]
  3197. BlankLine
  3198. KillPlayer
  3199. DoneWithTurn
  3200. END_MESSAGE
  3201.  
  3202. MESSAGE [CAVE.DESTROYED]
  3203. The ground begins to shudder ominously, and the very cave walls around you
  3204. begin to creak and groan!  A sulphurious stench fills the air!
  3205.  
  3206. With an incredible lurch, the ground begins to dance and ripple as though it
  3207. were liquid!  You are thrown off of your feet and tossed violently up and
  3208. down!  The cave walls begin to crumble and split from the stress!
  3209.  
  3210. There is a terrible ROAR of rending rock!!  The cave ceiling splits, and rocks
  3211. plunge down and smash your lower body to a gooey paste!!
  3212.  
  3213. There is a violent blast in the distance!  Steam and smoke drift into view
  3214. through the rents in the walls, and furiously-bubbling red-hot lava flows in
  3215. and surrounds you.  The cave ceiling disintegrates in an incredible orgy of
  3216. grinding destruction, and the cave walls fall and are pounded into fine dust.
  3217.  
  3218. You are lying, badly mangled, on a small rock island in a sea of molten lava.
  3219. Above you, the sky is faintly visible through a thick pall of smoke and steam.
  3220. A short distance to the north, the remains of a well-house are sinking slowly
  3221. into the bubbling ooze.
  3222.  
  3223. There is a distant, sourceless screech of incredible anguish!  With a sharp
  3224. >poof< and a small puff of orange smoke, a bent and bearded elf appears.  He
  3225. is dressed in working clothes, and has a name-tag marked "Ralph" on his shirt.
  3226. "You blithering idiot!" he storms. "You were warned quite clearly not to use
  3227. the word 'phuggg' near water!!  I hadn't gotten all of the bugs out of it yet,
  3228. and now your incredible incompetence has totally destroyed Humongous Cave!!
  3229. Do you have the faintest scintilla of an iota of an understanding of how much
  3230. work I'm going to have to do to get the cave rebuilt?!?  I'll have to go all
  3231. the way to Peking for another dragon, and I'll have to convince the Goblin's
  3232. Union to send me another team of gooseberry goblins; I'll have to sub-contract
  3233. the building of the volcano out to the local totrugs, and worst of all I'll
  3234. have to go through eight months of paperwork and red tape to file a new
  3235. Environmental Impact statement!!  All because you couldn't follow directions,
  3236. you purblind and meatbrained moron!  I'm rescinding all of your game points
  3237. and throwing you out!  Out!   OUT!   GET OUT!   @#$&'@!!!"
  3238. END_MESSAGE
  3239.  
  3240. COMMAND PHUGGG
  3241. Present [dwarf's axe]
  3242. Destroy [dwarf's axe]
  3243. PrintMessage [ZOT.AXE]
  3244. DoneWithTurn
  3245. END_MESSAGE
  3246.  
  3247. MESSAGE [ZOT.AXE]
  3248. Your axe glows bright orange and fades into nothingness.
  3249. END_MESSAGE
  3250.  
  3251. COMMAND PHUGGG
  3252. Present [singing sword]
  3253. Destroy [singing sword]
  3254. PrintMessage [ZOT.SWORD]
  3255. DoneWithTurn
  3256. END_MESSAGE
  3257.  
  3258. MESSAGE [ZOT.SWORD]
  3259. Your sword jumps into the air, chants several bars of the "Volga Boatman",
  3260. shoots off several fitful blue sparks, and disintegrates.
  3261. END_MESSAGE
  3262.  
  3263. COMMAND PHUGGG
  3264. FlagON [Dwarf here]
  3265. Chance 70
  3266. RandomMessage [IT.WORKED 1] [IT.WORKED 5]
  3267. Destroy [little dwarf]
  3268. Destroy [threatening dwarf]
  3269. DoneWithTurn
  3270. END_COMMAND
  3271.  
  3272. MESSAGE [IT.WORKED 1]
  3273. A clear, liquid chime sounds in midair.  A large, four-clawed hand reaches out
  3274. of the ground, grabs the dwarf, and pulls it down into nothingness.
  3275. END_MESSAGE
  3276.  
  3277. #COMMENT  Turn off warnings -- this message is not directly referenced
  3278. #OPTIONS :-Warnings
  3279.  
  3280. MESSAGE [IT.WORKED 2]
  3281. A clear, liquid chime sounds in midair.  A long green tentacle covered with
  3282. sucker disks reaches out from nowhere, grabs the dwarf, and pulls it back to
  3283. wherever it came from.
  3284. END_MESSAGE
  3285.  
  3286. MESSAGE [IT.WORKED 3]
  3287. There is a sharp sizzling sound.  The dwarf is engulfed in a wave of fire that
  3288. appears from nowhere, and is completely incinerated; the flames then vanish
  3289. into nothingness again.
  3290. END_MESSAGE
  3291.  
  3292. MESSAGE [IT.WORKED 4]
  3293. There is a sharp whistling sound from nowhere.  The dwarf shudders and turns
  3294. into a moth, which then flies away.
  3295. END_MESSAGE
  3296.  
  3297. #COMMENT Return "Warnings" to its previous state
  3298. #OPTIONS =Warnings
  3299.  
  3300. MESSAGE [IT.WORKED 5]
  3301. There is a sharp whistling sound from nowhere.  The dwarf stiffens, shudders,
  3302. and melts down into a large puddle of soggy goo that quickly soaks into the
  3303. ground and vanishes.
  3304. END_MESSAGE
  3305.  
  3306. COMMAND PHUGGG
  3307. FlagON [Dwarf here]
  3308. RandomMessage [IT.DIDNT.WORK 1] [IT.DIDNT.WORK 5]
  3309. GoToRoom [Dead]
  3310. BlankLine
  3311. KillPlayer
  3312. DoneWithTurn
  3313. END_COMMAND
  3314.  
  3315. MESSAGE [IT.DIDNT.WORK 1]
  3316. A clear, liquid chime sounds in midair.  A large, four-clawed foot appears in
  3317. midair and stomps violently downward, missing the dwarf but thoroughly
  3318. squashing you.
  3319. END_MESSAGE
  3320.  
  3321. #COMMENT  Turn off warnings -- this message is not directly referenced
  3322. #OPTIONS :-Warnings
  3323.  
  3324. MESSAGE [IT.DIDNT.WORK 2]
  3325. A clear, liquid chime sounds in midair.  A large and very toothy mouth appears
  3326. in midair and chomps ferociously.  The dwarf manages to evade it, but it bites
  3327. you in half.
  3328. END_MESSAGE
  3329.  
  3330. MESSAGE [IT.DIDNT.WORK 3]
  3331. There is a sharp sizzling sound.  A ball of fire roars out of nowhere, misses
  3332. the dwarf, bounces off of a wall, and incinerates you.
  3333. END_MESSAGE
  3334.  
  3335. MESSAGE [IT.DIDNT.WORK 4]
  3336. There is a sharp crackling sound from the air above you.  The dwarf shudders
  3337. and turns into a saber-toothed tiger, which attacks and kills you in short
  3338. order.
  3339. END_MESSAGE
  3340.  
  3341. #COMMENT Return "Warnings" to its previous state
  3342. #OPTIONS =Warnings
  3343.  
  3344. MESSAGE [IT.DIDNT.WORK 5]
  3345. There is a sharp crackling sound from the air above you.  The dwarf stiffen,
  3346. falls to the ground, and melts into a large puddle of soggy goo.  The goo
  3347. twitches a few times and then flows at you with incredible speed; it attacks
  3348. and strangles you with little difficulty.
  3349. END_MESSAGE
  3350.  
  3351. COMMAND PHUGGG
  3352. PrintMessage [Strange -- nothing happened!]
  3353. DoneWithTurn
  3354. END_MESSAGE
  3355.  
  3356. #COMMENT -- SAMOHT
  3357.  
  3358. COMMAND SAMOHT
  3359. AtLocation [cylindrical chamber] ;playing "end game"
  3360. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3361. END_COMMAND
  3362.  
  3363. COMMAND SAMOHT
  3364. Present [walk-in safe - closed]
  3365. PrintMessage [SAFE.FUSES]
  3366. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3367. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3368. #COMMENT Rover released if wrong password given
  3369. DoneWithTurn
  3370. END_COMMAND
  3371.  
  3372. COMMAND SAMOHT
  3373. PrintMessage [Strange -- nothing happened!]
  3374. DoneWithTurn
  3375. END_MESSAGE
  3376.  
  3377. #COMMENT -- NOSIDE
  3378.  
  3379. COMMAND NOSIDE
  3380. AtLocation [cylindrical chamber] ;playing "end game"
  3381. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3382. END_COMMAND
  3383.  
  3384. COMMAND NOSIDE SAMOHT
  3385. NOT IsCarrying [ON lamp]
  3386. PrintMessage [Strange -- nothing happened!]
  3387. DoneWithTurn
  3388. END_COMMAND
  3389.  
  3390. COMMAND NOSIDE SAMOHT
  3391. IsCarrying [ON lamp]
  3392. VariableGT [battery life] 25
  3393. PrintMessage [FZAP]
  3394. GoToRoom [Dead]
  3395. BlankLine
  3396. KillPlayer
  3397. DoneWithTurn
  3398. END_COMMAND
  3399.  
  3400. COMMAND NOSIDE SAMOHT
  3401. IsCarrying [ON lamp]
  3402. AddToVariable [battery life] 500
  3403. PrintMessage [LAMP.RECHARGED]
  3404. DoneWithTurn
  3405. END_COMMAND
  3406.  
  3407. MESSAGE [FZAP]
  3408. With a sharp sizzling sound, a large spark of electricity jumps out of thin
  3409. air and strikes your lamp.  The immense electrical charge flows to ground
  3410. through your body and fries you to a crisp.
  3411. END_MESSAGE
  3412.  
  3413. MESSAGE [LAMP.RECHARGED]
  3414. The air fills with tension, and there is a subdued crackling sound.  A blue
  3415. aura forms about your lantern, and small sparks jump from the lantern to the
  3416. ground.  The aura fades away after several seconds, and your lamp is once
  3417. again shining brightly.
  3418. END_MESSAGE
  3419.  
  3420. COMMAND NOSIDE
  3421. Present [walk-in safe - closed]
  3422. PrintMessage [SAFE.FUSES]
  3423. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3424. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3425. #COMMENT Rover released if wrong password given
  3426. DoneWithTurn
  3427. END_COMMAND
  3428.  
  3429. COMMAND NOSIDE
  3430. PrintMessage [Strange -- nothing happened!]
  3431. DoneWithTurn
  3432. END_MESSAGE
  3433.  
  3434. ;PLUGH
  3435.  
  3436. COMMAND PLUGH
  3437. AtLocation [cylindrical chamber] ;playing "end game"
  3438. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3439. END_COMMAND
  3440.  
  3441. COMMAND PLUGH
  3442. FlagOFF [cave closing] ;cave open
  3443. FlagOFF [programmer angry] ;programmer not angry
  3444. AtLocation [Y2]
  3445. PrintMessage [FOOF]
  3446. GoToRoom [inside building]
  3447. BlankLine
  3448. DoneWithTurn
  3449. END_COMMAND
  3450.  
  3451. COMMAND PLUGH
  3452. FlagOFF [cave closing] ;cave open
  3453. FlagOFF [programmer angry] ;programmer not angry
  3454. AtLocation [inside building]
  3455. PrintMessage [FOOF]
  3456. GoToRoom [Y2]
  3457. BlankLine
  3458. DoneWithTurn
  3459. END_COMMAND
  3460.  
  3461. COMMAND PLUGH
  3462. FlagON [programmer angry]
  3463. PrintMessage [magic word fails]
  3464. DoneWithTurn
  3465. END_COMMAND
  3466.  
  3467. COMMAND PLUGH
  3468. AtLocation [fake "Y2" room]
  3469. GoToRoom [tiny platform above volcano]
  3470. PrintMessage [FOOF]
  3471. BlankLine
  3472. DoneWithTurn
  3473. END_COMMAND
  3474.  
  3475. MESSAGE [FOOF]
  3476.  
  3477.         >>Foof!<<
  3478. END_MESSAGE
  3479.  
  3480. COMMAND PLUGH
  3481. AtLocation [tiny platform above volcano]
  3482. GoToRoom [fake "Y2" room]
  3483. PrintMessage [FOOF]
  3484. BlankLine
  3485. DoneWithTurn
  3486. END_COMMAND
  3487.  
  3488. COMMAND PLUGH
  3489. Present [walk-in safe - closed]
  3490. PrintMessage [SAFE.FUSES]
  3491. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3492. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3493. #COMMENT Rover released if wrong password given
  3494. DoneWithTurn
  3495. END_COMMAND
  3496.  
  3497. COMMAND PLUGH
  3498. PrintMessage [doesn't work here]
  3499. DoneWithTurn
  3500. END_COMMAND
  3501.  
  3502. ;PLOVER/BUILDING
  3503.  
  3504. COMMAND PLOVER
  3505. AtLocation [cylindrical chamber] ;playing "end game"
  3506. TurnFlagOFF [Has just said 'ZORTON'] ; i.e., "wrong" secret word
  3507. END_COMMAND
  3508.  
  3509. COMMAND PLOVER
  3510. AtLocation [fake "Y2" room]
  3511. GoToRoom [tiny platform above volcano]
  3512. PrintMessage [FOOF]
  3513. BlankLine
  3514. DoneWithTurn
  3515. END_COMMAND
  3516.  
  3517. COMMAND PLOVER
  3518. AtLocation [tiny platform above volcano]
  3519. GoToRoom [fake "Y2" room]
  3520. PrintMessage [FOOF]
  3521. BlankLine
  3522. DoneWithTurn
  3523. END_COMMAND
  3524.  
  3525. COMMAND PLOVER
  3526. Present [walk-in safe - closed]
  3527. PrintMessage [SAFE.FUSES]
  3528. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  3529. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  3530. #COMMENT Rover released if wrong password given
  3531. DoneWithTurn
  3532. END_COMMAND
  3533.  
  3534. COMMAND PLOVER
  3535. FlagOFF [cave closing] ;cave open
  3536. AtLocation [plover room]
  3537. NOT IsCarrying [egg-sized emerald]
  3538. PrintMessage [FOOF]
  3539. GoToRoom [Y2]
  3540. BlankLine
  3541. DoneWithTurn
  3542. END_COMMAND
  3543.  
  3544. COMMAND PLOVER
  3545. FlagOFF [cave closing] ;cave open
  3546. AtLocation [plover room]
  3547. IsCarrying [egg-sized emerald]
  3548. DropIt [egg-sized emerald]
  3549. PrintMessage [FOOF]
  3550. GoToRoom [Y2]
  3551. BlankLine
  3552. DoneWithTurn
  3553. END_COMMAND
  3554.  
  3555. COMMAND PLOVER
  3556. FlagOFF [cave closing] ;cave open
  3557. AtLocation [Y2]
  3558. PrintMessage [FOOF]
  3559. GoToRoom [plover room]
  3560. BlankLine
  3561. DoneWithTurn
  3562. END_COMMAND
  3563.  
  3564. COMMAND PLOVER
  3565. AtLocation [dark-room]
  3566. OR
  3567. AtLocation [alcove]
  3568. GoToRoom [plover room]
  3569. DoneWithTurn
  3570. END_COMMAND
  3571.  
  3572. COMMAND BUILDING
  3573. AtLocation [hill by road]
  3574. OR
  3575. AtLocation [valley]
  3576. OR
  3577. AtLocation [slit]
  3578. OR
  3579. AtLocation [dead end 'J']
  3580. PrintMessage [you find yourself ...]
  3581. BlankLine
  3582. GoToRoom [end of road]
  3583. DoneWithTurn
  3584. END_COMMAND
  3585.  
  3586. COMMAND PLOVER
  3587. PrintMessage [doesn't work here]
  3588. DoneWithTurn
  3589. END_COMMAND
  3590.  
  3591. ;FOREST
  3592.  
  3593. COMMAND FOREST
  3594. AtLocation [hill by road]
  3595. OR
  3596. AtLocation [valley]
  3597. OR
  3598. AtLocation [slit]
  3599. OR
  3600. AtLocation [depression outside grate]
  3601. OR
  3602. AtLocation [forest]
  3603. OR
  3604. AtLocation [end of road]
  3605. PrintMessage [you find yourself ...]
  3606. BlankLine
  3607. GoToRoom [forest (near road)]
  3608. DoneWithTurn
  3609. END_COMMAND
  3610.  
  3611. COMMAND FOREST
  3612. PrintMessage [doesn't work here]
  3613. DoneWithTurn
  3614. END_COMMAND
  3615.  
  3616. ;SLAB/STREAMBED/SLIT
  3617.  
  3618. COMMAND SLAB
  3619. AtLocation [W end of twopit room]
  3620. OR
  3621. AtLocation [bedquilt room]
  3622. OR
  3623. AtLocation [north-south canyon above room]
  3624. OR
  3625. AtLocation [complex junction]
  3626. PrintMessage [you find yourself ...]
  3627. BlankLine
  3628. GoToRoom [slab room]
  3629. DoneWithTurn
  3630. END_COMMAND
  3631.  
  3632. COMMAND STREAMBED
  3633. AtLocation [hill by road]
  3634. OR
  3635. AtLocation [valley]
  3636. OR
  3637. AtLocation [end of road]
  3638. OR
  3639. AtLocation [depression outside grate]
  3640. OR
  3641. AtLocation [forest]
  3642. PrintMessage [you find yourself ...]
  3643. BlankLine
  3644. GoToRoom [slit] ;STREAMBED or SLIT
  3645. DoneWithTurn
  3646. END_COMMAND
  3647.  
  3648. COMMAND SLAB
  3649. PrintMessage [doesn't work here]
  3650. DoneWithTurn
  3651. END_COMMAND
  3652.  
  3653. ;BEDQUILT/HILL
  3654.  
  3655. COMMAND BEDQUILT
  3656. AtLocation [Y2]
  3657. OR
  3658. AtLocation [dirty passage]
  3659. OR
  3660. AtLocation [dusty rock room]
  3661. OR
  3662. AtLocation [complex junction]
  3663. OR
  3664. AtLocation [large low room]
  3665. PrintMessage [you find yourself ...]
  3666. BlankLine
  3667. GoToRoom [bedquilt room]
  3668. DoneWithTurn
  3669. END_COMMAND
  3670.  
  3671. COMMAND HILL
  3672. AtLocation [slit]
  3673. OR
  3674. AtLocation [valley]
  3675. OR
  3676. AtLocation [end of road]
  3677. OR
  3678. AtLocation [depression outside grate]
  3679. PrintMessage [you find yourself ...]
  3680. BlankLine
  3681. GoToRoom [hill by road]
  3682. DoneWithTurn
  3683. END_COMMAND
  3684.  
  3685. COMMAND BEDQUILT
  3686. PrintMessage [doesn't work here]
  3687. DoneWithTurn
  3688. END_COMMAND
  3689.  
  3690. ;ORIENTAL/VALLEY
  3691.  
  3692. COMMAND ORIENTAL
  3693. AtLocation [swiss cheese room]
  3694. OR
  3695. AtLocation [large low room]
  3696. OR
  3697. AtLocation [misty cavern]
  3698. PrintMessage [you find yourself ...]
  3699. BlankLine
  3700. GoToRoom [oriental room]
  3701. DoneWithTurn
  3702. END_COMMAND
  3703.  
  3704. COMMAND VALLEY
  3705. AtLocation [hill by road]
  3706. OR
  3707. AtLocation [end of road]
  3708. OR
  3709. AtLocation [depression outside grate]
  3710. OR
  3711. AtLocation [slit]
  3712. PrintMessage [you find yourself ...]
  3713. BlankLine
  3714. GoToRoom [valley]
  3715. DoneWithTurn
  3716. END_COMMAND
  3717.  
  3718. COMMAND ORIENTAL
  3719. PrintMessage [doesn't work here]
  3720. DoneWithTurn
  3721. END_COMMAND
  3722.  
  3723. ;GIANT/BARREN
  3724.  
  3725. COMMAND GIANT
  3726. AtLocation [long narrow corridor]
  3727. OR
  3728. AtLocation [end of immense passage]
  3729. OR
  3730. AtLocation [cavern with waterfall]
  3731. PrintMessage [you find yourself ...]
  3732. BlankLine
  3733. GoToRoom [giant room]
  3734. DoneWithTurn
  3735. END_COMMAND
  3736.  
  3737. COMMAND BARREN
  3738. AtLocation [NE chasm]
  3739. OR
  3740. AtLocation [corridor]
  3741. OR
  3742. AtLocation [fork in path]
  3743. OR
  3744. AtLocation [limestone passage]
  3745. OR
  3746. AtLocation [barren entry]
  3747. PrintMessage [you find yourself ...]
  3748. BlankLine
  3749. GoToRoom [barren room]
  3750. DoneWithTurn
  3751. END_COMMAND
  3752.  
  3753. COMMAND GIANT
  3754. PrintMessage [doesn't work here]
  3755. DoneWithTurn
  3756. END_COMMAND
  3757.  
  3758. ;SHELL/DEPRESSION
  3759.  
  3760. COMMAND SHELL
  3761. AtLocation [complex junction]
  3762. OR
  3763. AtLocation [arched hall]
  3764. OR
  3765. AtLocation [long sloping corridor]
  3766. OR
  3767. AtLocation [cul-de-sac]
  3768. PrintMessage [you find yourself ...]
  3769. BlankLine
  3770. GoToRoom [shell room]
  3771. DoneWithTurn
  3772. END_COMMAND
  3773.  
  3774. COMMAND DEPRESSION
  3775. AtLocation [hill by road]
  3776. OR
  3777. AtLocation [end of road]
  3778. OR
  3779. AtLocation [valley]
  3780. OR
  3781. AtLocation [slit]
  3782. PrintMessage [you find yourself ...]
  3783. BlankLine
  3784. GoToRoom [depression outside grate]
  3785. DoneWithTurn
  3786. END_COMMAND
  3787.  
  3788. COMMAND SHELL
  3789. PrintMessage [doesn't work here]
  3790. DoneWithTurn
  3791. END_COMMAND
  3792.  
  3793. ;SIT COMMANDS
  3794.  
  3795. COMMAND SIT ANY
  3796. PrintMessage [You don't have time to sit down!]
  3797. DoneWithTurn
  3798. END_COMMAND
  3799.  
  3800. MESSAGE [You don't have time to sit down!]
  3801. Sitting down would be hazardous to the completion of your adventure.  You have
  3802. an urgent mission to perform and you had best get on with it.
  3803. END_MESSAGE
  3804.  
  3805. ;WASH
  3806.  
  3807. COMMAND WASH URN
  3808. FlagON [Water here]
  3809. Present [Dirty Urn]
  3810. NOT IsLocated [N277  gray ashes] [Dirty Urn] ; has taken ashes out
  3811. SwapLocations [Dirty Urn] [N241  Jeweled Urn]
  3812. PrintMessage [You wash urn]
  3813. DoneWithTurn
  3814. END_COMMAND
  3815.  
  3816. COMMAND WASH URN
  3817. FlagOFF [Water here]
  3818. Present [water bottle]
  3819. Present [Dirty Urn]
  3820. NOT IsLocated [N277  gray ashes] [Dirty Urn] ; has taken ashes out
  3821. SwapLocations [empty bottle] [water bottle]
  3822. SwapLocations [Dirty Urn] [N241  Jeweled Urn]
  3823. PrintMessage [You wash urn]
  3824. DoneWithTurn
  3825. END_COMMAND
  3826.  
  3827. COMMAND WASH URN
  3828. FlagOn [Water here]
  3829. Present [Dirty Urn]
  3830. IsLocated [N277  gray ashes] [Dirty Urn] ; has NOT taken ashes out
  3831. PrintMessage [You try to wash urn]
  3832. DoneWithTurn
  3833. END_COMMAND
  3834.  
  3835. COMMAND WASH URN
  3836. FlagOFF [Water here]
  3837. Present [water bottle]
  3838. Present [Dirty Urn]
  3839. IsLocated [N277  gray ashes] [Dirty Urn] ; has NOT taken ashes out
  3840. Swaplocations [empty bottle] [water bottle]
  3841. PrintMessage [You try to wash urn]
  3842. DoneWithTurn
  3843. END_COMMAND
  3844.  
  3845. MESSAGE [You wash urn]
  3846. As you wash the grime and accumulated years of dirt off of the urn, you
  3847. discover that the urn is actually made of gold and encrusted with gems and
  3848. precious stones.
  3849. END_MESSAGE
  3850.  
  3851. MESSAGE [You try to wash urn]
  3852. You try and try and try to wash the accumulated decades of grime and dirt off
  3853. of the urn, but it is no use.
  3854. END_MESSAGE
  3855.  
  3856. COMMAND WASH ANY
  3857. PrintMessage [don't be ridiculous]
  3858. DoneWithTurn
  3859. END_COMMAND
  3860.  
  3861. ;RUB/TOUCH/PUSH
  3862.  
  3863. MESSAGE [Rub it]
  3864. You $verb$ the rabbit's foot for a while, but nothing happens.
  3865. END_MESSAGE
  3866.  
  3867. COMMAND RUB FOOT
  3868. Present [Rabbit's Foot]
  3869. PrintMessage [Rub it]
  3870. DoneWithTurn
  3871. END_COMMAND
  3872.  
  3873. COMMAND RUB LAMP
  3874. PrintMessage [Rubbing the electric lamp is not particularly rewarding]
  3875. DoneWithTurn
  3876. END_COMMAND
  3877.  
  3878. MESSAGE [Rubbing the electric lamp is not particularly rewarding]
  3879. Rubbing the electric lamp is not particularly rewarding.  Anyway, nothing
  3880. exciting happens.
  3881. END_MESSAGE
  3882.  
  3883. COMMAND TOUCH ANY
  3884. AtLocation [programmer's den]
  3885. TurnFlagOFF [secret word given] ;revoke secret words
  3886. TurnFlagON [programmer angry]
  3887. PrintMessage [programmer takes revenge]
  3888. MinusScore 25 ;That will teach you
  3889. GoToRoom [twisty 44] ;Pirate's maze - just south of Pirate's den
  3890. DoneWithTurn
  3891. END_COMMAND
  3892.  
  3893. COMMAND RUB ANY
  3894. PrintMessage [peculiar - nothing happens]
  3895. DoneWithTurn
  3896. END_COMMAND
  3897.  
  3898. ;FIND and SEARCH
  3899.  
  3900. COMMAND SEARCH THE DESK
  3901. Present [oak desk] (* Witt's desk is here *)
  3902. NOUNIsNumber [oak desk] (* Witt's desk was specified in input *)
  3903. IsLocked [oak desk] (* Witt's desk is locked *)
  3904. PrintMessage [The $adjective$ $noun$ is locked]
  3905. DoneWithTurn
  3906. END_COMMAND
  3907.  
  3908. COMMAND SEARCH THE DESK
  3909. Present [oak desk] (* Witt's desk is here *)
  3910. NOUNIsNumber [oak desk] (* Witt's desk was specified in input *)
  3911. IsUnLocked [oak desk] (* Witt's desk is unlocked *)
  3912. OpenIt [oak desk] (* Open Witt's desk -- first *)
  3913. NOT SomethingInside [oak desk] (* Witt's desk is empty. *)
  3914. PrintMessage [The $adjective$ $noun$ is empty]
  3915. DoneWithTurn
  3916. END_COMMAND
  3917.  
  3918. COMMAND SEARCH THE DESK
  3919. Present [oak desk] (* Witt's desk is here *)
  3920. NOUNIsNumber [oak desk] (* Witt's desk was specified in input *)
  3921. IsUnLocked [oak desk] (* Witt's desk is unlocked *)
  3922. OpenIt [oak desk] (* Open Witt's desk -- first *)
  3923. SomethingInside [oak desk] (* Witt's desk is NOT empty. *)
  3924. PrintMessage [The $adjective$ $noun$ contains:]
  3925. ShowContents [oak desk] (* Display contents of Witt's desk *)
  3926. DoneWithTurn
  3927. END_COMMAND
  3928.  
  3929. COMMAND SEARCH RIGHT POCKET
  3930. Present [right pocket] (* Right pocket of parka is here *)
  3931. NOUNIsNumber [right pocket] (* Right pocket of parka was specified in input *)
  3932. OpenIt [right pocket] (* Open right pocket -- first *)
  3933. NOT SomethingInside [right pocket] (* Right pocket is empty. *)
  3934. PrintMessage [You open the $adjective$ $noun$]
  3935. PrintMessage [The $adjective$ $noun$ is empty]
  3936. DoneWithTurn
  3937. END_COMMAND
  3938.  
  3939. COMMAND SEARCH RIGHT POCKET
  3940. Present [right pocket] (* Right pocket of parka is here *)
  3941. NOUNIsNumber [right pocket] (* Right pocket of parka was specified in input *)
  3942. OpenIt [right pocket] (* Open right pocket -- first *)
  3943. SomethingInside [right pocket] (* Right pocket is NOT empty. *)
  3944. PrintMessage [You open the $adjective$ $noun$]
  3945. PrintMessage [The $adjective$ $noun$ contains:]
  3946. ShowContents [right pocket] (* Display contents of Right Pocket *)
  3947. DoneWithTurn
  3948. END_COMMAND
  3949.  
  3950. COMMAND SEARCH LEFT POCKET
  3951. Present [left pocket] (* Left pocket of parka is here *)
  3952. NOUNIsNumber [left pocket] (* Left pocket of parka was specified in input *)
  3953. OpenIt [left pocket] (* Open left pocket -- first *)
  3954. NOT SomethingInside [left pocket] (* Left pocket is empty. *)
  3955. PrintMessage [You open the $adjective$ $noun$]
  3956. PrintMessage [The $adjective$ $noun$ is empty]
  3957. DoneWithTurn
  3958. END_COMMAND
  3959.  
  3960. COMMAND SEARCH LEFT POCKET
  3961. Present [left pocket] (* Left pocket of parka is here *)
  3962. NOUNIsNumber [left pocket] (* Left pocket of parka was specified in input *)
  3963. OpenIt [left pocket] (* Open left pocket -- first *)
  3964. SomethingInside [left pocket] (* Left pocket is NOT empty. *)
  3965. PrintMessage [You open the $adjective$ $noun$]
  3966. PrintMessage [The $adjective$ $noun$ contains:]
  3967. ShowContents [left pocket] (* Display contents of Left Pocket *)
  3968. DoneWithTurn
  3969. END_COMMAND
  3970.  
  3971. MESSAGE [Sorry, but the $adjective$ $noun$ is locked]
  3972. Sorry, but the $adjective$ $noun$ is locked.
  3973. END_MESSAGE
  3974.  
  3975. MESSAGE [You open the $adjective$ $noun$]
  3976. You open the $adjective$ $noun$.
  3977. END_MESSAGE
  3978.  
  3979. MESSAGE [The $adjective$ $noun$ is locked]
  3980. Sorry, but the $adjective$ $noun$ is locked.  You must unlock it first before
  3981. you can $verb$ it.
  3982. END_MESSAGE
  3983.  
  3984. MESSAGE [The $adjective$ $noun$ is empty]
  3985. You $verb$ the $adjective$ $noun$, but find it empty.
  3986. END_MESSAGE
  3987.  
  3988. MESSAGE [The $adjective$ $noun$ contains:]
  3989. The $adjective$ $noun$ contains:
  3990. END_MESSAGE
  3991.  
  3992. COMMAND FIND ANY
  3993. FlagON [dark w/o lamp]
  3994. NOT Present [ON Lamp]
  3995. Chance 50
  3996. PrintMessage [GROPE.FALL]
  3997. GoToRoom [Dead]
  3998. KillPlayer
  3999. DoneWithTurn
  4000. END_COMMAND
  4001.  
  4002. COMMAND FIND ANY
  4003. FlagON [dark w/o lamp]
  4004. NOT Present [ON Lamp]
  4005. Chance 50
  4006. NOUNPresent
  4007. PrintMessage [GROPE.FIND]
  4008. GetNOUN
  4009. DoneWithTurn
  4010. END_COMMAND
  4011.  
  4012. COMMAND FIND ANY
  4013. FlagON [dark w/o lamp]
  4014. NOT Present [ON Lamp]
  4015. PrintMessage [CANT.SEE.ANYTHING]
  4016. DoneWithTurn
  4017. END_COMMAND
  4018.  
  4019. COMMAND FIND KNIFE
  4020. PrintMessage [knife vanishes]
  4021. DoneWithTurn
  4022. END_COMMAND
  4023.  
  4024. COMMAND FIND ANY
  4025. NOUNPresent
  4026. PrintMessage "The $noun$ is right in front of you, dummy!"
  4027. DoneWithTurn
  4028. END_COMMAND
  4029.  
  4030. COMMAND FIND ANY
  4031. FlagON [cave closed]
  4032. PrintMessage "I daresay whatever you want is around here somewhere."
  4033. DoneWithTurn
  4034. END_COMMAND
  4035.  
  4036. COMMAND FIND DWARF
  4037. FlagON [dwarf here]
  4038. PrintMessage [it's already here]
  4039. DoneWithTurn
  4040. END_COMMAND
  4041.  
  4042. COMMAND FIND CAVE
  4043. FlagOFF [cave hint offered] ;hint has not been offered yet
  4044. TurnFlagON [cave hint offered] ;now it has
  4045. PrintMessage [want the hint?]
  4046. PromptForYes
  4047. TurnFlagON [temp] ;hint has been rejected - so far
  4048. PrintMessage [hint costs 5]
  4049. PrintMessage [is this acceptable?]
  4050. PromptForYes
  4051. TurnFlagOFF [temp] ;hint has been accepted
  4052. PrintMessage [follow the stream]
  4053. MinusScore 5
  4054. DoneWithTurn
  4055. END_COMMAND
  4056.  
  4057. COMMAND FIND CAVE
  4058. FlagON [temp] ;hint was rejected
  4059. TurnFlagOFF [temp]
  4060. PrintMessage [okay, do it yourself]
  4061. DoneWithTurn
  4062. END_COMMAND
  4063.  
  4064. COMMAND FIND ANY
  4065. PrintMessage [I can't help you find stuff]
  4066. DoneWithTurn
  4067. END_COMMAND
  4068.  
  4069. MESSAGE [I can't help you find stuff]
  4070. I can only tell you what you see as you move about and manipulate things.  I
  4071. cannot tell you where remote things are.
  4072. END_MESSAGE
  4073.  
  4074. ;GET
  4075.  
  4076. COMMAND GET ANY
  4077. FlagON [dark w/o lamp]
  4078. NOT Present [ON Lamp]
  4079. Chance 50
  4080. PrintMessage [GROPE.FALL]
  4081. GoToRoom [Dead]
  4082. KillPlayer
  4083. DoneWithTurn
  4084. END_COMMAND
  4085.  
  4086. MESSAGE [GROPE.FALL]
  4087. Hmmph - you're not asking for much, are you - it's pitch dark in here!  Well,
  4088. I'll grope around and try to find the $noun$..... {hunt}    {hunt}
  4089. {rummage}    {trip}   Aiiieeeee...  >SPLAT!<
  4090.  
  4091. You stumbled into a pit and broke your back!
  4092. END_MESSAGE
  4093.  
  4094. #COMMENT -- GET TIME
  4095.  
  4096. COMMAND GET TIME
  4097. Present [clock]
  4098. ReDirectTo SAY TIME
  4099. END_COMMAND
  4100.  
  4101. COMMAND GET TIME
  4102. Present [Gold Watch]
  4103. GetIt [Gold Watch]
  4104. PrintMessage "As you get the watch, you notice the time ..."
  4105. BlankLine
  4106. ReDirectTo SAY TIME
  4107. END_COMMAND
  4108.  
  4109. COMMAND GET TIME
  4110. NOT Present [Gold Watch]
  4111. NOT Present [clock]
  4112. PrintMessage [Perhaps, you can find a sun dial somewhere.]
  4113. DoneWithTurn
  4114. END_COMMAND
  4115.  
  4116. COMMAND GET ANY
  4117. FlagON [dark w/o lamp]
  4118. NOT Present [ON Lamp]
  4119. Chance 50
  4120. NOUNPresent
  4121. PrintMessage [GROPE.FIND]
  4122. GetNOUN
  4123. DoneWithTurn
  4124. END_COMMAND
  4125.  
  4126. MESSAGE [GROPE.FIND]
  4127. Hmmph - you're not asking for much, are you - it's pitch dark in here, and
  4128. I'll have to grope around to find the $noun$.  Oh, well, I suppose that
  4129. that's part of my job...  {hunt}  {search} {seek}   Could this be the $noun$?
  4130. No. {search}       {hunt} {trip}   {curse}   {catch self}
  4131. {nurse scraped hand}   {seek}
  4132.  
  4133. Aha!  I have located the $noun$!.
  4134. END_MESSAGE
  4135.  
  4136. COMMAND GET ANY
  4137. FlagON [dark w/o lamp]
  4138. NOT Present [ON Lamp]
  4139. PrintMessage [CANT.SEE.ANYTHING]
  4140. DoneWithTurn
  4141. END_COMMAND
  4142.  
  4143. MESSAGE [CANT.SEE.ANYTHING]
  4144. It's pitch dark in here - I can't tell whether there's anything here that I
  4145. can pick up!
  4146. END_MESSAGE
  4147.  
  4148. COMMAND GET FLOOR
  4149. Present [suction cups]
  4150. AtLocation [computer center]
  4151. IsNoWhere [hole in floor]
  4152. PrintMessage [You lift up tile]
  4153. ChangePassageway [down] [below the computer center]
  4154. DropIt [hole in floor]
  4155. DoneWithTurn
  4156. END_COMMAND
  4157.  
  4158. COMMAND GET ANY
  4159. AtLocation [programmer's den]
  4160. TurnFlagOFF [secret word given] ;revoke secret words
  4161. TurnFlagON [programmer angry] ;programmer is angry
  4162. PrintMessage [programmer takes revenge]
  4163. MinusScore 25 ;That will teach you
  4164. GoToRoom [twisty 44] ;Pirate's maze - just south of Pirate's den
  4165. DoneWithTurn
  4166. END_COMMAND
  4167.  
  4168. COMMAND GET COBWEB
  4169. NOUNinRoom (* cobwebs are here *)
  4170. PrintMessage [Spider bites you]
  4171. GoToRoom [Dead]
  4172. KillPlayer
  4173. DoneWithTurn
  4174. END_COMMAND
  4175.  
  4176. MESSAGE [Spider bites you]
  4177. You were just bitten by a poisonous spider!  This type of spider is very
  4178. deadly -- so your life is about to end somewhat prematurely.
  4179. END_MESSAGE
  4180.  
  4181. COMMAND GET ROPE
  4182. AtLocation [R645  Bells!  Bells!  Room]
  4183. OR
  4184. AtLocation [R641  Bell Room]
  4185. BlankLine
  4186. DescribeThing [ropes in bell room]
  4187. DoneWithTurn
  4188. END_COMMAND
  4189.  
  4190. COMMAND GET CANE
  4191. Present [Gigantic Rabbit]
  4192. PrintMessage "Sorry, but the rabbit is not about to part with his cane."
  4193. DoneWithTurn
  4194. END_COMMAND
  4195.  
  4196. COMMAND GET SHAFT
  4197. PrintMessage [Leave it alone]
  4198. DoneWithTurn
  4199. END_COMMAND
  4200.  
  4201. COMMAND GET DUCT
  4202. Present [air-conditioning duct]
  4203. PrintMessage [You remove grate and enter duct]
  4204. BlankLine
  4205. GoToRoom [At Turn In Duct]
  4206. PlusScore 10
  4207. SwapLocations [air-conditioning duct] [air-conditioning grate]
  4208. DoneWithTurn
  4209. END_COMMAND
  4210.  
  4211. COMMAND GET GRATE
  4212. Present [air-conditioning duct]
  4213. PrintMessage [You remove grate and enter duct]
  4214. BlankLine
  4215. GoToRoom [At Turn In Duct]
  4216. PlusScore 10
  4217. SwapLocations [air-conditioning duct] [air-conditioning grate]
  4218. DoneWithTurn
  4219. END_COMMAND
  4220.  
  4221. MESSAGE [You remove grate and enter duct]
  4222. You manage to remove the grate covering the duct.  Like a true adventurer,
  4223. you then let your imagination get the better of your good sense and you crawl
  4224. into the duct.  You crawl about a hundred feet further into the duct before
  4225. you pause to rest at a place where the duct turns to the south.  The air is
  4226. still blasting away in the duct and you are very, very cold!
  4227. END_MESSAGE
  4228.  
  4229. COMMAND GET COMPUTER
  4230. AtLocation [computer center]
  4231. OR
  4232. AtLocation [private office]
  4233. PrintMessage [leave it alone]
  4234. DoneWithTurn
  4235. END_COMMAND
  4236.  
  4237. COMMAND GET MIRROR
  4238. PrintMessage [too far to reach]
  4239. DoneWithTurn
  4240. END_COMMAND
  4241.  
  4242. COMMAND GET SIGN
  4243. PrintMessage [Leave it alone]
  4244. DoneWithTurn
  4245. END_COMMAND
  4246.  
  4247. COMMAND GET BELL
  4248. PrintMessage [Leave it alone]
  4249. DoneWithTurn
  4250. END_COMMAND
  4251.  
  4252. COMMAND GET TOAD
  4253. Present [horny toad]
  4254. PrintMessage [Leave it alone]
  4255. DoneWithTurn
  4256. END_COMMAND
  4257.  
  4258. MESSAGE [Leave it alone]
  4259. A voice booms out, "Leave the $noun$ alone!"
  4260. END_MESSAGE
  4261.  
  4262. COMMAND GET KNIFE
  4263. FlagON [dwarf here]
  4264. PrintMessage [dwarf has it]
  4265. DoneWithTurn
  4266. END_COMMAND
  4267.  
  4268. MESSAGE [dwarf has it]
  4269. The dwarf is holding the knife very tightly.  I don't think the dwarf wants to
  4270. part with the knife except perhaps to do you grave bodily harm.  I suggest you
  4271. get away from here as fast as you can!
  4272. END_MESSAGE
  4273.  
  4274. COMMAND GET KNIFE
  4275. PrintMessage [knife vanishes]
  4276. DoneWithTurn
  4277. END_COMMAND
  4278.  
  4279. COMMAND GET PLANT
  4280. PrintMessage "The plant has exceptionally deep roots and cannot be pulled free."
  4281. DoneWithTurn
  4282. END_COMMAND
  4283.  
  4284. COMMAND GET BEAR
  4285. InRoom [contented bear]
  4286. PrintMessage [bear will follow]
  4287. TurnFlagON [bear following]
  4288. DoneWithTurn
  4289. END_COMMAND
  4290.  
  4291. MESSAGE [bear will follow]
  4292. You pet the bear affectionately and tickle it under its chin and behind its
  4293. ears.  It seems very happy and licks your hand (UGH!).  The bear likes you and
  4294. will follow you anywhere.  (Lucky you!)
  4295. END_MESSAGE
  4296.  
  4297. COMMAND GET BEAR
  4298. AtLocation [barren room]
  4299. PrintMessage "The bear is still chained to the wall."
  4300. DoneWithTurn
  4301. END_COMMAND
  4302.  
  4303. COMMAND GET PITCHER
  4304. IsCarrying [empty bottle]
  4305. OR
  4306. IsCarrying [water bottle]
  4307. PrintMessage [Too awkward!]
  4308. DoneWithTurn
  4309. END_COMMAND
  4310.  
  4311. COMMAND GET BOTTLE
  4312. IsCarrying [stone pitcher]
  4313. OR
  4314. IsCarrying [stone pitcher - with water in it]
  4315. PrintMessage [Too awkward!]
  4316. DoneWithTurn
  4317. END_COMMAND
  4318.  
  4319. MESSAGE [Too awkward!]
  4320. Sorry, but it is too awkward to carry both the bottle and the pitcher at the
  4321. same time.
  4322. END_MESSAGE
  4323.  
  4324. COMMAND GET WATER
  4325. FlagON [bottle full]
  4326. Present [water bottle]
  4327. PrintMessage [already full]
  4328. DoneWithTurn
  4329. END_COMMAND
  4330.  
  4331. COMMAND GET WATER
  4332. FlagON [Pitcher has water in it]
  4333. Present [stone pitcher - with water in it]
  4334. PrintMessage [already full]
  4335. DoneWithTurn
  4336. END_COMMAND
  4337.  
  4338. COMMAND GET WATER
  4339. NOT Present [empty bottle]
  4340. NOT Present [stone pitcher]
  4341. PrintMessage [nothing to put it in]
  4342. DoneWithTurn
  4343. END_COMMAND
  4344.  
  4345. COMMAND GET WATER
  4346. Present [empty bottle]
  4347. NOT Present [stone pitcher]
  4348. FlagON [Water here]
  4349. PrintMessage [bottle now full of water]
  4350. SwapLocations [empty bottle] [water bottle]
  4351. TurnFlagON [bottle full]
  4352. DoneWithTurn
  4353. END_COMMAND
  4354.  
  4355. COMMAND GET WATER
  4356. NOT Present [empty bottle]
  4357. Present [stone pitcher]
  4358. IsLocated [rose] [stone pitcher]
  4359. FlagON [Water here]
  4360. PrintMessage [pitcher now full of water]
  4361. BlankLine
  4362. SwapLocations [stone pitcher] [stone pitcher - with water in it]
  4363. SendToRoom [beautiful rose] [stone pitcher - with water in it]
  4364. PrintMessage [Rose is no longer wilting]
  4365. DoneWithTurn
  4366. END_COMMAND
  4367.  
  4368. MESSAGE [Rose is no longer wilting]
  4369. As soon as water and the rose met, the rose seems to take on a whole new life.
  4370. Its petals open wider and its color gets richer.  Strangely enough, it even
  4371. smells better.
  4372. END_MESSAGE
  4373.  
  4374. COMMAND GET WATER
  4375. NOT Present [empty bottle]
  4376. Present [stone pitcher]
  4377. FlagON [Water here]
  4378. PrintMessage [pitcher now full of water]
  4379. SwapLocations [stone pitcher] [stone pitcher - with water in it]
  4380. TurnFlagON [Pitcher has water in it]
  4381. DoneWithTurn
  4382. END_COMMAND
  4383.  
  4384. MESSAGE [pitcher now full of water]
  4385. The pitcher is now full of cool water.
  4386. END_MESSAGE
  4387.  
  4388. COMMAND GET WATER
  4389. FlagOFF [water here]
  4390. Present [empty bottle]
  4391. OR
  4392. Present [stone pitcher]
  4393. PrintMessage [no liquid here]
  4394. DoneWithTurn
  4395. END_COMMAND
  4396.  
  4397. COMMAND GET OIL
  4398. FlagON [bottle full]
  4399. PrintMessage [already full]
  4400. DoneWithTurn
  4401. END_COMMAND
  4402.  
  4403. COMMAND GET OIL
  4404. NOT Present [empty bottle]
  4405. PrintMessage [nothing to put it in]
  4406. DoneWithTurn
  4407. END_COMMAND
  4408.  
  4409. COMMAND GET OIL
  4410. AtLocation [east pit] ;east pit of twopit room
  4411. PrintMessage [bottle now full of oil]
  4412. SwapLocations [empty bottle] [oil bottle]
  4413. TurnFlagON [bottle full]
  4414. DoneWithTurn
  4415. END_COMMAND
  4416.  
  4417. COMMAND GET OIL
  4418. Present [empty bottle]
  4419. PrintMessage [no liquid here]
  4420. DoneWithTurn
  4421. END_COMMAND
  4422.  
  4423. COMMAND GET BIRD
  4424. InRoom [little bird]
  4425. FlagOFF [bird toggle] ;first time tried to GET BIRD
  4426. IsCarrying [black rod]
  4427. PrintMessage [bird disturbed]
  4428. TurnFlagON [bird toggle] ;now has tried to GET BIRD once
  4429. DoneWithTurn
  4430. END_COMMAND
  4431.  
  4432. MESSAGE [bird disturbed]
  4433. The bird was unafraid when you entered, but as you approach it becomes
  4434. disturbed and you cannot catch it.
  4435. END_MESSAGE
  4436.  
  4437. COMMAND GET BIRD
  4438. InRoom [little bird]
  4439. FlagON [bird toggle] ;second time tried to GET BIRD
  4440. IsCarrying [black rod]
  4441. PrintMessage [bird is scared]
  4442. TurnFlagOFF [bird toggle] ;toggle back to first response
  4443. DoneWithTurn
  4444. END_COMMAND
  4445.  
  4446. MESSAGE [bird is scared]
  4447. The bird is frightened right now and you cannot catch it no matter what you
  4448. try.  Perhaps you might try later.
  4449. END_MESSAGE
  4450.  
  4451. COMMAND GET BIRD
  4452. InRoom [little bird]
  4453. NOT IsCarrying [wicker cage]
  4454. PrintMessage "You can catch the bird, but you cannot carry it."
  4455. DoneWithTurn
  4456. END_COMMAND
  4457.  
  4458. COMMAND GET BIRD
  4459. InRoom [little bird]
  4460. IsCarrying [wicker cage]
  4461. PrintMessage "You catch the bird and put it inside the wicker cage."
  4462. SwapLocations [wicker cage] [caged bird]
  4463. Destroy [little bird]
  4464. DoneWithTurn
  4465. END_COMMAND
  4466.  
  4467. COMMAND GET CAGE
  4468. Present [caged bird]
  4469. GetIt [caged bird]
  4470. PrintMessage
  4471. You now have the cage with the bird in it.  The bird has stopped singing.
  4472. End_message
  4473. DoneWithTurn
  4474. END_COMMAND
  4475.  
  4476. COMMAND GET RUG
  4477. Present [green dragon]
  4478. PrintMessage [better not]
  4479. DoneWithTurn
  4480. END_COMMAND
  4481.  
  4482. COMMAND GET AXE
  4483. Present [green dragon]
  4484. InRoom [dwarf's axe]
  4485. PrintMessage [better not]
  4486. DoneWithTurn
  4487. END_COMMAND
  4488.  
  4489. COMMAND GET AXE
  4490. Present [ferocious bear]
  4491. InRoom [dwarf's axe]
  4492. PrintMessage [can't be serious]
  4493. DoneWithTurn
  4494. END_COMMAND
  4495.  
  4496. COMMAND GET VASE
  4497. InRoom [vase on pillow]
  4498. GetIt [ming vase]
  4499. SwapLocations [velvet pillow] [vase on pillow]
  4500. PrintMessage "You pick up the vase from its resting place on the pillow."
  4501. DoneWithTurn
  4502. END_COMMAND
  4503.  
  4504. COMMAND GET PILLOW
  4505. InRoom [vase on pillow]
  4506. GetIt [velvet pillow]
  4507. Destroy [vase on pillow]
  4508. PutInCurrentRoom [pottery shards]
  4509. PrintMessage [It smashes into a trillion tiny pieces]
  4510. LookAtRoom
  4511. DoneWithTurn
  4512. END_COMMAND
  4513.  
  4514. MESSAGE [It smashes into a trillion tiny pieces]
  4515. As you pick up the pillow, the vase accidentally falls to the ground and
  4516. smashes into a trillion tiny pieces.
  4517. END_MESSAGE
  4518.  
  4519. COMMAND GET ANY
  4520. AtLocationGT [S end of fog-filled room]
  4521. AtLocationLT [fog-filled room by cairn]
  4522. PrintMessage [GROPE.MISS]
  4523. DoneWithTurn
  4524. END_COMMAND
  4525.  
  4526. MESSAGE [GROPE.MISS]
  4527. Hmmph - you're not asking for much, are you.  You can't see a thing in here
  4528. and you'll have to grope around to try to find the $noun$.  Well, if you
  4529. must, you must......  {hunt}   {search}   {hunt} {hunt}
  4530. {peer-blindly}        {touch}  {hunt}   {stumble}    {search}
  4531. {scrape}   {swear}    {hunt}
  4532.  
  4533. No luck - you can't find the $noun$!.
  4534. END_MESSAGE
  4535.  
  4536. #COMMENT
  4537. If you have eaten a mushroom recently (within the last 12 turns), when you GET
  4538. SCEPTRE you will be told the magic word ZORTON -- the word needed to get into
  4539. the safe.  If you are not strong, then you will not be told a secret word when
  4540. you GET SCEPTRE -- but, rather told that "You blew it!"
  4541. #END_COMMENT
  4542.  
  4543. COMMAND GET SCEPTRE
  4544. FlagOFF [Player is very strong] ; player has normal strength
  4545. Present [skeleton on throne in Audience hall]
  4546. Destroy [skeleton on throne in Audience hall]
  4547. GetIt [sapphire-encrusted sceptre]
  4548. PrintMessage [BLEW.SAFE]
  4549. DoneWithTurn
  4550. END_MESSAGE
  4551.  
  4552. COMMAND GET SCEPTRE
  4553. FlagON [Player is very strong] ; player has special strength
  4554. Present [skeleton on throne in Audience hall]
  4555. Destroy [skeleton on throne in Audience hall]
  4556. GetIt [sapphire-encrusted sceptre]
  4557. PlusScore 15
  4558. PrintMessage [WHISPER]
  4559. DoneWithTurn
  4560. END_MESSAGE
  4561.  
  4562. MESSAGE [WHISPER]
  4563. You pluck the sceptre from the skeleton's bony hand.  As you do, the skeleton
  4564. raises its head and whispers "Remember - ZORTON!" in a foreboding tone; it then
  4565. sags to the ground and crumbles into dust which drifts away into the still air
  4566. of the cave.
  4567. END_MESSAGE
  4568.  
  4569. MESSAGE [BLEW.SAFE]
  4570. As you pluck the sceptre from the skeleton's grasp, it raises its head and
  4571. whispers, "You blew it!".  It then shivers and collapses into a pile of fine
  4572. dust which quickly vanishes.
  4573. END_MESSAGE
  4574.  
  4575. COMMAND GET SWORD
  4576. Present [singing sword - in rock]
  4577. FlagOFF [Player is very strong]
  4578. PrintMessage [SWORD.IS.STUCK]
  4579. DoneWithTurn
  4580. END_COMMAND
  4581.  
  4582. COMMAND GET SWORD
  4583. Present [singing sword - in rock]
  4584. FlagON [Player is very strong]
  4585. PrintMessage [GOT.THE.SWORD]
  4586. Destroy [singing sword - in rock]
  4587. GetIt [singing sword]
  4588. PlusScore 15
  4589. DoneWithTurn
  4590. END_COMMAND
  4591.  
  4592. MESSAGE [GOT.THE.SWORD]
  4593. The singing sword slides easily out of the rock.
  4594. END_MESSAGE
  4595.  
  4596. MESSAGE [SWORD.IS.STUCK]
  4597. The sword is firmly embedded in the stone, and you aren't strong enough to
  4598. pull it out.
  4599. END_MESSAGE
  4600.  
  4601. COMMAND GET CROWN
  4602. AtLocation [in the safe]
  4603. Present [iridium crown - floating]
  4604. Destroy [iridium crown - floating]
  4605. GetIt [iridium crown]
  4606. PrintMessage "You grab the floating crown out of the air."
  4607. DoneWithTurn
  4608. END_COMMAND
  4609.  
  4610. COMMAND GET MUSHROOM
  4611. Present [small mushroom - growing]
  4612. GetIt [small mushroom]
  4613. Destroy [small mushroom - growing]
  4614. PrintMessage "You pluck the mushroom (?) from the wall where it was growing."
  4615. DoneWithTurn
  4616. END_COMMAND
  4617.  
  4618. COMMAND GET BRIDGE
  4619. PrintMessage [don't be ridiculous]
  4620. DoneWithTurn
  4621. END_COMMAND
  4622.  
  4623. COMMAND GET ROAD
  4624. PrintMessage [don't be ridiculous]
  4625. DoneWithTurn
  4626. END_COMMAND
  4627.  
  4628. COMMAND GET MIST
  4629. PrintMessage "The mist just slips through your fingers."
  4630. DoneWithTurn
  4631. END_COMMAND
  4632.  
  4633. COMMAND GET CHASM
  4634. PrintMessage [don't be ridiculous]
  4635. DoneWithTurn
  4636. END_COMMAND
  4637.  
  4638. COMMAND GET BUILDING
  4639. PrintMessage [don't be ridiculous]
  4640. DoneWithTurn
  4641. END_COMMAND
  4642.  
  4643. COMMAND GET TREE
  4644. PrintMessage [don't be ridiculous]
  4645. DoneWithTurn
  4646. END_COMMAND
  4647.  
  4648. COMMAND GET STREAM
  4649. PrintMessage "Don't be ridiculous!  Try GET WATER -- instead."
  4650. DoneWithTurn
  4651. END_COMMAND
  4652.  
  4653. ;PUT
  4654.  
  4655. COMMAND PUT WATER ON URN
  4656. ReDirectTo WASH URN
  4657. END_COMMAND
  4658.  
  4659. COMMAND PUT ROSE IN PITCHER
  4660. Present [stone pitcher]
  4661. Present [rose]
  4662. SendToRoom [rose] [stone pitcher]
  4663. PrintMessage "OK.  You put the rose in the pitcher."
  4664. DoneWithTurn
  4665. END_COMMAND
  4666.  
  4667. COMMAND PUT ROSE IN PITCHER
  4668. Present [stone pitcher - with water in it]
  4669. Present [rose]
  4670. Destroy [rose]
  4671. SendToRoom [beautiful rose] [stone pitcher - with water in it]
  4672. PrintMessage [Rose is no longer wilting]
  4673. DoneWithTurn
  4674. END_COMMAND
  4675.  
  4676. COMMAND PUT ANY IN SAFE
  4677. AtLocation [inside building]
  4678. Present [open vault]
  4679. NOUNPresent
  4680. PrintMessage [It tumbles down the stairs]
  4681. SendNOUNToRoom [Southern end of long hall]
  4682. DoneWithTurn
  4683. END_COMMAND
  4684.  
  4685. COMMAND PUT FLASK IN PENTAGRAM
  4686. AtLocation [pentagram room]
  4687. Present [earthenware flask - closed]
  4688. DropIt [earthenware flask - sealed]
  4689. Destroy [earthenware flask - closed]
  4690. PrintMessage [You set the flask in the pentragram]
  4691. DoneWithTurn
  4692. END_COMMAND
  4693.  
  4694. COMMAND PUT BIRD IN CAGE
  4695. ReDirectTo GET BIRD
  4696. END_COMMAND
  4697.  
  4698. COMMAND PUT BIRD
  4699. InRoom [little bird]
  4700. PrintMessage [don't be ridiculous]
  4701. DoneWithTurn
  4702. END_COMMAND
  4703.  
  4704. COMMAND PUT ANY IN CAGE
  4705. PrintMessage [It only holds birds]
  4706. DoneWithTurn
  4707. END_COMMAND
  4708.  
  4709. MESSAGE [It only holds birds]
  4710. Sorry, but this is a BIRD cage and holds only birds.  It is impossible to put
  4711. anything else in it.
  4712. END_MESSAGE
  4713.  
  4714. COMMAND PUT WATER IN BOTTLE
  4715. ReDirectTo GET WATER
  4716. END_COMMAND
  4717.  
  4718. COMMAND PUT WATER IN PITCHER
  4719. ReDirectTo GET WATER
  4720. END_COMMAND
  4721.  
  4722. COMMAND PUT OIL IN BOTTLE
  4723. ReDirectTo GET OIL
  4724. END_COMMAND
  4725.  
  4726. COMMAND PUT OIL
  4727. ReDirectTo POUR OIL
  4728. END_COMMAND
  4729.  
  4730. COMMAND PUT WATER
  4731. ReDirectTo POUR WATER
  4732. END_COMMAND
  4733.  
  4734. COMMAND PUT COINS IN MACHINE
  4735. InRoom [vending machine]
  4736. Present [rare coins]
  4737. PutInCurrentRoom [fresh batteries]
  4738. Destroy [rare coins]
  4739. PrintMessage [batteries appear]
  4740. DoneWithTurn
  4741. END_COMMAND
  4742.  
  4743. COMMAND PUT BATTERIES IN LAMP
  4744. Present [fresh batteries]
  4745. Present [OFF lamp]
  4746. OR
  4747. Present [ON lamp]
  4748. PutInCurrentRoom [worn-out batteries]
  4749. PutInCurrentRoom [ON lamp]
  4750. Destroy [OFF lamp]
  4751. Destroy [fresh batteries]
  4752. PrintMessage [lamp now on]
  4753. SetVariableTo [battery life] [battery max] ;new life in batteries
  4754. TurnFlagON [lamp lit]
  4755. LookAtRoom
  4756. DoneWithTurn
  4757. END_COMMAND
  4758.  
  4759. COMMAND PUT BATTERIES IN LAMP
  4760. NOT Present [fresh batteries]
  4761. PrintMessage [batteries are dead] ;sorry, but you need fresh batteries
  4762. DoneWithTurn
  4763. END_COMMAND
  4764.  
  4765. #COMMENT -- NO and YES
  4766.  
  4767. COMMAND NO
  4768. PrintMessage "You don't need to be so negative!  It's just a game!"
  4769. DoneWithTurn
  4770. END_COMMAND
  4771.  
  4772. COMMAND YES
  4773. PrintMessage "You don't say!  I wish I could be so positive!"
  4774. DoneWithTurn
  4775. END_COMMAND
  4776.  
  4777. ;DROP/POUR/INSERT/CHANGE
  4778.  
  4779. MESSAGE [You drop a treasure]
  4780. As you drop the treasure, a voice booms out: "Well done!  You have collected
  4781. #VAR[Number of treasures dropped]# treasure(s) so far out of a total of[Total number of treasures]."
  4782.  
  4783. As the $noun$ hits the floor, it disappears in a puff of blue smoke!
  4784. END_MESSAGE
  4785.  
  4786. MESSAGE [Last Treasure Message]
  4787. As you drop the last treasure, a booming voice says: "You have now completed
  4788. your quest for treasure!"
  4789.  
  4790. However, because this voice is so amazingly loud, it starts an earthquake.
  4791. A crack opens up in the earth, and you fall down .... down ....
  4792. END_MESSAGE
  4793.  
  4794. MESSAGE [It tumbles down the stairs]
  4795. You put the $noun$ in the safe and it tumbles down the stairs.
  4796. END_MESSAGE
  4797.  
  4798. COMMAND DROP ALL
  4799. AtLocation [in the safe]
  4800. OR
  4801. AtLocation [inside building]
  4802. PrintMessage "Sorry, but you must drop things one-at-a-time, here!"
  4803. DoneWithTurn
  4804. END_COMMAND
  4805.  
  4806. COMMAND DROP ANY
  4807. NOUNIsWearing
  4808. GetNOUN
  4809. END_COMMAND
  4810.  
  4811. COMMAND DROP ANY IN SAFE
  4812. AtLocation [inside building]
  4813. Present [open vault]
  4814. NOUNPresent
  4815. PrintMessage [It tumbles down the stairs]
  4816. SendNOUNToRoom [Southern end of long hall]
  4817. DoneWithTurn
  4818. END_COMMAND
  4819.  
  4820. COMMAND DROP ANY
  4821. AtLocation [inside building]
  4822. NOUNPresent
  4823. [Is a treasure?]
  4824. AddToVariable [Number of treasures dropped] 1
  4825. END_COMMAND
  4826.  
  4827. COMMAND DROP ANY
  4828. AtLocation [inside building]
  4829. NOUNPresent
  4830. [Is a treasure?]
  4831. VariableEquals [Number of treasures dropped] [Total number of treasures]
  4832. SendNOUNToRoom [Limbo]
  4833. PrintMessage [Last Treasure Message]
  4834. BlankLine
  4835. TurnFlagON [Got all the treasures]
  4836. GoToRoom [nugget room]
  4837. DoneWithTurn
  4838. END_COMMAND
  4839.  
  4840. COMMAND DROP ANY
  4841. AtLocation [inside building]
  4842. NOUNIsCarrying
  4843. [Is a treasure?]
  4844. PrintMessage [You drop a treasure]
  4845. SendNOUNToRoom [Limbo]
  4846. DoneWithTurn
  4847. END_COMMAND
  4848.  
  4849. COMMAND DROP ANY
  4850. AtLocation [in the safe]
  4851. NOUNPresent
  4852. [Is a treasure?]
  4853. AddToVariable [Number of treasures dropped] 1
  4854. END_COMMAND
  4855.  
  4856. COMMAND DROP ANY
  4857. AtLocation [in the safe]
  4858. NOUNPresent
  4859. [Is a treasure?]
  4860. VariableEquals [Number of treasures dropped] [Total number of treasures]
  4861. SendNOUNToRoom [Limbo]
  4862. PrintMessage [Last Treasure Message]
  4863. BlankLine
  4864. TurnFlagON [Got all the treasures]
  4865. GoToRoom [nugget room]
  4866. DoneWithTurn
  4867. END_COMMAND
  4868.  
  4869. COMMAND DROP ANY
  4870. AtLocation [in the safe]
  4871. NOUNIsCarrying
  4872. [Is a treasure?]
  4873. PrintMessage [You drop a treasure]
  4874. SendNOUNToRoom [Limbo]
  4875. DoneWithTurn
  4876. END_COMMAND
  4877.  
  4878. COMMAND INSERT CARD
  4879. AtLocation [Southern end of long hall]
  4880. Present [access card]
  4881. PrintMessage [You use the access card]
  4882. BlankLine
  4883. GoToRoom [computer center]
  4884. DoneWithTurn
  4885. END_COMMAND
  4886.  
  4887. MESSAGE [You use the access card]
  4888. You insert the card into the slot.  A very loud buzzing sound comes from the
  4889. door and then the door swings open and you enter the room to find ...
  4890. END_MESSAGE
  4891.  
  4892. COMMAND INSERT DISK
  4893. AtLocation [computer center]
  4894. OR
  4895. AtLocation [private office]
  4896. Present [floppy disk]
  4897. PrintMessage [You insert disk in PC]
  4898. BlankLine
  4899. PrintMessage [AGT info]
  4900. PlusScore 10
  4901. DoneWithTurn
  4902. END_COMMAND
  4903.  
  4904. COMMAND DROP VIAL
  4905. Present [vial of oily liquid]
  4906. Chance 10
  4907. PrintMessage [VIAL.EXPLODES]
  4908. SendToRoom [vial of oily liquid] [nowhere]
  4909. GoToRoom [Dead]
  4910. KillPlayer
  4911. DoneWithTurn
  4912. END_COMMAND
  4913.  
  4914. MESSAGE [VIAL.EXPLODES]
  4915. The vial strikes the ground and explodes with a violent >FROOM<, neatly
  4916. severing your foot.  You bleed to death quickly and messily.
  4917. END_MESSAGE
  4918.  
  4919. MESSAGE [VIAL.BANG]
  4920. The vial explodes into splinters and disintegrates, releasing an oily liquid
  4921. which rapidly sublimes into a large mushroom-shaped cloud of thick yellow
  4922. vapor smelling like Cheddar cheese and bananas.
  4923. END_MESSAGE
  4924.  
  4925. COMMAND DROP MAGAZINE
  4926. AtLocation [witt's end]
  4927. Present [spelunker magazine]
  4928. Destroy [spelunker magazine]
  4929. PrintMessage [magazine disappears]
  4930. PlusScore 1
  4931. DoneWithTurn
  4932. END_COMMAND
  4933.  
  4934. MESSAGE [magazine disappears]
  4935. The magazine disappears in a puff of green smoke as it hits the ground.  A
  4936. loud voice echoes through the cave, "Well done!"
  4937. END_MESSAGE
  4938.  
  4939. COMMAND DROP OIL
  4940. AtLocation [west pit] ;room with plant
  4941. Present [oil bottle]
  4942. SwapLocations [oil bottle] [empty bottle]
  4943. PrintMessage
  4944. The plant indignantly shakes the oil off its leaves and asks: 'Water?'
  4945. End_Message
  4946. TurnFlagOFF [bottle full]
  4947. DoneWithTurn
  4948. END_COMMAND
  4949.  
  4950. COMMAND DROP OIL
  4951. InRoom [rusty door]
  4952. Present [oil bottle]
  4953. SwapLocations [oil bottle] [empty bottle]
  4954. PrintMessage [The oil has freed up the hinges]
  4955. SwapLocations [rusty door] [open door]
  4956. PlusScore 10
  4957. DoneWithTurn
  4958. END_COMMAND
  4959.  
  4960. MESSAGE [The oil has freed up the hinges]
  4961. The oil has freed up the hinges so that the door will now move, although it
  4962. requires some effort.
  4963. END_MESSAGE
  4964.  
  4965. COMMAND DROP OIL
  4966. Present [oil bottle]
  4967. SwapLocations [oil bottle] [empty bottle]
  4968. PrintMessage [bottle empty, ground wet]
  4969. PrintMessage [feet now wet]
  4970. TurnFlagOFF [bottle full]
  4971. DoneWithTurn
  4972. END_COMMAND
  4973.  
  4974. COMMAND POUR WATER
  4975. IsLocated [beautiful rose] [stone pitcher - with water in it]
  4976. Present [stone pitcher - with water in it]
  4977. SwapLocations [stone pitcher - with water in it] [stone pitcher]
  4978. Destroy [beautiful rose]
  4979. PrintMessage [the rose begins shriveling up]
  4980. TurnFlagOFF [Pitcher has water in it]
  4981. DoneWithTurn
  4982. END_COMMAND
  4983.  
  4984. MESSAGE [the rose begins shriveling up]
  4985. You pour the water out of the pitcher on to the ground.  As you do, the rose
  4986. begins shriveling up!  It's, It's...dying!  The petals fall off and are blown
  4987. away in the wind.  The rose disintegrates and disappears!  You murder!
  4988. END_MESSAGE
  4989.  
  4990. COMMAND POUR WATER
  4991. NOT IsLocated [beautiful rose] [stone pitcher - with water in it]
  4992. Present [stone pitcher - with water in it]
  4993. SwapLocations [stone pitcher - with water in it] [stone pitcher]
  4994. PrintMessage [feet now wet]
  4995. TurnFlagOFF [Pitcher has water in it]
  4996. DoneWithTurn
  4997. END_COMMAND
  4998.  
  4999. COMMAND POUR WATER
  5000. InRoom [gigantic beanstalk]
  5001. Present [water bottle]
  5002. SwapLocations [water bottle] [empty bottle]
  5003. PrintMessage [the plant shrivels up]
  5004. TurnFlagOFF [bottle full]
  5005. Destroy [gigantic beanstalk]
  5006. Destroy [gigantic beanstalk top] ;gigantic beanstalk in [long narrow corridor]
  5007. MinusScore 15
  5008. DoneWithTurn
  5009. END_COMMAND
  5010.  
  5011. MESSAGE [the plant shrivels up]
  5012. You've over-watered the plant!  It's shriveling up!  It's, It's...dying!
  5013. It's...disappeared!  You murder!
  5014. END_MESSAGE
  5015.  
  5016. COMMAND POUR WATER
  5017. InRoom [12' beanstalk]
  5018. Present [water bottle]
  5019. SwapLocations [water bottle] [empty bottle]
  5020. SwapLocations [gigantic beanstalk] [12' beanstalk]
  5021. SendToRoom [gigantic beanstalk top] [long narrow corridor]
  5022. Destroy [12' beanstalk top]
  5023. PrintMessage "The plant grows explosively, almost filling the bottom of the pit."
  5024. TurnFlagOFF [bottle full]
  5025. PlusScore 4
  5026. DoneWithTurn
  5027. END_COMMAND
  5028.  
  5029. COMMAND POUR WATER
  5030. InRoom [tiny plant]
  5031. Present [water bottle]
  5032. SwapLocations [water bottle] [empty bottle]
  5033. SwapLocations [tiny plant] [12' beanstalk]
  5034. SendToRoom [12' beanstalk top] [W end of twopit room]
  5035. PrintMessage "The plant spurts into furious growth for a few seconds."
  5036. TurnFlagOFF [bottle full]
  5037. PlusScore 5
  5038. DoneWithTurn
  5039. END_COMMAND
  5040.  
  5041. COMMAND POUR WATER
  5042. Present [water bottle]
  5043. SwapLocations [water bottle] [empty bottle]
  5044. PrintMessage [bottle empty, ground wet]
  5045. PrintMessage [feet now wet]
  5046. TurnFlagOFF [bottle full]
  5047. DoneWithTurn
  5048. END_COMMAND
  5049.  
  5050. COMMAND DROP VASE
  5051. InRoom [velvet pillow]
  5052. Present [ming vase]
  5053. SwapLocations [velvet pillow] [vase on pillow]
  5054. Destroy [ming vase]
  5055. PrintMessage [vase drops]
  5056. PrintMessage [didn't break]
  5057. DoneWithTurn
  5058. END_COMMAND
  5059.  
  5060. COMMAND DROP VASE
  5061. NOT InRoom [velvet pillow]
  5062. Present [ming vase]
  5063. Destroy [ming vase]
  5064. PutInCurrentRoom [pottery shards]
  5065. PrintMessage [vase drops]
  5066. LookAtRoom
  5067. DoneWithTurn
  5068. END_COMMAND
  5069.  
  5070. COMMAND DROP CAGE
  5071. IsCarrying [caged bird]
  5072. DropIt [caged bird]
  5073. PrintMessage [You put it on the ground]
  5074. DoneWithTurn
  5075. END_COMMAND
  5076.  
  5077. MESSAGE [You put it on the ground]
  5078. You put the cage (with the bird in it) on the ground.  The bird has stopped
  5079. singing.
  5080. END_MESSAGE
  5081.  
  5082. COMMAND INSERT COINS
  5083. InRoom [vending machine]
  5084. Present [rare coins]
  5085. PutInCurrentRoom [fresh batteries]
  5086. Destroy [rare coins]
  5087. PrintMessage [batteries appear]
  5088. DoneWithTurn
  5089. END_COMMAND
  5090.  
  5091. COMMAND INSERT BATTERIES
  5092. Present [fresh batteries]
  5093. Present [OFF lamp]
  5094. OR
  5095. Present [ON lamp]
  5096. PutInCurrentRoom [worn-out batteries]
  5097. PutInCurrentRoom [ON lamp]
  5098. Destroy [OFF lamp]
  5099. Destroy [fresh batteries]
  5100. PrintMessage [lamp now on]
  5101. SetVariableTo [battery life] [battery max] ;new life in batteries
  5102. TurnFlagON [lamp lit]
  5103. LookAtRoom
  5104. DoneWithTurn
  5105. END_COMMAND
  5106.  
  5107. COMMAND INSERT BATTERIES
  5108. NOT Present [fresh batteries]
  5109. PrintMessage [batteries are dead] ;sorry, but you need fresh batteries
  5110. DoneWithTurn
  5111. END_COMMAND
  5112.  
  5113. COMMAND DROP ANY
  5114. AtLocationGT [S end of fog-filled room]
  5115. AtLocationLT [fog-filled room by cairn]
  5116. DestroyNOUN
  5117. PrintMessage "After you drop it, the $noun$ disappears into the fog."
  5118. DoneWithTurn
  5119. END_COMMAND
  5120.  
  5121. COMMAND DROP ANY
  5122. NOUNPresent
  5123. AtLocation [circular Room]
  5124. OR
  5125. AtLocation [1st Level]
  5126. OR
  5127. AtLocation [2nd Level]
  5128. OR
  5129. AtLocation [3rd Level]
  5130. OR
  5131. AtLocation [4th Level]
  5132. PrintMessage [It drops down the staircase]
  5133. SendNOUNToRoom [Gates of Hell]
  5134. DoneWithTurn
  5135. END_COMMAND
  5136.  
  5137. MESSAGE [It drops down the staircase]
  5138. The $noun$ falls down the staircase.  You can hear it banging and bouncing
  5139. as it makes its journey downward.  The sound gets weaker and weaker and
  5140. weaker.  Finally, it stops falling or is too far away for you to hear anymore.
  5141. END_MESSAGE
  5142.  
  5143. COMMAND DROP FLASK
  5144. AtLocation [pentagram room]
  5145. Present [earthenware flask - closed]
  5146. DropIt [earthenware flask - sealed]
  5147. Destroy [earthenware flask - closed]
  5148. PrintMessage [You set the flask in the pentragram]
  5149. DoneWithTurn
  5150. END_COMMAND
  5151.  
  5152. MESSAGE [You set the flask in the pentragram]
  5153. You have set the flask down in the center of the pentagram.
  5154. END_MESSAGE
  5155.  
  5156. ;RELEASE/FREE
  5157.  
  5158. COMMAND RELEASE DJINN
  5159. AtLocation [pentagram room]
  5160. Present [twelve-foot djinn]
  5161. PrintMessage [DJINN.ADVICE]
  5162. TurnFlagON [Djinn has been freed]
  5163. SendToRoom [twelve-foot djinn] [nowhere]
  5164. DoneWithTurn
  5165. END_COMMAND
  5166.  
  5167. COMMAND RELEASE BEAR
  5168. InRoom [burly troll]
  5169. Present [contented bear]
  5170. SwapLocations [burly troll] [phony troll] ;troll is nowhere to be seen
  5171. PrintMessage [bear chases troll]
  5172. TurnFlagON [troll eliminated]
  5173. TurnFlagOFF [bear following]
  5174. PlusScore 10
  5175. DoneWithTurn
  5176. END_COMMAND
  5177.  
  5178. COMMAND RELEASE BEAR
  5179. TurnFlagOFF [bear following]
  5180. PrintMessage [The bear gives you an affectionate lick]
  5181. END_COMMAND
  5182.  
  5183. MESSAGE [The bear gives you an affectionate lick]
  5184. The bear gives you an affectionate lick on the hand (UGH!) and then wanders
  5185. off to the far end of the room.
  5186. END_MESSAGE
  5187.  
  5188. COMMAND RELEASE BIRD
  5189. Present [caged bird]
  5190. InRoom [green snake]
  5191. SwapLocations [wicker cage] [caged bird]
  5192. PutInCurrentRoom [little bird]
  5193. PrintMessage [you release bird]
  5194. Destroy [green snake]
  5195. PrintMessage [bird attacks snake]
  5196. PlusScore 10
  5197. DoneWithTurn
  5198. END_COMMAND
  5199.  
  5200. COMMAND RELEASE BIRD
  5201. Present [caged bird]
  5202. InRoom [green dragon]
  5203. SwapLocations [wicker cage] [caged bird]
  5204. Destroy [little bird]
  5205. PrintMessage [dragon fries bird]
  5206. DoneWithTurn
  5207. END_COMMAND
  5208.  
  5209. COMMAND RELEASE BIRD
  5210. Present [caged bird]
  5211. InRoom [horny toad]
  5212. SwapLocations [wicker cage] [caged bird]
  5213. Destroy [little bird]
  5214. PrintMessage [toad eats bird]
  5215. DoneWithTurn
  5216. END_COMMAND
  5217.  
  5218. MESSAGE [toad eats bird]
  5219. The little bird attacks the toad with an astounding flurry of flying claws and
  5220. angry pecks of its sharp beak.  The toad sits stoically throughout the attack.
  5221. Finally, the toad opens it mouth and engulfs the bird.  Its mouth moves a
  5222. couple of times and then the toad emits a loud "belch ... rib-bit!"
  5223. END_MESSAGE
  5224.  
  5225. COMMAND RELEASE ANY
  5226. PrintMessage [I'm game]
  5227. DoneWithTurn
  5228. END_COMMAND
  5229.  
  5230. ;DRINK
  5231.  
  5232. COMMAND DRINK WATER FROM PITCHER
  5233. Present [stone pitcher - with water in it]
  5234. SwapLocations [stone pitcher - with water in it] [stone pitcher]
  5235. PrintMessage [it was delicious]
  5236. TurnFlagOFF [Pitcher has water in it]
  5237. DoneWithTurn
  5238. END_COMMAND
  5239.  
  5240. COMMAND DRINK WATER FROM PITCHER
  5241. IsLocated [beautiful rose] [stone pitcher - with water in it]
  5242. Present [stone pitcher - with water in it]
  5243. SwapLocations [stone pitcher - with water in it] [stone pitcher]
  5244. Destroy [beautiful rose]
  5245. PrintMessage [it was delicious]
  5246. BlankLine
  5247. PrintMessage [The rose disintegrates and disappears!]
  5248. TurnFlagOFF [Pitcher has water in it]
  5249. DoneWithTurn
  5250. END_COMMAND
  5251.  
  5252. MESSAGE [The rose disintegrates and disappears!]
  5253. As you drink the last of the water from the pitcher, the rose begins to
  5254. shrivel up!  It's, It's...dying!  The petals fall off and are blown away in
  5255. the wind.  The rose disintegrates and disappears!  You murder!
  5256. END_MESSAGE
  5257.  
  5258. COMMAND DRINK WATER FROM BOTTLE
  5259. Present [water bottle]
  5260. PrintMessage [it was delicious]
  5261. PrintMessage [bottle now empty]
  5262. SwapLocations [empty bottle] [water bottle]
  5263. TurnFlagOFF [bottle full]
  5264. DoneWithTurn
  5265. END_COMMAND
  5266.  
  5267. COMMAND DRINK
  5268. AtLocation [on the beach]
  5269. PrintMessage [SALT.H20.BAD]
  5270. DoneWithTurn
  5271. END_COMMAND
  5272.  
  5273. COMMAND DRINK
  5274. FlagON [Water here]
  5275. PrintMessage [You have taken a drink from the stream]
  5276. DoneWithTurn
  5277. END_COMMAND
  5278.  
  5279. MESSAGE [You have taken a drink from the stream]
  5280. You have taken a drink from the stream.  The water tastes strongly of
  5281. minerals, but is not unpleasant.  It is extremely cold.
  5282. END_MESSAGE
  5283.  
  5284. COMMAND DRINK WATER
  5285. Present [water bottle]
  5286. PrintMessage [it was delicious]
  5287. PrintMessage [bottle now empty]
  5288. SwapLocations [empty bottle] [water bottle]
  5289. TurnFlagOFF [bottle full]
  5290. DoneWithTurn
  5291. END_COMMAND
  5292.  
  5293. COMMAND DRINK ANY
  5294. PrintMessage [don't be ridiculous]
  5295. DoneWithTurn
  5296. END_COMMAND
  5297.  
  5298. ;SAY GO CRAWL RUN
  5299.  
  5300. COMMAND GO DUCT
  5301. AtLocation [air-conditioned room]
  5302. Present [air-conditioning grate]
  5303. GoToRoom [At Turn In Duct]
  5304. DoneWithTurn
  5305. END_COMMAND
  5306.  
  5307. COMMAND GO COFFIN
  5308. InRoom [open coffin]
  5309. GoToRoom [R28  Cavern]
  5310. PrintMessage [You climb down the steps in the open coffin]
  5311. DoneWithTurn
  5312. END_COMMAND
  5313.  
  5314. MESSAGE [You climb down the steps in the open coffin]
  5315. You climb down the steps in the open coffin to the room below.
  5316. END_MESSAGE
  5317.  
  5318. COMMAND GO LEDGE
  5319. PrintMessage [Sorry, you can't do that]
  5320. DoneWithTurn (* no further action -- get next input *)
  5321. END_COMMAND
  5322.  
  5323. MESSAGE [Sorry, you can't do that]
  5324. What a great idea!  You must have played this game before, but unfortunately
  5325. you can't do that now.  It is still a good idea and you may wish to try it
  5326. some other time.  But now it is impossible.
  5327. END_MESSAGE
  5328.  
  5329. ; SAY TIME
  5330.  
  5331. COMMAND SAY TIME
  5332. FlagOFF [Is PM time?]
  5333. VariableLT [minutes] 10
  5334. PrintMessage [The time is ... AM  M122]
  5335. DoneWithTurn
  5336. END_COMMAND
  5337.  
  5338. COMMAND SAY TIME
  5339. FlagOFF [Is PM time?]
  5340. PrintMessage [The time is ... AM  M120]
  5341. DoneWithTurn
  5342. END_COMMAND
  5343.  
  5344. COMMAND SAY TIME
  5345. FlagON [Is PM time?]
  5346. VariableLT [minutes] 10
  5347. PrintMessage [The time is ... PM  M123]
  5348. DoneWithTurn
  5349. END_COMMAND
  5350.  
  5351. COMMAND SAY TIME
  5352. FlagON [Is PM time?]
  5353. PrintMessage [The time is ... PM  M121]
  5354. DoneWithTurn
  5355. END_COMMAND
  5356.  
  5357. COMMAND SAY
  5358. PrintMessage "Go ahead, just spit it out!  There is no need to say '$verb$'!"
  5359. DoneWithTurn
  5360. END_COMMAND
  5361.  
  5362. ;QWERTY -- ask question and set status
  5363.  
  5364. COMMAND QWERTY
  5365. BlankLine
  5366. PrintMessage [Prove it!]
  5367. AskQuestion [Are you a wizard?]
  5368. TurnFlagON [temp flag]
  5369. BlankLine
  5370. AnswerIsCorrect
  5371. TurnFlagOFF [temp flag]
  5372. PrintMessage [OK -- you are a wizard]
  5373. TurnFlagON [Player is wizard]
  5374. DoneWithTurn
  5375. END_COMMAND
  5376.  
  5377. COMMAND QWERTY
  5378. FlagON [temp flag]
  5379. TurnFlagOFF [temp flag]
  5380. PrintMessage "You are not a real wizard!"
  5381. DoneWithTurn
  5382. END_COMMAND
  5383.  
  5384. MESSAGE [Prove it!]
  5385. You have entered the magic word "$VERB$", so you must be a wizard.  However,
  5386. you must prove you are really a wizard by answering the following question:
  5387. END_MESSAGE
  5388.  
  5389. QUESTION [Are you a wizard?] What is the best text adventure game development system?
  5390.  
  5391. ANSWER [Are you a wizard?] AGT
  5392.  
  5393. MESSAGE [OK -- you are a wizard]
  5394. You really are a wizard!  From now on, your lamp will shine without using up
  5395. its batteries, the dwarves will no longer dare to confront you, and you will
  5396. no longer be subject to "random" deaths.  Lucky you!
  5397. END_MESSAGE
  5398.  
  5399. ;OPEN
  5400.  
  5401. COMMAND OPEN MAGAZINE
  5402. Present [spelunker magazine]
  5403. PrintMessage
  5404. SECRET WORD #7 -- NECROMANCY (n) black magic; dealing with the dead.
  5405. End_Message
  5406. BlankLine
  5407. DoneWithTurn
  5408. END_COMMAND
  5409.  
  5410. COMMAND OPEN CLOCK
  5411. Present [clock]
  5412. PrintMessage "SECRET WORD #2 -- CUPIDITY (n) greed."
  5413. BlankLine
  5414. PrintMessage "You can't get the clock open.  However, you notice the time ..."
  5415. BlankLine
  5416. ReDirectTo SAY TIME
  5417. END_COMMAND
  5418.  
  5419. COMMAND OPEN COFFIN
  5420. InRoom [N242  closed coffin] (* closed coffin *)
  5421. SwapLocations [N242  closed coffin] [open coffin]
  5422. PrintMessage [You open coffin]
  5423. ChangePassageway [Down] [R28  Cavern]
  5424. DoneWithTurn (* no further action -- get next input *)
  5425. END_COMMAND
  5426.  
  5427. MESSAGE [You open coffin]
  5428. You manage to slide the coffin lid off and discover a stairway inside the
  5429. coffin leading down into the darkness below.
  5430. END_MESSAGE
  5431.  
  5432. COMMAND OPEN DESK
  5433. Present [oak desk] (* Witt's desk is here *)
  5434. NOUNIsNumber [oak desk] (* Witt's desk was specified in input *)
  5435. IsLocked [oak desk] (* Witt's desk is locked *)
  5436. PrintMessage [Sorry, but the $adjective$ $noun$ is locked]
  5437. DoneWithTurn
  5438. END_COMMAND
  5439.  
  5440. COMMAND OPEN DUCT
  5441. Present [air-conditioning duct]
  5442. PrintMessage [You remove grate and enter duct]
  5443. BlankLine
  5444. GoToRoom [At Turn In Duct]
  5445. PlusScore 10
  5446. SwapLocations [air-conditioning duct] [air-conditioning grate]
  5447. DoneWithTurn
  5448. END_COMMAND
  5449.  
  5450. COMMAND OPEN SAFE
  5451.  Present [unlocked vault]                       <-- vault ready to be opened
  5452.  FlagOFF [vault points earned]  ; player has not earned points yet
  5453.  TurnFlagON [vault points earned]  ; player has now earned 15 points
  5454.  PlusScore 15
  5455. END_COMMAND
  5456.  
  5457. COMMAND OPEN SAFE
  5458.  Present [unlocked vault]                       <-- vault ready to be opened
  5459.  SwapLocations [unlocked vault] [open vault]    <-- so do it
  5460.  PrintMessage [door swings open]                <-- and tell `em
  5461.  TurnFlagON [temporary]                         <-- turn temporary flag on
  5462.  SomethingInside [open vault]                   <-- if true
  5463.  TurnFlagOFF [temporary]                        <-- turn temporary flag off
  5464.  ShowContents [open vault]                      <-- and show `em what's there
  5465.  DoneWithTurn
  5466. END_COMMAND
  5467.  
  5468. COMMAND OPEN SAFE
  5469.  Present [open vault]                   <-- open vault is here
  5470.  FlagON [temporary]                     <-- program fell thru from above
  5471.  NOT SomethingInside [open vault]       <-- verify that vault is really empty
  5472.  PrintMessage "Nothing!  The safe is empty!"
  5473.  TurnFlagOFF [temporary]                <-- now turn temporary flag off
  5474.  DoneWithTurn
  5475. END_COMMAND
  5476.  
  5477. COMMAND OPEN SAFE
  5478.  Present [open vault]
  5479.  PrintMessage [ALREADY.OPEN]
  5480.  DoneWithTurn
  5481. END_COMMAND
  5482.  
  5483. MESSAGE [door swings open]
  5484. You pull the handle with all your strength and the large door slowly swings
  5485. open revealing the contents of the safe.
  5486.  
  5487. You see.....
  5488. END_MESSAGE
  5489.  
  5490. COMMAND OPEN GATE
  5491. AtLocation [Gates of Hell]
  5492. PrintMessage "You try unsuccessfully to open the gate, but it is locked."
  5493. DoneWithTurn
  5494. END_COMMAND
  5495.  
  5496. COMMAND OPEN VIAL
  5497. Present [vial of oily liquid]
  5498. ReDirectTo BREAK VIAL
  5499. END_COMMAND
  5500.  
  5501. COMMAND OPEN FLASK
  5502. AtLocation [pentagram room]
  5503. InRoom [earthenware flask - sealed]
  5504. DropIt [earthenware flask - empty]
  5505. SendToRoom [twelve-foot djinn] [pentagram room]
  5506. Destroy [earthenware flask - sealed]
  5507. PrintMessage [POLITE.DJINN]
  5508. PlusScore 15
  5509. DoneWithTurn
  5510. END_COMMAND
  5511.  
  5512. COMMAND OPEN FLASK
  5513. Present [earthenware flask - closed]
  5514. DropIt [earthenware flask - empty]
  5515. Destroy [earthenware flask - closed]
  5516. PrintMessage [RUDE.DJINN]
  5517. PlusScore 5
  5518. DoneWithTurn
  5519. END_COMMAND
  5520.  
  5521. COMMAND OPEN FLASK
  5522. Present [earthenware flask - empty]
  5523. PrintMessage [ALREADY.OPEN]
  5524. DoneWithTurn
  5525. END_COMMAND
  5526.  
  5527. COMMAND OPEN PENTAGRAM
  5528. AtLocation [pentagram room]
  5529. Present [twelve-foot djinn]
  5530. PrintMessage [DJINN.ADVICE]
  5531. TurnFlagON [Djinn has been freed]
  5532. SendToRoom [twelve-foot djinn] [nowhere]
  5533. DoneWithTurn
  5534. END_COMMAND
  5535.  
  5536. COMMAND OPEN PENTAGRAM
  5537. AtLocation [pentagram room]
  5538. NOT Present [twelve-foot djinn]
  5539. PrintMessage [EMPTY.PENTA]
  5540. DoneWithTurn
  5541. END_COMMAND
  5542.  
  5543. MESSAGE [POLITE.DJINN]
  5544. The wax seal breaks away easily.  A cloud of dark smoke pours up from the
  5545. mouth of the flask and condenses into the form of a twelve-foot Djinn standing
  5546. in the pentagram.  He pushes experimentally at the magical wall of the
  5547. pentagram (which holds), and nods politely to you.  "MY THANKS, OH MORTAL," he
  5548. says in an incredibly deep bass voice.  "IT HAS BEEN THREE THOUSAND YEARS
  5549. SINCE SOLOMON SEALED ME INTO THAT BOTTLE, AND I AM GRATEFUL THAT YOU HAVE
  5550. RELEASED ME.  IF YOU WILL OPEN THIS PENTAGRAM AND LET ME GO FREE, I WILL GIVE
  5551. YOU SOME ADVICE THAT YOU MAY ONE DAY WISH TO POSSESS."
  5552. END_MESSAGE
  5553.  
  5554. MESSAGE [RUDE.DJINN]
  5555. The flask's wax seal crumbles at your touch.  A large cloud of black smoke
  5556. pours out, solidifying into the form of a twelve-foot Djinn. "AT LAST!" he
  5557. says in an earth-shaking voice, "I KNEW THAT SOMEDAY SOMEONE WOULD RELEASE ME!
  5558. I WOULD REWARD YOU FOR THIS, MORTAL, BUT IT HAS BEEN THREE THOUSAND YEARS
  5559. SINCE I HAD A SOLID MEAL, AND I'M NOT GOING TO STAND HERE CHATTERING WHEN I
  5560. COULD BE EXIT EATING A SIX-INCH SIRLOIN STEAK.  FAREWELL."  With that, he
  5561. somewhat rudely explodes back into smoke and drifts quickly out of sight.
  5562. END_MESSAGE
  5563.  
  5564. MESSAGE [DJINN.ADVICE]
  5565. The pentagram's magical barrier sparks fitfully and goes down.  The Djinn
  5566. stretches gratefully and smiles at you.  "AGAIN, MY THANKS," he says.  "MY
  5567. ADVICE TO YOU WILL TAKE THE FORM OF A HISTORY LESSON. WHEN RALPH WITT, THE
  5568. ARCHITECT AND CONSTRUCTOR OF THIS CAVE, WAS VERY YOUNG, HE BECAME VERY
  5569. INCENSED THAT HIS NAME WAS AT THE END OF THE ALPHABET.  HE FELT (FOR SOME
  5570. REASON) THAT THE LETTER W BELONGED NEAR THE BEGINNING OF THE ALPHABET, AND
  5571. THAT ALL OF THOSE "UPSTART LETTERS WHICH UNFAIRLY USURPED THE BEST ROOMS"
  5572. SHOULD BE FORCED INTO EXILE AT THE END OF THE ALPHABET.  HIS INSTINCT FOR
  5573. MATTERS MAGICAL AND MYSTICAL LED HIM TO APPLY THIS STRANGE BELIEF INTO THE
  5574. CAVE'S STRUCTURE WHEN HE EXCAVATED IT.  YOU HAVEN'T YET BEEN AFFECTED BY HIS
  5575. STRANGE HABITS, BUT YOU SHOULD REMEMBER THIS.  FAREWELL, AND GOOD LUCK."  With
  5576. that, the Djinn evaporates into a cloud of smoke and drifts rapidly away.
  5577. END_MESSAGE
  5578.  
  5579. MESSAGE [EMPTY.PENTA]
  5580. The pentagram is empty - there's nothing to let out!
  5581. END_MESSAGE
  5582.  
  5583. COMMAND OPEN SAFE
  5584. Present [walk-in safe - closed]
  5585. PrintMessage [NO.KEYHOLE]
  5586. DoneWithTurn
  5587. END_COMMAND
  5588.  
  5589. COMMAND OPEN SAFE
  5590. Present [walk-in safe - open]
  5591. PrintMessage [ALREADY.OPEN]
  5592. DoneWithTurn
  5593. END_COMMAND
  5594.  
  5595. COMMAND OPEN SAFE
  5596. Present [walk-in safe - fused shut]
  5597. PrintMessage [IT.IS.MELTED]
  5598. DoneWithTurn
  5599. END_COMMAND
  5600.  
  5601. COMMAND OPEN CLAM
  5602. IsCarrying [giant clam]
  5603. PrintMessage "I advise you to put down the clam before opening it. >STRAIN!<"
  5604. DoneWithTurn
  5605. END_COMMAND
  5606.  
  5607. COMMAND OPEN CLAM
  5608. NOT present [jeweled trident]
  5609. Present [giant clam]
  5610. PrintMessage "You don't have anything strong enough to open the clam."
  5611. DoneWithTurn
  5612. END_COMMAND
  5613.  
  5614. COMMAND OPEN CLAM
  5615. present [jeweled trident]
  5616. InRoom [giant clam]
  5617. PrintMessage [A glistening pearl falls out of the clam]
  5618. SwapLocations [giant clam] [giant oyster]
  5619. SendToRoom [glistening pearl] [cul-de-sac]
  5620. PlusScore 15
  5621. DoneWithTurn
  5622. END_COMMAND
  5623.  
  5624. MESSAGE [A glistening pearl falls out of the clam]
  5625. A glistening pearl falls out of the clam and rolls away.  Goodness, this must
  5626. really be an oyster.  (I never was very good at identifying bivalves.)
  5627. Whatever it is, it has now snapped shut again.
  5628. END_MESSAGE
  5629.  
  5630. COMMAND OPEN OYSTER
  5631. IsCarrying [giant oyster]
  5632. PrintMessage "I advise you to put down the oyster before opening it.  >WRENCH!<"
  5633. DoneWithTurn
  5634. END_COMMAND
  5635.  
  5636. COMMAND OPEN OYSTER
  5637. NOT present [jeweled trident]
  5638. Present [giant oyster]
  5639. PrintMessage "You don't have anything strong enough to open the oyster."
  5640. DoneWithTurn
  5641. END_COMMAND
  5642.  
  5643. COMMAND OPEN OYSTER
  5644. present [jeweled trident]
  5645. InRoom [giant oyster]
  5646. PrintMessage [The oyster creaks open]
  5647. DoneWithTurn
  5648. END_COMMAND
  5649.  
  5650. MESSAGE [The oyster creaks open]
  5651. The oyster creaks open, revealing nothing but oyster inside.  It promptly
  5652. snaps shut again.
  5653. END_MESSAGE
  5654.  
  5655. COMMAND OPEN DOOR
  5656. InRoom [open door]
  5657. PrintMessage [Give the COMMAND NORTH]
  5658. DoneWithTurn
  5659. END_COMMAND
  5660.  
  5661. MESSAGE [Give the COMMAND NORTH]
  5662. The door is already open and you can go through it by giving the COMMAND
  5663. "NORTH".
  5664. END_MESSAGE
  5665.  
  5666. COMMAND OPEN DOOR
  5667. InRoom [rusty door]
  5668. PrintMessage [too rusty to open]
  5669. DoneWithTurn
  5670. END_COMMAND
  5671.  
  5672. COMMAND OPEN CAGE
  5673. Present [caged bird]
  5674. InRoom [green snake]
  5675. PutInCurrentRoom [little bird]
  5676. SwapLocations [wicker cage] [caged bird]
  5677. Destroy [green snake]
  5678. PrintMessage [bird attacks snake]
  5679. PlusScore 10
  5680. DoneWithTurn
  5681. END_COMMAND
  5682.  
  5683. COMMAND OPEN CAGE
  5684. Present [caged bird]
  5685. InRoom [green dragon]
  5686. SwapLocations [wicker cage] [caged bird]
  5687. Destroy [little bird]
  5688. PrintMessage [dragon fries bird]
  5689. DoneWithTurn
  5690. END_COMMAND
  5691.  
  5692. COMMAND OPEN CAGE
  5693. Present [caged bird]
  5694. InRoom [horny toad]
  5695. SwapLocations [wicker cage] [caged bird]
  5696. Destroy [little bird]
  5697. PrintMessage [toad eats bird]
  5698. DoneWithTurn
  5699. END_COMMAND
  5700.  
  5701. COMMAND OPEN CAGE
  5702. Present [caged bird]
  5703. SwapLocations [wicker cage] [caged bird]
  5704. PutInCurrentRoom [little bird]
  5705. PrintMessage [you release bird]
  5706. DoneWithTurn
  5707. END_COMMAND
  5708.  
  5709. COMMAND OPEN CAGE
  5710. Present [wicker cage]
  5711. PrintMessage "The cage door is broken and it wont close properly.  It is now open."
  5712. DoneWithTurn
  5713. END_COMMAND
  5714.  
  5715. ;PULL
  5716.  
  5717. COMMAND PULL ROPE
  5718. FlagOFF [Has rung the church bells]
  5719. AtLocation [R641  Bell Room]
  5720. OR
  5721. AtLocation [R645  Bells!  Bells!  Room]
  5722. PlusScore 10 ; give 10 points for ringing church bells
  5723. TurnFlagON [Has rung the church bells]
  5724. END_COMMAND
  5725.  
  5726. COMMAND PULL ROPE
  5727. AtLocation [R641  Bell Room]
  5728. OR
  5729. AtLocation [R645  Bells!  Bells!  Room]
  5730. PrintMessage [Later Bell Ring]
  5731. DoneWithTurn
  5732. END_COMMAND
  5733.  
  5734. COMMAND PULL HANDLE
  5735. Present [unlocked vault]                 <-- vault ready to be opened
  5736. ReDirectTo OPEN SAFE
  5737. END_COMMAND
  5738.  
  5739. ;CLOSE
  5740.  
  5741. COMMAND CLOSE COFFIN
  5742. InRoom [open coffin]
  5743. SwapLocations [N242  closed coffin] [open coffin]
  5744. PrintMessage [You close coffin]
  5745. ChangePassageway [Down] [NoWhere]
  5746. DoneWithTurn (* no further action -- get next input *)
  5747. END_COMMAND
  5748.  
  5749. MESSAGE [You close coffin]
  5750. With a great deal of huffing and puffing, you manage to slide the coffin lid
  5751. back on to the coffin.
  5752. END_MESSAGE
  5753.  
  5754. COMMAND CLOSE SAFE
  5755.  Present [locked vault]
  5756.   OR
  5757.  Present [unlocked vault]
  5758.  PrintMessage [ALREADY.SHUT]
  5759.  DoneWithTurn
  5760. END_COMMAND
  5761.  
  5762. COMMAND CLOSE SAFE
  5763.  Present [open vault]
  5764.  SwapLocations [open vault] [unlocked vault]
  5765.  PrintMessage "You swing the heavy safe door closed!"
  5766.  DoneWithTurn
  5767. END_COMMAND
  5768.  
  5769. COMMAND CLOSE FLASK
  5770. Present [earthenware flask - closed]
  5771. PrintMessage [ALREADY.SHUT]
  5772. DoneWithTurn
  5773. END_COMMAND
  5774.  
  5775. COMMAND CLOSE FLASK
  5776. Present [earthenware flask - empty]
  5777. OR
  5778. Present [earthenware flask - sealed]
  5779. PrintMessage [DONT.KNOW.HOW]
  5780. DoneWithTurn
  5781. END_COMMAND
  5782.  
  5783. MESSAGE [ALREADY.OPEN]
  5784. The $noun$ is already open!
  5785. END_MESSAGE
  5786.  
  5787. MESSAGE [ALREADY.SHUT]
  5788. The $noun$ is already closed!
  5789. END_MESSAGE
  5790.  
  5791. MESSAGE [DONT.KNOW.HOW]
  5792. Sorry, but I don't know how to $verb$ the $noun$!
  5793. END_MESSAGE
  5794.  
  5795. COMMAND CLOSE SAFE
  5796. Present [walk-in safe - open]
  5797. SwapLocations [walk-in safe - open] [walk-in safe - closed]
  5798. SetVariableTo [Status of Safe] 0 ; safe is now closed
  5799. PrintMessage [SAFE.SHUTS]
  5800. DoneWithTurn
  5801. END_COMMAND
  5802.  
  5803. COMMAND CLOSE SAFE
  5804. AtLocation [in the safe]
  5805. PrintMessage [NO.HANDLE]
  5806. DoneWithTurn
  5807. END_COMMAND
  5808.  
  5809. MESSAGE [NO.HANDLE]
  5810. There is no handle on the inside of the safe door, nor any other way to get a
  5811. grip on it.  You'll have to leave the safe before shutting it.
  5812. END_MESSAGE
  5813.  
  5814. COMMAND CLOSE SAFE
  5815. Present [walk-in safe - closed]
  5816. PrintMessage [ALREADY.SHUT]
  5817. DoneWithTurn
  5818. END_COMMAND
  5819.  
  5820. COMMAND CLOSE CAGE
  5821. Present [wicker cage]
  5822. PrintMessage "You close the cage door, but the latch is broken and it pops open again."
  5823. DoneWithTurn
  5824. END_COMMAND
  5825.  
  5826. ;WATER/OIL
  5827.  
  5828. COMMAND OIL
  5829. ReDirectTo POUR OIL
  5830. END_COMMAND
  5831.  
  5832. COMMAND WATER ANY
  5833. InRoom [gigantic beanstalk]
  5834. OR
  5835. InRoom [12' beanstalk]
  5836. OR
  5837. InRoom [tiny plant]
  5838. ReDirectTo POUR WATER
  5839. END_COMMAND
  5840.  
  5841. COMMAND WATER ANY
  5842. Present [stone pitcher - with water in it]
  5843. ReDirectTo POUR WATER
  5844. END_COMMAND
  5845.  
  5846. COMMAND WATER ANY
  5847. Present [water bottle]
  5848. SwapLocations [water bottle] [empty bottle]
  5849. PrintMessage [bottle empty, ground wet]
  5850. PrintMessage [feet now wet]
  5851. TurnFlagOFF [bottle full]
  5852. DoneWithTurn
  5853. END_COMMAND
  5854.  
  5855. COMMAND WATER ANY
  5856. PrintMessage [can't be serious]
  5857. DoneWithTurn
  5858. END_COMMAND
  5859.  
  5860. #COMMENT -- OOPS
  5861.  
  5862. COMMAND OOPS
  5863. PrintMessage [What do you mean 'OOPS'?]
  5864. DoneWithTurn
  5865. END_COMMAND
  5866.  
  5867. MESSAGE [What do you mean 'OOPS'?]
  5868. What do you mean 'OOPS'?.  Can't you type and/or spell?  Perhaps, you should
  5869. stick to those wimpy graphic adventures!
  5870. END_MESSAGE
  5871.  
  5872.  
  5873. ;LOCK
  5874.  
  5875. COMMAND LOCK SAFE
  5876.  Present [locked vault]
  5877.  PrintMessage [already locked]
  5878.  DoneWithTurn
  5879. END_COMMAND
  5880.  
  5881. COMMAND LOCK SAFE
  5882.  Present [open vault]
  5883.  PrintMessage "You have to close it before you can lock it!"
  5884.  DoneWithTurn
  5885. END_COMMAND
  5886.  
  5887. COMMAND LOCK SAFE
  5888.  FlagON [vault unlocked]                         <-- vault is still unlocked
  5889.  Present [unlocked vault]                        <-- unlocked vault is here
  5890.  SwapLocations [unlocked vault] [locked vault]   <-- get the locked vault
  5891.  PrintMessage [lock vault]                       <-- tell `em about it
  5892.  TurnFlagOFF [vault unlocked]                    <-- reset the mechanism
  5893.  DoneWithTurn
  5894. END_COMMAND
  5895.  
  5896. MESSAGE [lock vault]
  5897. You turn the handle counter clockwise, until it is again pointing at the dial,
  5898. and as you do the heavy rods slide into the frame with a very loud "CLICK"!
  5899. The safe is now locked.
  5900. END_MESSAGE
  5901.  
  5902. COMMAND LOCK ANY
  5903. NOT present [iron keys]
  5904. NOT present [gold key]
  5905. PrintMessage [have no keys]
  5906. DoneWithTurn
  5907. END_COMMAND
  5908.  
  5909. COMMAND LOCK CAGE
  5910. Present [wicker cage]
  5911. OR
  5912. Present [caged bird]
  5913. PrintMessage [has no lock]
  5914. DoneWithTurn
  5915. END_COMMAND
  5916.  
  5917. COMMAND LOCK KEYS
  5918. Present [iron keys]
  5919. OR
  5920. Present [gold key]
  5921. PrintMessage [You can't lock or unlock the keys]
  5922. DoneWithTurn
  5923. END_COMMAND
  5924.  
  5925. MESSAGE [You can't lock or unlock the keys]
  5926. You can't lock or unlock the keys.  You have to LOCK or UNLOCK something WITH
  5927. THE KEYS!
  5928. END_MESSAGE
  5929.  
  5930. COMMAND LOCK CHAIN
  5931. NOT AtLocation [barren room]
  5932. PrintMessage "There is nothing here to which the chain can be locked."
  5933. DoneWithTurn
  5934. END_COMMAND
  5935.  
  5936. COMMAND LOCK CHAIN
  5937. AtLocation [barren room]
  5938. Present [iron keys]
  5939. Present [chain locked to wall]
  5940. OR
  5941. Present [locked chain w/bear]
  5942. PrintMessage [already locked]
  5943. DoneWithTurn
  5944. END_COMMAND
  5945.  
  5946. COMMAND LOCK CHAIN
  5947. AtLocation [barren room]
  5948. Present [iron keys]
  5949. Present [golden chain]
  5950. Destroy [golden chain]
  5951. PutInCurrentRoom [chain locked to wall]
  5952. PrintMessage "OK.  The $noun$ is now locked!"
  5953. DoneWithTurn
  5954. END_COMMAND
  5955.  
  5956. COMMAND LOCK BEAR
  5957. NOT AtLocation [barren room]
  5958. PrintMessage "There is nothing here to which the bear can be locked."
  5959. DoneWithTurn
  5960. END_COMMAND
  5961.  
  5962. COMMAND LOCK BEAR
  5963. AtLocation [barren room]
  5964. Present [iron keys]
  5965. Present [locked chain w/bear]
  5966. PrintMessage [already locked]
  5967. DoneWithTurn
  5968. END_COMMAND
  5969.  
  5970. COMMAND LOCK BEAR
  5971. AtLocation [barren room]
  5972. Present [iron keys]
  5973. Present [golden chain]
  5974. Present [contented bear]
  5975. Destroy [golden chain]
  5976. Destroy [contented bear]
  5977. PutInCurrentRoom [locked chain w/bear]
  5978. PutInCurrentRoom [gentle bear]
  5979. PrintMessage "OK.  The bear is now locked to the wall with the chain."
  5980. DoneWithTurn
  5981. END_COMMAND
  5982.  
  5983. ;UNLOCK
  5984.  
  5985. COMMAND UNLOCK ANY WITH ANY
  5986. NOT present [iron keys]
  5987. NOT present [gold key]
  5988. PrintMessage [have no keys]
  5989. DoneWithTurn
  5990. END_COMMAND
  5991.  
  5992. COMMAND UNLOCK CAGE WITH ANY
  5993. Present [wicker cage]
  5994. OR
  5995. Present [caged bird]
  5996. PrintMessage [has no lock]
  5997. DoneWithTurn
  5998. END_COMMAND
  5999.  
  6000. COMMAND UNLOCK GRATE WITH ANY
  6001. FlagON [cave closed]
  6002. PrintMessage [this exit closed]
  6003. DoneWithTurn
  6004. END_COMMAND
  6005.  
  6006. COMMAND UNLOCK GRATE WITH ANY
  6007. FlagOFF [cave closed]
  6008. AtLocation [depression outside grate]
  6009. UnlockIt [iron grate]
  6010. PrintMessage "The grate is now unlocked and ready to open."
  6011. DoneWithTurn
  6012. END_COMMAND
  6013.  
  6014. COMMAND UNLOCK GRATE WITH ANY
  6015. FlagOFF [cave closed]
  6016. AtLocation [below grate]
  6017. PrintMessage [lock out of reach]
  6018. DoneWithTurn
  6019. END_COMMAND
  6020.  
  6021. MESSAGE [lock out of reach]
  6022. Unfortunately, the lock is one the other side of the grate and you can't reach
  6023. it from here.
  6024. END_MESSAGE
  6025.  
  6026. COMMAND UNLOCK ANY WITH ANY
  6027. InRoom [ferocious bear]
  6028. PrintMessage [can't get past bear]
  6029. DoneWithTurn
  6030. END_COMMAND
  6031.  
  6032. MESSAGE [can't get past bear]
  6033. There is no way to get past the bear to unlock the chain, which is probably
  6034. just as well.
  6035. END_MESSAGE
  6036.  
  6037. COMMAND UNLOCK BEAR WITH ANY
  6038. Present [contented bear]
  6039. PrintMessage [already unlocked]
  6040. DoneWithTurn
  6041. END_COMMAND
  6042.  
  6043. COMMAND UNLOCK ANY WITH ANY
  6044. Present [iron keys]
  6045. InRoom [gentle bear]
  6046. SwapLocations [gentle bear] [contented bear]
  6047. SwapLocations [locked chain w/bear] [chain locked to wall]
  6048. PrintMessage "The bear is now unlocked and is free to roam about the cave."
  6049. DoneWithTurn
  6050. END_COMMAND
  6051.  
  6052. COMMAND UNLOCK CHAIN WITH ANY
  6053. Present [golden chain]
  6054. PrintMessage [already unlocked]
  6055. DoneWithTurn
  6056. END_COMMAND
  6057.  
  6058. COMMAND UNLOCK CHAIN WITH ANY
  6059. Present [iron keys]
  6060. InRoom [chain locked to wall]
  6061. SwapLocations [chain locked to wall] [golden chain]
  6062. PrintMessage "OK.  The $noun$ is now unlocked!"
  6063. DoneWithTurn
  6064. END_COMMAND
  6065.  
  6066. ; PRAY
  6067.  
  6068. COMMAND PRAY
  6069. Present [burning candle]
  6070. FlagOFF [Has got points for prayer]
  6071. PrintMessage "Prayer is good for the soul.  You feel better, now."
  6072. TurnFlagON [Has got points for prayer]
  6073. PlusScore 15 ; points for praying in church with lit candle
  6074. DoneWithTurn
  6075. END_COMMAND
  6076.  
  6077. COMMAND PRAY
  6078. PrintMessage "You're going to need a lot of prayer before this adventure is over."
  6079. DoneWithTurn
  6080. END_COMMAND
  6081.  
  6082. ;LIGHT
  6083.  
  6084. COMMAND LIGHT LAMP
  6085. Present [OFF lamp]
  6086. Destroy [purple faint glow]
  6087. Destroy [red faint glow]
  6088. Destroy [green faint glow]
  6089. Destroy [black faint glow]
  6090. Destroy [yellow faint glow]
  6091. Destroy [orange faint glow]
  6092. Destroy [magenta faint glow]
  6093. Destroy [pink faint glow]
  6094. END_COMMAND
  6095.  
  6096. COMMAND LIGHT LAMP
  6097. Present [ON lamp]
  6098. PrintMessage [lamp now on]
  6099. DoneWithTurn
  6100. END_COMMAND
  6101.  
  6102. COMMAND LIGHT LAMP
  6103. NOT Present [OFF lamp]
  6104. PrintMessage "Sorry, but you have no source of light!"
  6105. DoneWithTurn
  6106. END_COMMAND
  6107.  
  6108. COMMAND LIGHT LAMP
  6109. Present [OFF lamp]
  6110. VariableGT [battery life] 0 ;batteries are not dead, yet
  6111. PrintMessage [lamp now on]
  6112. TurnFlagON [lamp lit]
  6113. SwapLocations [ON lamp] [OFF lamp]
  6114. DoneWithTurn
  6115. END_COMMAND
  6116.  
  6117. COMMAND LIGHT LAMP
  6118. Present [OFF lamp]
  6119. VariableEquals [battery life] 0 ;batteries are dead
  6120. PrintMessage [batteries are dead]
  6121. DoneWithTurn
  6122. END_COMMAND
  6123.  
  6124. MESSAGE [No more matches]
  6125. There are no more matches left.  Too bad!
  6126. END_MESSAGE
  6127.  
  6128. COMMAND LIGHT ANY
  6129. VariableEquals [matches left] 0
  6130. PrintMessage [No more matches]
  6131. DoneWithTurn
  6132. END_COMMAND
  6133.  
  6134. MESSAGE [That was your last match]
  6135. That was your last match.
  6136. END_MESSAGE
  6137.  
  6138. COMMAND LIGHT MATCH
  6139. Present [matches]
  6140. VariableGT [matches left] 0
  6141. PrintMessage "You strike a match which glows brightly and then goes out."
  6142. SubtractFromVariable [matches left] 1
  6143. VariableEquals [matches left] 0
  6144. PrintMessage [That was your last match]
  6145. Destroy [matches]
  6146. END_COMMAND
  6147.  
  6148. COMMAND LIGHT MATCH
  6149. DoneWithTurn
  6150. END_COMMAND
  6151.  
  6152. COMMAND LIGHT CANDLE
  6153. NOT Present [candles]
  6154. OR
  6155. VariableEquals [candles left] 0
  6156. PrintMessage "You know, that's impossible to do without candles."
  6157. DoneWithTurn
  6158. END_COMMAND
  6159.  
  6160. COMMAND LIGHT CANDLE
  6161. Present [matches]
  6162. Present [candles]
  6163. VariableGT [matches left] 0
  6164. VariableGT [candles left] 0
  6165. PrintMessage "You light the candle which burns brightly."
  6166. TurnCounterON [Candle Counter]
  6167. GetIt [burning candle] ; player is now carrying burning candle
  6168. SubtractFromVariable [matches left] 1
  6169. SubtractFromVariable [candles left] 1
  6170. VariableEquals [matches left] 0
  6171. PrintMessage [That was your last match]
  6172. Destroy [matches]
  6173. END_COMMAND
  6174.  
  6175. COMMAND LIGHT CANDLE
  6176. VariableEquals [candles left] 0
  6177. BlankLine
  6178. PrintMessage [Unfortunately, that was your last candle]
  6179. Destroy [candles]
  6180. END_COMMAND
  6181.  
  6182. MESSAGE [Unfortunately, that was your last candle]
  6183. Unfortunately, that was your last candle.
  6184. END_MESSAGE
  6185.  
  6186. COMMAND LIGHT CANDLE
  6187. DoneWithTurn
  6188. END_COMMAND
  6189.  
  6190. COMMAND LIGHT LEAVES
  6191. PrintMessage "A voice booms out, 'That would cause air pollution!!'"
  6192. DoneWithTurn
  6193. END_COMMAND
  6194.  
  6195. ;EXTINGUISH
  6196.  
  6197. COMMAND EXTINGUISH CANDLE
  6198. Present [burning candle]
  6199. TurnCounterOFF [Candle Counter]
  6200. PrintMessage "You blow out the candle."
  6201. BlankLine
  6202. Destroy [burning candle]
  6203. VariableEquals [candles left] 0
  6204. PrintMessage [Unfortunately, that was your last candle]
  6205. BlankLine
  6206. END_COMMAND
  6207.  
  6208. COMMAND EXTINGUISH CANDLE
  6209. DoneWithTurn
  6210. END_COMMAND
  6211.  
  6212. COMMAND EXTINGUISH LAMP
  6213. Present [ON lamp]
  6214. SendToRoom [purple faint glow] [purple foggy room]
  6215. SendToRoom [red faint glow] [red foggy room]
  6216. SendToRoom [green faint glow] [green foggy room]
  6217. SendToRoom [black faint glow] [black foggy room]
  6218. SendToRoom [yellow faint glow] [yellow foggy room]
  6219. SendToRoom [orange faint glow] [orange foggy room]
  6220. SendToRoom [magenta faint glow] [magenta foggy room]
  6221. SendToRoom [pink faint glow] [pink foggy room]
  6222. END_COMMAND
  6223.  
  6224. COMMAND EXTINGUISH LAMP
  6225. Present [OFF lamp]
  6226. PrintMessage [lamp now off]
  6227. DoneWithTurn
  6228. END_COMMAND
  6229.  
  6230. COMMAND EXTINGUISH LAMP
  6231. Present [ON lamp]
  6232. PrintMessage [lamp now off]
  6233. TurnFlagOFF [lamp lit]
  6234. SwapLocations [ON lamp] [OFF lamp]
  6235. DoneWithTurn
  6236. END_COMMAND
  6237.  
  6238. ;WAVE
  6239.  
  6240. COMMAND WAVE ROD
  6241. NOT IsCarrying [black rod]
  6242. PrintMessage [don't have the resources]
  6243. DoneWithTurn
  6244. END_COMMAND
  6245.  
  6246. #COMMENT
  6247. From the "breath-taking view", the player must wave the rod to cause the
  6248. wheatstone bridge to appear across the gorge.  Waving the rod again, will
  6249. cause the bridge to disappear.  Once the bridge spans the gorge, the player
  6250. can cross if he is carrying the ring and the bear in not following him.  If he
  6251. is not carrying the ring, he will be burned by the fumes from the volcano and
  6252. die.
  6253. #END_COMMENT
  6254.  
  6255. COMMAND WAVE ROD
  6256. Present [black rod]
  6257. IsNoWhere [wheatstone bridge 1]
  6258. AtLocation [breath-taking view]
  6259. OR
  6260. AtLocation [S end of Stone Faces]
  6261. PrintMessage [wheatstone bridge appears]
  6262. SendToRoom [wheatstone bridge 1] [breath-taking view]
  6263. SendToRoom [wheatstone bridge 2] [S end of Stone Faces]
  6264. DoneWithTurn
  6265. END_COMMAND
  6266.  
  6267. COMMAND WAVE ROD
  6268. Present [black rod]
  6269. IsSomeWhere [wheatstone bridge 1]
  6270. AtLocation [breath-taking view]
  6271. OR
  6272. AtLocation [S end of Stone Faces]
  6273. PrintMessage [wheatstone bridge disappears]
  6274. Destroy [wheatstone bridge 1]
  6275. Destroy [wheatstone bridge 2]
  6276. DoneWithTurn
  6277. END_COMMAND
  6278.  
  6279. MESSAGE [wheatstone bridge appears]
  6280. The earth begins to shudder violently, and smoke flows up from the gorge
  6281. beneath your feet.  With a violent >glop<, the volcano belches out an immense
  6282. blast of molten lava which flies into the air above the gorge and suddenly
  6283. solidifies into a fragile-looking arch of wheat-colored stone that bridges the
  6284. gorge.
  6285. END_MESSAGE
  6286.  
  6287. MESSAGE [wheatstone bridge disappears]
  6288. The earth shudders violently, and steam blasts upwards from the geyser. The
  6289. wheat-stone bridge cracks and splits, and the fragments fall into the gorge.
  6290. END_MESSAGE
  6291.  
  6292. #COMMENT
  6293. Player must wave rod while at "coral passage" or "bend in coral passage" to
  6294. get quicksand to harden.  If quicksand is not hard, then trying to pass
  6295. between these two locations will cause player to disappear into quicksand and
  6296. die.
  6297.  
  6298. After waving rod, quicksand will remain hard for only 5 turns, so player will
  6299. need to move across it quickly.
  6300.  
  6301. If the player is carrying either the giant clam or the giant oyster, he will
  6302. sink in the quicksand -- regardless of whether it is hard or not.
  6303. #END_COMMENT
  6304.  
  6305. COMMAND WAVE ROD
  6306. CounterGT [Quicksand is hard -- counter] 0
  6307. Present [black rod]
  6308. AtLocation [coral passage]
  6309. OR
  6310. AtLocation [bend in coral passage]
  6311. PrintMessage [Strange -- nothing happened!]
  6312. TurnCounterOFF [Quicksand is hard -- counter]
  6313. DoneWithTurn
  6314. END_COMMAND
  6315.  
  6316. COMMAND WAVE ROD
  6317. CounterEquals [Quicksand is hard -- counter] 0
  6318. Present [black rod]
  6319. AtLocation [coral passage]
  6320. OR
  6321. AtLocation [bend in coral passage]
  6322. PrintMessage [Strange -- nothing happened!]
  6323. TurnCounterON [Quicksand is hard -- counter]
  6324. DoneWithTurn
  6325. END_COMMAND
  6326.  
  6327. COMMAND WAVE ROD
  6328. Present [black rod]
  6329. FlagON [bridge exists]
  6330. AtLocation [east bank of fissure]
  6331. OR
  6332. AtLocation [west side of fissure]
  6333. TurnFlagOFF [bridge exists] ;crystal bridge now gone
  6334. PutInCurrentRoom [open fissure]
  6335. Destroy [crystal bridge]
  6336. Destroy [crystal bridge 2]
  6337. LookAtRoom
  6338. DoneWithTurn
  6339. END_COMMAND
  6340.  
  6341. COMMAND WAVE ROD
  6342. Present [black rod]
  6343. FlagOFF [bridge exists]
  6344. AtLocation [east bank of fissure]
  6345. OR
  6346. AtLocation [west side of fissure]
  6347. TurnFlagON [bridge exists] ;crystal bridge has suddenly appeared
  6348. SendToRoom [crystal bridge] [east bank of fissure]
  6349. SendToRoom [crystal bridge 2] [west side of fissure]
  6350. Destroy [open fissure]
  6351. LookAtRoom
  6352. DoneWithTurn
  6353. END_COMMAND
  6354.  
  6355. COMMAND WAVE FIGURE
  6356. InRoom [shadowy figure (right)]
  6357. OR
  6358. InRoom [shadowy figure (left)]
  6359. PrintMessage [You wave at figure]
  6360. DoneWithTurn
  6361. END_COMMAND
  6362.  
  6363. MESSAGE [You wave at figure]
  6364. You wave at the shadowy figure and it waves back at you.  The faster you wave,
  6365. the faster the figure waves.  Finally, you both stop as your arm gets tired.
  6366. END_MESSAGE
  6367.  
  6368. COMMAND WAVE ANY
  6369. PrintMessage [peculiar - nothing happens]
  6370. DoneWithTurn
  6371. END_COMMAND
  6372.  
  6373. ;ATTACK/HIT/CHOP/CUT
  6374.  
  6375. COMMAND CHOP TREE
  6376. Present [dwarf's axe]
  6377. Present [Large trees]
  6378. SwapLocations [Large trees] [Fallen tree]
  6379. PrintMessage "Timber!"
  6380. PlusScore 10
  6381. DoneWithTurn
  6382. END_COMMAND
  6383.  
  6384. MESSAGE [Rabbit beats you]
  6385. The rabbit is a quite a bit bigger and stronger than you are.  He easily
  6386. counters you attack by repeatedly beating you over the head with his cane
  6387. before you can do him any damage.
  6388. END_MESSAGE
  6389.  
  6390. COMMAND ATTACK RABBIT
  6391. Present [Gigantic Rabbit]
  6392. PrintMessage [Rabbit beats you]
  6393. DoneWithTurn
  6394. END_COMMAND
  6395.  
  6396. COMMAND ATTACK GONG
  6397. ReDirectTo RING GONG
  6398. DoneWithTurn
  6399. END_COMMAND
  6400.  
  6401. COMMAND ATTACK BIRD
  6402. Present [little bird]
  6403. OR
  6404. Present [caged bird]
  6405. PrintMessage "Oh, leave the poor unhappy bird alone."
  6406. DoneWithTurn
  6407. END_COMMAND
  6408.  
  6409. COMMAND ATTACK TOAD
  6410. Present [horny toad]
  6411. PrintMessage "Peace, brother!  Make love not war!"
  6412. DoneWithTurn
  6413. END_COMMAND
  6414.  
  6415. COMMAND ATTACK SNAKE
  6416. FlagON [snake toggle] ;second COMMAND about SNAKE
  6417. Present [green snake]
  6418. PrintMessage [snake hint]
  6419. TurnFlagOFF [snake toggle] ;toggle for real message next
  6420. DoneWithTurn
  6421. END_COMMAND
  6422.  
  6423. MESSAGE [snake hint]
  6424. You can't kill the snake, or drive it away, or avoid it, or anything like
  6425. that.  There is a way to get by, but you don't have the necessary resources
  6426. right now.
  6427. END_MESSAGE
  6428.  
  6429. COMMAND ATTACK SNAKE
  6430. FlagOFF [snake toggle] ;first COMMAND about SNAKE
  6431. TurnFlagON [snake toggle] ;toggle for hint next
  6432. Present [green snake]
  6433. PrintMessage [attacking snake is dangerous]
  6434. DoneWithTurn
  6435. END_COMMAND
  6436.  
  6437. COMMAND ATTACK ANY
  6438. NOT NOUNpresent 
  6439. PrintMessage [That's silly]
  6440. DoneWithTurn
  6441. END_COMMAND
  6442.  
  6443. MESSAGE [That's silly]
  6444. Attempting to $verb$ the $noun$ is rather silly, since the $noun$ isn't
  6445. even here!  Perhaps you should seek medical help of some kind.
  6446. END_MESSAGE
  6447.  
  6448. COMMAND ATTACK ANY WITH ROD
  6449. Present [black rod]
  6450. PrintMessage [not a good weapon]
  6451. DoneWithTurn
  6452. END_COMMAND
  6453.  
  6454. COMMAND ATTACK ANY WITH LAMP
  6455. Present [ON lamp]
  6456. OR 
  6457. Present [OFF lamp] ;lamp
  6458. PrintMessage [not a good weapon]
  6459. DoneWithTurn
  6460. END_COMMAND
  6461.  
  6462. COMMAND ATTACK ANY WITH TRIDENT
  6463. Present [jeweled trident]
  6464. PrintMessage [not a good weapon]
  6465. DoneWithTurn
  6466. END_COMMAND
  6467.  
  6468. COMMAND ATTACK ANY WITH BOTTLE
  6469. Present [water bottle]
  6470. OR 
  6471. Present [empty bottle]
  6472. OR 
  6473. Present [oil bottle]
  6474. PrintMessage [not a good weapon]
  6475. DoneWithTurn
  6476. END_COMMAND
  6477.  
  6478. COMMAND KILL DJINN
  6479. Present [twelve-foot djinn]
  6480. PrintMessage [TOUGH.DJINN]
  6481. DoneWithTurn
  6482. END_COMMAND
  6483.  
  6484. MESSAGE [TOUGH.DJINN]
  6485. That's not a wise thing to try - djinni are essentially immortal and thus are
  6486. pretty hard to hurt.  Besides, this one seems rather friendly - why don't you
  6487. just try releasing him?
  6488. END_MESSAGE
  6489.  
  6490. COMMAND ATTACK GOBLIN
  6491. Present [gooseberry goblins]
  6492. PrintMessage [KILL.GOBLINS]
  6493. GoToRoom [Dead]
  6494. KillPlayer
  6495. DoneWithTurn
  6496. END_MESSAGE
  6497.  
  6498. MESSAGE [KILL.GOBLINS]
  6499. You attack the goblins and manage to squash a few, but the others overwhelm
  6500. you, forcing you to the ground and ripping out your throat.
  6501. END_MESSAGE
  6502.  
  6503. COMMAND ATTACK ROVER
  6504. Present [Rover]
  6505. PrintMessage [BOUNCE.BLOB]
  6506. DoneWithTurn
  6507. END_COMMAND
  6508.  
  6509. MESSAGE [BOUNCE.BLOB]
  6510. You attack the strange blob, but bounce harmlessly off of its strong but very
  6511. rubbery skin.
  6512. END_MESSAGE
  6513.  
  6514. COMMAND ATTACK BASILISK
  6515. Present [basilisk - north]
  6516. OR
  6517. Present [basilisk - south]
  6518. PrintMessage [HIT.BASILISK]
  6519. GoToRoom [Dead]
  6520. KillPlayer
  6521. DoneWithTurn
  6522. END_COMMAND
  6523.  
  6524. MESSAGE [HIT.BASILISK]
  6525. You attack the basilisk mightily.  It instantly awakens and looks you dead in
  6526. the eye, and your body turns to solid rock.
  6527. END_MESSAGE
  6528.  
  6529. COMMAND ATTACK OGRE WITH AXE
  6530. Present [ogre blocking your path]
  6531. PrintMessage [OGRE.CATCH]
  6532. GoToRoom [Dead]
  6533. KillPlayer
  6534. DoneWithTurn
  6535. END_COMMAND
  6536.  
  6537. MESSAGE [OGRE.CATCH]
  6538. The ogre casually catches the $noun$ in mid-air, braces his feet, winds up
  6539. and throws the $noun$ straight back at you with incredible force.  You are
  6540. unable to dodge it and it chops you in half.
  6541. END_MESSAGE
  6542.  
  6543. COMMAND ATTACK OGRE WITH SWORD
  6544. Present [ogre blocking your path]
  6545. Present [singing sword]
  6546. PrintMessage [OGRE.KILLED]
  6547. SendToRoom [singing sword] [nowhere]
  6548. SendToRoom [ogre blocking your path] [nowhere]
  6549. PutInCurrentRoom [mithril ring]
  6550. PlusScore 15
  6551. DoneWithTurn
  6552. END_COMMAND
  6553.  
  6554. MESSAGE [OGRE.KILLED]
  6555. The sword halts in mid-air, twirls like a dervish, and chants several bars of
  6556. "Dies Ire" in a rough tenor voice.  It then begins to spin like a rip-saw
  6557. blade and flies directly at the ogre, who attempts to catch it without
  6558. success; it strikes him full on the chest.  There is a brilliant flash of
  6559. light, a deafening roar and a cloud of oily gray smoke; when the smoke clears
  6560. (and your eyes begin working properly again) you see that the ogre has
  6561. vanished.  The sword is lying on the ground, sparking and flaming.  Before
  6562. your eyes it softens and melts, writhes as if in pain, and shrinks rapidly
  6563. until all that is left is a small silvery ring which cools rapidly.
  6564. END_MESSAGE
  6565.  
  6566. COMMAND ATTACK OGRE
  6567. Present [ogre blocking your path]
  6568. TurnFlagON [armed] ;not using bare hands for attack
  6569. PrintMessage [with bare hands?]
  6570. PromptForYES
  6571. TurnFlagOFF [armed]
  6572. PrintMessage [You attack the ogre]
  6573. DoneWithTurn
  6574. END_COMMAND
  6575.  
  6576. MESSAGE [You attack the ogre]
  6577. You attack the ogre, but he fends off your attack easily and comes very close
  6578. to crushing your skull with *his* bare (but extremely strong) hands.  You are
  6579. forced to retreat in disgrace.
  6580. END_MESSAGE
  6581.  
  6582. COMMAND ATTACK OGRE
  6583. FlagON [armed] ;not using bare hands for attack
  6584. TurnFlagOFF [armed]
  6585. PrintMessage [OGRE.RIPS.HEAD.OFF]
  6586. GoToRoom [Dead]
  6587. KillPlayer
  6588. DoneWithTurn
  6589. END_COMMAND
  6590.  
  6591. MESSAGE [OGRE.RIPS.HEAD.OFF]
  6592. You attack the ogre - a brave but foolish action.  He quickly grabs you and
  6593. with a heave of his mighty arms rips your body limb from limb.
  6594. END_MESSAGE
  6595.  
  6596. COMMAND ATTACK TROLL WITH AXE
  6597. Present [dwarf's axe]
  6598. Present [burly troll] ;troll demanding money
  6599. PrintMessage [troll catches axe & throws it back]
  6600. DoneWithTurn
  6601. END_COMMAND
  6602.  
  6603. COMMAND ATTACK TROLL
  6604. Present [burly troll]
  6605. PrintMessage [You attack the troll]
  6606. DoneWithTurn
  6607. END_COMMAND
  6608.  
  6609. MESSAGE [You attack the troll]
  6610. Trolls are close relatives with the rocks and have skin as tough as that of a
  6611. rhinoceros.  The troll fends off your blows effortlessly.
  6612. END_MESSAGE
  6613.  
  6614. COMMAND ATTACK CLAM
  6615. Present [giant clam]
  6616. PrintMessage [shell too hard]
  6617. DoneWithTurn
  6618. END_COMMAND
  6619.  
  6620. COMMAND ATTACK OYSTER
  6621. Present [giant oyster]
  6622. PrintMessage [shell too hard]
  6623. DoneWithTurn
  6624. END_COMMAND
  6625.  
  6626. COMMAND ATTACK DWARF WITH SWORD
  6627. Present [singing sword]
  6628. Present [little dwarf]
  6629. OR
  6630. Present [threatening dwarf]
  6631. PrintMessage [you kill dwarf]
  6632. Destroy [little dwarf]
  6633. Destroy [threatening dwarf]
  6634. DoneWithTurn
  6635. END_COMMAND
  6636.  
  6637. COMMAND ATTACK DWARF WITH AXE
  6638. Present [dwarf's axe]
  6639. Present [little dwarf]
  6640. OR
  6641. Present [threatening dwarf]
  6642. PrintMessage [you kill dwarf]
  6643. Destroy [little dwarf]
  6644. Destroy [threatening dwarf]
  6645. DoneWithTurn
  6646. END_COMMAND
  6647.  
  6648. COMMAND ATTACK DWARF
  6649. Present [little dwarf]
  6650. OR
  6651. Present [threatening dwarf]
  6652. TurnFlagON [armed] ;not using bare hands for attack
  6653. PrintMessage [with bare hands?]
  6654. PromptForYES
  6655. TurnFlagOFF [armed]
  6656. BlankLine
  6657. PrintMessage [dwarf dodges]
  6658. DoneWithTurn
  6659. END_COMMAND
  6660.  
  6661. COMMAND ATTACK DWARF
  6662. FlagON [armed] ;not using bare hands for attack
  6663. TurnFlagOFF [armed]
  6664. BlankLine
  6665. PrintMessage "You killed a little dwarf."
  6666. Destroy [little dwarf]
  6667. Destroy [threatening dwarf]
  6668. DoneWithTurn
  6669. END_COMMAND
  6670.  
  6671. COMMAND ATTACK BEAR WITH AXE
  6672. Present [ferocious bear]
  6673. Present [dwarf's axe]
  6674. PrintMessage [axe misses & lands near bear]
  6675. PutInCurrentRoom [dwarf's axe]
  6676. DoneWithTurn
  6677. END_COMMAND
  6678.  
  6679. COMMAND ATTACK BEAR
  6680. Present [ferocious bear]
  6681. PrintMessage "With what?  Your bare hands?  Against his BEAR hands??"
  6682. PrintMessage [don't be ridiculous]
  6683. DoneWithTurn
  6684. END_COMMAND
  6685.  
  6686. COMMAND ATTACK BEAR
  6687. Present [contented bear]
  6688. OR
  6689. Present [gentle bear]
  6690. PrintMessage [don't be ridiculous]
  6691. PrintMessage "The bear is confused; he only wants to be your friend."
  6692. DoneWithTurn
  6693. END_COMMAND
  6694.  
  6695. COMMAND ATTACK BASILISK
  6696. Present [petrified basilisk - north]
  6697. OR
  6698. Present [petrified basilisk - south]
  6699. PrintMessage [For crying out loud, the poor thing is already dead!]
  6700. DoneWithTurn
  6701. END_COMMAND
  6702.  
  6703. COMMAND ATTACK DRAGON
  6704. Present [dead dragon]
  6705. PrintMessage [For crying out loud, the poor thing is already dead!]
  6706. DoneWithTurn
  6707. END_COMMAND
  6708.  
  6709. MESSAGE [For crying out loud, the poor thing is already dead!]
  6710. For crying out loud, the poor thing is already dead!
  6711. END_MESSAGE
  6712.  
  6713. COMMAND ATTACK DRAGON WITH AXE
  6714. Present [green dragon]
  6715. Present [dwarf's axe]
  6716. PrintMessage [axe bounces off dragon]
  6717. PutInCurrentRoom [dwarf's axe]
  6718. DoneWithTurn
  6719. END_COMMAND
  6720.  
  6721. COMMAND ATTACK DRAGON
  6722. Present [green dragon]
  6723. TurnFlagON [armed] ;not using bare hands for attack
  6724. PrintMessage [with bare hands?]
  6725. PromptForYES
  6726. TurnFlagOFF [armed]
  6727. BlankLine
  6728. PrintMessage [You attack the dragon]
  6729. SwapLocations [green dragon] [dead dragon]
  6730. SwapLocations [dragon on fake rug] [dragon's teeth]
  6731. PlusScore 10
  6732. DoneWithTurn
  6733. END_COMMAND
  6734.  
  6735. MESSAGE [You attack the dragon]
  6736. Congratulations!  You have just vanquished a dragon with your bare hands!
  6737. (Unbelievable, Isn't it?)
  6738. END_MESSAGE
  6739.  
  6740. COMMAND ATTACK DRAGON
  6741. FlagON [armed] ;not using bare hands for attack
  6742. TurnFlagOFF [armed]
  6743. BlankLine
  6744. PrintMessage [don't be ridiculous]
  6745. PrintMessage [better not]
  6746. DoneWithTurn
  6747. END_COMMAND
  6748.  
  6749. COMMAND ATTACK ANY
  6750. PrintMessage [don't be ridiculous]
  6751. DoneWithTurn
  6752. END_COMMAND
  6753.  
  6754. ;ABRACADABRA
  6755.  
  6756. COMMAND ABRACADABRA
  6757. PrintMessage "Good try, but $VERB$ is an old worn-out magic word."
  6758. DoneWithTurn
  6759. END_COMMAND
  6760.  
  6761. ;DIG/EXCAVATE
  6762.  
  6763. MESSAGE [Don't have the proper tool]
  6764. Digging without a shovel is quite impractical.  Even with a shovel progress is
  6765. unlikely.
  6766. END_MESSAGE
  6767.  
  6768. COMMAND DIG
  6769. NOT Present [Shovel]
  6770. PrintMessage [Don't have the proper tool]
  6771. DoneWithTurn
  6772. END_COMMAND
  6773.  
  6774. COMMAND DIG
  6775. AtLocation [on the beach]
  6776. Present [Large X]
  6777. SwapLocations [Large X] [Small Hole]
  6778. PrintMessage "You manage to dig a small hole where the X was."
  6779. DoneWithTurn
  6780. END_COMMAND
  6781.  
  6782. COMMAND DIG
  6783. AtLocation [on the beach]
  6784. Present [Small Hole]
  6785. SwapLocations [Large Hole] [Small Hole]
  6786. PrintMessage "The hole is now considerably bigger."
  6787. DoneWithTurn
  6788. END_COMMAND
  6789.  
  6790. COMMAND DIG
  6791. AtLocation [on the beach]
  6792. Present [Large Hole]
  6793. SwapLocations [Large Hole] [Gigantic Hole]
  6794. PrintMessage "The hole is now gigantic."
  6795. DoneWithTurn
  6796. END_COMMAND
  6797.  
  6798. MESSAGE [You slip down the sandy side of the hole]
  6799. The sandy is very unstable and you lose your footing and tumble head over
  6800. heels to the bottom of the hole.  You will never be able to climb back up
  6801. out of the hole.
  6802. END_MESSAGE
  6803.  
  6804. COMMAND DIG
  6805. AtLocation [on the beach]
  6806. Present [Gigantic Hole]
  6807. GoToRoom [Bottom of hole]
  6808. PrintMessage [You slip down the sandy side of the hole]
  6809. DoneWithTurn
  6810. END_COMMAND
  6811.  
  6812. MESSAGE [You break through]
  6813. You begin to dig furiously in the sand.  All of a sudden, your shovel breaks
  6814. through into empty space.  The sand crumbles around the sides of the hole and
  6815. you fall into the hole.  Fortunately, enough sand fell before you did to
  6816. cushion your fall as you land on a mound of sand.
  6817. END_MESSAGE
  6818.  
  6819. COMMAND DIG
  6820. AtLocation [Bottom of Hole]
  6821. GoToRoom [Shaft Room]
  6822. TurnFlagON [Has dug in bottom of hole]
  6823. PrintMessage [You break through]
  6824. PlusScore 10
  6825. DoneWithTurn
  6826. END_COMMAND
  6827.  
  6828. COMMAND DIG
  6829. NOT AtLocation [Bottom of Hole]
  6830. NOT AtLocation [on the beach]
  6831. PrintMessage "The ground is too hard to dig."
  6832. DoneWithTurn
  6833. END_COMMAND
  6834.  
  6835. ;WAKE/CALM
  6836.  
  6837. COMMAND WAKE
  6838. Present [basilisk - north]
  6839. OR
  6840. Present [basilisk - south]
  6841. PrintMessage [BAS.GRUMBLE]
  6842. DoneWithTurn
  6843. END_COMMAND
  6844.  
  6845. COMMAND CALM ANY
  6846. PrintMessage [I'm game]
  6847. DoneWithTurn
  6848. END_COMMAND
  6849.  
  6850. ;BREAK/BLAST/DYNAMITE 
  6851.  
  6852. COMMAND BREAK VIAL
  6853. Present [vial of oily liquid]
  6854. SendToRoom [vial of oily liquid] [nowhere]
  6855. PrintMessage [VIAL.BANG]
  6856. TurnFlagON [Vial has exploded]
  6857. END_COMMAND
  6858.  
  6859. COMMAND BREAK VIAL
  6860. FlagON [Vial has exploded]
  6861. Present [green slime]
  6862. PrintMessage [break vial on slime]
  6863. SendToRoom [green slime] [nowhere]
  6864. END_COMMAND
  6865.  
  6866. MESSAGE [break vial on slime]
  6867. The slime filling the passage to the south blackens and shrivels away into
  6868. nothingness.
  6869. END_MESSAGE
  6870.  
  6871. COMMAND BREAK VIAL
  6872. FlagON [Vial has exploded]
  6873. Present [gooseberry goblins]
  6874. SendToRoom [gooseberry goblins] [nowhere]
  6875. PrintMessage [break vial on goblins]
  6876. END_COMMAND
  6877.  
  6878. MESSAGE [break vial on goblins]
  6879. The gooseberry goblins sniff the vapor, screech in terror, and dash off into
  6880. the distance.
  6881. END_MESSAGE
  6882.  
  6883. COMMAND BREAK VIAL
  6884. FlagON [Vial has exploded]
  6885. Present [twelve-foot djinn]
  6886. PrintMessage [break vial on djinn]
  6887. END_COMMAND
  6888.  
  6889. MESSAGE [break vial on djinn]
  6890. The djinn takes a deep sniff of the vapor and comments, "AH!  A TRULY FINE
  6891. ARABIAN PERFUME!  I HAVEN'T SMELLED ANYTHING LIKE THAT FOR YEARS!"
  6892. END_MESSAGE
  6893.  
  6894. COMMAND BREAK VIAL
  6895. FlagON [Vial has exploded]
  6896. Present [petrified basilisk - north]
  6897. OR
  6898. Present [petrified basilisk - south]
  6899. PrintMessage "The basilisk doesn't wake up."
  6900. END_COMMAND
  6901.  
  6902. COMMAND BREAK VIAL
  6903. FlagON [Vial has exploded]
  6904. FlagON [Dwarf here]
  6905. PrintMessage [break vial on dwarf]
  6906. Destroy [little dwarf]
  6907. Destroy [threatening dwarf]
  6908. END_COMMAND
  6909.  
  6910. MESSAGE [break vial on dwarf]
  6911. The dwarf catches a lungful of the cloud, gags audibly and stumbles out of the
  6912. room retching, sneezing, and cursing up a storm.
  6913. END_MESSAGE
  6914.  
  6915. COMMAND BREAK VIAL
  6916. FlagON [Vial has exploded]
  6917. Present [burly troll]
  6918. PrintMessage "The troll calmly waves the vapor away."
  6919. END_COMMAND
  6920.  
  6921. COMMAND BREAK VIAL
  6922. FlagON [Vial has exploded]
  6923. Present [ferocious bear]
  6924. PrintMessage "The bear inhales some of the vapor and snarls angrily."
  6925. END_COMMAND
  6926.  
  6927. COMMAND BREAK VIAL
  6928. FlagON [Vial has exploded]
  6929. Present [contented bear]
  6930. OR
  6931. Present [gentle bear]
  6932. PrintMessage "The bear inhales some of the vapor and moans appreciatively."
  6933. END_COMMAND
  6934.  
  6935. COMMAND BREAK VIAL
  6936. FlagON [Vial has exploded]
  6937. Present [green snake]
  6938. PrintMessage "The snake completely ignores the vapor."
  6939. END_COMMAND
  6940.  
  6941. COMMAND BREAK VIAL
  6942. FlagON [Vial has exploded]
  6943. Present [caged bird]
  6944. OR
  6945. Present [little bird]
  6946. PrintMessage [break vial on bird]
  6947. END_COMMAND
  6948.  
  6949. MESSAGE [break vial on bird]
  6950. The bird breathes in a minuscule amount of the vapor and immediately sings a
  6951. twenty-second segment of Morton Subotnik's "Sidewinder".
  6952. END_MESSAGE
  6953.  
  6954. COMMAND BREAK VIAL
  6955. FlagON [Vial has exploded]
  6956. Present [green dragon]
  6957. PrintMessage [break vial on dragon]
  6958. END_COMMAND
  6959.  
  6960. MESSAGE [break vial on dragon]
  6961. The dragon sniffs the air, rumbles deep in his chest, and shoots out a small
  6962. puff of flame that ignites and incinerates the vapor.
  6963. END_MESSAGE
  6964.  
  6965. COMMAND BREAK VIAL
  6966. FlagON [Vial has exploded]
  6967. TurnFlagOFF [Vial has exploded]
  6968. DoneWithTurn
  6969. END_COMMAND
  6970.  
  6971. COMMAND BREAK VASE
  6972. Present [ming vase]
  6973. Destroy [ming vase]
  6974. PutInCurrentRoom [pottery shards]
  6975. PrintMessage [vase drops]
  6976. LookAtRoom
  6977. DoneWithTurn
  6978. END_COMMAND
  6979.  
  6980. COMMAND BREAK MIRROR
  6981. AtLocation [mirror canyon]
  6982. PrintMessage [You break mirror]
  6983. MinusScore 10 ;lose 10 points for dying
  6984. GoToRoom [Dead]
  6985. KillPlayer
  6986. DoneWithTurn
  6987. END_COMMAND
  6988.  
  6989. MESSAGE [You break mirror]
  6990. You strike the mirror a resounding blow, whereupon it shatters into a myriad
  6991. tiny fragments.
  6992.  
  6993. The resulting ruckus has attracted the dwarves.  There are now several
  6994. threatening little dwarves in the room with you!  Most of them throw knives at
  6995. you!  All of them get you!
  6996. END_MESSAGE
  6997.  
  6998. COMMAND BREAK BOTTLE
  6999. PrintMessage "It is beyond your power to do that."
  7000. DoneWithTurn
  7001. END_COMMAND
  7002.  
  7003. COMMAND BLAST ANY
  7004. PrintMessage "To $verb$ the $noun$ requires dynamite."
  7005. DoneWithTurn
  7006. END_COMMAND
  7007.  
  7008. ;THROW/GIVE
  7009.  
  7010. MESSAGE [Rabbit thanks you]
  7011. The rabbit is delighted that you have returned his foot.  He puts it back
  7012. on to his hind leg and hops off into his warren.  He leaves his cane behind.
  7013. END_MESSAGE
  7014.  
  7015. COMMAND GIVE FOOT TO RABBIT
  7016. Present [Gigantic Rabbit]
  7017. Present [Rabbit's Foot]
  7018. PrintMessage [Rabbit thanks you]
  7019. Destroy [Gigantic Rabbit]
  7020. Destroy [Rabbit's Foot]
  7021. DropIt [Cane]
  7022. DoneWithTurn
  7023. END_COMMAND
  7024.  
  7025. COMMAND GIVE FOOD TO ANY
  7026. Present [tasty food]
  7027. OBJECTPresent
  7028. ReDirectTo FEED $OBJECT$
  7029. DoneWithTurn
  7030. END_COMMAND
  7031.  
  7032. COMMAND GIVE APPLE TO ANY
  7033. Present [apple]
  7034. OBJECTPresent
  7035. ReDirectTo FEED $OBJECT$
  7036. DoneWithTurn
  7037. END_COMMAND
  7038.  
  7039. COMMAND THROW ANY
  7040. NOUNPresent (* any noun *)
  7041. AtLocation [R30  North Ledge]
  7042. DestroyNOUN (* any noun *)
  7043. TurnFlagON [Player has thrown something into chasm]
  7044. PrintMessage "The $noun$ disappears into the chasm."
  7045. DoneWithTurn (* no further action -- get next input *)
  7046. END_COMMAND
  7047.  
  7048. COMMAND THROW ANY AT BASILISK
  7049. Present [petrified basilisk - north]
  7050. OR
  7051. Present [petrified basilisk - south]
  7052. PrintMessage [THROW.AT.BASILISK]
  7053. GoToRoom [Dead]
  7054. KillPlayer
  7055. DoneWithTurn
  7056. END_COMMAND
  7057.  
  7058. MESSAGE [THROW.AT.BASILISK]
  7059. The $noun$ rebounds harmlessly from the basilisk's tough scales.  The basilisk
  7060. awakens, grunting in shock, and glares at you.  You are instantly turned into
  7061. a solid rock statue (and not a particularly impressive one, at that).
  7062. END_MESSAGE
  7063.  
  7064. COMMAND THROW ANY AT DJINN
  7065. Present [twelve-foot djinn]
  7066. DropNOUN
  7067. PrintMessage [REBOUND]
  7068. DoneWithTurn
  7069. END_COMMAND
  7070.  
  7071. MESSAGE [REBOUND]
  7072. The $noun$ rebounds harmlessly from the pentagram's magic force field.  It's
  7073. just as well - the djinn doesn't seem dangerous.
  7074. END_MESSAGE
  7075.  
  7076. COMMAND THROW OIL AT DWARF
  7077. FlagON [Dwarf here]
  7078. PrintMessage [DOUSED.DWARF]
  7079. DoneWithTurn
  7080. END_COMMAND
  7081.  
  7082. COMMAND THROW WATER AT DWARF
  7083. FlagON [Dwarf here]
  7084. PrintMessage [DOUSED.DWARF]
  7085. DoneWithTurn
  7086. END_COMMAND
  7087.  
  7088. MESSAGE [DOUSED.DWARF]
  7089. The $noun$ flies through the air and thoroughly drenches the dwarf.  He shakes
  7090. himself off and curses violently; he *REALLY* looks angry!
  7091. END_MESSAGE
  7092.  
  7093. COMMAND THROW ANY AT GOBLIN
  7094. Present [gooseberry goblins]
  7095. PrintMessage [KILL.A.FEW]
  7096. GoToRoom [Dead]
  7097. KillPlayer
  7098. DoneWithTurn
  7099. END_MESSAGE
  7100.  
  7101. MESSAGE [KILL.A.FEW]
  7102. You kill several of the gooseberry goblins with the $noun$, but the others
  7103. swarm at you, force you to the ground, and rip out your throat.
  7104. END_MESSAGE
  7105.  
  7106. COMMAND THROW FLASK
  7107. AtLocation [pentagram room]
  7108. Present [earthenware flask - closed]
  7109. DropIt [earthenware flask - sealed]
  7110. Destroy [earthenware flask - closed]
  7111. PrintMessage [You set the flask in the pentragram]
  7112. DoneWithTurn
  7113. END_COMMAND
  7114.  
  7115. COMMAND THROW VIAL
  7116. Present [vial of oily liquid]
  7117. ReDirectTo BREAK VIAL
  7118. END_COMMAND
  7119.  
  7120. COMMAND THROW TEETH
  7121. Present [dragon's teeth]
  7122. Present [gooseberry goblins]
  7123. PrintMessage [WARRIORS]
  7124. SendToRoom [dragon's teeth] [nowhere]
  7125. SendToRoom [gooseberry goblins] [nowhere]
  7126. TurnFlagON [Goblins have appeared]
  7127. TurnCounterOFF [Goblin counter]
  7128. PlusScore 15
  7129. DoneWithTurn
  7130. END_COMMAND
  7131.  
  7132. MESSAGE [WARRIORS]
  7133. As each of the dragon's teeth strikes the ground, a fully-armed human skeleton
  7134. springs up from where it struck and leaps to your defense!  The skeletal
  7135. warriors attack the vicious gooseberry goblins and drive them away in
  7136. screaming panic; they then salute you with their ancient and rusty swords, and
  7137. fade silently into nothingness.
  7138. END_MESSAGE
  7139.  
  7140. COMMAND THROW ANY
  7141. Present [ogre blocking your path]
  7142. ReDirectTo ATTACK OGRE WITH $NOUN$
  7143. DoneWithTurn
  7144. END_COMMAND
  7145.  
  7146. COMMAND THROW ANY AT ROVER
  7147. Present [Rover]
  7148. PrintMessage [SLICE.BLOB]
  7149. DoneWithTurn
  7150. END_COMMAND
  7151.  
  7152. MESSAGE [SLICE.BLOB]
  7153. The $noun$ slices clear through the blob's body (?) without harming it.
  7154. END_MESSAGE
  7155.  
  7156. COMMAND THROW BEAR
  7157. InRoom [burly troll]
  7158. Present [contented bear]
  7159. SwapLocations [burly troll] [phony troll] ;troll is nowhere to be seen
  7160. PrintMessage [bear chases troll]
  7161. TurnFlagON [troll eliminated]
  7162. TurnFlagOFF [bear following]
  7163. PlusScore 10
  7164. DoneWithTurn
  7165. END_COMMAND
  7166.  
  7167. COMMAND THROW AXE
  7168. Present [dwarf's axe]
  7169. Present [little dwarf]
  7170. OR
  7171. Present [threatening dwarf]
  7172. TurnFlagON [axe/knife] ;throwing axe at dwarf
  7173. PutInCurrentRoom [dwarf's axe]
  7174. Chance 50
  7175. PrintMessage [you kill dwarf]
  7176. TurnFlagOFF [axe/knife]
  7177. Destroy [little dwarf]
  7178. Destroy [threatening dwarf]
  7179. DoneWithTurn
  7180. END_COMMAND
  7181.  
  7182. COMMAND THROW AXE
  7183. FlagON [axe/knife] ;has already thrown axe at dwarf
  7184. PrintMessage [dwarf dodges]
  7185. PrintMessage "It misses!"
  7186. TurnFlagOFF [axe/knife]
  7187. LookAtRoom
  7188. DoneWithTurn
  7189. END_COMMAND
  7190.  
  7191. COMMAND THROW AXE
  7192. Present [burly troll]
  7193. PrintMessage [troll catches axe & throws it back]
  7194. PutInCurrentRoom [dwarf's axe]
  7195. LookAtRoom
  7196. DoneWithTurn
  7197. END_COMMAND
  7198.  
  7199. COMMAND THROW AXE
  7200. Present [ferocious bear]
  7201. Present [dwarf's axe]
  7202. PrintMessage [axe misses & lands near bear]
  7203. PutInCurrentRoom [dwarf's axe]
  7204. DoneWithTurn
  7205. END_COMMAND
  7206.  
  7207. COMMAND THROW AXE
  7208. Present [green dragon]
  7209. Present [dwarf's axe]
  7210. PrintMessage [axe bounces off dragon]
  7211. PutInCurrentRoom [dwarf's axe]
  7212. DoneWithTurn
  7213. END_COMMAND
  7214.  
  7215. COMMAND THROW AXE
  7216. Present [giant clam]
  7217. OR
  7218. Present [giant oyster]
  7219. PrintMessage [shell too hard]
  7220. DoneWithTurn
  7221. END_COMMAND
  7222.  
  7223. COMMAND THROW FOOD
  7224. Present [ferocious bear]
  7225. Present [tasty food]
  7226. PrintMessage [bear eats food]
  7227. Destroy [tasty food]
  7228. SwapLocations [ferocious bear] [gentle bear] ;bear becomes friendly
  7229. PlusScore 10
  7230. DoneWithTurn
  7231. END_COMMAND
  7232.  
  7233. COMMAND THROW FOOD
  7234. Present [burly troll]
  7235. Present [tasty food]
  7236. PrintMessage [troll wants treasure]
  7237. DoneWithTurn
  7238. END_COMMAND
  7239.  
  7240. COMMAND THROW FOOD
  7241. Present [tasty food]
  7242. Present [green dragon]
  7243. OR
  7244. Present [green snake]
  7245. PrintMessage [it doesn't want food - except you]
  7246. DoneWithTurn
  7247. END_COMMAND
  7248.  
  7249. COMMAND THROW FOOD
  7250. Present [tasty food]
  7251. Present [little dwarf]
  7252. OR
  7253. Present [threatening dwarf]
  7254. PrintMessage [dwarves eat coal]
  7255. DoneWithTurn
  7256. END_COMMAND
  7257.  
  7258. COMMAND THROW FOOD
  7259. Present [little bird]
  7260. Present [tasty food]
  7261. PrintMessage [it isn't hungry]
  7262. DoneWithTurn
  7263. END_COMMAND
  7264.  
  7265. COMMAND THROW ANY
  7266. Present [burly troll]
  7267. NOUNpointsGT 0 ;Noun is a treasure - i.e., it has value
  7268. PrintMessage "The troll catches your treasure and scurries away out of sight."
  7269. DestroyNOUN
  7270. SwapLocations [burly troll] [phony troll]
  7271. TurnFlagON [troll eliminated]
  7272. DoneWithTurn
  7273. END_COMMAND
  7274.  
  7275. COMMAND THROW ANY
  7276. Present [burly troll]
  7277. PrintMessage [The troll catches the $noun$]
  7278. DoneWithTurn
  7279. END_COMMAND
  7280.  
  7281. MESSAGE [The troll catches the $noun$]
  7282. The troll catches the $noun$, examines it closely and then throws it
  7283. back to you.  "That's worthless, fool!!  Give me something of value or you
  7284. will never get across my bridge," he says angrily.
  7285. END_MESSAGE
  7286.  
  7287. COMMAND THROW VASE
  7288. InRoom [velvet pillow]
  7289. Present [ming vase]
  7290. SwapLocations [velvet pillow] [vase on pillow]
  7291. Destroy [ming vase]
  7292. PrintMessage [vase drops]
  7293. PrintMessage [didn't break]
  7294. DoneWithTurn
  7295. END_COMMAND
  7296.  
  7297. COMMAND THROW VASE
  7298. NOT InRoom [velvet pillow]
  7299. Present [ming vase]
  7300. Destroy [ming vase]
  7301. PutInCurrentRoom [pottery shards]
  7302. PrintMessage [vase drops]
  7303. LookAtRoom
  7304. DoneWithTurn
  7305. END_COMMAND
  7306.  
  7307. COMMAND THROW BIRD
  7308. ReDirectTo RELEASE BIRD
  7309. END_COMMAND
  7310.  
  7311. COMMAND THROW ANY
  7312. AtLocation [top of small pit]
  7313. PrintMessage [THROW.PIT]
  7314. SendNOUNToRoom [hall of mists]
  7315. DoneWithTurn
  7316. END_COMMAND
  7317.  
  7318. COMMAND THROW ANY
  7319. AtLocation [east bank of fissure]
  7320. OR
  7321. AtLocation [west side of fissure]
  7322. PrintMessage [THROW.FISSURE]
  7323. SendNOUNToRoom [cavern with waterfall]
  7324. DoneWithTurn
  7325. END_COMMAND
  7326.  
  7327. COMMAND THROW ANY
  7328. AtLocation [W end of twopit room]
  7329. PrintMessage [THROW.PIT]
  7330. SendNOUNToRoom [west pit]
  7331. DoneWithTurn
  7332. END_COMMAND
  7333.  
  7334. COMMAND THROW ANY
  7335. AtLocation [E end of twopit room]
  7336. PrintMessage [THROW.PIT]
  7337. SendNOUNToRoom [east pit]
  7338. DoneWithTurn
  7339. END_COMMAND
  7340.  
  7341. COMMAND THROW ANY
  7342. AtLocation [low N-S passage]
  7343. PrintMessage [THROW.HOLE]
  7344. SendNOUNToRoom [dirty passage]
  7345. DoneWithTurn
  7346. END_COMMAND
  7347.  
  7348. COMMAND THROW ANY
  7349. AtLocation [right low window]
  7350. PrintMessage [THROW.PIT]
  7351. SendNOUNToRoom [mirror canyon]
  7352. DoneWithTurn
  7353. END_COMMAND
  7354.  
  7355. COMMAND THROW ANY
  7356. AtLocation [left low window]
  7357. PrintMessage [THROW.PIT]
  7358. SendNOUNToRoom [mirror canyon]
  7359. DoneWithTurn
  7360. END_COMMAND
  7361.  
  7362. COMMAND THROW ANY
  7363. AtLocation [brink of small pit]
  7364. PrintMessage [THROW.PIT]
  7365. SendNOUNToRoom [bottom of small pit]
  7366. DoneWithTurn
  7367. END_COMMAND
  7368.  
  7369. COMMAND THROW ANY
  7370. AtLocation [dusty rock room]
  7371. PrintMessage [THROW.HOLE]
  7372. SendNOUNToRoom [complex junction]
  7373. DoneWithTurn
  7374. END_COMMAND
  7375.  
  7376. COMMAND THROW ANY
  7377. AtLocation [brink of 30' pit]
  7378. PrintMessage [THROW.PIT]
  7379. SendNOUNToRoom [bird chamber]
  7380. DoneWithTurn
  7381. END_COMMAND
  7382.  
  7383. COMMAND THROW ANY
  7384. AtLocation [north-south canyon above room]
  7385. PrintMessage [THROW.ROOM]
  7386. SendNOUNToRoom [slab room]
  7387. DoneWithTurn
  7388. END_COMMAND
  7389.  
  7390. COMMAND THROW ANY
  7391. AtLocation [north-south canyon above passage]
  7392. PrintMessage [THROW.ROOM]
  7393. SendNOUNToRoom [bedquilt room]
  7394. DoneWithTurn
  7395. END_COMMAND
  7396.  
  7397. COMMAND THROW ANY
  7398. AtLocation [secret E-W canyon]
  7399. PrintMessage [THROW.CANYON]
  7400. SendNOUNToRoom [wide place]
  7401. DoneWithTurn
  7402. END_COMMAND
  7403.  
  7404. COMMAND THROW ANY
  7405. AtLocation [above large room]
  7406. PrintMessage [THROW.ROOM]
  7407. SendNOUNToRoom [large low room]
  7408. DoneWithTurn
  7409. END_COMMAND
  7410.  
  7411. COMMAND THROW ANY
  7412. AtLocation [cavern with waterfall]
  7413. PrintMessage [THROW.WHIRLPOOL]
  7414. SendNOUNToRoom [nowhere]
  7415. DoneWithTurn
  7416. END_COMMAND
  7417.  
  7418. COMMAND THROW ANY
  7419. AtLocation [misty cavern]
  7420. PrintMessage [THROW.CAVERN]
  7421. SendNOUNToRoom [cavern with waterfall]
  7422. DoneWithTurn
  7423. END_COMMAND
  7424.  
  7425. COMMAND THROW ANY
  7426. AtLocation [top of stalactite]
  7427. PrintMessage [THROW.ROOM]
  7428. SendNOUNToRoom [twisty 53]
  7429. DoneWithTurn
  7430. END_COMMAND
  7431.  
  7432. COMMAND THROW ANY
  7433. AtLocation  [reservoir]
  7434. OR
  7435. AtLocation  [N end of reservoir]
  7436. PrintMessage [THROW.RESERVOIR]
  7437. SendNOUNToRoom [nowhere]
  7438. DoneWithTurn
  7439. END_COMMAND
  7440.  
  7441. COMMAND THROW ANY
  7442. AtLocation [balcony]
  7443. PrintMessage [THROW.ROOM]
  7444. SendNOUNToRoom [nowhere]
  7445. DoneWithTurn
  7446. END_COMMAND
  7447.  
  7448. COMMAND THROW ANY
  7449. AtLocation [SW chasm]
  7450. PrintMessage [THROW.CHASM]
  7451. SendNOUNToRoom [nowhere]
  7452. DoneWithTurn
  7453. END_COMMAND
  7454.  
  7455. COMMAND THROW ANY
  7456. AtLocation [NE chasm]
  7457. PrintMessage [THROW.CHASM]
  7458. SendNOUNToRoom [nowhere]
  7459. DoneWithTurn
  7460. END_COMMAND
  7461.  
  7462. COMMAND THROW ANY
  7463. AtLocation [breath-taking view]
  7464. PrintMessage [THROW.GORGE]
  7465. SendNOUNToRoom [nowhere]
  7466. DoneWithTurn
  7467. END_COMMAND
  7468.  
  7469. COMMAND THROW ANY
  7470. AtLocation [S end of Stone Faces]
  7471. PrintMessage [THROW.GORGE]
  7472. SendNOUNToRoom [nowhere]
  7473. DoneWithTurn
  7474. END_COMMAND
  7475.  
  7476. COMMAND THROW ANY
  7477. AtLocation [lava tube]
  7478. PrintMessage [THROW.CHIMNEY]
  7479. SendNOUNToRoom [bottom of chimney]
  7480. DoneWithTurn
  7481. END_COMMAND
  7482.  
  7483. COMMAND THROW ANY
  7484. AtLocation [steep slide in lava tube]
  7485. PrintMessage [THROW.TUBE]
  7486. SendNOUNToRoom [S end of fog-filled room]
  7487. DoneWithTurn
  7488. END_COMMAND
  7489.  
  7490. COMMAND THROW ANY
  7491. AtLocation [passage by steps]
  7492. PrintMessage [THROW.STEPS]
  7493. SendNOUNToRoom [on steps]
  7494. DoneWithTurn
  7495. END_COMMAND
  7496.  
  7497. COMMAND THROW ANY
  7498. AtLocation [on steps]
  7499. PrintMessage [THROW.STEPS]
  7500. SendNOUNToRoom [exit from steps]
  7501. DoneWithTurn
  7502. END_COMMAND
  7503.  
  7504. COMMAND THROW ANY
  7505. AtLocation [exit from steps]
  7506. PrintMessage [THROW.STEPS]
  7507. SendNOUNToRoom [storage room]
  7508. DoneWithTurn
  7509. END_COMMAND
  7510.  
  7511. COMMAND THROW ANY
  7512. AtLocation [at brink of bottomless pit]
  7513. PrintMessage [THROW.PIT]
  7514. SendNOUNToRoom [nowhere]
  7515. DoneWithTurn
  7516. END_COMMAND
  7517.  
  7518. COMMAND THROW ANY
  7519. AtLocation [southern edge of bottomless pit]
  7520. PrintMessage [THROW.PIT]
  7521. SendNOUNToRoom [nowhere]
  7522. DoneWithTurn
  7523. END_COMMAND
  7524.  
  7525. COMMAND THROW ANY
  7526. AtLocation [ice room]
  7527. PrintMessage [THROW.SLIDE]
  7528. SendNOUNToRoom [bottom of icy slide]
  7529. DoneWithTurn
  7530. END_COMMAND
  7531.  
  7532. COMMAND THROW ANY
  7533. AtLocation [eastern edge of bottomless pit]
  7534. PrintMessage [THROW.PIT]
  7535. SendNOUNToRoom [nowhere]
  7536. DoneWithTurn
  7537. END_COMMAND
  7538.  
  7539. COMMAND THROW ANY
  7540. AtLocation [shelf of rock above beach]
  7541. PrintMessage [THROW.BEACH]
  7542. SendNOUNToRoom [on the beach]
  7543. DoneWithTurn
  7544. END_COMMAND
  7545.  
  7546. COMMAND THROW ANY
  7547. AtLocation [tiny platform above volcano]
  7548. PrintMessage [THROW.GORGE]
  7549. SendNOUNToRoom [nowhere]
  7550. DoneWithTurn
  7551. END_COMMAND
  7552.  
  7553. MESSAGE [THROW.PIT]
  7554. You have tossed the $noun$ down into the pit.
  7555. END_MESSAGE
  7556.  
  7557. MESSAGE [THROW.FISSURE]
  7558. You have thrown the $noun$ down into the fissure.
  7559. END_MESSAGE
  7560.  
  7561. MESSAGE [THROW.HOLE]
  7562. You have tossed the $noun$ down into the hole in the floor.
  7563. END_MESSAGE
  7564.  
  7565. MESSAGE [THROW.ROOM]
  7566. You have tossed the $noun$ down into the room below you.
  7567. END_MESSAGE
  7568.  
  7569. MESSAGE [THROW.CANYON]
  7570. You have tossed the $noun$ down into the canyon beneath your feet.
  7571. END_MESSAGE
  7572.  
  7573. MESSAGE [THROW.WHIRLPOOL]
  7574. You have hurled the $noun$ into the middle of the whirlpool.
  7575. END_MESSAGE
  7576.  
  7577. MESSAGE [THROW.CAVERN]
  7578. You have thrown the $noun$ down into the mist filling the cavern.
  7579. END_MESSAGE
  7580.  
  7581. MESSAGE [THROW.CHASM]
  7582. You have hurled the $noun$ down into the misty bottom of the chasm.
  7583. END_MESSAGE
  7584.  
  7585. MESSAGE [THROW.GORGE]
  7586. You have hurled the $noun$ down into the boiling lava at the bottom of the
  7587. volcanic gorge.
  7588. END_MESSAGE
  7589.  
  7590. MESSAGE [THROW.CHIMNEY]
  7591. You have tossed the $noun$ down the chimney.
  7592. END_MESSAGE
  7593.  
  7594. MESSAGE [THROW.TUBE]
  7595. You have tossed the $noun$ down into the lava tube and out of sight.
  7596. END_MESSAGE
  7597.  
  7598. MESSAGE [THROW.STEPS]
  7599. You have thrown the $noun$ down the steps and out of view.
  7600. END_MESSAGE
  7601.  
  7602. MESSAGE [THROW.SLIDE]
  7603. You have tossed the $noun$ down the icy slide and out of sight.
  7604. END_MESSAGE
  7605.  
  7606. MESSAGE [THROW.BEACH]
  7607. You have thrown the $noun$ down onto the beach.
  7608. END_MESSAGE
  7609.  
  7610. MESSAGE [THROW.RESERVOIR]
  7611. You have negligently tossed the $noun$ into the center of the reservoir.
  7612. END_MESSAGE
  7613.  
  7614. ;FEED
  7615.  
  7616. COMMAND FEED GOBLIN
  7617. Present [gooseberry goblins]
  7618. PrintMessage [GOBL.EAT.YOU]
  7619. DoneWithTurn
  7620. END_MESSAGE
  7621.  
  7622. MESSAGE [GOBL.EAT.YOU]
  7623. Goblins live exclusively on human flesh, and you can't spare any of your own
  7624. to placate them.  On the other hand, I suspect that they're going to eat you
  7625. pretty soon whether you like it or not - you'd better find some way of killing
  7626. them or driving them away!
  7627. END_MESSAGE
  7628.  
  7629. COMMAND FEED BEAR
  7630. Present [ferocious bear]
  7631. Present [tasty food]
  7632. PrintMessage [bear eats food]
  7633. Destroy [tasty food]
  7634. SwapLocations [ferocious bear] [gentle bear]
  7635. PlusScore 10
  7636. DoneWithTurn
  7637. END_COMMAND
  7638.  
  7639. COMMAND FEED BEAR
  7640. Present [ferocious bear]
  7641. Present [apple]
  7642. PrintMessage [bear eats food]
  7643. Destroy [apple]
  7644. SwapLocations [ferocious bear] [gentle bear]
  7645. PlusScore 10
  7646. DoneWithTurn
  7647. END_COMMAND
  7648.  
  7649. COMMAND FEED BEAR
  7650. NOT Present [tasty food]
  7651. NOT Present [apple]
  7652. PrintMessage [it doesn't want food - except you]
  7653. DoneWithTurn
  7654. END_COMMAND
  7655.  
  7656. COMMAND FEED TROLL
  7657. Present [burly troll]
  7658. PrintMessage [troll wants treasure]
  7659. DoneWithTurn
  7660. END_COMMAND
  7661.  
  7662. COMMAND FEED DRAGON
  7663. Present [green dragon]
  7664. PrintMessage [it doesn't want food - except you]
  7665. DoneWithTurn
  7666. END_COMMAND
  7667.  
  7668. COMMAND FEED SNAKE
  7669. Present [green snake]
  7670. Present [caged bird]
  7671. PrintMessage [snake eats bird]
  7672. SwapLocations [wicker cage] [caged bird]
  7673. DoneWithTurn
  7674. END_COMMAND
  7675.  
  7676. COMMAND FEED SNAKE
  7677. Present [green snake]
  7678. PrintMessage [it doesn't want food - except you]
  7679. DoneWithTurn
  7680. END_COMMAND
  7681.  
  7682. COMMAND FEED DWARF
  7683. Present [little dwarf]
  7684. OR
  7685. Present [threatening dwarf]
  7686. PrintMessage [dwarves eat coal]
  7687. DoneWithTurn
  7688. END_COMMAND
  7689.  
  7690. COMMAND FEED BIRD
  7691. Present [little bird]
  7692. OR
  7693. Present [caged bird]
  7694. PrintMessage [it isn't hungry]
  7695. DoneWithTurn
  7696. END_COMMAND
  7697.  
  7698. COMMAND FEED ANY
  7699. PrintMessage [I'm game]
  7700. DoneWithTurn
  7701. END_COMMAND
  7702.  
  7703. #COMMENT ------- SWIM
  7704.  
  7705. COMMAND SWIM
  7706. AtLocation [cavern with waterfall]
  7707. #COMMENT -- going into whirlpool
  7708. PrintMessage "Remember you can't swim!  Are you sure you really want to dive down"
  7709. BlankLine
  7710. ReDirectTo DOWN
  7711. END_COMMAND
  7712.  
  7713. COMMAND SWIM
  7714. PrintMessage [DONT.KNOW.HOW 2]
  7715. DoneWithTurn
  7716. END_MESSAGE
  7717.  
  7718. MESSAGE [DONT.KNOW.HOW 2]
  7719. Sorry, but I don't know how to $verb$!
  7720. END_MESSAGE
  7721.  
  7722. #COMMENT -- EAT
  7723.  
  7724. #COMMENT
  7725. Eating a mushroom will give you special strength for 12 turns.  After 12
  7726. turns, your strength returns to normal -- but the mushroom grows back in the
  7727. "dank cubicle" where you originally found it -- so it you strength can be
  7728. repeatedly enhanced.
  7729. #END_COMMENT
  7730.  
  7731. COMMAND EAT MUSHROOM
  7732. Present [small mushroom]
  7733. OR
  7734. Present [small mushroom - growing]
  7735. Destroy [small mushroom]
  7736. Destroy [small mushroom - growing]
  7737. PrintMessage [You get strong]
  7738. TurnCounterON [Mushroom strength counter]
  7739. TurnFlagON [Player is very strong]
  7740. DoneWithTurn
  7741. END_COMMAND
  7742.  
  7743. MESSAGE [You get strong]
  7744. As you swallow the mushroom your mouth becomes numb, and everything seems to
  7745. swirl around you.  The effect quickly passes, and you find that your muscles
  7746. have bulged unbelievably.
  7747. END_MESSAGE
  7748.  
  7749. COMMAND EAT FOOD
  7750. Present [tasty food]
  7751. PrintMessage [it was delicious]
  7752. Destroy [tasty food]
  7753. DoneWithTurn
  7754. END_COMMAND
  7755.  
  7756. COMMAND EAT ANY
  7757. NOUNPresent
  7758. NOT NOUNIsEdible
  7759. PrintMessage [BLEAH]
  7760. DoneWithTurn
  7761. END_MESSAGE
  7762.  
  7763. MESSAGE [BLEAH]
  7764. Yeetttch!  I think I just lost my appetite.
  7765. END_MESSAGE
  7766.  
  7767. ;FILL
  7768.  
  7769. COMMAND FILL ANY
  7770. NOT NOUNIsCarrying
  7771. PrintMessage [don't have the resources]
  7772. DoneWithTurn
  7773. END_COMMAND
  7774.  
  7775. COMMAND FILL
  7776. AtLocation [on the beach]
  7777. PrintMessage [SALT.H20.BAD]
  7778. DoneWithTurn
  7779. END_COMMAND
  7780.  
  7781. COMMAND FILL VASE
  7782. Present [ming vase]
  7783. Destroy [ming vase]
  7784. PutInCurrentRoom [pottery shards]
  7785. PrintMessage "The sudden change in temperature has delicately shattered the vase."
  7786. LookAtRoom
  7787. DoneWithTurn
  7788. END_COMMAND
  7789.  
  7790. COMMAND FILL PITCHER WITH WATER
  7791. ReDirectTo GET WATER
  7792. END_COMMAND
  7793.  
  7794. COMMAND FILL BOTTLE
  7795. FlagON [bottle full]
  7796. PrintMessage [already full]
  7797. DoneWithTurn
  7798. END_COMMAND
  7799.  
  7800. COMMAND FILL BOTTLE
  7801. NOT Present [empty bottle]
  7802. PrintMessage [nothing to put it in]
  7803. DoneWithTurn
  7804. END_COMMAND
  7805.  
  7806. COMMAND FILL BOTTLE
  7807. FlagON [Water here]
  7808. PrintMessage [bottle now full of water]
  7809. SwapLocations [empty bottle] [water bottle]
  7810. TurnFlagON [bottle full]
  7811. DoneWithTurn
  7812. END_COMMAND
  7813.  
  7814. COMMAND FILL BOTTLE
  7815. AtLocation [east pit] ;east pit of twopit room
  7816. PrintMessage [bottle now full of oil]
  7817. SwapLocations [empty bottle] [oil bottle]
  7818. TurnFlagON [bottle full]
  7819. DoneWithTurn
  7820. END_COMMAND
  7821.  
  7822. COMMAND FILL BOTTLE
  7823. PrintMessage [no liquid here]
  7824. DoneWithTurn
  7825. END_COMMAND
  7826.  
  7827. COMMAND FILL ANY
  7828. PrintMessage "You can't fill that."
  7829. DoneWithTurn
  7830. END_COMMAND
  7831.  
  7832. #COMMENT -- RIDE
  7833.  
  7834. #COMMENT
  7835. From the "N end of reservoir", the player must RING GONG to get Darwin to
  7836. appear.  Then he can RIDE DARWIN to cross the reservoir to the south end.
  7837. #END_COMMENT
  7838.  
  7839. COMMAND RIDE DARWIN
  7840. AtLocation [N end of reservoir]
  7841. Present [Darwin the turtle]
  7842. PrintMessage [TURTLE.BACK]
  7843. SendToRoom [Darwin the turtle] [nowhere]
  7844. GoToRoom  [reservoir]
  7845. DoneWithTurn
  7846. END_COMMAND
  7847.  
  7848. #COMMENT -- RING
  7849.  
  7850. MESSAGE [1st Bell Ring]
  7851. A few moments after you ring the bell, you hear a voice cry out, "Hold your
  7852. horses, I'm coming........damn tourists..."  A little old man in a red velvet
  7853. suit appears on the other side of the gates.  He produces a key from a pocket
  7854. of his coat and unlocks the gate.
  7855.  
  7856. "Welcome to the 12592nd level of Hell.  My name is Fred and I will be your
  7857. guide for today's tour", he says.
  7858.  
  7859. "This level of Hell is reserved for Adventure game writers.  Here, we
  7860. specialize in giving these cruel people some of the same kind of torment that
  7861. they gave to those unfortunates that played their fiendish creations.  It
  7862. doesn't matter that the game players played willingly -- in their quest for
  7863. masochistic pleasures.  No!  No!  No!  Just because the victim is foolish
  7864. enough to think he or she is enjoying the experience, doesn't make the crime
  7865. any less heinous.  These wicked Adventure game writers were no better than
  7866. drug pushers preying on the mental weaknesses of Adventure junkies."
  7867.  
  7868. "Remember, as you tour this level of Hell that these people deserve their
  7869. eternal torment!  They are just being repaid for the misery they have give to
  7870. others.  Do not pity them.  Save you pity for their unfortunate victims!"
  7871.  
  7872. With that introduction finished, Fred begins the tour.  You follow him down a
  7873. long winding path.  You finally stop by the edge of a cliff.  In the distance
  7874. below you is a dark labyrinth of high thorny hedges.  In the middle of the
  7875. labyrinth, you can see two figures groping along the hedge walls.  As they
  7876. reach out to touch the hedges, they recoil in pain from touching the thorns.
  7877.  
  7878. Fred chuckles.  "Those guys are Will Crowther and Don Woods.  They started it
  7879. all by writing the first Adventure game -- called simply ADVENTURE.  They are
  7880. now doomed to search in the dark through a maze of twisty little passages.
  7881. They are trying to find the vending machine to buy some batteries for their
  7882. lantern.  They will search forever -- in vain.  A fitting punishment, don't
  7883. you agree?"
  7884.  
  7885. Fred chuckles again and wanders down the path to the north.  After a few
  7886. minutes you arrive at a pleasant sunny meadow.  Off to the south at the edge
  7887. of the meadow is a swampy area.  In the middle of the swamp, buried in the mud
  7888. is a very strange sight.  A bearded man is trapped under a sleeping dragon.
  7889. He alternates between trying to wake the dragon and trying to dig himself free
  7890. in the mud.  He continues to struggle, but to no avail.
  7891.  
  7892. Fred explains, "That is Scott Adams.  He wrote ADVENTURELAND, PIRATE ADVENTURE
  7893. and many, many others.  His Adventure games were the first written for
  7894. microcomputers.  Now, he is getting a taste of his own medicine."
  7895.  
  7896. "Let's move on."  Fred proceeds to walk to the east.  The ground rises gently
  7897. until you find yourself overlooking a deep chasm.  On one side of the chasm
  7898. you see a man.  Directly across from him is a woman.  Both are shouting secret
  7899. words with very hoarse voices.  They continue to shout out every silly word
  7900. imaginable.  There doesn't seem to be any result from their efforts except
  7901. their voices get hoarser.
  7902.  
  7903. "Ken and Roberta Williams.  They wrote THE WIZARD AND THE PRINCESS, and KING'S
  7904. QUEST I, II, III, IV, V, VI, VII, VIII, etc." explains Fred.  "After they
  7905. discover the correct secret word, Artichoke, they will get to ride in a leaky
  7906. boat with no way to fix the leak."  He chuckles again.
  7907.  
  7908. You follow Fred as he continues on the path to the south.  You finally come to
  7909. an old house and enter through a broken window.  Fred lifts a rug, brush aside
  7910. some leaves and you both peek into a dark room through a small grate.  Below,
  7911. you see two men trapped in a brick-walled room.  There are no doors or windows
  7912. in the room.  The only exit is the grate and it is locked on the outside.
  7913. However, even if the grate was unlocked it would do no good, as both men are
  7914. too big to fit through the grate.
  7915.  
  7916. "The only way out of the room is by saying the word 'Ahriman'.  Ahriman was
  7917. one of the gods of Zoroastrian mythology", Fred whispers.  "After they figure
  7918. that one out, we have some really hard puzzles for them.  They are Dave
  7919. Lebling and Marc Blank.  They wrote the ZORK series.  You know those, of
  7920. course, -- ZORK I, ZORK II, ZORK III, ZORK ZERO, BEYOND ZORK, INSIDE ZORK,
  7921. OUTSIDE ZORK, UNDER ZORK, SON OF ZORK, RETURN TO ZORK, BRIDE OF ZORK, 2ND
  7922. COUSIN OF ZORK, ZORK MINUS 47, IN SEARCH OF ZORK, ZORK'S REVENGE, ZORK -- THE
  7923. SEQUEL, THE HITCHHIKER'S GUIDE TO ZORK, NIGHT OF THE LIVING ZORK, THE
  7924. ESSENTIAL ZORK, THE NON-ESSENTIAL ZORK, ZORK TRIVIA, ZORK CONFIDENTIAL, THE
  7925. VALLEY OF ZORK, IT CAME FROM ZORK, TALES OF ZORK, THE CREATURE FROM ZORK, ZORK
  7926. UNCHAINED, ZORK OBSERVED, THE COMPLEAT ZORK, et al.  For all the pain they have
  7927. caused Adventure game players, these two deserve some really terrible
  7928. punishment, but there are some things that are even too nasty and gross for
  7929. Hell."
  7930.  
  7931. Fred puts the leaves back over the grate, puts the rug over the leaves, and
  7932. then leads you outside the house.  You continue the tour for the remainder of
  7933. the afternoon.  Finally, exhausted, you return to the entrance gate.
  7934.  
  7935. "Well, I hope you have enjoyed the tour of level 12592 of Hell.  And remember,
  7936. those fiends deserve their fate or worse.  Don't pity them.  Instead, pity
  7937. their victims -- those poor misguided Adventure game players who can't kick
  7938. their evil habits!", Fred concludes.
  7939.  
  7940. He shakes your hand, says good bye, opens the gate for you to leave and then
  7941. locks it behind you.  You find yourself back outside the gate to Hell.  Fred
  7942. disappears down the path on the other side.
  7943. END_MESSAGE
  7944.  
  7945. COMMAND RING
  7946. FlagOFF [Has visited Hell]
  7947. AtLocation [Gates of Hell]
  7948. PrintMessage [1st Bell Ring]
  7949. PlusScore 15
  7950. TurnFlagON [Has visited Hell]
  7951. DoneWithTurn
  7952. END_COMMAND
  7953.  
  7954. MESSAGE [Later Bell Ring]
  7955. Ding! Dong!
  7956. END_MESSAGE
  7957.  
  7958. COMMAND RING
  7959. Present [Bell]
  7960. PrintMessage [Later Bell Ring]
  7961. DoneWithTurn
  7962. END_COMMAND
  7963.  
  7964. COMMAND RING
  7965. FlagOFF [Has rung the church bells]
  7966. AtLocation [R641  Bell Room]
  7967. OR
  7968. AtLocation [R645  Bells!  Bells!  Room]
  7969. PlusScore 10 ; give 10 points for ringing church bells
  7970. TurnFlagON [Has rung the church bells]
  7971. END_COMMAND
  7972.  
  7973. COMMAND RING
  7974. AtLocation [R641  Bell Room]
  7975. OR
  7976. AtLocation [R645  Bells!  Bells!  Room]
  7977. PrintMessage [Later Bell Ring]
  7978. DoneWithTurn
  7979. END_COMMAND
  7980.  
  7981. COMMAND RING GONG
  7982. AtLocation [N end of reservoir]
  7983. Present [Darwin the turtle]
  7984. PrintMessage [GONG.RINGS]
  7985. DoneWithTurn
  7986. END_COMMAND
  7987.  
  7988. COMMAND RING GONG
  7989. AtLocation [N end of reservoir]
  7990. NOT Present [Darwin the turtle]
  7991. PrintMessage [GONG.FETCH]
  7992. SendToRoom [Darwin the turtle] [N end of reservoir]
  7993. PrintMessage [GONG.RINGS]
  7994. DoneWithTurn
  7995. END_COMMAND
  7996.  
  7997. MESSAGE [TURTLE.BACK]
  7998. You step gently on Darwin the Tortoise's back, and he carries you smoothly
  7999. over to the southern side of the reservoir.  He then blows a couple of bubbles
  8000. at you and sinks back out of sight.
  8001. END_MESSAGE
  8002.  
  8003. MESSAGE [GONG.RINGS]
  8004.  
  8005.         >BONNNNGGGGGGGGGG<
  8006.  
  8007. Darwin the Tortoise blinks in surprise at the noise, but does nothing.
  8008. END_MESSAGE
  8009.  
  8010. MESSAGE [GONG.FETCH]
  8011.  
  8012.         >BONNNNNGGGGGGGGG<
  8013.  
  8014. A hollow voice says, "The GallopingGhost Tortoise Express is now at your
  8015. service!"
  8016.  
  8017. With a swoosh and a swirl of water, a large tortoise rises to the surface of
  8018. the reservoir and paddles over to the shore near you.  The message, "I'm
  8019. Darwin - ride me!" is inscribed on his back in ornate letters.
  8020. END_MESSAGE
  8021.  
  8022. ;JUMP
  8023.  
  8024. COMMAND JUMP
  8025. AtLocation [Top of Tree]
  8026. OR
  8027. AtLocation [circular Room]
  8028. OR
  8029. AtLocation [1st Level]
  8030. OR
  8031. AtLocation [2nd Level]
  8032. OR
  8033. AtLocation [3rd Level]
  8034. OR
  8035. AtLocation [4th Level]
  8036. OR
  8037. AtLocation [R30  North Ledge]
  8038. PrintMessage "That is very dangerous.  You could get killed doing that.  Oops!"
  8039. GoToRoom [Dead]
  8040. DoneWithTurn
  8041. END_COMMAND
  8042.  
  8043. COMMAND JUMP CHASM
  8044. InRoom [rickety bridge] ;troll bridge
  8045. PrintMessage [use bridge instead]
  8046. DoneWithTurn
  8047. END_COMMAND
  8048.  
  8049. COMMAND JUMP CHASM
  8050. IsSomewhere [crystal bridge]
  8051. AtLocation [east bank of fissure]
  8052. OR
  8053. AtLocation [west side of fissure]
  8054. PrintMessage [use bridge instead]
  8055. DoneWithTurn
  8056. END_COMMAND
  8057.  
  8058. COMMAND JUMP ANY
  8059. IsNowhere [crystal bridge]
  8060. AtLocation [east bank of fissure]
  8061. OR
  8062. AtLocation [west side of fissure]
  8063. PrintMessage [jump unsuccessful]
  8064. GoToRoom [bottom of the pit]
  8065. MinusScore 10
  8066. KillPlayer
  8067. DoneWithTurn
  8068. END_COMMAND
  8069.  
  8070. COMMAND JUMP ANY
  8071. IsNowhere [rickety bridge] ;troll bridge doesn't exist
  8072. AtLocation [SW chasm]
  8073. OR
  8074. AtLocation [NE chasm]
  8075. PrintMessage [jump unsuccessful]
  8076. GoToRoom [bottom of the pit]
  8077. MinusScore 10
  8078. KillPlayer
  8079. DoneWithTurn
  8080. END_COMMAND
  8081.  
  8082. MESSAGE [jump unsuccessful]
  8083. With a giant running leap, you sail up and over the chasm!  Unfortunately,
  8084. however, you don't sail over ALL of the chasm.  You fall for a long time
  8085. before landing on the rocks that litter the floor of the pit far below.
  8086. END_MESSAGE
  8087.  
  8088. COMMAND JUMP
  8089. AtLocation [tiny platform above volcano]
  8090. PrintMessage [SIZZLE]
  8091. GoToRoom [Dead]
  8092. KillPlayer
  8093. DoneWithTurn
  8094. END_COMMAND
  8095.  
  8096. COMMAND JUMP
  8097. AtLocation [cavern with waterfall]
  8098. ReDirectTo DOWN
  8099. DoneWithTurn
  8100. END_COMMAND
  8101.  
  8102. #COMMENT -- JUMP in bottomless pit and starve to death
  8103.  
  8104. COMMAND JUMP
  8105. AtLocation [at brink of bottomless pit]
  8106. OR
  8107. AtLocation [southern edge of bottomless pit]
  8108. OR
  8109. AtLocation [eastern edge of bottomless pit]
  8110. GoToRoom [Dead]
  8111. PrintMessage [FALL and STARVE]
  8112. KillPlayer
  8113. DoneWithTurn
  8114. END_COMMAND
  8115.  
  8116. #COMMENT -- JUMP and go splatt on bottom below
  8117.  
  8118. COMMAND JUMP
  8119. AtLocation [balcony]
  8120. OR
  8121. AtLocation [breath-taking view]
  8122. OR
  8123. AtLocation [right low window]
  8124. OR
  8125. AtLocation [long narrow corridor]
  8126. OR
  8127. AtLocation [misty cavern]
  8128. OR
  8129. AtLocation [left low window]
  8130. GoToRoom [Dead]
  8131. RandomMessage [PLUMMET 1] [PLUMMET 5]
  8132. KillPlayer
  8133. DoneWithTurn
  8134. END_COMMAND
  8135.  
  8136. MESSAGE [PLUMMET 1]
  8137. Aaaaaaaaaiiiiiiiiiiieeeeeeeeee........             >splat<
  8138. Hmmmm - I never saw a red flapjack before!
  8139. END_MESSAGE
  8140.  
  8141. #COMMENT  Turn off warnings -- this message is not directly referenced
  8142. #OPTIONS :-Warnings
  8143.  
  8144. MESSAGE [PLUMMET 2]
  8145. Aaaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhh........      >squish<
  8146. Yuck - what a mess!
  8147. END_MESSAGE
  8148.  
  8149. MESSAGE [PLUMMET 3]
  8150. Gaaaaaaaaaaaaaaaaaaaaaaaaaahhhhhh............       >crunch<
  8151. END_MESSAGE
  8152.  
  8153. MESSAGE [PLUMMET 4]
  8154. Haaaaaaaaaaaaaalllllllllllllllllpppppp...........    >smash<
  8155. END_MESSAGE
  8156.  
  8157. #COMMENT Return "Warnings" to its previous state
  8158. #OPTIONS =Warnings
  8159.  
  8160. MESSAGE [PLUMMET 5]
  8161. Aaaaaaaaaiiiiiiiiiiieeeeeeeeee........             >splat<
  8162.  
  8163. You are at the bottom with a broken neck.
  8164. END_MESSAGE
  8165.  
  8166. MESSAGE [FALL and STARVE]
  8167. You have jumped into a bottomless pit.  You continue to fall for a very long
  8168. time.  First, your lamp runs out of power and goes dead.  Later, you die of
  8169. hunger and thirst.
  8170. END_MESSAGE
  8171.  
  8172. COMMAND JUMP ANY
  8173. PrintMessage [don't be ridiculous]
  8174. DoneWithTurn
  8175. END_COMMAND
  8176.  
  8177. ;CLIMB/CROSS/FOLLOW
  8178.  
  8179. COMMAND CLIMB TREE
  8180. Present [Large trees]
  8181. AtLocation [Thick Woods]
  8182. BlankLine
  8183. PrintMessage [You climb up the tree.]
  8184. BlankLine
  8185. GoToROOM [Top of Tree]
  8186. DoneWithTurn
  8187. END_COMMAND
  8188.  
  8189. MESSAGE [You climb up the tree.]
  8190. You struggle up branch by branch till you reach the tallest part of the tree.
  8191. END_MESSAGE
  8192.  
  8193. COMMAND CLIMB ROPE
  8194. AtLocation [R641  Bell Room]
  8195. BlankLine
  8196. PrintMessage "You climb up the rope to the room above, where you find..."
  8197. BlankLine
  8198. GoToROOM [R645  Bells!  Bells!  Room]
  8199. DoneWithTurn
  8200. END_COMMAND
  8201.  
  8202. COMMAND CLIMB ROPE
  8203. AtLocation [R645  Bells!  Bells!  Room]
  8204. BlankLine
  8205. PrintMessage "You climb down the rope to the room below, where you find..."
  8206. BlankLine
  8207. GoToROOM [R641  Bell Room]
  8208. DoneWithTurn
  8209. END_COMMAND
  8210.  
  8211. COMMAND CLIMB
  8212. AtLocation [bottom of icy slide]
  8213. PrintMessage [SLIDE.SLIPPERY]
  8214. DoneWithTurn
  8215. END_COMMAND
  8216.  
  8217. MESSAGE [SLIDE.SLIPPERY]
  8218. The icy slide is far too steep and slippery to climb.
  8219. END_MESSAGE
  8220.  
  8221. COMMAND CLIMB ANY
  8222. InRoom [gigantic beanstalk]
  8223. PrintMessage [You climb up the beanstalk]
  8224. BlankLine
  8225. GoToRoom [long narrow corridor]
  8226. DoneWithTurn
  8227. END_COMMAND
  8228.  
  8229. MESSAGE [You climb up the beanstalk]
  8230. You climb up the beanstalk and scurry through the hole in the ceiling of the
  8231. cavern.
  8232. END_MESSAGE
  8233.  
  8234. COMMAND CLIMB ANY
  8235. InRoom [gigantic beanstalk top]
  8236. PrintMessage [climb down beanstalk]
  8237. BlankLine
  8238. GoToRoom [west pit]
  8239. DoneWithTurn
  8240. END_COMMAND
  8241.  
  8242. COMMAND CLIMB ANY
  8243. InRoom [12' beanstalk]
  8244. PrintMessage "You have climbed up the plant and out of the pit."
  8245. BlankLine
  8246. GoToRoom [W end of twopit room]
  8247. DoneWithTurn
  8248. END_COMMAND
  8249.  
  8250. COMMAND CLIMB ANY
  8251. InRoom [12' beanstalk top]
  8252. PrintMessage [climb down beanstalk]
  8253. BlankLine
  8254. GoToRoom [west pit]
  8255. DoneWithTurn
  8256. END_COMMAND
  8257.  
  8258. COMMAND CLIMB ANY
  8259. AtLocation [west pit]
  8260. OR
  8261. AtLocation [east pit]
  8262. PrintMessage "There is nothing here to climb.  Use "UP" to climb out of the pit."
  8263. DoneWithTurn
  8264. END_COMMAND
  8265.  
  8266. COMMAND CLIMB TREE
  8267. NOT AtLocation [inside building]
  8268. NOT AtLocation [Thick Woods]
  8269. AtLocation [end of road]
  8270. OR
  8271. AtLocationLT [R633  Behind the Alter]
  8272. PrintMessage [Stop clowning around!]
  8273. DoneWithTurn
  8274. END_COMMAND
  8275.  
  8276. MESSAGE [Stop clowning around!]
  8277. Stop clowning around!  You have places to go, people to see and things to do!
  8278. END_MESSAGE
  8279.  
  8280. #COMMENT ------- CROSS
  8281.  
  8282. COMMAND CROSS
  8283. AtLocation [reservoir]
  8284. PrintMessage [CANT.SWIM]
  8285. DoneWithTurn
  8286. END_COMMAND
  8287.  
  8288. MESSAGE [CANT.SWIM]
  8289. You can't swim, or walk on water.  You'll have to find some other way to get
  8290. across, or get someone to assist you.
  8291. END_MESSAGE
  8292.  
  8293. COMMAND CROSS
  8294. AtLocation [breath-taking view]
  8295. NOT Present [wheatstone bridge 1]
  8296. PrintMessage [NO.ARCH]
  8297. DoneWithTurn
  8298. END_COMMAND
  8299.  
  8300. COMMAND CROSS
  8301. AtLocation [breath-taking view]
  8302. Present [wheatstone bridge 1]
  8303. FlagON [bear following]
  8304. PrintMessage [LEAVE.BEAR]
  8305. DoneWithTurn
  8306. END_COMMAND
  8307.  
  8308. COMMAND CROSS
  8309. AtLocation [breath-taking view]
  8310. Present [wheatstone bridge 1]
  8311. IsCarrying [mithril ring]
  8312. PrintMessage [FUMES.MISS]
  8313. BlankLine
  8314. GoToRoom [S end of Stone Faces]
  8315. DoneWithTurn
  8316. END_COMMAND
  8317.  
  8318. COMMAND CROSS
  8319. AtLocation [breath-taking view]
  8320. Present [wheatstone bridge 1]
  8321. NOT IsCarrying [mithril ring]
  8322. PrintMessage [FUMES.BURN]
  8323. GoToRoom [Dead]
  8324. KillPlayer
  8325. DoneWithTurn
  8326. END_COMMAND
  8327.  
  8328. COMMAND CROSS
  8329. AtLocation [N end of reservoir]
  8330. Present [Darwin the turtle]
  8331. PrintMessage [TURTLE.BACK]
  8332. SendToRoom [Darwin the turtle] [nowhere]
  8333. BlankLine
  8334. GoToRoom [reservoir]
  8335. DoneWithTurn
  8336. END_COMMAND
  8337.  
  8338. COMMAND CROSS
  8339. AtLocation [N end of reservoir]
  8340. NOT Present [Darwin the turtle]
  8341. PrintMessage [CANT.SWIM]
  8342. DoneWithTurn
  8343. END_COMMAND
  8344.  
  8345. COMMAND CROSS
  8346. AtLocation [S end of Stone Faces]
  8347. NOT Present [wheatstone bridge 2]
  8348. PrintMessage [NO.ARCH]
  8349. DoneWithTurn
  8350. END_COMMAND
  8351.  
  8352. COMMAND CROSS
  8353. AtLocation [S end of Stone Faces]
  8354. Present [wheatstone bridge 2]
  8355. IsCarrying [mithril ring]
  8356. NOT IsCarrying [sapphire-encrusted sceptre]
  8357. PrintMessage [FUMES.MISS]
  8358. BlankLine
  8359. GoToRoom [breath-taking view]
  8360. DoneWithTurn
  8361. END_COMMAND
  8362.  
  8363. COMMAND CROSS
  8364. AtLocation [S end of Stone Faces]
  8365. Present [wheatstone bridge 2]
  8366. IsCarrying [mithril ring]
  8367. IsCarrying [sapphire-encrusted sceptre]
  8368. PrintMessage [GHOST.BANG]
  8369. GoToRoom [Dead]
  8370. KillPlayer
  8371. Destroy [wheatstone bridge 1]
  8372. Destroy [wheatstone bridge 2]
  8373. DoneWithTurn
  8374. END_COMMAND
  8375.  
  8376. COMMAND CROSS
  8377. AtLocation [S end of Stone Faces]
  8378. Present [wheatstone bridge 2]
  8379. NOT IsCarrying [mithril ring]
  8380. PrintMessage [FUMES.BURN]
  8381. GoToRoom [Dead]
  8382. KillPlayer
  8383. DoneWithTurn
  8384. END_COMMAND
  8385.  
  8386. COMMAND CROSS BRIDGE
  8387. Present [phony troll]
  8388. AtLocation [SW chasm] ;one side of troll bridge
  8389. GoToRoom [NE chasm] ;other side
  8390. PutInCurrentRoom [phony troll]
  8391. PutInCurrentRoom [rickety bridge] ;troll bridge
  8392. PrintMessage [scamper across]
  8393. DoneWithTurn
  8394. END_COMMAND
  8395.  
  8396. COMMAND CROSS BRIDGE
  8397. Present [phony troll]
  8398. AtLocation [NE chasm] ;one side of troll bridge
  8399. GoToRoom [SW chasm] ;other side
  8400. PutInCurrentRoom [phony troll]
  8401. PutInCurrentRoom [rickety bridge] ;troll bridge
  8402. PrintMessage [scamper across]
  8403. DoneWithTurn
  8404. END_COMMAND
  8405.  
  8406. COMMAND CROSS BRIDGE
  8407. NOT InRoom [burly troll]
  8408. InRoom [rickety bridge] ;troll bridge
  8409. FlagOFF [troll eliminated] ;troll can appear
  8410. PutInCurrentRoom [burly troll]
  8411. PrintMessage [troll appears]
  8412. LookAtRoom
  8413. DoneWithTurn
  8414. END_COMMAND
  8415.  
  8416. COMMAND CROSS BRIDGE
  8417. InRoom [burly troll]
  8418. PrintMessage [troll refuses]
  8419. DoneWithTurn
  8420. END_COMMAND
  8421.  
  8422. COMMAND CROSS BRIDGE
  8423. InRoom [bridge wreckage]
  8424. PrintMessage [no longer any way across]
  8425. DoneWithTurn
  8426. END_COMMAND
  8427.  
  8428. COMMAND CROSS BRIDGE
  8429. InRoom [rickety bridge]
  8430. FlagON [bear following]
  8431. PrintMessage [bridge buckles under bear]
  8432. Destroy [rickety bridge] ;troll bridge
  8433. Destroy [burly troll]
  8434. Destroy [phony troll]
  8435. Destroy [contented bear]
  8436. TurnFlagOFF [bear following]
  8437. SendToRoom [bridge wreckage] [SW chasm]
  8438. GoToRoom [bottom of the pit]
  8439. MinusScore 10
  8440. SendToRoom [OFF lamp] [inside building]
  8441. Destroy [ON lamp]
  8442. KillPlayer
  8443. DoneWithTurn
  8444. END_COMMAND
  8445.  
  8446. COMMAND CROSS BRIDGE
  8447. IsNowhere [crystal bridge]
  8448. AtLocation [east bank of fissure]
  8449. OR
  8450. AtLocation [west side of fissure]
  8451. PrintMessage [no way across]
  8452. DoneWithTurn
  8453. END_COMMAND
  8454.  
  8455. COMMAND FOLLOW STREAM
  8456. AtLocation [end of road]
  8457. PrintMessage [$verb$ the $noun$ for a while]
  8458. BlankLine
  8459. GoToRoom [valley]
  8460. DoneWithTurn
  8461. END_COMMAND
  8462.  
  8463. COMMAND FOLLOW STREAM
  8464. AtLocation [inside building]
  8465. PrintMessage [stream goes through pipe; use exit]
  8466. DoneWithTurn
  8467. END_COMMAND
  8468.  
  8469. COMMAND FOLLOW STREAM
  8470. AtLocation [slit]
  8471. PrintMessage "You don't fit through a two-inch slit!"
  8472. DoneWithTurn
  8473. END_COMMAND
  8474.  
  8475. COMMAND FOLLOW STREAM
  8476. AtLocation [valley]
  8477. PrintMessage [$verb$ the $noun$ for a while]
  8478. BlankLine
  8479. GoToRoom [slit]
  8480. DoneWithTurn
  8481. END_COMMAND
  8482.  
  8483. COMMAND FOLLOW STREAM
  8484. AtLocation [slit]
  8485. PrintMessage [$verb$ the $noun$ for a while]
  8486. BlankLine
  8487. GoToRoom [depression outside grate]
  8488. DoneWithTurn
  8489. END_COMMAND
  8490.  
  8491. COMMAND FOLLOW ROAD
  8492. AtLocation [end of road]
  8493. PrintMessage [$verb$ the $noun$ for a while]
  8494. BlankLine
  8495. GoToRoom [hill by road]
  8496. DoneWithTurn
  8497. END_COMMAND
  8498.  
  8499. COMMAND FOLLOW ROAD
  8500. AtLocation [hill by road]
  8501. PrintMessage [$verb$ the $noun$ for a while]
  8502. BlankLine
  8503. GoToRoom [end of road]
  8504. DoneWithTurn
  8505. END_COMMAND
  8506.  
  8507. COMMAND FOLLOW PIRATE
  8508. PrintMessage [can't be serious]
  8509. PrintMessage [$NOUN$ is long gone]
  8510. DoneWithTurn
  8511. END_COMMAND
  8512.  
  8513. COMMAND FOLLOW PROGRAMMER
  8514. PrintMessage [can't be serious]
  8515. PrintMessage [$NOUN$ is long gone]
  8516. DoneWithTurn
  8517. END_COMMAND
  8518.  
  8519. COMMAND FOLLOW DWARF
  8520. FlagON [dwarf here]
  8521. PrintMessage [it's already here]
  8522. DoneWithTurn
  8523. END_COMMAND
  8524.  
  8525. COMMAND FOLLOW DWARF
  8526. FlagOFF [dwarf here]
  8527. PrintMessage [You follow dwarf]
  8528. DoneWithTurn
  8529. END_COMMAND
  8530.  
  8531. MESSAGE [You follow dwarf]
  8532. You have crawled around in some small passages and wound up back where you
  8533. started in the first place.
  8534. END_MESSAGE
  8535.  
  8536. COMMAND FOLLOW TROLL
  8537. NOT InRoom [burly troll]
  8538. PrintMessage [where to go] ;Tell me where to go to $verb$ the $noun$
  8539. DoneWithTurn
  8540. END_COMMAND
  8541.  
  8542. COMMAND FOLLOW TROLL
  8543. InRoom [burly troll]
  8544. PrintMessage [it's already here]
  8545. DoneWithTurn
  8546. END_COMMAND
  8547.  
  8548. COMMAND CLIMB ANY
  8549. PrintMessage [where to go] ;Tell me where to go to $verb$ the $noun$
  8550. DoneWithTurn
  8551. END_COMMAND
  8552.  
  8553. #COMMENT -- KISS
  8554.  
  8555. COMMAND KISS TOAD
  8556. Present [horny toad]
  8557. Destroy [horny toad]
  8558. PrintMessage [The toad turns into an ugly dwarf princess]
  8559. PlusScore 10 ; wizard gives you 10 points
  8560. DoneWithTurn
  8561. END_COMMAND
  8562.  
  8563. MESSAGE [The toad turns into an ugly dwarf princess]
  8564. You must really have a sick mind!  But -- your wish is my COMMAND and must be
  8565. obeyed -- no matter how bizarre.  Ok ...  here goes ...  You pick up the toad.
  8566. Grasping it firmly, you give it a tender little kiss on the top of the head.
  8567. Suddenly, the earth starts to tremble and the toad begins to glow with a
  8568. bright red light.  You are blinded by the light and cover your eyes with your
  8569. arm.  After a while the earth stops trembling and you remove your arm from
  8570. your eyes.
  8571.  
  8572. It's -- it's -- it's turning into a dwarf princess!
  8573.  
  8574. She -- she -- she's -- she's -- UGLY! -- VERY UGLY!!!!!!
  8575.  
  8576. She's 3'6" tall, and 180 lbs., with black, oily, snarly hair, and three large
  8577. warts on her nose, which separates two beady red eyes that don't track.  She
  8578. immediately starts to say, in a high-pitched nasal whine, "Trying to pick me
  8579. up, eh sweetie?  Where do you think you get off?  I'm a decent broad, and
  8580. won't have any of this.  Whatcha doing around here?  You one of those weird
  8581. explorers who rip off decent folks, taking their treasures out of the cave?
  8582. I hope you haven't found the magic wand yet . . . "
  8583.  
  8584. A cloud of white smoke and a wizard appear.  He is garbed in green and violet
  8585. robes, and says  "I really must apologize about this.  She has no business in
  8586. this game; she escaped from another game in the next town.  To compensate you
  8587. for this inconvenience, let me add ten points to your score.  Sorry again."
  8588. With that, he takes her hand, and they start to vanish.  As they fade out of
  8589. sight, you note that she has taken his hat, and is beating him severely about
  8590. the ears with it.
  8591. END_MESSAGE
  8592.  
  8593. COMMAND KISS ANY
  8594. PrintMessage [don't be ridiculous]
  8595. DoneWithTurn
  8596. END_COMMAND
  8597.  
  8598. #COMMENT -- "bad" words
  8599.  
  8600. COMMAND SHIT
  8601. PrintMessage [Watch it!  This adventure is rated G!]
  8602. MinusScore 10
  8603. DoneWithTurn
  8604. END_COMMAND
  8605.  
  8606. MESSAGE [Watch it!  This adventure is rated G!]
  8607. Hey!  Watch it!  This adventure is rated  "G"!
  8608. END_MESSAGE
  8609.  
  8610. ;TALK TO/TELL/ASK
  8611.  
  8612. #COMMENT -- TELL TIME
  8613.  
  8614. COMMAND TELL TIME
  8615. Present [clock]
  8616. ReDirectTo SAY TIME
  8617. END_COMMAND
  8618.  
  8619. COMMAND TELL TIME
  8620. Present [Gold Watch]
  8621. ReDirectTo SAY TIME
  8622. END_COMMAND
  8623.  
  8624. COMMAND TELL TIME
  8625. NOT Present [Gold Watch]
  8626. NOT Present [clock]
  8627. PrintMessage [Perhaps, you can find a sun dial somewhere.]
  8628. DoneWithTurn
  8629. END_COMMAND
  8630.  
  8631. COMMAND TALK TO TOAD
  8632. Present [horny toad]
  8633. PrintMessage [you chat with toad]
  8634. DoneWithTurn
  8635. END_COMMAND
  8636.  
  8637. COMMAND ASK TOAD ABOUT ANY
  8638. Present [horny toad]
  8639. PrintMessage [you chat with toad]
  8640. DoneWithTurn
  8641. END_COMMAND
  8642.  
  8643. MESSAGE [you chat with toad]
  8644. Talking to a toad is rather strange -- even for you!  You must be desperate to
  8645. solve this adventure or have other kinds of problems.  The toad seems somewhat
  8646. amused by your attempts at communication.  It stares at you and then responds
  8647. with a loud belch-like "RIB-BIT".
  8648. END_MESSAGE
  8649.  
  8650. COMMAND TALK TO PLANT
  8651. AtLocation [west pit]
  8652. PrintMessage "The plant cries out, "Water...water, please ....  water"."
  8653. DoneWithTurn
  8654. END_COMMAND
  8655.  
  8656. COMMAND TALK TO DWARF
  8657. FlagON [dwarf here]
  8658. PrintMessage [$noun$ jabbers]
  8659. DoneWithTurn
  8660. END_COMMAND
  8661.  
  8662. MESSAGE [$noun$ jabbers]
  8663. The $noun$ starts jabbering away and jumping up and down excitedly.
  8664. Unfortunately, he is speaking Dwarvish, so you cannot understand what he is
  8665. saying.  However, he appears very angry!
  8666. END_MESSAGE
  8667.  
  8668. COMMAND TALK TO FIGURE
  8669. InRoom [shadowy figure (right)]
  8670. OR
  8671. InRoom [shadowy figure (left)]
  8672. PrintMessage [You talk to figure]
  8673. DoneWithTurn
  8674. END_COMMAND
  8675.  
  8676. MESSAGE [You talk to figure]
  8677. You talk to the figure, but the figure just ignores you.  Finally, you yell at
  8678. the top of your lungs.  The figure still ignores you.  It is almost like
  8679. talking to yourself.
  8680. END_MESSAGE
  8681.  
  8682. COMMAND TALK TO PIRATE
  8683. PrintMessage [$NOUN$ is long gone]
  8684. DoneWithTurn
  8685. END_COMMAND
  8686.  
  8687. COMMAND TALK TO TROLL
  8688. InRoom [burly troll]
  8689. PrintMessage [You talk to troll]
  8690. DoneWithTurn
  8691. END_COMMAND
  8692.  
  8693. MESSAGE [You talk to troll]
  8694. The troll scowls at you and spits on the ground.  "I have no time for chit-
  8695. chat, just give me a treasure and you can cross the bridge!", he says with
  8696. anger in his voice.
  8697. END_MESSAGE
  8698.  
  8699. COMMAND TALK TO ANY
  8700. NOUNPresent
  8701. PrintMessage "The $noun$ ignores your feeble attempts to communicate."
  8702. DoneWithTurn
  8703. END_COMMAND
  8704.  
  8705. COMMAND TALK TO ANY
  8706. PrintMessage "Talking to yourself is a sign of a very sick mind!"
  8707. DoneWithTurn
  8708. END_COMMAND
  8709.  
  8710. ;ATTACH or TIE
  8711.  
  8712. COMMAND ATTACH CUPS TO FLOOR
  8713. Present [suction cups]
  8714. AtLocation [computer center]
  8715. IsNoWhere [hole in floor]
  8716. PrintMessage [You lift up tile]
  8717. ChangePassageway [down] [below the computer center]
  8718. DropIt [hole in floor]
  8719. PlusScore 15
  8720. DoneWithTurn
  8721. END_COMMAND
  8722.  
  8723. MESSAGE [You lift up tile]
  8724. You attach the suction cups to the floor tiles and lift up.  A tile comes up
  8725. making a hole in the floor.
  8726. END_MESSAGE
  8727.  
  8728. COMMAND ATTACH CUPS TO ANY
  8729. Present [suction cups]
  8730. OBJECTPresent
  8731. PrintMessage [You attach them briefly]
  8732. DropIt [suction cups]
  8733. DoneWithTurn
  8734. END_COMMAND
  8735.  
  8736. MESSAGE [You attach them briefly]
  8737. You attach the suction cups to the $object$.  After a moment or two, the cups
  8738. lose their suction and fall off.
  8739. END_MESSAGE
  8740.  
  8741. ;LIST
  8742.  
  8743. COMMAND LIST ANY
  8744. FlagOFF [lamp lit]
  8745. FlagON [dark w/o lamp] ;room needs light
  8746. PrintMessage [now dark] ; so can't LIST EXITS
  8747. DoneWithTurn
  8748. END_COMMAND
  8749.  
  8750. ;COMMANDS -- READ
  8751.  
  8752. #COMMENT -- READ WATCH or CLOCK
  8753.  
  8754. COMMAND READ TIME
  8755. Present [clock]
  8756. OR
  8757. Present [Gold Watch]
  8758. ReDirectTo SAY TIME
  8759. END_COMMAND
  8760.  
  8761. COMMAND READ WATCH
  8762. Present [Gold Watch]
  8763. ReDirectTo SAY TIME
  8764. END_COMMAND
  8765.  
  8766. COMMAND READ CLOCK
  8767. Present [clock]
  8768. ReDirectTo SAY TIME
  8769. END_COMMAND
  8770.  
  8771. COMMAND READ SIGN
  8772. AtLocation [circular Room]
  8773. PrintMessage "It still says 'DEAD END'!"
  8774. DoneWithTurn
  8775. END_COMMAND
  8776.  
  8777. MESSAGE [Commandment List]
  8778. The paint is cracked and faded and the letters are difficult to read.
  8779. However, it appears to be a long list of commandments.  There are many, many,
  8780. many more than ten.  Your eyes scan the list and fall randomly on a
  8781. commandment near the bottom of the list.
  8782.  
  8783. You just make it out...
  8784.  
  8785. COMMANDMENT #12592
  8786. Oh ye who write Adventure Games that torment the player with stupid puzzles:
  8787. Dost thou know the magnitude of thy sin before the gods?  Yea, verily, thou
  8788. shalt be ground between two stones.  Shall the angry gods cast thy body into
  8789. the whirlpool?  Surely, thy eye shall be put out with a sharp stick!  Even
  8790. unto the ends of the earth shalt thou wander and unto the land of the dead
  8791. shalt thou be sent at last.  Surely thou shalt repent of thy low cunning.
  8792.  
  8793. You smile and nod your head in agreement and approval.
  8794. END_MESSAGE
  8795.  
  8796. COMMAND READ SIGN
  8797. FlagOFF [has read commandment list]
  8798. AtLocation [R643  The Pulpit]
  8799. PrintMessage [Commandment List]
  8800. PlusScore 10
  8801. TurnFlagON [has read commandment list]
  8802. DoneWithTurn
  8803. END_COMMAND
  8804.  
  8805. COMMAND READ SIGN
  8806. FlagON [has read commandment list]
  8807. AtLocation [R643  The Pulpit]
  8808. PrintMessage [Commandment List]
  8809. DoneWithTurn
  8810. END_COMMAND
  8811.  
  8812. COMMAND READ DISK
  8813. AtLocation [computer center]
  8814. Present [floppy disk]
  8815. PrintMessage [You insert disk in PC]
  8816. BlankLine
  8817. PrintMessage [AGT info]
  8818. PlusScore 10
  8819. DoneWithTurn
  8820. END_COMMAND
  8821.  
  8822. MESSAGE [You insert disk in PC]
  8823. You insert the disk in drive A: of the PC and list the directory.  You see a
  8824. file named READ.ME.  You decide to see what it says by typing the COMMAND
  8825. "TYPE READ.ME".  The screen shows...
  8826.  
  8827. ************* CONGRATULATIONS ***************
  8828. You just got ten points added to your score!!
  8829. END_MESSAGE
  8830.  
  8831. COMMAND READ DIARY
  8832. FlagOFF [Has read AGT info in diary]
  8833. Present [old diary] (* Witt's Diary *)
  8834. PrintMessage [AGT Info]
  8835. TurnFlagON [Has read AGT info in diary]
  8836. DoneWithTurn
  8837. END_COMMAND
  8838.  
  8839. COMMAND READ DIARY
  8840. FlagON [Has read AGT info in diary]
  8841. Present [old diary] (* Witt's Diary *)
  8842. RandomMessage [Funny Saying -- First] [Funny Saying -- Last]
  8843. DoneWithTurn
  8844. END_COMMAND
  8845.  
  8846. COMMAND READ SIGN
  8847. AtLocation [computer center]
  8848. PrintMessage [No Smoking]
  8849. DoneWithTurn
  8850. END_COMMAND
  8851.  
  8852. MESSAGE [No Smoking]
  8853. The sign reads: "Expiratory Distribution of Partially Ignited Hydrocarbons
  8854. into the Immediate Atmosphere Strictly Disallowed".  Below these words is a
  8855. picture of a burning cigarette with a red circle and a red line drawn through
  8856. it.
  8857. END_MESSAGE
  8858.  
  8859. COMMAND READ SIGN
  8860. FlagON [has read about secret words]
  8861. Present [faded sign]
  8862. PrintMessage [AGT Info]
  8863. DoneWithTurn
  8864. END_COMMAND
  8865.  
  8866. COMMAND READ SIGN
  8867. FlagOFF [has read about secret words]
  8868. Present [faded sign]
  8869. PrintMessage [Secret Word Info]
  8870. TurnFlagON [has read about secret words]
  8871. DoneWithTurn
  8872. END_COMMAND
  8873.  
  8874. MESSAGE [Secret Word Info]
  8875. When first released, this game offered a special $100 prize to the first
  8876. person to discover 10 "secret words" that were hidden throughout this
  8877. adventure!!!  Sorry, but the prize has already been won.
  8878.  
  8879. But as a special challenge, the secret words have been left in the game.  Try
  8880. to find them!!!
  8881. END_MESSAGE
  8882.  
  8883. COMMAND READ GUIDEBOOK
  8884. FlagOFF [Has read AGT info in guidebook]
  8885. Present [Adventure Guidebook]
  8886. PrintMessage [AGT Info]
  8887. TurnFlagON [Has read AGT info in guidebook]
  8888. DoneWithTurn
  8889. END_COMMAND
  8890.  
  8891. COMMAND READ GUIDEBOOK
  8892. FlagON [Has read AGT info in guidebook]
  8893. Present [Adventure Guidebook]
  8894. RandomMessage [Funny Saying -- First] [Funny Saying -- Last]
  8895. DoneWithTurn
  8896. END_COMMAND
  8897.  
  8898. COMMAND READ ANY
  8899. AtLocation [programmer's den]
  8900. TurnFlagOFF [secret word given] ;revoke secret words
  8901. TurnFlagON [programmer angry] ;programmer is angry
  8902. PrintMessage [programmer takes revenge]
  8903. MinusScore 25 ;That will teach you
  8904. GoToRoom [twisty 44] ;Pirate's maze - just south of Pirate's den
  8905. DoneWithTurn
  8906. END_COMMAND
  8907.  
  8908. COMMAND READ COMPASS
  8909. Present [Compass]
  8910. ReDirectTo EXAMINE COMPASS
  8911. DoneWithTurn
  8912. END_COMMAND
  8913.  
  8914. COMMAND READ OYSTER
  8915. NOUNpresent
  8916. PrintMessage [It is written in Dwarvish]
  8917. DoneWithTurn
  8918. END_COMMAND
  8919.  
  8920. MESSAGE [It is written in Dwarvish]
  8921. I'm afraid it is written in Dwarvish (a language somewhat like LISP or APL --
  8922. i.e., it is a "write-only" language and is totally unreadable).
  8923. END_MESSAGE
  8924.  
  8925. COMMAND READ ANY
  8926. FlagON [dark w/o lamp]
  8927. NOT Present [ON lamp]
  8928. PrintMessage "You can't read in the dark!"
  8929. DoneWithTurn
  8930. END_COMMAND
  8931.  
  8932. ;EXAMINE
  8933.  
  8934. COMMAND EXAMINE ANY
  8935. AtLocation [programmer's den]
  8936. TurnFlagOFF [secret word given] ;revoke secret words
  8937. TurnFlagON [programmer angry]
  8938. PrintMessage [programmer takes revenge]
  8939. MinusScore 25 ;That will teach you
  8940. GoToRoom [twisty 44] ;Pirate's maze - just south of Pirate's den
  8941. DoneWithTurn
  8942. END_COMMAND
  8943.  
  8944. COMMAND EXAMINE BELL
  8945. AtLocation [R645  Bells!  Bells!  Room]
  8946. PrintMessage [Bells description]
  8947. DoneWithTurn
  8948. END_COMMAND
  8949.  
  8950. MESSAGE [Bells description]
  8951. The bells are of all shapes and sizes.  However, they are all too heavy
  8952. to carry.
  8953. END_MESSAGE
  8954.  
  8955. COMMAND EXAMINE SCEPTRE
  8956. Present [skeleton on throne in Audience hall]
  8957. DescribeThing [sapphire-encrusted sceptre]
  8958. DoneWithTurn
  8959. END_MESSAGE
  8960.  
  8961. MESSAGE [Describe Cane]
  8962. The cane is about 3 feet long and made of ebony.  It is quite sturdy.  The
  8963. head of the cane is gold with various precious jewels.  The rabbit is holding
  8964. be his side and occasionally shaking it at you.
  8965. END_MESSAGE
  8966.  
  8967. COMMAND EXAMINE CANE
  8968. Present [Gigantic Rabbit]
  8969. PrintMessage [Describe Cane]
  8970. DoneWithTurn
  8971. END_COMMAND
  8972.  
  8973. COMMAND EXAMINE WIRE
  8974. FlagOFF [has found gold watch]
  8975. AtLocation [small room below the computer center]
  8976. DescribeThing [wire and cable]
  8977. BlankLine
  8978. PrintMessage "You discover something bright and ticking among the wires."
  8979. DropIt [Gold Watch]
  8980. TurnFlagON [has found gold watch]
  8981. DoneWithTurn
  8982. END_COMMAND
  8983.  
  8984. COMMAND EXAMINE WIRE
  8985. FlagON [has found gold watch]
  8986. AtLocation [small room below the computer center]
  8987. DescribeThing [wire and cable]
  8988. DoneWithTurn
  8989. END_COMMAND
  8990.  
  8991. COMMAND EXAMINE MATCHES
  8992. Present [matches]
  8993. VariableEquals [matches left] 1
  8994. PrintMessage "There is only one match left.  Don't waste it!"
  8995. DoneWithTurn
  8996. END_COMMAND
  8997.  
  8998. COMMAND EXAMINE CANDLE
  8999. Present [burning candle]
  9000. DescribeThing [burning candle]
  9001. DoneWithTurn
  9002. END_COMMAND
  9003.  
  9004. COMMAND EXAMINE CANDLE
  9005. Present [candles]
  9006. VariableEquals [candles left] 1
  9007. PrintMessage "There is only one candle left."
  9008. DoneWithTurn
  9009. END_COMMAND
  9010.  
  9011. COMMAND EXAMINE CANDLE
  9012. Present [candles]
  9013. DescribeThing [candles]
  9014. DoneWithTurn
  9015. END_COMMAND
  9016.  
  9017. COMMAND EXAMINE DRAWER
  9018. AtLocation [private office] (* Witt's Office *)
  9019. PrintMessage [It has an ornate gold lock]
  9020. DoneWithTurn
  9021. END_COMMAND
  9022.   
  9023. COMMAND EXAMINE COMPASS
  9024. AtLocation [inside Rabbit's Warren]
  9025. Present [compass]
  9026. PrintMessage [Compass Reading -- East]
  9027. TurnFlagON [Has used compass in Rabbit's Warren]
  9028. DoneWithTurn
  9029. END_COMMAND
  9030.  
  9031. COMMAND EXAMINE COMPASS
  9032. Present [Compass]
  9033. RandomMessage [Compass Reading -- North] [Compass Reading -- West]
  9034. DoneWithTurn
  9035. END_COMMAND
  9036.  
  9037. MESSAGE [Compass Reading -- North]
  9038. The needle of the compass is currently pointing North.
  9039. END_MESSAGE
  9040.  
  9041. #COMMENT  Turn off warnings -- this message is not directly referenced
  9042. #OPTIONS :-Warnings
  9043.  
  9044. MESSAGE [Compass Reading -- South]
  9045. The needle of the compass is currently pointing South.
  9046. END_MESSAGE
  9047.  
  9048. MESSAGE [Compass Reading -- East]
  9049. The needle of the compass is currently pointing East.
  9050. END_MESSAGE
  9051.  
  9052. #COMMENT Return "Warnings" to its previous state
  9053. #OPTIONS =Warnings
  9054.  
  9055. MESSAGE [Compass Reading -- West]
  9056. The needle of the compass is currently pointing West.
  9057. END_MESSAGE
  9058.  
  9059. COMMAND EXAMINE STREAM
  9060. AtLocationLT [R602  Narrow Gully]
  9061. PrintMessage [stream is nice and cool -- you take a drink]
  9062. DoneWithTurn
  9063. END_MESSAGE
  9064.  
  9065. MESSAGE [stream is nice and cool -- you take a drink]
  9066. The stream is clear and cold.  It looks so refreshing that you pause to take
  9067. a drink.
  9068. END_MESSAGE
  9069.  
  9070. COMMAND EXAMINE STREAM
  9071. AtLocation [inside building]
  9072. PrintMessage [stream goes through pipe; use exit]
  9073. DoneWithTurn
  9074. END_COMMAND
  9075.  
  9076. COMMAND EXAMINE STREAM
  9077. AtLocation [valley]
  9078. OR
  9079. AtLocation [end of road]
  9080. PrintMessage [stream clear & cold]
  9081. DoneWithTurn
  9082. END_COMMAND
  9083.  
  9084. MESSAGE [stream clear & cold]
  9085. The stream is clear and cold.  It runs down through the rocks and trees from
  9086. north to south.
  9087. END_MESSAGE
  9088.  
  9089. COMMAND EXAMINE STREAM
  9090. AtLocation [slit]
  9091. PrintMessage "The stream flows into the slit in the rock.  It is cold and clear."
  9092. DoneWithTurn
  9093. END_COMMAND
  9094.  
  9095. COMMAND EXAMINE BUILDING
  9096. AtLocation [end of road]
  9097. PrintMessage [building is ...]
  9098. DoneWithTurn
  9099. END_COMMAND
  9100.  
  9101. MESSAGE [building is ...]
  9102. The building is about 20 feet on a side and made of old bricks.  It appears to
  9103. be a well house for a stream which runs out of the building through two pipes.
  9104. The stream continues down a gully to the south.
  9105. END_MESSAGE
  9106.  
  9107. COMMAND EXAMINE TREE
  9108. NOT AtLocation [inside building]
  9109. NOT AtLocation [Thick Woods]
  9110. AtLocation [end of road]
  9111. OR
  9112. AtLocationLT [R633  Behind the Alter]
  9113. PrintMessage [trees are ...]
  9114. DoneWithTurn
  9115. END_COMMAND
  9116.  
  9117. MESSAGE [trees are ...]
  9118. The trees of the forest are large hardwood oak and maple, with an occasional
  9119. grove of pine or spruce.  There is quite a bit of undergrowth, largely birch
  9120. and ash saplings plus nondescript bushes of various sorts.  This time of year
  9121. visibility is quite restricted by all the leaves, but travel is quite easy if
  9122. you detour around the spruce and berry bushes.
  9123. END_MESSAGE
  9124.  
  9125. COMMAND EXAMINE GRATE
  9126. AtLocation [air-conditioned room]
  9127. OR
  9128. Present [air-conditioning grate]
  9129. DescribeThing [air-conditioning grate]
  9130. DoneWithTurn
  9131. END_COMMAND
  9132.  
  9133. COMMAND EXAMINE GRATE
  9134. AtLocation [depression outside grate]
  9135. OR
  9136. AtLocation [below grate]
  9137. OR
  9138. AtLocation [cylindrical chamber]
  9139. PrintMessage [You can not unlock it without a key]
  9140. DoneWithTurn
  9141. END_COMMAND
  9142.  
  9143. MESSAGE [You can not unlock it without a key]
  9144. The grate is very solid and has a hardened steel lock.  You can not unlock it
  9145. without a key, and there are no keys nearby.
  9146. END_MESSAGE
  9147.  
  9148. COMMAND EXAMINE CAGE
  9149. Present [caged bird]
  9150. PrintMessage [describe cage]
  9151. DoneWithTurn
  9152. END_COMMAND
  9153.  
  9154. MESSAGE [describe cage]
  9155. The cage is made of wicker.  It currently houses a rather unhappy looking
  9156. bird.  The bird has stopped singing and almost appears to be pouting.
  9157. END_MESSAGE
  9158.  
  9159. COMMAND EXAMINE CHASM
  9160. AtLocation [east bank of fissure]
  9161. OR
  9162. AtLocation [west side of fissure]
  9163. OR
  9164. AtLocation [SW chasm]
  9165. OR
  9166. AtLocation [NE chasm]
  9167. OR
  9168. AtLocation [R30  North Ledge]
  9169. PrintMessage [describe chasm]
  9170. DoneWithTurn
  9171. END_COMMAND
  9172.  
  9173. MESSAGE [describe chasm]
  9174. You peer across the chasm and can just make out the other side through the
  9175. thick white mist.  The chasm is too wide to jump.  You drop a small rock over
  9176. the edge into the mist and it is quite a while before you hear it hit bottom.
  9177. END_MESSAGE
  9178.  
  9179. COMMAND EXAMINE MIST
  9180. PrintMessage [describe mist]
  9181. DoneWithTurn
  9182. END_COMMAND
  9183.  
  9184. MESSAGE [describe mist]
  9185. Mist is a white vapor, usually water.  Seen from time to time in caverns.  It
  9186. can be found anywhere but is often a sign of a deep pit leading down to water.
  9187. END_MESSAGE
  9188.  
  9189. COMMAND EXAMINE MAZE
  9190. AtLocation [twisty little passages] ;vending machine maze
  9191. OR
  9192. AtLocation [twisting little maze]
  9193. OR
  9194. AtLocationGT [barren room]
  9195. AtLocationLT [end of road]
  9196. PrintMessage [describe maze]
  9197. DoneWithTurn
  9198. END_COMMAND
  9199.  
  9200. COMMAND EXAMINE MAZE
  9201. AtLocationGT [W end - hall of mists] ;pirate's maze
  9202. AtLocationLT [brink of 30' pit]
  9203. PrintMessage [describe maze]
  9204. DoneWithTurn
  9205. END_COMMAND
  9206.  
  9207. MESSAGE [describe maze]
  9208. The rooms in this part of the cave are like a maze.  All of them are
  9209. interconnected by twisting little passages heading off in all directions.
  9210. There are also many dead ends.  You appear to be thoroughly and utterly lost.
  9211. END_MESSAGE
  9212.  
  9213. COMMAND EXAMINE CAVE
  9214. AtLocationGT [cobble crawlway] ;in cave
  9215. AtLocationLT [end of road]
  9216. PrintMessage [describe cave]
  9217. DoneWithTurn
  9218. END_COMMAND
  9219.  
  9220. MESSAGE [describe cave]
  9221. The cave walls are rough.  The floor is covered with dirt and small rocks.
  9222. A few stalactites hang down from the ceiling -- but not far enough to reach.
  9223. The air is musty and smells slightly of sulfur.  Altogether a depressing
  9224. place.
  9225. END_MESSAGE
  9226.  
  9227. COMMAND EXAMINE ROAD
  9228. AtLocation [hill by road]
  9229. OR 
  9230. AtLocation [end of road]
  9231. PrintMessage [describe road]
  9232. DoneWithTurn
  9233. END_COMMAND
  9234.  
  9235. MESSAGE [describe road]
  9236. The road is little more than a dirt path.  It winds from the building to the
  9237. forest area at the top of the small hill.
  9238. END_MESSAGE
  9239.  
  9240. COMMAND EXAMINE MINOTAUR
  9241. AtLocation [N end of Stone Faces]
  9242. DescribeThing [Statue of minotaur]
  9243. DoneWithTurn
  9244. END_COMMAND
  9245.  
  9246. COMMAND EXAMINE YACHT
  9247. Present [Ruby-covered toy yacht]
  9248. SwapLocations [Ruby-covered toy yacht] [Ruby Yacht of Omar Khayyam]
  9249. DescribeThing [Ruby Yacht of Omar Khayyam]
  9250. DoneWithTurn
  9251. END_COMMAND
  9252.  
  9253. COMMAND EXAMINE SCULPTURE
  9254. Present [rock-crystal sculpture]
  9255. RandomMessage [rock-crystal description 1] [rock-crystal description 9]
  9256. END_COMMAND
  9257.  
  9258. MESSAGE [rock-crystal description 1]
  9259. The crystal sculpture is a small delicate carving of a computer programmer.
  9260. END_MESSAGE
  9261.  
  9262. #COMMENT  Turn off warnings -- this message is not directly referenced
  9263. #OPTIONS :-Warnings
  9264.  
  9265. MESSAGE [rock-crystal secret word]
  9266. SECRET WORD #8 -- RESTIVE (adj) unmanageable; fretting under control.
  9267. END_MESSAGE
  9268.  
  9269. MESSAGE [rock-crystal description 2]
  9270. The crystal sculpture is a small delicate carving of a pig.
  9271. END_MESSAGE
  9272.  
  9273. MESSAGE [rock-crystal description 3]
  9274. The crystal sculpture is a small delicate carving of an eel.
  9275. END_MESSAGE
  9276.  
  9277. MESSAGE [rock-crystal description 4]
  9278. The crystal sculpture is a small delicate carving of a spotted owl.
  9279. END_MESSAGE
  9280.  
  9281. MESSAGE [rock-crystal description 5]
  9282. The crystal sculpture is a small delicate carving of a dwarf.
  9283. END_MESSAGE
  9284.  
  9285. MESSAGE [rock-crystal description 6]
  9286. The crystal sculpture is a small delicate carving of an elf.
  9287. END_MESSAGE
  9288.  
  9289. MESSAGE [rock-crystal description 7]
  9290. The crystal sculpture is a small delicate carving of a dragon.
  9291. END_MESSAGE
  9292.  
  9293. MESSAGE [rock-crystal description 8]
  9294. The crystal sculpture is a small delicate carving of an emu.
  9295. END_MESSAGE
  9296.  
  9297. #COMMENT Return "Warnings" to its previous state
  9298. #OPTIONS =Warnings
  9299.  
  9300. MESSAGE [rock-crystal description 9]
  9301. The crystal sculpture is a small delicate carving of a ibex.
  9302. END_MESSAGE
  9303.  
  9304. COMMAND EXAMINE BRIDGE
  9305. AtLocation [R612  Humpbacked Bridge]
  9306. OR
  9307. AtLocation [R617  Beside the Stream]
  9308. OR
  9309. AtLocation [R618  South End of Bridge]
  9310. OR
  9311. AtLocation  [R623  Forest Track]
  9312. PrintMessage [Describe  Humpbacked Bridge]
  9313. DoneWithTurn
  9314. END_COMMAND
  9315.  
  9316. MESSAGE [Describe  Humpbacked Bridge]
  9317. The humpbacked bridge is a picturesque stone structure, coated in moss and
  9318. creepers.
  9319. END_MESSAGE
  9320.  
  9321. COMMAND EXAMINE WATER
  9322. AtLocation [on the beach]
  9323. PrintMessage [SALT.H20.BAD]
  9324. DoneWithTurn
  9325. END_COMMAND
  9326.  
  9327. MESSAGE [SALT.H20.BAD]
  9328. I'm afraid that all that's available here is salt water, which isn't good for
  9329. anything much...  you'd better try elsewhere.
  9330. END_MESSAGE
  9331.  
  9332. #COMMENT -- EXAMINE WATCH or CLOCK
  9333.  
  9334. COMMAND EXAMINE WATCH
  9335. Present [Gold Watch]
  9336. DescribeThing [Gold Watch]
  9337. BlankLine
  9338. ReDirectTo SAY TIME
  9339. END_COMMAND
  9340.  
  9341. COMMAND EXAMINE CLOCK
  9342. Present [clock]
  9343. DescribeThing [clock]
  9344. BlankLine
  9345. ReDirectTo SAY TIME
  9346. END_COMMAND
  9347.  
  9348.  
  9349. ;SMELL
  9350.  
  9351. COMMAND SMELL ROSE
  9352. Present [beautiful rose]
  9353. FlagOFF [Has smelled the beautiful rose]
  9354. PlusScore 10 ; give 10 points for smelling the beautiful rose
  9355. TurnFlagON [Has smelled the beautiful rose]
  9356. END_COMMAND
  9357.  
  9358. COMMAND SMELL ROSE
  9359. Present [rose]
  9360. OR
  9361. Present [beautiful rose]
  9362. PrintMessage "The rose smells wonderful."
  9363. DoneWithTurn
  9364. END_COMMAND
  9365.  
  9366. COMMAND SMELL ANY
  9367. PrintMessage "All you can smell is your own B.O. which is pretty ripe."
  9368. DoneWithTurn
  9369. END_COMMAND
  9370.  
  9371.  
  9372. ;FEE FIE FOE FOO
  9373.  
  9374. COMMAND FOO
  9375. AtLocation [cylindrical chamber] ;playing "end game"
  9376. TurnFlagOFF [Has just said 'Zorton'] ; i.e., "wrong" secret word
  9377. END_COMMAND
  9378.  
  9379. COMMAND FOO
  9380. Present [walk-in safe - closed]
  9381. PrintMessage [SAFE.FUSES]
  9382. SetVariableTo [Status of Safe] 2 ; safe is now fused shut
  9383. TurnCounterON [Rover counter - to all you "Prisoner" fans]
  9384. #COMMENT Rover released if wrong password given
  9385. DoneWithTurn
  9386. END_COMMAND
  9387.  
  9388. COMMAND FEE
  9389. AddToVariable [ffff count] 1
  9390. NOT VariableEquals [ffff count] 4 ;Not to 4 yet
  9391. PrintMessage [nothing happens]
  9392. DoneWithTurn
  9393. END_COMMAND
  9394.  
  9395. COMMAND FOO
  9396. VariableEquals [ffff count] 4 ;OK - done with sequence
  9397. AtLocation [giant room]
  9398. Present [golden eggs]
  9399. PrintMessage [nothing happens]
  9400. SetVariableTo [ffff count] 0 ;Reset counter
  9401. DoneWithTurn
  9402. END_COMMAND
  9403.  
  9404. COMMAND FOO
  9405. VariableEquals [ffff count] 4 ;OK - done with sequence
  9406. NOT AtLocation [giant room]
  9407. Present [golden eggs]
  9408. DropIt [phony eggs]
  9409. Destroy [golden eggs]
  9410. PrintMessage "The golden eggs vanish before your very eyes!"
  9411. SetVariableTo [ffff count] 0 ;Reset counter
  9412. DoneWithTurn
  9413. END_COMMAND
  9414.  
  9415. COMMAND FOO
  9416. VariableEquals [ffff count] 4 ;OK - done with sequence
  9417. IsNowhere [golden eggs]
  9418. Destroy [phony eggs]
  9419. SendToRoom [golden eggs] [fallen tree] ; new place to put eggs
  9420. PrintMessage [They have been returned]
  9421. SetVariableTo [ffff count] 0 ;Reset counter
  9422. TurnFlagON [eggs returned] ; Player has got eggs back via magic words
  9423. PlusScore 15
  9424. DoneWithTurn
  9425. END_COMMAND
  9426.  
  9427. MESSAGE [They have been returned]
  9428. As you finish speaking the magic phrase, you feel a slight earth tremor.  Then
  9429. after a moment of silence, a strange voice echoes through the cave -- "They
  9430. have been returned to their rightful place!"
  9431. END_MESSAGE
  9432.  
  9433. COMMAND FOO
  9434. VariableEquals [ffff count] 4 ;OK - done with sequence
  9435. PrintMessage [nothing happens]
  9436. SetVariableTo [ffff count] 0 ;Reset counter
  9437. DoneWithTurn
  9438. END_COMMAND
  9439.  
  9440. #COMMENT -------- HELP
  9441.  
  9442. COMMAND HELP
  9443. AtLocation [R30  North Ledge]
  9444. FlagON [Player has thrown something into chasm]
  9445. TurnFlagOFF [Player has thrown something into chasm]
  9446. PlusScore 10
  9447. PrintMessage [Sorry about that ...]
  9448. DoneWithTurn (* no further action -- get next input *)
  9449. END_COMMAND
  9450.  
  9451. MESSAGE [Sorry about that ...]
  9452. You shouldn't believe everything you read in Adventure Games -- even the HELP
  9453. messages!
  9454. END_MESSAGE
  9455.  
  9456. COMMAND HELP
  9457. AtLocationGT [S end of fog-filled room]
  9458. AtLocationLT [fog-filled room by cairn]
  9459. PrintMessage [foggy room hint]
  9460. DoneWithTurn
  9461. END_COMMAND
  9462.  
  9463. MESSAGE [foggy room hint]
  9464. Ok - what you need to do is apply a little philosophy.  To wit:  there is a
  9465. question that you need to ask whenever you explore a new room in this cave.
  9466. In most places, the answer to the question is "yes". In some other places,
  9467. it's "no" for an obvious reason.  Right here, the answer is "no" but the
  9468. reason isn't so obvious.  If you can figure out what the question is, you can
  9469. get out of here easily.  I can tell you this - it's always a vital question if
  9470. you wish to survive.
  9471. END_MESSAGE
  9472.  
  9473. COMMAND HELP ANY
  9474. AtLocation [plover room]
  9475. OR
  9476. AtLocation [dark-room]
  9477. PrintMessage "Are you trying to explore beyond the plover room?"
  9478. PromptForYes
  9479. PrintMessage [want the hint?]
  9480. PromptForYes
  9481. TurnFlagON [temp] ;hint has been rejected - so far
  9482. PrintMessage [hint costs 5]
  9483. PrintMessage [is this acceptable?]
  9484. PromptForYes
  9485. TurnFlagOFF [temp] ;hint has been accepted
  9486. PrintMessage [There is a way]
  9487. MinusScore 5
  9488. DoneWithTurn
  9489. END_COMMAND
  9490.  
  9491. MESSAGE [There is a way]
  9492. There is a way to explore that region without having to worry about falling
  9493. into a pit.  None of the objects available is immediately useful in
  9494. discovering the secret.
  9495. END_MESSAGE
  9496.  
  9497. COMMAND HELP ANY
  9498. FlagOFF [maze hint offered] ;maze hint has not been given, yet
  9499. AtLocation [twisty little passages] ;vending machine maze
  9500. OR
  9501. AtLocation [twisting little maze]
  9502. OR
  9503. AtLocationGT [barren room]
  9504. AtLocationLT [end of road]
  9505. PrintMessage [drop things]
  9506. TurnFlagON [maze hint offered] ;hint has been given
  9507. DoneWithTurn
  9508. END_COMMAND
  9509.  
  9510. COMMAND HELP ANY
  9511. FlagON [maze hint offered] ;maze hint has been given
  9512. AtLocation [twisty little passages] ;vending machine maze
  9513. OR
  9514. AtLocation [twisting little maze]
  9515. OR
  9516. AtLocationGT [barren room]
  9517. AtLocationLT [end of road]
  9518. PrintMessage [I'm confused too]
  9519. DoneWithTurn
  9520. END_COMMAND
  9521.  
  9522. COMMAND HELP ANY
  9523. FlagOFF [maze hint offered] ;maze hint has not been given, yet
  9524. AtLocationGT [W end - hall of mists] ;pirate's maze
  9525. AtLocationLT [brink of 30' pit]
  9526. PrintMessage [drop things]
  9527. TurnFlagON [maze hint offered] ;hint has been given
  9528. DoneWithTurn
  9529. END_COMMAND
  9530.  
  9531. MESSAGE [drop things]
  9532. You can make the passages look less alike by dropping things.
  9533. END_MESSAGE
  9534.  
  9535. COMMAND HELP ANY
  9536. FlagON [maze hint offered] ;maze hint has been given
  9537. AtLocationGT [W end - hall of mists] ;pirate's maze
  9538. AtLocationLT [brink of 30' pit]
  9539. PrintMessage [I'm confused too]
  9540. DoneWithTurn
  9541. END_COMMAND
  9542.  
  9543. COMMAND HELP ANY
  9544. AtLocation [witt's end]
  9545. PrintMessage "Do you need help getting out of here?"
  9546. PromptForYes
  9547. PrintMessage [want the hint?]
  9548. PromptForYes
  9549. TurnFlagON [temp] ;hint has been rejected - so far
  9550. PrintMessage [hint costs 5]
  9551. PrintMessage [is this acceptable?]
  9552. PromptForYes
  9553. TurnFlagOFF [temp] ;hint has been accepted
  9554. PrintMessage "Keep going east."
  9555. MinusScore 5
  9556. DoneWithTurn
  9557. END_COMMAND
  9558.  
  9559. COMMAND HELP ANY
  9560. FlagON [temp] ;hint was rejected
  9561. TurnFlagOFF [temp]
  9562. PrintMessage [okay, do it yourself]
  9563. DoneWithTurn
  9564. END_COMMAND
  9565.  
  9566. ;TURN
  9567.  
  9568. COMMAND TURN HANDLE
  9569.  FlagON [vault unlocked]                         <-- vault is still unlocked
  9570.  Present [unlocked vault]                        <-- unlocked vault is here
  9571.  ReDirectTo OPEN SAFE
  9572. END_COMMAND
  9573.  
  9574. COMMAND TURN HANDLE
  9575.  FlagON [vault unlocked]                         <-- combination is correct
  9576.  Present [locked vault]                          <-- locked vault is here
  9577.  SwapLocations [locked vault] [unlocked vault]   <-- get the unlocked vault
  9578.  PrintMessage [unlock vault]                     <-- tell `em about it
  9579.  DoneWithTurn
  9580. END_COMMAND
  9581.  
  9582. MESSAGE [unlock vault]
  9583. You turn the handle clockwise until it is pointing downward and you hear a
  9584. scraping sound as the rods are withdrawn from within the frame.  The safe is
  9585. now unlocked!
  9586. END_MESSAGE
  9587.  
  9588. QUESTION [Right or Left?] WHICH DIRECTION (LEFT OR RIGHT) ?
  9589. ANSWER [Right or Left?] RIGHT
  9590.  
  9591. COMMAND TURN DIAL
  9592.  FlagOFF [first number]           <-- no right answers yet, seeking first number
  9593.  FlagOFF [second number]
  9594.  FlagOFF [third number]
  9595.  AskQuestion [Right or Left?]
  9596.  AnswerIsCorrect                <-- player turned the dial to the right
  9597.  GetNumberInput 0 99            <-- get his number
  9598.  PrintMessage [Strange -- nothing happened!]
  9599.  NumberEquals [first]           <-- if it's the correct number
  9600.  TurnFlagON [first number]        <-- set the flag that he got it correctly
  9601.  DoneWithTurn
  9602. END_COMMAND
  9603.  
  9604. COMMAND TURN DIAL
  9605.  FlagON [first number]            <-- player has the first number right
  9606.  FlagOFF [second number]          <-- seeking second number
  9607.  FlagOFF [third number]           <-- not ready for third number yet
  9608.  AskQuestion [Right or Left?]
  9609.  AnswerIsWrong                  <-- player turned the dial to the left
  9610.  GetNumberInput 0 99            <-- get his number
  9611.  PrintMessage [Strange -- nothing happened!]
  9612.  NumberEquals [second]          <-- if it's the correct number
  9613.  TurnFlagON [second number]       <-- set the flag that he got it correctly
  9614.  DoneWithTurn
  9615. END_COMMAND
  9616.  
  9617. COMMAND TURN DIAL
  9618.  FlagON [first number]            <-- player has the first number right
  9619.  FlagON [second number]           <-- and the second number right
  9620.  FlagOFF [third number]           <-- seeking third number
  9621.  AskQuestion [Right or Left?]
  9622.  AnswerIsCorrect                <-- player turned the dial to the right
  9623.  GetNumberInput 0 99            <-- get his number
  9624.  NumberEquals [third]           <-- if it's the correct number
  9625.  TurnFlagON [third number]        <-- set the flag that he got it correctly
  9626.  TurnFlagON [vault unlocked]     <-- tell the program the vault's unlocked
  9627.  PrintMessage "You suddenly hear a loud CLICK!"
  9628.  SwapLocations [locked vault] [unlocked vault]
  9629.  DoneWithTurn
  9630. END_COMMAND
  9631.  
  9632. COMMAND TURN DIAL
  9633.  FlagOFF [first number]           <-- no right answers yet, seeking first number
  9634.  AnswerIsWrong                  <-- player turned the dial to the left
  9635.  GetNumberInput 0 99            <-- get his number and fall thru
  9636. END_COMMAND
  9637.  
  9638. COMMAND TURN DIAL
  9639.  FlagON [first number]            <-- player has first number correct
  9640.  FlagOFF [second number]          <-- and is seeking the second number
  9641.  AnswerIsCorrect                <-- player turned the dial to the right
  9642.  GetNumberInput 0 99            <-- get his number and fall thru
  9643. END_COMMAND
  9644.  
  9645. COMMAND TURN DIAL
  9646.  FlagOFF [third number]           <-- did not get combination right
  9647.  TurnFlagOFF [second number]      <-- reset all the number flags
  9648.  TurnFlagOFF [first number]       <-- and let player start from scratch again
  9649.  PrintMessage [Strange -- nothing happened!]
  9650.  DoneWithTurn
  9651. END_COMMAND
  9652.  
  9653. COMMAND TURN LIGHT
  9654. PrintMessage [say extinguish]
  9655. DoneWithTurn
  9656. END_COMMAND
  9657.  
  9658. MESSAGE [say extinguish]
  9659. Rather than saying "TURN ON LAMP" or "TURN OFF LAMP", please use "LIGHT LAMP"
  9660. or "EXTINGUISH LAMP".
  9661. END_MESSAGE
  9662.  
  9663. ;QUIT COMMANDS
  9664.  
  9665. MESSAGE [Do you really want to quit?]
  9666. Listen friend, this is really a fantastic adventure so I'll give you another
  9667. chance.  Do you really really really really want to quit?
  9668. END_MESSAGE
  9669.  
  9670. MESSAGE [Thank you for playing CAVE]
  9671.  
  9672. Thank you for playing HUMONGOUS CAVE!
  9673. END_MESSAGE
  9674.  
  9675. MESSAGE [I didn't think you really wanted to quit!]
  9676. I didn't think you really wanted to quit!
  9677.  
  9678. END_MESSAGE
  9679.  
  9680.  
  9681. COMMAND QUIT
  9682. FlagOn [Quitting]
  9683. DoneWithTurn
  9684. END_COMMAND
  9685.  
  9686. COMMAND QUIT
  9687. PrintMessage [Do you really want to quit?]
  9688. PromptForYes (* Get YES or NO answer from keyboard *)
  9689. PrintMessage [Thank you for playing CAVE]
  9690. EndGame (* OK, player entered YES -- so let's quit *)
  9691. TurnFlagON [Quitting]
  9692. ReDirectTo SCORE
  9693. END_COMMAND
  9694.  
  9695. COMMAND QUIT
  9696. TurnFlagOFF [Quitting]
  9697. PrintMessage [I didn't think you really wanted to quit!]
  9698. BlankLine
  9699. ReDirectTo LOOK
  9700. END_COMMAND
  9701.  
  9702. #COMMENT -- score is based on Max_Points of [Total Points]
  9703.  
  9704. #DEFINE [1st SCORE Breakpoint]      100
  9705. #DEFINE [1st SCORE Breakpoint + 1]  101
  9706. #DEFINE [2nd SCORE Breakpoint]      200
  9707. #DEFINE [2nd SCORE Breakpoint + 1]  201
  9708. #DEFINE [3rd SCORE Breakpoint]      300
  9709. #DEFINE [3rd SCORE Breakpoint + 1]  301
  9710. #DEFINE [4th SCORE Breakpoint]      400
  9711. #DEFINE [4th SCORE Breakpoint + 1]  401
  9712. #DEFINE [5th SCORE Breakpoint]      500
  9713. #DEFINE [5th SCORE Breakpoint + 1]  501
  9714. #DEFINE [6th SCORE Breakpoint]      750
  9715. #DEFINE [6th SCORE Breakpoint + 1]  751
  9716. #DEFINE [7th SCORE Breakpoint]      900
  9717. #DEFINE [7th SCORE Breakpoint + 1]  901
  9718.  
  9719. COMMAND SCORE
  9720. ScoreLT [1st SCORE Breakpoint + 1]
  9721. BlankLine
  9722. PrintMessage "You are obviously a rank amateur.  Better luck next time."
  9723. END_COMMAND
  9724.  
  9725. COMMAND SCORE
  9726. ScoreLT [2nd SCORE Breakpoint + 1]
  9727. ScoreGT [1st SCORE Breakpoint]
  9728. BlankLine
  9729. PrintMessage "Your score qualifies you as a novice-class adventurer."
  9730. END_COMMAND
  9731.  
  9732. COMMAND SCORE
  9733. ScoreLT [3rd SCORE Breakpoint + 1]
  9734. ScoreGT [2nd SCORE Breakpoint]
  9735. BlankLine
  9736. PrintMessage "You have achieved the rating: "Experienced Adventurer"."
  9737. END_COMMAND
  9738.  
  9739. COMMAND SCORE
  9740. ScoreLT [4th SCORE Breakpoint + 1]
  9741. ScoreGT [3rd SCORE Breakpoint]
  9742. BlankLine
  9743. PrintMessage "You may now consider yourself a "Seasoned Adventurer"."
  9744. END_COMMAND
  9745.  
  9746. COMMAND SCORE
  9747. ScoreLT [5th SCORE Breakpoint + 1]
  9748. ScoreGT [4th SCORE Breakpoint]
  9749. BlankLine
  9750. PrintMessage "You have reached "Junior Master" status."
  9751. END_COMMAND
  9752.  
  9753. COMMAND SCORE
  9754. ScoreLT [6th SCORE Breakpoint + 1]
  9755. ScoreGT [5th SCORE Breakpoint]
  9756. BlankLine
  9757. PrintMessage "Your score puts you in Master Adventurer class C."
  9758. END_COMMAND
  9759.  
  9760. COMMAND SCORE
  9761. ScoreLT [7th SCORE Breakpoint + 1]
  9762. ScoreGT [6th SCORE Breakpoint]
  9763. BlankLine
  9764. PrintMessage "Your score puts you in Master Adventurer class B."
  9765. END_COMMAND
  9766.  
  9767. COMMAND SCORE
  9768. ScoreLT [Total Points]
  9769. ScoreGT [7th SCORE Breakpoint]
  9770. BlankLine
  9771. PrintMessage "Your score puts you in Master Adventurer class A."
  9772. END_COMMAND
  9773.  
  9774. COMMAND SCORE
  9775. ScoreEquals [Total Points]
  9776. BlankLine
  9777. PrintMessage "All of Adventuredom gives tribute to you, Adventurer Grandmaster!"
  9778. END_COMMAND
  9779.  
  9780. COMMAND SCORE
  9781. BlankLine
  9782. FlagOn [Quitting]
  9783. ReDirectTo QUIT
  9784. END_COMMAND
  9785.  
  9786.  
  9787. #COMMENT ******** Messages
  9788.  
  9789. MESSAGE [is this acceptable?]
  9790. Is this acceptable?
  9791. END_MESSAGE
  9792.  
  9793. MESSAGE [threatening dwarf in room]
  9794. There is a threatening little dwarf in the room with you!
  9795. END_MESSAGE
  9796.  
  9797. MESSAGE [troll appears]
  9798. A burley troll steps out from beneath the bridge and blocks your way.  "You
  9799. must give me something of great value or I won't let you cross my bridge.  Pay
  9800. up or return from whence you came!", he says grumpily.
  9801. END_MESSAGE
  9802.  
  9803. MESSAGE [doesn't work here]
  9804. A voice booms out, "That word doesn't work here!"
  9805. END_MESSAGE
  9806.  
  9807. MESSAGE [I'm game]
  9808. I'm game.  Would you care to explain how?
  9809. END_MESSAGE
  9810.  
  9811. MESSAGE [now dark]
  9812. It is now pitch dark.  If you proceed you will likely fall into a pit.
  9813. END_MESSAGE
  9814.  
  9815. MESSAGE [can't be serious]
  9816. You can't possibly be serious!
  9817. END_MESSAGE
  9818.  
  9819. MESSAGE [don't have the resources]
  9820. Sorry, but you don't have the necessary resources to $verb$ the
  9821. $noun$!
  9822. END_MESSAGE
  9823.  
  9824. MESSAGE [bird attacks snake]
  9825. The little bird attacks the green snake, and in an astounding flurry drives
  9826. the snake away.
  9827. END_MESSAGE
  9828.  
  9829. MESSAGE [have no keys]
  9830. You don't have any keys!
  9831. END_MESSAGE
  9832.  
  9833. MESSAGE [has no lock]
  9834. It doesn't have a lock, so it cannot be locked or unlocked!
  9835. END_MESSAGE
  9836.  
  9837. MESSAGE [already unlocked]
  9838. The $noun$ is already unlocked!
  9839. END_MESSAGE
  9840.  
  9841. MESSAGE [already locked]
  9842. The $noun$ is already locked!
  9843. END_MESSAGE
  9844.  
  9845. MESSAGE [batteries are dead]
  9846. Sorry, but your batteries are dead and there is no way to turn on the lamp.
  9847. You could be in real trouble!
  9848. END_MESSAGE
  9849.  
  9850. MESSAGE [lamp now on]
  9851. Your lamp is now shining brightly!
  9852. END_MESSAGE
  9853.  
  9854. MESSAGE [lamp now off]
  9855. Your lamp is now off.
  9856. END_MESSAGE
  9857.  
  9858. MESSAGE [nothing happens]
  9859. Nothing happens.
  9860. END_MESSAGE
  9861.  
  9862. MESSAGE [didn't break]
  9863. However, it didn't break.
  9864. END_MESSAGE
  9865.  
  9866. MESSAGE [attacking snake is dangerous]
  9867. Attacking the snake both doesn't work and is very dangerous.
  9868. END_MESSAGE
  9869.  
  9870. MESSAGE [dwarf dodges]
  9871. You attack a little dwarf, but he dodges out of the way.
  9872. END_MESSAGE
  9873.  
  9874. MESSAGE [with bare hands?]
  9875. With what? Your bare hands?
  9876. END_MESSAGE
  9877.  
  9878. MESSAGE [climb down beanstalk]
  9879. Carefully, you climb down the beanstalk to the bottom of the pit -- far below.
  9880. END_MESSAGE
  9881.  
  9882. MESSAGE [scamper across]
  9883. Quickly, you scamper across the bridge -- before the troll returns.
  9884. END_MESSAGE
  9885.  
  9886. MESSAGE [follow the stream]
  9887. I don't know where the cave is, but hereabouts no stream can run on the
  9888. surface for very long.  I would try the stream.
  9889. END_MESSAGE
  9890.  
  9891. MESSAGE [squeeze through tunnel]
  9892. You just barely manage to squeeze through the tunnel into the next room.
  9893. END_MESSAGE
  9894.  
  9895. MESSAGE [I'm confused too]
  9896. I'm as confused as you are.
  9897. END_MESSAGE
  9898.  
  9899. MESSAGE [feet now wet]
  9900. Your feet are now wet.
  9901. END_MESSAGE
  9902.  
  9903. MESSAGE [it was delicious]
  9904. Thank you.  It was delicious!
  9905. END_MESSAGE
  9906.  
  9907. MESSAGE [bottle now empty]
  9908. The bottle of water is now empty.
  9909. END_MESSAGE
  9910.  
  9911. MESSAGE [peculiar - nothing happens]
  9912. Peculiar.  You $verb$ the $noun$ for a while, but nothing unexpected
  9913. happens.
  9914. END_MESSAGE
  9915.  
  9916. MESSAGE [bottle empty, ground wet]
  9917. Your bottle is empty and the ground is wet.
  9918. END_MESSAGE
  9919.  
  9920. MESSAGE [where to go]
  9921. Please tell me which way to go in order to $verb$ the $noun$.
  9922. END_MESSAGE
  9923.  
  9924. MESSAGE [batteries appear]
  9925. After you insert the coins, the vending machine makes a few belch-like noises
  9926. and disgorges a set of brand-new batteries.
  9927. END_MESSAGE
  9928.  
  9929. MESSAGE [you release bird]
  9930. You release the bird from the wicker cage.
  9931. END_MESSAGE
  9932.  
  9933. MESSAGE [okay, do it yourself]
  9934. Okay, If you're so smart, do it yourself!
  9935. END_MESSAGE
  9936.  
  9937. MESSAGE [$verb$ the $noun$ for a while]
  9938. You $verb$ the $noun$ for a while.
  9939. END_MESSAGE
  9940.  
  9941. MESSAGE [it's already here]
  9942. I believe what you want is right here with you.
  9943. END_MESSAGE
  9944.  
  9945. MESSAGE [use bridge instead]
  9946. I respectfully suggest you go across the bridge instead of jumping.
  9947. END_MESSAGE
  9948.  
  9949. MESSAGE [no way across]
  9950. There is no way across the fissure.
  9951. END_MESSAGE
  9952.  
  9953. MESSAGE [it isn't hungry]
  9954. It's not hungry (It's merely pinin' for the Fjords).  Besides You have no bird
  9955. seed.
  9956. END_MESSAGE
  9957.  
  9958. MESSAGE [snake eats bird]
  9959. The snake has now devoured your bird.
  9960. END_MESSAGE
  9961.  
  9962. MESSAGE [it doesn't want food - except you]
  9963. There's nothing here it wants to eat (Except perhaps you).
  9964. END_MESSAGE
  9965.  
  9966. MESSAGE [dwarves eat coal]
  9967. You fool, Dwarves eat only coal!  Now you've made him REALLY mad!!!
  9968. END_MESSAGE
  9969.  
  9970. MESSAGE [nothing to put it in]
  9971. You have nothing in which to carry it.
  9972. END_MESSAGE
  9973.  
  9974. MESSAGE [already full]
  9975. Your bottle is already full.
  9976. END_MESSAGE
  9977.  
  9978. MESSAGE [no liquid here]
  9979. There is nothing here with which to fill the bottle.
  9980. END_MESSAGE
  9981.  
  9982. MESSAGE [bottle now full of water]
  9983. Your bottle is now full of water.
  9984. END_MESSAGE
  9985.  
  9986. MESSAGE [bottle now full of oil]
  9987. Your bottle is now full of oil.
  9988. END_MESSAGE
  9989.  
  9990. MESSAGE [don't be ridiculous]
  9991. Don't be ridiculous!
  9992. END_MESSAGE
  9993.  
  9994. MESSAGE [too rusty to open]
  9995. The door is very rusty and refuses to open.
  9996. END_MESSAGE
  9997.  
  9998. MESSAGE [knife vanishes]
  9999. The Dwarf's knife vanished as it struck the wall of the cave.
  10000. END_MESSAGE
  10001.  
  10002. MESSAGE [something won't fit]
  10003. Something you're carrying won't fit through the tunnel with you.  You'd best
  10004. take inventory and drop something.
  10005. END_MESSAGE
  10006.  
  10007. MESSAGE [back where you started]
  10008. You have crawled around in some little holes and found your way blocked by a
  10009. recent cave-in.  You are now back in the main passage.
  10010. END_MESSAGE
  10011.  
  10012. MESSAGE [this exit closed]
  10013. A mysterious recorded voice groans into life and announces: "This exit is
  10014. closed.  Please leave via main office."
  10015. END_MESSAGE
  10016.  
  10017. MESSAGE [hint costs 5]
  10018. The hint will cost you 5 points.
  10019. END_MESSAGE
  10020.  
  10021. MESSAGE [too far to reach]
  10022. It is too far up for you to reach.
  10023. END_MESSAGE
  10024.  
  10025. MESSAGE [you kill dwarf]
  10026. You killed a little Dwarf.  The body vanished in a cloud of greasy black
  10027. smoke.
  10028. END_MESSAGE
  10029.  
  10030. MESSAGE [shell too hard]
  10031. The shell is very strong and impervious to attack.
  10032. END_MESSAGE
  10033.  
  10034. MESSAGE [axe bounces off dragon]
  10035. The axe bounces harmlessly off the dragon's thick scales.  The axe lands so
  10036. close to the dragon that you can't reach it without being fried to a crisp!
  10037. END_MESSAGE
  10038.  
  10039. MESSAGE [better not]
  10040. The dragon looks rather nasty.  You'd best not try it!
  10041. END_MESSAGE
  10042.  
  10043. MESSAGE [dragon fries bird]
  10044. The little bird attacks the green dragon, and in an astounding flurry gets
  10045. burnt to a cinder.  The ashes blow away.
  10046. END_MESSAGE
  10047.  
  10048. MESSAGE [troll catches axe & throws it back]
  10049. The troll deftly catches the axe, examines it carefully, and tosses it back,
  10050. declaring, "Good workmanship, but it's not valuable enough.".
  10051. END_MESSAGE
  10052.  
  10053. MESSAGE [troll refuses]
  10054. The troll refuses to let you cross.  "Give me a treasure or return from whence
  10055. you came!", he demands.
  10056. END_MESSAGE
  10057.  
  10058. MESSAGE [no longer any way across]
  10059. There is no longer any way across the chasm.
  10060. END_MESSAGE
  10061.  
  10062. MESSAGE [bridge buckles under bear]
  10063. Just as you reach the other side, the bridge buckles beneath the weight of the
  10064. bear, which was still following you around.  You scramble desperately for
  10065. support, but as the bridge collapses you stumble back and fall into the chasm.
  10066. END_MESSAGE
  10067.  
  10068. MESSAGE [bear chases troll]
  10069. The bear lumbers toward the troll, who lets out a startled shriek and scurries
  10070. away.  The bear soon gives up pursuit and wanders back.
  10071. END_MESSAGE
  10072.  
  10073. MESSAGE [axe misses & lands near bear]
  10074. The axe misses and lands near the bear where you can't get at it.
  10075. END_MESSAGE
  10076.  
  10077. MESSAGE [bear eats food]
  10078. The bear eagerly wolfs down your food, after which he seems to calm down
  10079. considerably, and even becomes rather friendly.
  10080. END_MESSAGE
  10081.  
  10082. MESSAGE [want the hint?]
  10083. Do you want the hint?
  10084. END_MESSAGE
  10085.  
  10086. MESSAGE [troll wants treasure]
  10087. Gluttony is not one of the Troll's vices.  Avarice, however, is.
  10088. END_MESSAGE
  10089.  
  10090. MESSAGE [battery hint]
  10091. Your lamp is getting dim.. You'd best start wrapping this up, unless you can
  10092. find some fresh batteries.  I seem to recall there's a vending machine in the
  10093. maze.  Bring some coins with you.
  10094. END_MESSAGE
  10095.  
  10096. MESSAGE [call it a day]
  10097. There's not much point in just wandering around aimlessly, and you can't
  10098. explore the cave without a working lamp.  So let's just call it a day.  Better
  10099. luck next time!
  10100.  
  10101. END_MESSAGE
  10102.  
  10103. MESSAGE [pirate hides chest]
  10104. As you turn toward the noise, the beam of your lamp falls across a bearded
  10105. pirate.  He is carrying a large chest.  "Shiver me timbers!"  he cries, "I've
  10106. been spotted!  I'd best hide meself off to the maze and hide me chest!"  With
  10107. that, he vanished into the gloom.
  10108. END_MESSAGE
  10109.  
  10110. MESSAGE [you find yourself ...]
  10111. After a few minutes of walking and a little climbing, you find yourself ...
  10112. END_MESSAGE
  10113.  
  10114. MESSAGE [stream goes through pipe; use exit]
  10115. The stream flows out through a pair of 1 foot diameter sewer pipes.  It would
  10116. be advisable to use the exit.
  10117. END_MESSAGE
  10118.  
  10119. MESSAGE [vase drops]
  10120. The ming vase drops with a delicate crash.
  10121. END_MESSAGE
  10122.  
  10123. MESSAGE [programmer takes revenge]
  10124. As you reach for the programmer's goodies, an enraged bearded programmer jumps
  10125. out from concealment.  "Aha!", he crows, "I've found the SOB (that's
  10126. 'Subtract-One-and-Branch') that has been stealing my stuff.  Have you
  10127. forgotten, my son, that my wizardly spells help to keep this cave ergodic and
  10128. reasonably safe for adventurers like you?  Well, no more Mr. Nice Guy!!!"
  10129.  
  10130. "First, I'll remove some of the treasure", and with that he keys in the
  10131. following COMMAND on his keyboard:  DESTROY(TREASURES);
  10132.  
  10133. "Next, I'll revoke some of the magic words", and he keys in the following
  10134. COMMAND: REVOKE(MAGIC_WORDS);
  10135.  
  10136. "And if you thought the dwarves were tough before, just watch!", as he keys
  10137. in: MAKE_NASTIER(dwarves);
  10138.  
  10139. "Finally, I'll kick you deep into the maze, you turkey!", as he bangs his
  10140. keyboard with the COMMAND:  PLAYER_LOC := DEEP_IN_MAZE;
  10141. END_MESSAGE
  10142.  
  10143. MESSAGE [magic word fails]
  10144. Nothing happens!!!  That is one of the magic words the programmer revoked!  By
  10145. the way, do the dwarves seem nastier, the passages more tortuous, the
  10146. treasures harder to get?  I'll bet you're sorry you ever incurred the wrath of
  10147. the programmer!!
  10148. END_MESSAGE
  10149.  
  10150. MESSAGE [$NOUN$ is long gone]
  10151. Unfortunately, the $noun$ is no where to be seen.
  10152. END_MESSAGE
  10153.  
  10154. MESSAGE [not a good weapon]
  10155. You attempt to $verb$ the $noun$ with the $object$, but you are
  10156. unsuccessful.  The $object$ is a fairly poor weapon.  Perhaps you should
  10157. consider using an axe, a knife, some dynamite or something equally deadly. 
  10158. END_MESSAGE
  10159.  
  10160. MESSAGE [NO.KEYHOLE]
  10161. The door to the safe has no keyhole, dial, or handle - I can't figure out how
  10162. to open it!
  10163. END_MESSAGE
  10164.  
  10165. MESSAGE [IT.IS.MELTED]
  10166. The door to the safe seems to be fused shut - I can't open it.
  10167. END_MESSAGE
  10168.  
  10169. MESSAGE [SAFE.SHUTS]
  10170. >Creeeeeeeeeeeeeeeeeeeeeeeeeeeek<     >ker-CHUNK!<
  10171.  
  10172. The safe is now closed.
  10173. END_MESSAGE
  10174.  
  10175. MESSAGE [SAFE.OPENS]
  10176. >ker-THUNK<
  10177. /            >screeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeech<
  10178.  
  10179. The (somewhat rusty) safe is now open.
  10180. END_MESSAGE
  10181.  
  10182. MESSAGE [SAFE.FUSES]
  10183.  
  10184. >bong<                 The very air quivers with sound as though
  10185. /   >bong<               someone, somewhere in the distance, has struck
  10186. /      >bong<             three powerful blows on an immense brass gong.
  10187.  
  10188. Smoke trickles out from around the edges of the safe's door, and the door
  10189. itself glows red with heat for a moment.
  10190.  
  10191. A hollow voice says,  "This is a Class 1 security alarm.  All cave security
  10192. forces go to Orange Alert.  I repeat - Orange Alert."
  10193.  
  10194. From somewhere in the distance comes an ominous bubbling sound.  OHMYGAWD!!!!
  10195.  
  10196. It is Rover (for all you "Prisoner" fans)!
  10197. END_MESSAGE
  10198.  
  10199. MESSAGE [SAFE.BLOCKS]
  10200. The safe's door is blocking the exit passage - you'll have to close the safe
  10201. to get out of here.
  10202. END_MESSAGE
  10203.  
  10204. MESSAGE [AGT Info]
  10205. This game was created using the "Master's Edition" of the Adventure Game
  10206. Toolkit (AGT).  The "Master's Edition" is the long-awaited and long-promised
  10207. version 2.0 of AGT and represents the response to over five years of AGT
  10208. user's requests for improvements and additional capabilities and features.
  10209.  
  10210. The MASTER'S EDITION of ADVENTURE GAME TOOLKIT is designed to allow a game
  10211. designer/writer to create and play his/her own high-quality text adventure
  10212. games with optional graphic illustrations, sound effects and music.  Once
  10213. created, these adventure games can be shared with and enjoyed by others --
  10214. even if they do not have a copy of the Adventure Game Toolkit themselves.
  10215. 
  10216. FEATURES OF MASTER'S EDITION OF THE ADVENTURE GAME TOOLKIT
  10217. 
  10218. The Master's Edition of AGT has a number of features that make it the most
  10219. comprehensive text adventure game creation product currently available.  Some
  10220. of these key features are:
  10221.  
  10222.    *     Default "look-and-feel" of Infocom adventure games with similar
  10223.          screen layout and standard vocabulary and routines.
  10224.  
  10225.    *     Large standard vocabulary with potential to define many more words
  10226.          unique to a specific adventure.  Typical games can have a vocabulary
  10227.          of 1000 words or more.
  10228.  
  10229.    *     Sophisticated parser that can understand (1) complex input commands
  10230.          including pronouns (IT, HIM, HER, THEM, MY and ITS), and (2) compound
  10231.          commands separated by AND or THEN or punctuation symbols, and (3)
  10232.          commands addressed to characters within the game.  Here are a few
  10233.          examples of commands AGT can handle with ease:
  10234.  
  10235.              GET THE FLASH LIGHT AND THEN SWITCH IT ON
  10236.               PUT ON THE CLOAK, THEN EXAMINE IT; READ ITS LABEL
  10237.               PLACE THE GREEN ROCK AND THE SMALL PEBBLE BEHIND THE TREE
  10238.               ENTER THE HOUSE; GET ALL; EXIT; SOUTH; SOUTH THEN DOWN
  10239.               SULU, SET A COURSE FOR ALPHA 14
  10240.               SCOTTY, BEAM DOWN A TRICORDER AND THE QWERTY MODULE
  10241.               DROP THE FOOD, THE KEY AND THE BOTTLE THEN UNLOCK THE DOOR WITH
  10242.                    THE BRASS KEY AND THEN LEAVE
  10243.  
  10244.   *     Function and cursor keys predefined to input frequently used commands
  10245.          and move directions.  Function keys may also be redefined to input
  10246.          frequently used commands like THROW AXE AT DWARF or GIVE MILK BOTTLE
  10247.          TO BABY.
  10248.  
  10249.    *     An OOPS feature that allows you to edit/correct your input commands.
  10250.  
  10251.    *     SCRIPT and UNSCRIPT commands to echo game output to printer.
  10252.  
  10253.    *     Optional graphic illustrations using PCX formatted pictures for
  10254.          display on CGA, EGA or VGA screens.  The PCX format is the most
  10255.          widely available of any picture format and is supported by most PAINT
  10256.          and/or DRAW programs.  Plus -- a great deal of PCX "clip-art" is
  10257.          available.
  10258.  
  10259.    *     Optional music and sound effects that can be played in the
  10260.          "background" during the game.  These sound effects use the PC's
  10261.          internal speaker and do not require any special "sound card."
  10262.  
  10263.    *     Optional user-definable "look-and-feel" interface including a
  10264.          menu-driven player input option that displays feasible commands for
  10265.          the player to pick from.
  10266.  
  10267.    *     Optional "pop-up" hints available when the <Alt> and <h> keys are
  10268.          pressed at the same time.
  10269.  
  10270.    *     Optional fonts (EGA and VGA monitors only) that can be changed to
  10271.          suit the needs of the game.  The Master's Edition comes with over
  10272.          30 sample fonts including Old English, Scrawl, Computereze.  Plus, a
  10273.          Font Editor is provided that allows you to create your own unique
  10274.          fonts.
  10275.  
  10276.    *     Totally "backward" compatible with all previous versions of AGT.
  10277. 
  10278. WHAT THE REVIEWERS HAVE SAID ABOUT THE ADVENTURE GAME TOOLKIT
  10279.  
  10280.     "Using the Adventure Game Toolkit, anyone with an ounce of
  10281.      imagination can create a text adventure game ... similar in layout
  10282.      and sophistication to those made by Infocom and other commercial
  10283.      developers."
  10284.  
  10285.         -- Donald B. Trivette in PC Magazine
  10286.  
  10287.      "The Adventure Game Toolkit (AGT) acts as a compiler which allows
  10288.      for creating remarkably complex and sophisticated games in a fairly
  10289.      simple way .... AGT's parser reminds me of Infocom's."
  10290.  
  10291.         -- Scorpia in Computer Gaming World
  10292.  
  10293.      "If you have ever wondered what it is like to create your own
  10294.      adventure games, but didn't have the programming knowledge to do it,
  10295.      this product is for you .... The process is easy ... and you'll have
  10296.      hours of fun doing it."
  10297.  
  10298.         -- Resul DeMaria in Public Domain Software & Shareware
  10299.  
  10300.      "The Adventure Game Toolkit from Softworks ... provides all the
  10301.      tools you need to build your own text based adventure games .... The
  10302.      Adventure Game Toolkit is an extremely powerful development
  10303.      package."
  10304.  
  10305.         -- Bob Napp in "Big Blue Disk"
  10306.  
  10307.     The Adventure & Strategy Club (of England) selected the Adventure Game
  10308.     Toolkit as the Best Utility of 1991/1992.
  10309. 
  10310. DIFFERENCES BETWEEN THE NORMAL EDITION AND THE MASTER'S EDITION OF AGT
  10311. 
  10312. The "Normal Edition" (i.e., the normal version) of AGT is very simple to use
  10313. and can be used by programming novices or even by non-programmer's to create
  10314. very professional text adventures similar to those from firms like Infocom.
  10315. Versions of the "Normal Edition" are available for IBM, Macintosh, Atari ST
  10316. and Amiga computers and games created on any of these computers can be
  10317. re-compiled and played on any of the other computers.
  10318.  
  10319. The Normal Edition is still supported and available from Softworks as
  10320. Shareware for only $20 (or $40 including a 223 page printed manual with lots
  10321. and lots of detailed examples).  This price covers the cost of two ZIPped
  10322. disks with over 1.5 megabytes of goodies including summary documentation on
  10323. disk, and the AGT source code to over a dozen adventure games that may be
  10324. studied for ideas or simply played for fun.
  10325.  
  10326. The "Master's Edition" contains all the features and capabilities of the
  10327. "Normal Edition" plus a whole lot more.  It is available only for IBM (or
  10328. compatible) computers.  The Master's Edition is aimed at the more
  10329. sophisticated and experienced programmer/game designer.  The Master's Edition
  10330. allows you to create games that are approximately twice as large as those
  10331. possible using the Normal Edition.  Plus, your games can have optional graphic
  10332. illustrations, sound effects, music, "pop-up" hints, unique fonts (EGA or VGA
  10333. screens only), and a customizeable "look-and-feel" user interface including a
  10334. menu-driven player input option.
  10335.  
  10336. The Master's Edition is available from Softworks for only $50.  This price
  10337. includes the cost of five ZIPped disks with over 3.5 megabytes of goodies
  10338. including complete documentation on disk, a bunch of game creation utilities,
  10339. several brand new sample games including the complete AGT source code to
  10340. HUMONGOUS CAVE (believed to be the largest text adventure game available on
  10341. any microcomputer).  The Master's Edition package also includes the complete
  10342. AGT source code to the game you are currently playing with all of its related
  10343. font, music, sound effects and pictures files.
  10344.  
  10345. Which version is right for you?  If you are a "power" gamer/programmer and
  10346. know that you can use (or need) the full power of the Master's Edition, then
  10347. by all means -- get the Master's Edition.  If you have less experience with
  10348. programming or game design, then you should probably start with the Normal
  10349. Edition.  If you select the Normal Edition, you can always upgrade later when
  10350. you need the full power of the Master's Edition -- for a special "registered
  10351. AGT user" upgrade price of only $35.
  10352.  
  10353. To order either the Normal Edition or the Master's Edition, just write or
  10354. call:
  10355.  
  10356.    Softworks
  10357.     43064 Via Moraga
  10358.     Mission San Jose, California  94539
  10359.  
  10360.     VISA or MasterCard accepted for telephone orders
  10361.     (510) 659-0533   6:00 PM to 9:00 PM -- PST only!
  10362. 
  10363. To get a printed order form, just enter the COMMAND: PRINT FORM
  10364.  
  10365. Softworks is a member of the Association of Shareware Professionals -- your
  10366. guarantee of quality in shareware software.
  10367. 
  10368.                             ┌─────────┐
  10369.                       ┌─────┴───┐     │              (tm)
  10370.                    ───│         │O    │───────────────────
  10371.                       │   ┌─────┴╨──┐ │   Association of
  10372.                       │   │         ├─┘   Shareware
  10373.                       └───┤    O    │     Professionals
  10374.                    ───────│    ║    │─────────────────────
  10375.                           └────╨────┘     MEMBER
  10376. 
  10377.  
  10378. SECRET WORD #1 -- ABRADE (v) to wear away by friction; to erode.
  10379.  
  10380. END_MESSAGE
  10381.  
  10382. MESSAGE [Funny Saying -- First]
  10383. Time flies like an arrow.  However, fruit flies like bananas.
  10384. END_MESSAGE
  10385.  
  10386. #COMMENT  Turn off warnings -- this message is not directly referenced
  10387. #OPTIONS :-Warnings
  10388.  
  10389. MESSAGE [Funny Saying -- secret word]
  10390. SECRET WORD #5 -- HARBINGER (n) forerunner.
  10391. END_MESSAGE
  10392.  
  10393. MESSAGE [Funny Saying #2]
  10394. Reality is for people who can't face science fiction.
  10395. END_MESSAGE
  10396.  
  10397. MESSAGE [Funny Saying #3]
  10398. People with narrow minds usually have broad tongues.
  10399. END_MESSAGE
  10400.  
  10401. MESSAGE [Funny Saying #4]
  10402. A penny saved is ridiculous.
  10403. END_MESSAGE
  10404.  
  10405. MESSAGE [Funny Saying #5]
  10406. No problem is so formidable that you can't just run away from it.
  10407. END_MESSAGE
  10408.  
  10409. MESSAGE [Funny Saying #6]
  10410. Schizophrenia beats being alone.
  10411. END_MESSAGE
  10412.  
  10413. MESSAGE [Funny Saying #7]
  10414. Help stamp out and abolish redundancy!
  10415. END_MESSAGE
  10416.  
  10417. MESSAGE [Funny Saying #8]
  10418. While money can't buy happiness, it certainly lets you choose your own form
  10419. of misery.
  10420. END_MESSAGE
  10421.  
  10422. MESSAGE [Funny Saying #9]
  10423. Trolls like eggs!
  10424. END_MESSAGE
  10425.  
  10426. MESSAGE [Funny Saying #10]
  10427. Nuke the Whales!
  10428. END_MESSAGE
  10429.  
  10430. MESSAGE [Funny Saying #11]
  10431. More people have died in Teddy Kennedy's car than in nuclear power plants.
  10432. END_MESSAGE
  10433.  
  10434. MESSAGE [Funny Saying #12]
  10435. Remember, the fact that you're paranoid doesn't mean they're NOT out to get
  10436. you!
  10437. END_MESSAGE
  10438.  
  10439. MESSAGE [Funny Saying #13]
  10440. I'm all for computer dating, but I wouldn't want one to marry my sister.
  10441. END_MESSAGE
  10442.  
  10443. MESSAGE [Funny Saying #14]
  10444. Eschew Obfuscation!
  10445. END_MESSAGE
  10446.  
  10447. MESSAGE [Funny Saying #15]
  10448. F U CN RD THS U CNT SPL WRTH A DM!
  10449. END_MESSAGE
  10450.  
  10451. MESSAGE [Funny Saying #16]
  10452. God did not create the world in seven days.  He partied for six and then
  10453. pulled an all-nighter.
  10454. END_MESSAGE
  10455.  
  10456. MESSAGE [Funny Saying #17]
  10457. Time is just nature's way of keeping everything from happening at once.
  10458. END_MESSAGE
  10459.  
  10460. MESSAGE [Funny Saying #18]
  10461. If rabbits feet are so lucky, what happened to the rabbit?
  10462. END_MESSAGE
  10463.  
  10464. MESSAGE [Funny Saying #20]
  10465. You can fool some of the people all of the time, and all of the people some
  10466. of the time, but you can make a fool of yourself anytime.
  10467. END_MESSAGE
  10468.  
  10469. MESSAGE [Funny Saying #21]
  10470. Be alert!  We needs more lerts.
  10471. END_MESSAGE
  10472.  
  10473. MESSAGE [Funny Saying #22]
  10474. A closed mouth gathers no feet.
  10475. END_MESSAGE
  10476.  
  10477. MESSAGE [Funny Saying #23]
  10478. After all is said and done, usually more is said than done.
  10479. END_MESSAGE
  10480.  
  10481. MESSAGE [Funny Saying #24]
  10482. Nothing improves with age.
  10483. END_MESSAGE
  10484.  
  10485. MESSAGE [Funny Saying #25]
  10486. You've got to kiss a lot of ugly frogs before you find your handsome prince
  10487. (or princess).
  10488. END_MESSAGE
  10489.  
  10490. MESSAGE [Funny Saying #26]
  10491. Love is the triumph of imagination over intelligence.
  10492. END_MESSAGE
  10493.  
  10494. MESSAGE [Funny Saying #27]
  10495. Abstain from wine, women, and song; mostly song.
  10496. END_MESSAGE
  10497.  
  10498. MESSAGE [Funny Saying #28]
  10499. Beauty is skin deep; ugly goes right to the bone.
  10500. END_MESSAGE
  10501.  
  10502. #COMMENT Return "Warnings" to its previous state
  10503. #OPTIONS =Warnings
  10504.  
  10505. MESSAGE [Funny Saying -- Last]
  10506. Never stand between a fire hydrant and a dog.
  10507. END_MESSAGE
  10508.  
  10509. MESSAGE [Middle to South]
  10510. After a brief pause for rest, you set off to the south and crawl for a while
  10511. longer.
  10512. END_MESSAGE
  10513.  
  10514. MESSAGE [North to Middle]
  10515. You crawl south along the duct for about an hour -- at least, it seems like an
  10516. hour.
  10517. END_MESSAGE
  10518.  
  10519. MESSAGE [Middle to North]
  10520. After a brief pause for rest, you set off to the north and crawl for a while
  10521. longer.
  10522. END_MESSAGE
  10523.  
  10524. MESSAGE [You crawl north into duct]
  10525. You crawl into the duct and continue to crawl north for a very long time.  The
  10526. cold, cold wind blows through the duct from the cavern to your south.
  10527. END_MESSAGE
  10528.  
  10529. MESSAGE [You climb the stairs]
  10530. You climb up the stairs and enter the room above through the open safe door.
  10531. END_MESSAGE
  10532.  
  10533. MESSAGE [You can't climb the stairs]
  10534. You climb up the stairs.  At the top of the stairs, your progress is halted by
  10535. a steel door that has no handle and no lock.  You try to push it open, but it
  10536. is locked on the other side.  Finally, you give up and descend again to the
  10537. room below.
  10538. END_MESSAGE
  10539.  
  10540. MESSAGE [You must use access card]
  10541. Sorry, but you must insert the access card in the slot for admittance.
  10542. END_MESSAGE
  10543.  
  10544. MESSAGE [It has an ornate gold lock]
  10545. The drawer is in the center of the desk.  It has an ornate gold lock.
  10546. END_MESSAGE
  10547.  
  10548. MESSAGE [Perhaps, you can find a sun dial somewhere.]
  10549. Unfortunately, there is nothing here that gives the time.  Perhaps, you can
  10550. find a sun dial somewhere.
  10551. END_MESSAGE
  10552.  
  10553. MESSAGE [The time is ... AM  M120]
  10554. The time is currently #VAR[hours]#:#VAR[minutes]# A.M.
  10555. END_MESSAGE
  10556.  
  10557. MESSAGE [The time is ... PM  M121]
  10558. The time is currently #VAR[hours]#:#VAR[minutes]# P.M.
  10559. END_MESSAGE
  10560.  
  10561. MESSAGE [The time is ... AM  M122]
  10562. The time is currently #VAR[hours]#:0#VAR[minutes]# A.M.
  10563. END_MESSAGE
  10564.  
  10565. MESSAGE [The time is ... PM  M123]
  10566. The time is currently #VAR[hours]#:0#VAR[minutes]# P.M.
  10567. END_MESSAGE
  10568.  
  10569.  
  10570.