home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / appndxa / masters / advland.agt < prev    next >
Text File  |  1992-06-25  |  77KB  |  3,255 lines
  1. #COMMENT
  2.  
  3.      Adventureland
  4.  
  5.      Original game by Scott Adams
  6.  
  7.      Transcribed from a BASIC listing in the book "BASIC ADVENTURES"
  8.  
  9.      Adapted for the Adventure Game Toolkit by David Malmberg.
  10.  
  11. Note from Dave Malmberg:  This was the first adventure game I ever played
  12. and it really got me hooked.  I spent hours studying the BASIC code on my
  13. old Commodore PET computer with 16K of memory.  AdventureLand opened up
  14. entire new vistas for me and studying its code eventually lead to writing
  15. the Adventure Game Toolkit.  While doing this conversion, I revisited the
  16. game and found it every bit as wonderful now as it was when I first played
  17. it so many years ago.  This game is timeless -- a real classic!!
  18.  
  19. Walkthru for ADVENTURELAND
  20.  
  21. You begin standing in a forest.
  22.  
  23. Go East, past the sleeping dragon. East again to the lake. Get the axe, 
  24. then North into the quicksand bog.  Pick up the blue ox, then say the magic 
  25. word on the axe. Poof! Everything is gone. Don't worry. It's all safe.
  26.  
  27. "Swim" back to the lake. Go South to the bottomless hole. "Go Ledge," and
  28. pick up the flint and steel.  Go up (Down is a BAD, BAD idea!).  West into 
  29. the swamp, and West again to the hidden grove.  How about that! The axe and 
  30. the ox, along with another treasure. Get everthing, and go back East. Climb 
  31. the tree, get the keys, and climb down again. Now, "Chop Tree."  Drop the 
  32. axe, get the mud, then, "Enter Stump."  Once inside the stump, drop the mud,
  33. ox and fruit. Go down to the root chamber, pick up the rubies, then go up 
  34. and drop them off. 
  35.  
  36. Get the lamp and rub it twice. Each time, a genie appears and leaves a 
  37. treasure.  If you rub it more than two times, the genie will come and TAKE 
  38. AWAY a treasure! Go down into the root chamber, and down again.  Unlock the
  39. door and drop the keys. Light the lamp. "Go to open doorway."
  40.  
  41. Go down to the cavern, then South and pick up the bladder.  Now go back. 
  42. North, and up until you're out of the stump and back in the swamp again 
  43. (Hint: If the chiggers bite get the mud, then drop it again. Hint 2: 
  44. "Unlight Lamp"  anytime you enter the root chamber. You MUST save the 
  45. light). "Get Gas," then "Enter Stump."
  46.  
  47. Now, back down to the cavern and relight the lamp. Go South and up.  Drop 
  48. the bladder and "Ignite Gas." This breaks the brickwall. "Go Hole," then 
  49. jump.
  50.  
  51. The bear won't bother you if you "Yell." He'll fall down the chasm. Get the 
  52. magic mirror, then "Go Throne." Get the crown. Go West to the ledge.  Jump, 
  53. then West.  Get the fire bricks. Go down, then North. Now up again to the 
  54. treasure room in the stump. 
  55.  
  56. Drop ONLY the crown. Get the bottle of water, and go down. Drop the flint 
  57. just before you enter the hallway.  Go to the cavern, and from there, down 
  58. into the pits. From the "Light" sign, go down, West, and down. Get the rug, 
  59. then down again. You'll be at the bottom of the chasm. 
  60.  
  61. "Build Dam". "Drop bricks". "Look Lava". You'll see a firestone. "Pour 
  62. Water on firestone."  Get the stone and the golden net.  Up. Read the sign.
  63. "Say Away" twice and you're in the meadow again. Go South and enter the stump.
  64. Drop the firestone, the rug, and the mirror IN THAT ORDER.
  65.  
  66. Exit the stump, go East to the hole, and North to the lake. "Get Water". 
  67. "Get Fish". Go back to the stump, drop fish and net, IN THAT ORDER. Get the 
  68. mud. Go back down the cavern. Be sure you get the flint and light the lamp.
  69.  
  70. Go North. Save the game. This is a random part of the game, and you may 
  71. have to try it several times before the dumb BEES quit suffocating. 
  72.  
  73. North.  Get the honey. Now, empty out the water, and get the bees.
  74.  
  75. Go South to the cavern, then up to the swamp.  Drop the mud. Go North and 
  76. "Drop Bees."  The dragon will "become annoyed" and fly away, leaving some 
  77. eggs.  Get them, then back to the stump.  Drop the eggs and the honey, then 
  78. say "Score." 
  79.  
  80. That's it!
  82.  
  83. #END_COMMENT
  84.  
  85. #OPTIONS /Labels[] /Messages""
  86.  
  87. TITLE
  88. COLORS WHITE YELLOW BLACK YELLOW RED
  89. W E L C O M E    T O    A D V E N T U R E L A N D
  90.  
  91. by Scott Adams
  92.  
  93. Adapted for the Adventure Game Toolkit by David Malmberg
  94.  
  95. ****
  96. END_TITLE
  97.  
  98.  
  99. INSTRUCTIONS
  100.  
  101. During your adventure, I will be your eyes and hands.  I know of places,
  102. actions, and things.
  103.  
  104. Your commands can be expressed in the format:
  105.  
  106.   <verb phrase> <(multiple) noun phrase(s)> <preposition> <noun phrase/object>
  107.  
  108. For example:
  109.  
  110.          PUT THE GREEN ROCK BEHIND THE OAK TREE
  111.          READ MY POETRY BOOK
  112.          SWIM IN THE SWIMMING POOL
  113.          EXAMINE THE GOLD RING, THE DWARF AND THE SILVER NECKLACE
  114.          EAT THE CELERY AND THE ONION
  115.          SHOOT THE BURGLAR WITH THE REVOLVER
  116.          ATTACK HIM
  117.            ("HIM" will refer to last noun mentioned, e.g., the burglar)
  118.          GET THE BOOK (also: TAKE THE BOOK)
  119.          READ IT
  120.            ("IT" will refer to last noun mentioned, e.g., the book)
  121.          GET ALL
  122.  
  123. Compound commands can be created by connecting single commands (like those
  124. above) with "AND", "THEN" or the punctuation symbols "," or ";" to connect two
  125. or more separate commands, such as:
  126.  
  127.          CLIMB DOWN THE LADDER THEN SOUTH, WEST AND NORTHWEST
  128.          GET THE CLOAK AND THEN EXAMINE IT; READ THE LABEL
  129.          DROP THE FOOD AND THE BOTTLE THEN UNLOCK THE DOOR AND THEN LEAVE
  130.  
  131. The game uses a number of special commands for various "housekeeping" chores.
  132. These are all pretty standard for most adventure games.  Specifically:
  133. HELP, SCORE, INVENTORY, VERBOSE, LIST EXITS, SAVE, RESTORE, SCRIPT, UNSCRIPT
  134. and QUIT.
  135.  
  136. The function keys have been predefined to stand for several of the most
  137. frequently used commands.  Similarly, the cursor keys correspond to the
  138. various movement/compass directions.
  139.  
  140. Hitting the '?' key (during the game) will display a diagram of keys and their
  141. definitions.
  142. END_INSTRUCTIONS
  143.  
  144. VERB
  145. LIGHT IGNITE BURN
  146. EXTINGUISH UNLIGHT
  147. ATTACK BREAK KICK SMASH
  148. Dummy_Verb1 GO CLIMB ENTER
  149. Dummy_Verb2 YES
  150. Dummy_Verb3 NO
  151. Dummy_Verb4 STOP
  152. Dummy_Verb5 FIND
  153. Dummy_Verb6 BUILD
  154. Dummy_Verb7 WAKE
  155. Dummy_Verb8 SWIM
  156. Dummy_Verb9 YOHO
  157. Dummy_Verb10 SIT
  158. Dummy_Verb11 RUB
  159. Dummy_Verb12 JUMP
  160. Dummy_Verb13 SAY
  161. Dummy_Verb14 CHOP CUT
  162. Dummy_Verb15 FILL
  163. Dummy_Verb16 AWAY
  164. Dummy_Verb17 BUNYON
  165. Dummy_Verb18 POUR FREE RELEASE
  166. Dummy_Verb19 KISS
  167. Dummy_Verb20 GIVE FEED
  168. Dummy_Verb21 EMPTY
  169. END_VERB
  170.  
  171. VOCABULARY
  172. ! This is the default AGT verb list for the "menu-driven" parser for ADVLAND
  173.  
  174. ! AGAIN should be the first A-verb
  175. 1 Again
  176. 2 Attack
  177. 3 Attack With
  178. 1 away
  179. 2 Break
  180. 3 Break with
  181. 1 Brief
  182. 2 build
  183. 1 bunyon
  184. 2 Burn
  185. 2 Chop
  186. 2 Close
  187. 2 Climb up
  188. 2 Climb down
  189. 2 climb to
  190. 2 Cut
  191. ! DOWN should be the first D-verb
  192. 1 Down
  193. 2 Drop
  194. 2 Drink
  195. ! EAST should be the first E-verb
  196. 1 East
  197. 2 Examine
  198. 2 Eat
  199. 2 empty
  200. 2 Enter
  201. 1 Exit
  202. 2 Extinguish
  203. 2 feed
  204. 3 Feed to
  205. 3 Fill with
  206. 2 find
  207. 2 free
  208. ! GET should be the first G-verb
  209. 2 Get
  210. 3 Give to
  211. 2 Go to
  212. ! HELP should be the first H-verb
  213. 1 Help
  214. 2 Heat
  215. 2 Hit
  216. 3 Hit with
  217. 2 Hold
  218. ! INVENTORY should be the first I-verb
  219. 1 Inventory
  220. 2 ignite
  221. 1 Jump
  222. 2 Jump to
  223. 2 kick
  224. 2 Kill
  225. 3 Kill With
  226. 2 kiss
  227. ! LOOK AROUND should be the first L-verb
  228. 1 Look around
  229. 2 Look at
  230. 1 List Exits
  231. 2 Light
  232. 3 Light With
  233. 3 Lock with
  234. ! NORTH should be the first N-verb
  235. 1 North
  236. 1 Northeast
  237. 1 Northwest
  238. 1 no
  239. ! OPEN should be the first O-verb
  240. 2 Open
  241. 3 Put in
  242. 3 Pour on
  243. 3 Pour in
  244. ! QUIT should be the first Q-verb
  245. 1 Quit
  246. ! READ should be the first R-verb
  247. 2 Read
  248. 2 release
  249. 2 Rub
  250. 1 Restore
  251. ! SOUTH should be the first S-verb
  252. 1 South
  253. 1 Southeast
  254. 1 Southwest
  255. 1 Score
  256. 1 Save
  257. 1 say
  258. 1 Scream
  259. 2 Scream At
  260. 1 Script
  261. 1 Shout
  262. 1 Sit
  263. 2 smash
  264. 1 stop
  265. 1 Swim
  266. ! TAKE should be the first T-verb
  267. 2 Take
  268. 2 Throw
  269. 3 Throw at
  270. ! UP should be the first U-verb
  271. 1 Up
  272. 2 unlight
  273. 2 Unlock
  274. 1 Unscript
  275. ! VERBOSE should be the first V-verb
  276. 1 Verbose
  277. 1 Version
  278. ! WEST should be the first W-verb
  279. 1 West
  280. 1 Wait
  281. 2 wake
  282. 1 Yell
  283. 2 Yell At
  284. 1 yes
  285. 1 yoho
  286. END_VOCABULARY
  287.  
  288. #DEFINE [noun weight] 13
  289. #DEFINE [NoWhere] 0
  290.  
  291. ROOM [Top of an old oak tree]
  292. Top of Old Oak Tree
  293. DOWN [Forest]
  294. END_ROOM
  295.  
  296. ROOM_DESCR [Top of an old oak tree]
  297. You are on a branch at the top of an old oak tree.  To the east you can see a
  298. sunny meadow.
  299. END_ROOM_DESCR
  300.  
  301. STARTING_ROOM [Forest]
  302.  
  303. ROOM [Forest]
  304. In Thick Forest
  305. NORTH [Forest]
  306. SOUTH [Forest]
  307. EAST [Sunny Meadow]
  308. WEST [Forest]
  309. UP [Top of an old oak tree]
  310. END_ROOM
  311.  
  312. ROOM_DESCR [Forest]
  313. You are in the middle of a thick forest.
  314. END_ROOM_DESCR
  315.  
  316. HELP [Forest]
  317. A voice booms out - "Try:  EXAMINE, JUMP, SWIM, CLIMB, THROW, FIND, GO, TAKE,
  318. INVENTORY, SCORE."
  319. END_HELP
  320.  
  321. NOUN [trees]
  322. trees
  323. oak
  324. There are tall trees all around you.
  325. LOCATION [Forest]
  326. UNMOVABLE
  327. END_NOUN
  328.  
  329. NOUN_DESCR [trees]
  330. Most of the trees are oaks.
  331. END_NOUN_DESCR
  332.  
  333. COMMAND GO TREE
  334. AtLocation [Forest]
  335. GoToRoom [Top of an old oak tree]
  336. PrintMessage "You climb to the top of an old oak tree."
  337. BlankLine
  338. DoneWithTurn
  339. END_COMMAND
  340.  
  341.  
  342. ROOM [Hidden Grove]
  343. Hidden Grove
  344. NORTH [Forest]
  345. SOUTH [Forest]
  346. EAST [Dismal Swamp]
  347. WEST [Forest]
  348. END_ROOM
  349.  
  350. ROOM_DESCR [Hidden Grove]
  351. You are in a hidden grove of trees.  It is very peaceful here.  There are
  352. trees all around you except to the east where you can see a swamp-like area.
  353. END_ROOM_DESCR
  354.  
  355. NOUN [sign says- PAUL'S PLACE]
  356. sign
  357. large
  358. A large sign says - PAUL'S PLACE
  359. LOCATION [Hidden Grove]
  360. UNMOVABLE
  361. END_NOUN
  362.  
  363. NOUN_DESCR [sign says- PAUL'S PLACE]
  364. It still says - PAUL'S PLACE!
  365. END_NOUN_DESCR
  366.  
  367.  
  368. NOUN [JEWELED FRUIT]
  369. FRUIT
  370. JEWELED
  371. There is some jeweled fruit here.
  372. LOCATION [Hidden Grove]
  373. POINTS 7
  374. WEIGHT [noun weight]
  375. EDIBLE
  376. DRINKABLE
  377. END_NOUN
  378.  
  379. NOUN_DESCR [JEWELED FRUIT]
  380. The fruit consists of a pear and an apple covered with precious gems.
  381. END_NOUN_DESCR
  382.  
  383.  
  384. ROOM [Sunny Meadow]
  385. Sunny Meadow
  386. NORTH [Forest]
  387. SOUTH [Dismal Swamp]
  388. EAST [Shore of Lake]
  389. WEST [Forest]
  390. END_ROOM
  391.  
  392. ROOM_DESCR [Sunny Meadow]
  393. You are in the middle of a sunny meadow.  There is a lake to the east and a
  394. swamp-like area to the south.
  395. END_ROOM_DESCR
  396.  
  397. HELP [Sunny Meadow]
  398. Only 3 things will wake the dragon.  One of them is dangerous!
  399. END_HELP
  400.  
  401.  
  402. NOUN [sign here says - IN SOME CASES MUD IS GOOD]
  403. sign
  404. small
  405. There is a small sign here.
  406. LOCATION [Sunny Meadow]
  407. UNMOVABLE
  408. END_NOUN
  409.  
  410. NOUN_DESCR [sign here says - IN SOME CASES MUD IS GOOD]
  411. The sign says - IN SOME CASES MUD IS GOOD IN OTHERS...
  412. END_NOUN_DESCR
  413.  
  414. COMMAND RELEASE BEES
  415. IsCarrying [bees in a bottle]
  416. Present [large sleeping dragon]
  417. PrintMessage [The bees attack the dragon which gets up and flies away...]
  418. Destroy [large sleeping dragon]
  419. SwapLocations [empty bottle] [bees in a bottle]
  420. PutInCurrentRoom [DRAGON EGGS]
  421. TurnFlagOFF [Bottle Full]
  422. DoneWithTurn (* no further action -- get next input *)
  423. END_COMMAND
  424.  
  425. COMMAND EMPTY BOTTLE
  426. IsCarrying [bees in a bottle]
  427. Present [large sleeping dragon]
  428. PrintMessage [The bees attack the dragon which gets up and flies away...]
  429. Destroy [large sleeping dragon]
  430. SwapLocations [empty bottle] [bees in a bottle]
  431. PutInCurrentRoom [DRAGON EGGS]
  432. TurnFlagOFF [Bottle Full]
  433. DoneWithTurn (* no further action -- get next input *)
  434. END_COMMAND
  435.  
  436. MESSAGE [The bees attack the dragon which gets up and flies away...]
  437. The bees attack the dragon which gets up and flies away.  The bees chase the
  438. dragon into the western horizon until it disappears from sight.
  439. END_MESSAGE
  440.  
  441. COMMAND LIGHT GAS
  442. InRoom [distended gas bladder]
  443. Present [Flint and steel]
  444. Present [large sleeping dragon]
  445. PrintMessage "The gas bladder blows up!  It blows the dragon sky high!!"
  446. SwapLocations [large sleeping dragon] [smoking hole]
  447. Destroy [distended gas bladder]
  448. PutInCurrentRoom [DRAGON EGGS]
  449. DoneWithTurn (* no further action -- get next input *)
  450. END_COMMAND
  451.  
  452. COMMAND LIGHT BLADDER
  453. InRoom [distended gas bladder]
  454. Present [Flint and steel]
  455. Present [large sleeping dragon]
  456. PrintMessage "The gas bladder blows up!  It blows the dragon sky high!!"
  457. SwapLocations [large sleeping dragon] [smoking hole]
  458. Destroy [distended gas bladder]
  459. PutInCurrentRoom [DRAGON EGGS]
  460. DoneWithTurn (* no further action -- get next input *)
  461. END_COMMAND
  462.  
  463. COMMAND ANY
  464. Chance 50 ; 50% chance that mud wakes dragon
  465. Present [evil smelling mud]
  466. Present [large sleeping dragon]
  467. PrintMessage [Dragon smells something - awakens - attacks you!]
  468. BlankLine
  469. GoToRoom [Limbo]
  470. DoneWithTurn
  471. END_COMMAND
  472.  
  473. MESSAGE [Dragon smells something - awakens - attacks you!]
  474. The dragon smells something terrible.  It awakens and attacks you!  You are
  475. dead!
  476. END_MESSAGE
  477.  
  478. COMMAND ATTACK DRAGON
  479. Present [large sleeping dragon]
  480. PrintMessage "Your blows fail to wake the dragon."
  481. DoneWithTurn
  482. END_COMMAND
  483.  
  484. NOUN [large sleeping dragon]
  485. dragon
  486. sleeping
  487. A large dragon is asleep near the edge of the meadow.  It is snoring loudly.
  488. LOCATION [Sunny Meadow]
  489. UNMOVABLE
  490. END_NOUN
  491.  
  492. NOUN_DESCR [large sleeping dragon]
  493. The dragon is huge.  Its snoring shakes the ground.  Thank heaven it is asleep.
  494. END_NOUN_DESCR
  495.  
  496. NOUN [DRAGON EGGS]
  497. EGGS
  498. DRAGON
  499. There are some very rare dragon eggs here.
  500. LOCATION [NoWhere]
  501. WEIGHT [noun weight]
  502. POINTS 8
  503. END_NOUN
  504.  
  505. NOUN_DESCR [DRAGON EGGS]
  506. Each dragon egg would make an omlet for about 50 people.  These are big eggs.
  507. END_NOUN_DESCR
  508.  
  509. NOUN [smoking hole]
  510. hole
  511. smoking
  512. You see a smoking hole in the ground with pieces of dragon and lots of gore.
  513. LOCATION [NoWhere]
  514. UNMOVABLE
  515. END_NOUN
  516.  
  517. NOUN_DESCR [smoking hole]
  518. The hole is where the dragon was.  You can see still see a few pieces of dragon
  519. and a great deal of green dragon blood and gore.
  520. END_NOUN_DESCR
  521.  
  522. COMMAND GO HOLE
  523. Present [smoking hole]
  524. GoToRoom [In Real Trouble!]
  525. PrintMessage "Climbing down into the hole, you suddenly slip and fall."
  526. BlankLine
  527. DoneWithTurn
  528. END_COMMAND
  529.  
  530.  
  531. ROOM [Dismal Swamp]
  532. Dismal Swamp
  533. NORTH [Sunny Meadow]
  534. EAST [Edge of Bottomless Hole]
  535. WEST [Hidden Grove]
  536. SOUTH [Dismal Swamp]
  537. END_ROOM
  538.  
  539. ROOM_DESCR [Dismal Swamp]
  540. You are in the middle of a dismal swamp.  There is a meadow to the north.
  541. END_ROOM_DESCR
  542.  
  543. HELP [Dismal Swamp]
  544. A voice booms out - "Try:  EXAMINE, JUMP, SWIM, CLIMB, THROW, FIND, GO, TAKE,
  545. INVENTORY, SCORE."
  546. END_HELP
  547.  
  548. NOUN [swamp]
  549. swamp
  550. none
  551. INVISIBLE
  552. LOCATION [Dismal Swamp]
  553. UNMOVABLE
  554. END_NOUN
  555.  
  556. NOUN_DESCR [swamp]
  557. The swamp is quite dismal.  You should probably leave as soon as possible.
  558. END_NOUN_DESCR
  559.  
  560. NOUN [Hollow stump and remains of a felled tree]
  561. stump
  562. Hollow
  563. You see a hollow stump and the remains of a felled tree.
  564. LOCATION [NoWhere]
  565. UNMOVABLE
  566. END_NOUN
  567.  
  568. NOUN_DESCR [Hollow stump and remains of a felled tree]
  569. The stump is quite large and is hollow.  You could go inside it if you wanted
  570. to.
  571. END_NOUN_DESCR
  572.  
  573. NOUN [cypress tree]
  574. tree
  575. cypress
  576. A tall cypress tree stands at the edge of the swamp.
  577. LOCATION [Dismal Swamp]
  578. UNMOVABLE
  579. END_NOUN
  580.  
  581. NOUN_DESCR [cypress tree]
  582. The cypress tree looks rather wind-swept, with its branches swept down to one
  583. side.
  584. END_NOUN_DESCR
  585.  
  586. COMMAND BUNYON
  587. Present [rusty axe]
  588. SendAllToRoom [hidden grove]
  589. PrintMessage "Something you are holding vibrated and..."
  590. DoneWithTurn
  591. END_COMMAND
  592.  
  593. COMMAND BUNYON
  594. PrintMessage [Nothing happens]
  595. DoneWithTurn
  596. END_COMMAND
  597.  
  598. COMMAND CHOP TREE
  599. NOT Present [rusty axe]
  600. PrintMessage "You have nothing to $verb$ with, stupid!"
  601. DoneWithTurn
  602. END_COMMAND
  603.  
  604. COMMAND CHOP TREE
  605. Present [cypress tree]
  606. Present [rusty axe]
  607. NOT Present [ring of keys]
  608. SwapLocations [cypress tree] [Hollow stump and remains of a felled tree]
  609. PrintMessage [TIMBER...  Something fell from the treetop and vanished!]
  610. DoneWithTurn
  611. END_COMMAND
  612.  
  613. COMMAND CHOP TREE
  614. Present [cypress tree]
  615. Present [rusty axe]
  616. Present [ring of keys]
  617. SwapLocations [cypress tree] [Hollow stump and remains of a felled tree]
  618. PrintMessage [TIMBER...]
  619. DoneWithTurn
  620. END_COMMAND
  621.  
  622. MESSAGE [TIMBER...  Something fell from the treetop and vanished!]
  623. TIMBER...  The tree crashes to the ground.  As it falls, something fell from
  624. the treetop and vanished!
  625. END_MESSAGE
  626.  
  627. MESSAGE [TIMBER...]
  628. TIMBER...  The tree crashes to the ground.
  629. END_MESSAGE
  630.  
  631. COMMAND CHOP TREE
  632. NOT AtLocation [Hidden Grove]
  633. NOT AtLocation [Dismal Swamp]
  634. NOT AtLocation [Forest]
  635. PrintMessage "There are no trees here to chop."
  636. DoneWithTurn
  637. END_COMMAND
  638.  
  639. COMMAND CHOP TREE
  640. AtLocation [Hidden Grove]
  641. OR
  642. AtLocation [Dismal Swamp]
  643. OR
  644. AtLocation [Forest]
  645. PrintMessage "Quit goofying around and get on with the game!"
  646. DoneWithTurn
  647. END_COMMAND
  648.  
  649. NOUN [evil smelling mud]
  650. mud
  651. smelly
  652. There is some evil-smelling mud here.
  653. LOCATION [Dismal Swamp]
  654. WEIGHT [noun weight]
  655. END_NOUN
  656.  
  657. NOUN_DESCR [evil smelling mud]
  658. The mud smells absolutely dreadful.
  659. END_NOUN_DESCR
  660.  
  661. NOUN [swamp gas]
  662. gas
  663. swamp
  664. You can smell swamp gas all around you.
  665. LOCATION [Dismal Swamp]
  666. WEIGHT [noun weight]
  667. END_NOUN
  668.  
  669. NOUN_DESCR [swamp gas]
  670. The swamp gas was formed from the decay of dead plants and animals.
  671. END_NOUN_DESCR
  672.  
  673. COMMAND GET GAS
  674. Present [swamp gas]
  675. NOT Present [empty wine bladder]
  676. PrintMessage "You don't have anything to put the gas in.  You need a container."
  677. DoneWithTurn
  678. END_COMMAND
  679.  
  680. COMMAND GET GAS
  681. Present [swamp gas]
  682. Present [empty wine bladder]
  683. PrintMessage "You put some of the swamp gas in the bladder."
  684. Destroy [empty wine bladder]
  685. GetIT [distended gas bladder]
  686. DoneWithTurn
  687. END_COMMAND
  688.  
  689. COMMAND DROP GAS
  690. Present [distended gas bladder]
  691. DropIT [empty wine bladder]
  692. Destroy [distended gas bladder]
  693. PrintMessage "The gas dissipates and the bladder is now empty."
  694. DoneWithTurn
  695. END_COMMAND
  696.  
  697. COMMAND LIGHT GAS
  698. Present [swamp gas]
  699. PrintMessage "The gas needs to be in a container to blows up!"
  700. DoneWithTurn (* no further action -- get next input *)
  701. END_COMMAND
  702.  
  703. COMMAND LIGHT GAS
  704. Present [distended gas bladder]
  705. NOT Present [Flint and steel]
  706. PrintMessage [Sorry, but you can't]
  707. PrintMessage [You don't have resources]
  708. DoneWithTurn (* no further action -- get next input *)
  709. END_COMMAND
  710.  
  711. COMMAND LIGHT GAS
  712. IsCarrying [distended gas bladder]
  713. Present [Flint and steel]
  714. PrintMessage "The gas bladder blows up in your hands!"
  715. Destroy [distended gas bladder]
  716. BlankLine
  717. GoToRoom [Limbo]
  718. DoneWithTurn (* no further action -- get next input *)
  719. END_COMMAND
  720.  
  721. COMMAND LIGHT GAS
  722. InRoom [distended gas bladder]
  723. Present [Flint and steel]
  724. PrintMessage "The gas bladder blows up!  Fortunately, you are not hurt."
  725. Destroy [distended gas bladder]
  726. DoneWithTurn (* no further action -- get next input *)
  727. END_COMMAND
  728.  
  729. NOUN [floating patch of oily slime]
  730. oil
  731. slimey
  732. You see a floating patch of oily slime at the edge of the swamp.
  733. LOCATION [Dismal Swamp]
  734. WEIGHT [noun weight]
  735. NOUN_SYNONYMS slime PATCH
  736. END_NOUN
  737.  
  738. NOUN_DESCR [floating patch of oily slime]
  739. The oily slime is oily and slimey -- what more is there to say?
  740. END_NOUN_DESCR
  741.  
  742. NOUN [chiggers]
  743. chiggers
  744. pesky
  745. The are pesky chiggers everywhere.
  746. LOCATION [Dismal Swamp]
  747. WEIGHT [noun weight]
  748. END_NOUN
  749.  
  750. NOUN_DESCR [chiggers]
  751. Chiggers are nasty little bugs that bit.  Avoid them if possible.
  752. END_NOUN_DESCR
  753.  
  754. COMMAND HELP
  755. IsCarrying [chigger bites]
  756. OR
  757. IsCarrying [infected chigger bites]
  758. PrintMessage "A voice booms out -- "Medicine is good for bites!"
  759. DoneWithTurn
  760. END_COMMAND
  761.  
  762. NOUN [chigger bites]
  763. bites
  764. chigger
  765. You have chigger bites all of your body.  They itch!
  766. LOCATION [NoWhere]
  767. END_NOUN
  768.  
  769. NOUN_DESCR [chigger bites]
  770. Your chigger bites are all of your body.  They itch!
  771. END_NOUN_DESCR
  772.  
  773. COMMAND ANY
  774. Chance 5 ; 5% chance that chigger will bite you if present
  775. Present [chiggers]
  776. NOT IsCarrying [evil smelling mud]
  777. NOT IsCarrying [infected chigger bites]
  778. NOT IsCarrying [chigger bites]
  779. GetIt [chigger bites]
  780. PrintMessage "You are bit by chiggers."
  781. BlankLine
  782. END_COMMAND
  783.  
  784. COMMAND ANY
  785. Chance 30 ; 30% chance that chigger will bite you if carrying
  786. IsCarrying [chiggers]
  787. NOT IsCarrying [evil smelling mud]
  788. NOT IsCarrying [infected chigger bites]
  789. NOT IsCarrying [chigger bites]
  790. GetIt [chigger bites]
  791. PrintMessage "You are bit by chiggers."
  792. BlankLine
  793. END_COMMAND
  794.  
  795. COMMAND DROP BITES
  796. IsCarrying [infected chigger bites]
  797. OR
  798. IsCarrying [chigger bites]
  799. PrintMessage [Don't be silly! 2]
  800. BlankLine
  801. DoneWithTurn
  802. END_COMMAND
  803.  
  804. MESSAGE [Don't be silly! 2]
  805. Why on earth would your ever want to $verb$ the $noun$.  That would be
  806. extremely strange!
  807. END_MESSAGE
  808.  
  809. NOUN [infected chigger bites]
  810. bites
  811. infected
  812. You have infected chigger bites all of your body.  They itch!
  813. WEIGHT [noun weight]
  814. LOCATION [NoWhere]
  815. END_NOUN
  816.  
  817. NOUN_DESCR [infected chigger bites]
  818. Your chigger bites are all of your body.  They itch!  And they are infected!!
  819. END_NOUN_DESCR
  820.  
  821.  
  822. COMMAND ANY
  823. Chance 10 ; 10% chance that chigger bites become infected
  824. NOT IsCarrying [evil smelling mud]
  825. IsCarrying [chigger bites]
  826. SwapLocations [chigger bites] [infected chigger bites]
  827. PrintMessage "Your chigger bites are now infected."
  828. BlankLine
  829. END_COMMAND
  830.  
  831. COMMAND ANY
  832. Chance 8 ; 8% chance that chigger bites rot your body
  833. NOT IsCarrying [evil smelling mud]
  834. IsCarrying [infected chigger bites]
  835. SwapLocations [chigger bites] [infected chigger bites]
  836. PrintMessage "The bites have rotted your whole body.  You have died."
  837. BlankLine
  838. GoToRoom [Limbo]
  839. DoneWithTurn
  840. END_COMMAND
  841.  
  842. COMMAND ANY
  843. Chance 5 ; 5% chance that mud falls off -- if not carrying water
  844. IsCarrying [evil smelling mud]
  845. NOT IsCarrying [bottle of water]
  846. SendToRoom [evil smelling mud] [Dismal Swamp]
  847. PrintMessage "The mud dried up and fell off."
  848. BlankLine
  849. END_COMMAND
  850.  
  851. COMMAND GET MUD
  852. Present [evil smelling mud]
  853. IsCarrying [chigger bites]
  854. OR
  855. IsCarrying [infected chigger bites]
  856. PrintMessage "The mud heals your chigger bites.  You feel much better."
  857. Destroy [chigger bites]
  858. Destroy [infected chigger bites]
  859. DoneWithTurn
  860. END_COMMAND
  861.  
  862. COMMAND GO TREE
  863. Present [cypress tree]
  864. AtLocation [Dismal Swamp]
  865. GoToRoom [Top of a Cypress Tree]
  866. PrintMessage "You climb to the top of the old cypress tree."
  867. BlankLine
  868. DoneWithTurn
  869. END_COMMAND
  870.  
  871.  
  872. ROOM [Top of a Cypress Tree]
  873. Top of Cypress Tree
  874. DOWN [Dismal Swamp]
  875. END_ROOM
  876.  
  877. ROOM_DESCR [Top of a Cypress Tree]
  878. You are in the top of a tall cypress tree.  Below you is a dismal swamp.
  879. END_ROOM_DESCR
  880.  
  881. NOUN [spider web with writing on it]
  882. web
  883. spider
  884. There is a spider web among the tree branches.
  885. LOCATION [Top of a Cypress Tree]
  886. READABLE
  887. UNMOVABLE
  888. END_NOUN
  889.  
  890. NOUN_DESCR [spider web with writing on it]
  891. The spider web has writing on it.
  892. END_NOUN_DESCR
  893.  
  894. TEXT [spider web with writing on it]
  895. CHOP IT DOWN!
  896. END_TEXT_DESCR
  897.  
  898. NOUN [spider]
  899. spider
  900. black
  901. INVISIBLE
  902. LOCATION [Top of a Cypress Tree]
  903. UNMOVABLE
  904. END_NOUN
  905.  
  906. NOUN_DESCR [spider]
  907. The spider is crawling toward you.  Be careful!
  908. END_NOUN_DESCR
  909.  
  910. COMMAND GET WEB
  911. Present [spider web with writing on it]
  912. PrintMessage "Yeech!  Ouch!  You are bit by a large spider!!"
  913. GoToRoom [Limbo]
  914. DoneWithTurn
  915. END_COMMAND
  916.  
  917. COMMAND GET SPIDER
  918. Present [spider web with writing on it]
  919. PrintMessage "Yeech!  Ouch!  You are bit by a large spider!!"
  920. GoToRoom [Limbo]
  921. DoneWithTurn
  922. END_COMMAND
  923.  
  924. NOUN [ring of keys]
  925. keys
  926. skeleton
  927. There is a ring of skeleton keys here.
  928. LOCATION [Top of a Cypress Tree]
  929. WEIGHT [noun weight]
  930. NOUN_SYNONYMS RING KEY
  931. END_NOUN
  932.  
  933. NOUN_DESCR [ring of keys]
  934. The keys are made of iron and clank together when you touch them.
  935. END_NOUN_DESCR
  936.  
  937.  
  938. ROOM [Quicksand Bog]
  939. Quicksand Bog
  940. END_ROOM
  941.  
  942. ROOM_DESCR [Quicksand Bog]
  943. You are in the middle of a quicksand bog.  It is very dangerous here.
  944. END_ROOM_DESCR
  945.  
  946. HELP [Quicksand Bog]
  947. A voice booms out - "Try:  EXAMINE, JUMP, SWIM, CLIMB, THROW, FIND, GO, TAKE,
  948. INVENTORY, SCORE."
  949. END_HELP
  950.  
  951. COMMAND SWIM
  952. AtLocation [Quicksand Bog]
  953. IsCarrying [SMALL STATUE OF A BLUE OXE]
  954. PrintMessage "The small statue slips from your grasp as you struggle in the bog."
  955. SendToRoom [SMALL STATUE OF A BLUE OXE] [Hidden Grove]
  956. GoToRoom [Shore of Lake]
  957. DoneWithTurn
  958. END_COMMAND
  959.  
  960. COMMAND SWIM
  961. AtLocation [Quicksand Bog]
  962. PrintMessage "You struggle through the bog and finally reach the shore."
  963. SendToRoom [SMALL STATUE OF A BLUE OXE] [Hidden Grove]
  964. GoToRoom [Shore of Lake]
  965. DoneWithTurn
  966. END_COMMAND
  967.  
  968. NOUN [SMALL STATUE OF A BLUE OXE]
  969. OXE
  970. BLUE
  971. You see a statue of a small blue oxe.
  972. LOCATION [Quicksand Bog]
  973. POINTS 7
  974. WEIGHT [noun weight]
  975. NOUN_SYNONYMS OX STATUE
  976. END_NOUN
  977.  
  978. NOUN_DESCR [SMALL STATUE OF A BLUE OXE]
  979. The statue is very finely crafted.  It is very beautiful and is probably worth
  980. a great deal.
  981. END_NOUN_DESCR
  982.  
  983. COMMAND SWIM
  984. AtLocation [Shore of Lake]
  985. PrintMessage "You struggle in the water and end up in the bog."
  986. GoToRoom [Quicksand Bog]
  987. DoneWithTurn
  988. END_COMMAND
  989.  
  990. COMMAND SWIM
  991. AtLocation [Shore of Lake]
  992. OR
  993. AtLocation [Quicksand Bog]
  994. PrintMessage "It is impossible to swim without some body of water nearby!"
  995. GoToRoom [Quicksand Bog]
  996. DoneWithTurn
  997. END_COMMAND
  998.  
  999.  
  1000. ROOM [Shore of Lake]
  1001. Shore of a Lake
  1002. NORTH [Quicksand Bog]
  1003. SOUTH [Edge of Bottomless Hole]
  1004. WEST [Sunny Meadow]
  1005. DOWN [Quicksand Bog]
  1006. END_ROOM
  1007.  
  1008. ROOM_DESCR [Shore of Lake]
  1009. You are on the shore of a large lake.  To the west is a meadow.  A thick
  1010. forest lies to the north.  To the south you can see a large hole.
  1011. END_ROOM_DESCR
  1012.  
  1013. NOUN [water]
  1014. water
  1015. blue
  1016. The lake has clear blue water.
  1017. LOCATION [Shore of Lake]
  1018. NOUN_SYNONYMS LAKE
  1019. UNMOVABLE
  1020. END_NOUN
  1021.  
  1022. NOUN_DESCR [water]
  1023. The lake is quite serene.
  1024. END_NOUN_DESCR
  1025.  
  1026. NOUN [sign says - NO SWIMMING ALLOWED]
  1027. sign
  1028. Wooden
  1029. There is a wooden sign near the edge of the water.
  1030. LOCATION [Shore of Lake]
  1031. UNMOVABLE
  1032. END_NOUN
  1033.  
  1034. NOUN_DESCR [sign says - NO SWIMMING ALLOWED]
  1035. The sign says - NO SWIMMING ALLOWED!
  1036. END_NOUN_DESCR
  1037.  
  1038. NOUN [GOLDEN FISH]
  1039. FISH
  1040. GOLDEN
  1041. There is a small golden fish here.
  1042. LOCATION [Shore of Lake]
  1043. POINTS 8
  1044. WEIGHT [noun weight]
  1045. END_NOUN
  1046.  
  1047. NOUN_DESCR [GOLDEN FISH]
  1048. The fish looks like a lake perch.
  1049. END_NOUN_DESCR
  1050.  
  1051. NOUN [dead fish]
  1052. fish
  1053. dead
  1054. You see a dead fish here.
  1055. LOCATION [NoWhere]
  1056. WEIGHT [noun weight]
  1057. END_NOUN
  1058.  
  1059. NOUN_DESCR [dead fish]
  1060. The fish looks like a lake perch.  It is quite dead.
  1061. END_NOUN_DESCR
  1062.  
  1063. NOUN [rusty axe]
  1064. axe
  1065. rusty
  1066. You see a rusty axe on the ground.
  1067. LOCATION [Shore of Lake]
  1068. WEIGHT [noun weight]
  1069. NOUN_SYNONYMS AX
  1070. END_NOUN
  1071.  
  1072. NOUN_DESCR [rusty axe]
  1073. The rusty axe has "magic word - BUNYON" written on it.
  1074. END_NOUN_DESCR
  1075.  
  1076.  
  1077. ROOM [Edge of Bottomless Hole]
  1078. Edge of Bottomless Hole
  1079. NORTH [Shore of Lake]
  1080. WEST [Dismal Swamp]
  1081. DOWN [In Real Trouble!]
  1082. END_ROOM
  1083.  
  1084. ROOM_DESCR [Edge of Bottomless Hole]
  1085. You are standing on the edge of a bottomless hole.  There is a small ledge a
  1086. few feet below the top of the hole.
  1087. END_ROOM_DESCR
  1088.  
  1089. COMMAND GO LEDGE
  1090. AtLocation [Edge of Bottomless Hole]
  1091. GoToRoom [Ledge in Hole]
  1092. PrintMessage "You carefully climb down to the ledge inside the hole."
  1093. BlankLine
  1094. DoneWithTurn
  1095. END_COMMAND
  1096.  
  1097. COMMAND ENTER HOLE
  1098. AtLocation [Edge of Bottomless Hole]
  1099. GoToRoom [Ledge in Hole]
  1100. PrintMessage "You carefully climb down to the ledge inside the hole."
  1101. BlankLine
  1102. DoneWithTurn
  1103. END_COMMAND
  1104.  
  1105. NOUN [Ledge]
  1106. ledge
  1107. none
  1108. INVISIBLE
  1109. LOCATION [Edge of Bottomless Hole]
  1110. END_NOUN
  1111.  
  1112. NOUN_DESCR [Ledge]
  1113. The ledge is about four feet below the edge of the hole.
  1114. END_NOUN_DESCR
  1115.  
  1116. NOUN [Bottomless hole]
  1117. hole
  1118. bottomless
  1119. INVISIBLE
  1120. LOCATION [Edge of Bottomless Hole]
  1121. END_NOUN
  1122.  
  1123. NOUN_DESCR [Bottomless hole]
  1124. You can't see the bottom.  You drop a pebble and never hear it hit bottom.
  1125. END_NOUN_DESCR
  1126.  
  1127. ROOM [Ledge in Hole]
  1128. Ledge in Bottomless Hole
  1129. NORTH [Shore of Lake]
  1130. EAST [Edge of Bottomless Hole]
  1131. UP [Edge of Bottomless Hole]
  1132. DOWN [In Real Trouble!]
  1133. END_ROOM
  1134.  
  1135. ROOM_DESCR [Ledge in Hole]
  1136. You are perched precareiously on a small ledge near the top of the bottomless
  1137. hole.  Be careful!
  1138. END_ROOM_DESCR
  1139.  
  1140. NOUN [flint and steel]
  1141. flint
  1142. none
  1143. There is a flint and steel here.
  1144. LOCATION [Ledge in Hole]
  1145. WEIGHT [noun weight]
  1146. NOUN_SYNONYMS STEEL
  1147. END_NOUN
  1148.  
  1149. NOUN_DESCR [flint and steel]
  1150. Flint and steel is used to start a fire.
  1151. END_NOUN_DESCR
  1152.  
  1153. COMMAND GO STUMP
  1154. Present [Hollow stump and remains of a felled tree]
  1155. AtLocation [Dismal Swamp]
  1156. GoToRoom [Large Hollow Stump]
  1157. PrintMessage "You climb into the center of the hollow stump."
  1158. BlankLine
  1159. DoneWithTurn
  1160. END_COMMAND
  1161.  
  1162. ROOM [Large Hollow Stump]
  1163. In Large Hollow Stump
  1164. NORTH [Dismal Swamp]
  1165. SOUTH [Dismal Swamp]
  1166. EAST [Dismal Swamp]
  1167. WEST [Dismal Swamp]
  1168. EXIT [Dismal Swamp]
  1169. UP [Dismal Swamp]
  1170. DOWN [Root Chamber]
  1171. END_ROOM
  1172.  
  1173. ROOM_DESCR [Large Hollow Stump]
  1174. You are in a large hollow stump in the middle of a dismal swamp.  There is a
  1175. hole leading down into the darkness.
  1176. END_ROOM_DESCR
  1177.  
  1178. NOUN [sign - LEAVE TREASURE HERE]
  1179. sign
  1180. large
  1181. A large sign is nailed to the inside of the tree stump.
  1182. LOCATION [Large Hollow Stump]
  1183. UNMOVABLE
  1184. END_NOUN
  1185.  
  1186. NOUN_DESCR [sign - LEAVE TREASURE HERE]
  1187. The sign says - LEAVE TREASURE HERE - (say 'SCORE')
  1188. END_NOUN_DESCR
  1189.  
  1190. TREASURE_ROOM [Large Hollow Stump]
  1191.  
  1192. COMMAND GO HOLE
  1193. AtLocation [Large Hollow Stump]
  1194. GoToRoom [Root Chamber]
  1195. PrintMessage "You carefully climb down into the hole."
  1196. BlankLine
  1197. DoneWithTurn
  1198. END_COMMAND
  1199.  
  1200. COMMAND ENTER HOLE
  1201. AtLocation [Large Hollow Stump]
  1202. GoToRoom [Root Chamber]
  1203. PrintMessage "You carefully climb down into the hole."
  1204. BlankLine
  1205. DoneWithTurn
  1206. END_COMMAND
  1207.  
  1208. NOUN [dark hole]
  1209. hole
  1210. dark
  1211. You see a dark hole leading downward.
  1212. LOCATION [Large Hollow Stump]
  1213. UNMOVABLE
  1214. END_NOUN
  1215.  
  1216. NOUN_DESCR [dark hole]
  1217. The hole is about two feet across and leads down into the darkness.
  1218. END_NOUN_DESCR
  1219.  
  1220. NOUN [unlit brass lamp - empty]
  1221. lamp
  1222. brass
  1223. There is a brass lamp here.
  1224. LOCATION [Large Hollow Stump]
  1225. WEIGHT [noun weight]
  1226. END_NOUN
  1227.  
  1228. NOUN_DESCR [unlit brass lamp - empty]
  1229. The lamp is the old-fashoned kind that uses oil as fuel.  The lamp does not
  1230. have any oil in it now.
  1231. END_NOUN_DESCR
  1232.  
  1233. NOUN [unlit brass lamp - full]
  1234. lamp
  1235. brass
  1236. There is a brass lamp here.
  1237. LOCATION [NoWhere]
  1238. WEIGHT [noun weight]
  1239. END_NOUN
  1240.  
  1241. NOUN_DESCR [unlit brass lamp - full]
  1242. The lamp is the old-fashoned kind that uses oil as fuel.  The lamp has plenty
  1243. of oil in it.
  1244. END_NOUN_DESCR
  1245.  
  1246. VARIABLE [number times lamp is rubbed]
  1247. FLAG [Lamp is present]
  1248.  
  1249. COMMAND ANY
  1250. TurnFlagOFF [Lamp is present]
  1251. Present [unlit brass lamp - empty]
  1252. OR
  1253. Present [unlit brass lamp - full]
  1254. TurnFlagON [Lamp is present]
  1255. END_COMMAND
  1256.  
  1257. COMMAND RUB LAMP
  1258. Present [lit brass lamp]
  1259. PrintMessage "The lamp is too hot to rub."
  1260. DoneWithTurn
  1261. END_COMMAND
  1262.  
  1263. COMMAND RUB LAMP
  1264. FlagON [Lamp is present]
  1265. AddToVariable VARIABLE [number times lamp is rubbed] 1
  1266. VariableEquals [number times lamp is rubbed] 1
  1267. PrintMessage [A glowing genie appears - drops something]
  1268. DropIt [DIAMOND RING]
  1269. DoneWithTurn
  1270. END_COMMAND
  1271.  
  1272. COMMAND RUB LAMP
  1273. FlagON [Lamp is present]
  1274. VariableEquals [number times lamp is rubbed] 2
  1275. PrintMessage [A glowing genie appears - drops something]
  1276. DropIt [DIAMOND BRACELET]
  1277. DoneWithTurn
  1278. END_COMMAND
  1279.  
  1280. MESSAGE [A glowing genie appears - drops something]
  1281. As you rub the lamp, a glowing genie suddenly appears.  It drops something
  1282. and then vanishes.
  1283. END_MESSAGE
  1284.  
  1285. COMMAND RUB LAMP
  1286. FlagON [Lamp is present]
  1287. VariableEquals [number times lamp is rubbed] 3
  1288. Present [DIAMOND BRACELET]
  1289. Destroy [DIAMOND BRACELET]
  1290. PrintMessage [A genie appears - says 'boy you're selfish']
  1291. DoneWithTurn
  1292. END_COMMAND
  1293.  
  1294. COMMAND RUB LAMP
  1295. FlagON [Lamp is present]
  1296. VariableEquals [number times lamp is rubbed] 3
  1297. Present [DIAMOND RING]
  1298. Destroy [DIAMOND RING]
  1299. PrintMessage [A genie appears - says 'boy you're selfish']
  1300. DoneWithTurn
  1301. END_COMMAND
  1302.  
  1303. COMMAND RUB LAMP
  1304. FlagON [Lamp is present]
  1305. VariableEquals [number times lamp is rubbed] 4
  1306. Present [DIAMOND BRACELET]
  1307. Destroy [DIAMOND BRACELET]
  1308. PrintMessage [A genie appears - says 'boy you're selfish']
  1309. DoneWithTurn
  1310. END_COMMAND
  1311.  
  1312. COMMAND RUB LAMP
  1313. FlagON [Lamp is present]
  1314. VariableEquals [number times lamp is rubbed] 4
  1315. Present [DIAMOND RING]
  1316. Destroy [DIAMOND RING]
  1317. PrintMessage [A genie appears - says 'boy you're selfish']
  1318. DoneWithTurn
  1319. END_COMMAND
  1320.  
  1321. COMMAND RUB LAMP
  1322. FlagON [Lamp is present]
  1323. VariableGT [number times lamp is rubbed] 2
  1324. Destroy [unlit brass lamp - empty]
  1325. Destroy [unlit brass lamp - full]
  1326. SendToRoom Destroy [unlit brass lamp - full] [Sunny Meadow]
  1327. PrintMessage [A genie appears - says 'boy you're selfish']
  1328. DoneWithTurn
  1329. END_COMMAND
  1330.  
  1331. COMMAND RUB LAMP
  1332. FlagON [Lamp is present]
  1333. VariableEquals [number times lamp is rubbed] 4
  1334. Present [DIAMOND RING]
  1335. Destroy [DIAMOND RING]
  1336. PrintMessage [A genie appears - says 'boy you're selfish']
  1337. DoneWithTurn
  1338. END_COMMAND
  1339.  
  1340. MESSAGE [A genie appears - says 'boy you're selfish']
  1341. The genie appears again and says 'Boy, you are selfish!'  It then takes
  1342. something and vanishes!
  1343. END_MESSAGE
  1344.  
  1345. COMMAND PUT OIL IN LAMP
  1346. AtLocation [Dismal Swamp]
  1347. Present [unlit brass lamp - empty]
  1348. PrintMessage [Magic oil attracts magic lamp.  Lamp is now full.]
  1349. SwapLocations [unlit brass lamp - empty] [unlit brass lamp - full]
  1350. SetVariableTo [Number of turns lamp has been lit] 0
  1351. DoneWithTurn
  1352. END_COMMAND
  1353.  
  1354. MESSAGE [Magic oil attracts magic lamp.  Lamp is now full.]
  1355. The "magic" oil attracts the magic lamp.  Your lamp is now full of oil.
  1356. END_MESSAGE
  1357.  
  1358. COMMAND PUT OIL IN LAMP
  1359. AtLocation [Dismal Swamp]
  1360. Present [unlit brass lamp - full]
  1361. PrintMessage "You fill the lamp with oil."
  1362. SetVariableTo [Number of turns lamp has been lit] 0
  1363. DoneWithTurn
  1364. END_COMMAND
  1365.  
  1366. COMMAND PUT OIL IN LIT LAMP
  1367. AtLocation [Dismal Swamp]
  1368. Present [lit brass lamp]
  1369. PrintMessage "The lamp is too hot to fill with oil."
  1370. DoneWithTurn
  1371. END_COMMAND
  1372.  
  1373. NOUN [lit brass lamp]
  1374. lamp
  1375. lit
  1376. The lamp is blazing brightly and throws off an eerie light.
  1377. LOCATION [NoWhere]
  1378. IS_LIGHT
  1379. WEIGHT [noun weight]
  1380. END_NOUN
  1381.  
  1382. NOUN_DESCR [lit brass lamp]
  1383. The lamp is the old-fashoned kind that uses oil as fuel.  It is shining
  1384. brightly.
  1385. END_NOUN_DESCR
  1386.  
  1387. NOUN [DIAMOND RING]
  1388. RING
  1389. DIAMOND
  1390. There is a beautiful ring here.  It has a large diamond.
  1391. LOCATION [NoWhere]
  1392. POINTS 7
  1393. WEIGHT [noun weight]
  1394. WEARABLE
  1395. END_NOUN
  1396.  
  1397. NOUN_DESCR [DIAMOND RING]
  1398. The diamond is about 27 caret.  The ring would just fit you.
  1399. END_NOUN_DESCR
  1400.  
  1401. NOUN [DIAMOND BRACELET]
  1402. BRACELET
  1403. DIAMOND-STUDDED
  1404. There a diamond-studded bracelet here.
  1405. LOCATION [NoWhere]
  1406. POINTS 7
  1407. WEIGHT [noun weight]
  1408. WEARABLE
  1409. END_NOUN
  1410.  
  1411. NOUN_DESCR [DIAMOND BRACELET]
  1412. The bracelet is quite beautiful.  It is just covered with diamonds.
  1413. END_NOUN_DESCR
  1414.  
  1415. NOUN [bottle of water]
  1416. Bottle
  1417. water
  1418. There is a bottle of water here.
  1419. LOCATION [Large Hollow Stump]
  1420. WEIGHT [noun weight]
  1421. RELATED_NAME water
  1422. END_NOUN
  1423.  
  1424. NOUN_DESCR [bottle of water]
  1425. The bottle looks like a old classic Coke bottle.  It is full of water.
  1426. END_NOUN_DESCR
  1427.  
  1428. NOUN [bottle of oil]
  1429. Bottle
  1430. oil
  1431. There is a bottle of oil here.
  1432. LOCATION [NoWhere]
  1433. WEIGHT [noun weight]
  1434. RELATED_NAME oil
  1435. END_NOUN
  1436.  
  1437. NOUN_DESCR [bottle of oil]
  1438. The bottle looks like a old classic Coke bottle.  It is full of oil.
  1439. END_NOUN_DESCR
  1440.  
  1441. NOUN [empty bottle]
  1442. bottle
  1443. empty
  1444. There is an empty bottle here.
  1445. LOCATION [NoWhere]
  1446. WEIGHT [noun weight]
  1447. END_NOUN
  1448.  
  1449. NOUN_DESCR [empty bottle]
  1450. The bottle looks like a old classic Coke bottle.  It is empty.
  1451. END_NOUN_DESCR
  1452.  
  1453. ROOM [Root Chamber]
  1454. In Root Chamber
  1455. UP [Large Hollow Stump]
  1456. DOWN [Semi-dark Hole]
  1457. END_ROOM
  1458.  
  1459. ROOM_DESCR [Root Chamber]
  1460. You are in a small root chamber under the stump.  A dark hole leads downward.
  1461. END_ROOM_DESCR
  1462.  
  1463. COMMAND GO HOLE
  1464. AtLocation [Root Chamber]
  1465. GoToRoom [Semi-dark Hole]
  1466. PrintMessage "You carefully climb down into the hole below the root chamber."
  1467. BlankLine
  1468. DoneWithTurn
  1469. END_COMMAND
  1470.  
  1471. NOUN [POT OF RUBIES]
  1472. RUBIES
  1473. POT-OF
  1474. There is large pot of rubies here.
  1475. LOCATION [Root Chamber]
  1476. POINTS 8
  1477. NOUN_SYNONYMS POT
  1478. END_NOUN
  1479.  
  1480. NOUN_DESCR [POT OF RUBIES]
  1481. The pot is full of very red rubies.  It must be worth a fortune.
  1482. END_NOUN_DESCR
  1483.  
  1484.  
  1485. ROOM [Semi-dark Hole]
  1486. Semi-dark Hole
  1487. UP [Root Chamber]
  1488. END_ROOM
  1489.  
  1490. ROOM_DESCR [Semi-dark Hole]
  1491. You are in a semi-dark hole below the root chamber.
  1492. END_ROOM_DESCR
  1493.  
  1494. NOUN [locked door]
  1495. door
  1496. locked
  1497. There is small locked door at the end of the hole.
  1498. LOCATION [Semi-dark hole]
  1499. UNMOVABLE
  1500. END_NOUN
  1501.  
  1502. NOUN_DESCR [locked door]
  1503. The door is locked tight.  You try to shake it open, but you can't.
  1504. END_NOUN_DESCR
  1505.  
  1506. NOUN [Open doorway with hallway beyond]
  1507. door
  1508. open
  1509. There is an open door with a hallway beyond.
  1510. LOCATION [NoWhere]
  1511. NOUN_SYNONYMS HALLWAY
  1512. UNMOVABLE
  1513. END_NOUN
  1514.  
  1515. NOUN_DESCR [Open doorway with hallway beyond]
  1516. The door is wide open.  The hallway beyond it looks dim and forbidding.
  1517. END_NOUN_DESCR
  1518.  
  1519. COMMAND OPEN DOOR
  1520. AtLocation [Semi-dark hole]
  1521. Present [locked door]
  1522. PrintMessage "Sorry, but the door is locked."
  1523. DoneWithTurn
  1524. END_COMMAND
  1525.  
  1526. COMMAND CLOSE DOOR
  1527. AtLocation [Semi-dark hole]
  1528. Present [locked door]
  1529. PrintMessage "Sorry, but the door is already closed -- dummy!"
  1530. DoneWithTurn
  1531. END_COMMAND
  1532.  
  1533. COMMAND UNLOCK DOOR
  1534. AtLocation [Semi-dark hole]
  1535. Present [locked door]
  1536. NOT Present [ring of keys]
  1537. PrintMessage "Sorry, but the door is locked and you don't have the key."
  1538. DoneWithTurn
  1539. END_COMMAND
  1540.  
  1541. COMMAND UNLOCK DOOR
  1542. AtLocation [Semi-dark hole]
  1543. Present [locked door]
  1544. Present [ring of keys]
  1545. SwapLocations [locked door] [Open doorway with hallway beyond]
  1546. PrintMessage "You unlock the door and swing it open revealing a hallway beyond."
  1547. DoneWithTurn
  1548. END_COMMAND
  1549.  
  1550. COMMAND CLOSE DOOR
  1551. AtLocation [Semi-dark hole]
  1552. Present [Open doorway with hallway beyond]
  1553. SwapLocations [locked door] [Open doorway with hallway beyond]
  1554. PrintMessage "You close the door and it automatically locks."
  1555. DoneWithTurn
  1556. END_COMMAND
  1557.  
  1558. COMMAND GO DOOR
  1559. Present [open doorway with hallway beyond]
  1560. AtLocation [Semi-dark hole]
  1561. GoToRoom [Long Hallway]
  1562. PrintMessage "You go through the door and enter the hallway beyond."
  1563. BlankLine
  1564. DoneWithTurn
  1565. END_COMMAND
  1566.  
  1567.  
  1568. ROOM [Long Hallway]
  1569. Long Down-sloping Hallway
  1570. UP [Semi-dark hole]
  1571. DOWN [Large Cavern]
  1572. LIGHT [lit brass lamp]
  1573. END_ROOM
  1574.  
  1575. ROOM_DESCR [Long Hallway]
  1576. You are in a long hallway.  It slops downward into the darkness.
  1577. END_ROOM_DESCR
  1578.  
  1579.  
  1580. ROOM [large 8-sided room]
  1581. Large 8-sided Room
  1582. SOUTH [Large Tunnel]
  1583. LIGHT [lit brass lamp]
  1584. END_ROOM
  1585.  
  1586. ROOM_DESCR [large 8-sided room]
  1587. You are in a large 8-sided room.  The only exit is to the south.
  1588. END_ROOM_DESCR
  1589.  
  1590. HELP [large 8-sided room]
  1591. A voice booms out - "Read the sign in the meadow!"
  1592. END_HELP
  1593.  
  1594. NOUN [ROYAL HONEY]
  1595. HONEY
  1596. ROYAL
  1597. You see a large gob of royal honey.
  1598. LOCATION [large 8-sided room]
  1599. POINTS 8
  1600. WEIGHT [noun weight]
  1601. EDIBLE
  1602. DRINKABLE
  1603. NOUN_SYNONYMS GOB
  1604. END_NOUN
  1605.  
  1606. NOUN_DESCR [ROYAL HONEY]
  1607. The honey is sticky, but it tastes good.
  1608. END_NOUN_DESCR
  1609.  
  1610. COMMAND ATTACK BEAR
  1611. Present [thin black bear]
  1612. PrintMessage "The bear easily defends itself from your feeble attack."
  1613. DoneWithTurn
  1614. END_COMMAND
  1615.  
  1616. COMMAND DROP HONEY
  1617. IsCarrying [ROYAL HONEY]
  1618. Present [thin black bear]
  1619. SwapLocations [thin black bear] [sleeping bear]
  1620. Destroy [ROYAL HONEY]
  1621. PrintMessage "The bear eats the honey and falls asleep."
  1622. DoneWithTurn
  1623. END_COMMAND
  1624.  
  1625. COMMAND FEED BEAR
  1626. IsCarrying [ROYAL HONEY]
  1627. Present [thin black bear]
  1628. SwapLocations [thin black bear] [sleeping bear]
  1629. Destroy [ROYAL HONEY]
  1630. PrintMessage "The bear eats the honey and falls asleep."
  1631. DoneWithTurn
  1632. END_COMMAND
  1633.  
  1634. COMMAND GIVE HONEY TO BEAR
  1635. IsCarrying [ROYAL HONEY]
  1636. Present [thin black bear]
  1637. SwapLocations [thin black bear] [sleeping bear]
  1638. Destroy [ROYAL HONEY]
  1639. PrintMessage "The bear eats the honey and falls asleep."
  1640. DoneWithTurn
  1641. END_COMMAND
  1642.  
  1643. COMMAND GET HONEY
  1644. NOT IsCarrying [evil smelling mud]
  1645. Present [ROYAL HONEY]
  1646. Present [large african bees]
  1647. PrintMessage "The bees sting you and your die!"
  1648. GoToRoom [Limbo]
  1649. BlankLine
  1650. DoneWithTurn
  1651. END_COMMAND
  1652.  
  1653. COMMAND RELEASE BEES
  1654. IsCarrying [bees in a bottle]
  1655. Present [thin black bear]
  1656. PrintMessage [Bees madden the bear.  Bear then attacks you!]
  1657. SwapLocations [empty bottle] [bees in a bottle]
  1658. TurnFlagOFF [Bottle Full]
  1659. DropIt [large african bees]
  1660. GoToRoom [Limbo]
  1661. BlankLine
  1662. DoneWithTurn
  1663. END_COMMAND
  1664.  
  1665. COMMAND EMPTY BOTTLE
  1666. IsCarrying [bees in a bottle]
  1667. Present [thin black bear]
  1668. PrintMessage [Bees madden the bear.  Bear then attacks you!]
  1669. SwapLocations [empty bottle] [bees in a bottle]
  1670. TurnFlagOFF [Bottle Full]
  1671. DropIt [large african bees]
  1672. GoToRoom [Limbo]
  1673. BlankLine
  1674. DoneWithTurn
  1675. END_COMMAND
  1676.  
  1677. MESSAGE [Bees madden the bear.  Bear then attacks you!]
  1678. The bees madden the bear making it very angry.  The bear then attacks you!
  1679. You are history!
  1680. END_MESSAGE
  1681.  
  1682. COMMAND RELEASE BEES
  1683. IsCarrying [bees in a bottle]
  1684. NOT IsCarrying [evil smelling mud]
  1685. PrintMessage "The bees sting you and your die!"
  1686. SwapLocations [empty bottle] [bees in a bottle]
  1687. TurnFlagOFF [Bottle Full]
  1688. DropIt [large african bees]
  1689. GoToRoom [Limbo]
  1690. BlankLine
  1691. DoneWithTurn
  1692. END_COMMAND
  1693.  
  1694. COMMAND EMPTY BOTTLE
  1695. IsCarrying [bees in a bottle]
  1696. NOT IsCarrying [evil smelling mud]
  1697. PrintMessage "The bees sting you and your die!"
  1698. SwapLocations [empty bottle] [bees in a bottle]
  1699. TurnFlagOFF [Bottle Full]
  1700. DropIt [large african bees]
  1701. GoToRoom [Limbo]
  1702. BlankLine
  1703. DoneWithTurn
  1704. END_COMMAND
  1705.  
  1706. COMMAND RELEASE BEES
  1707. IsCarrying [bees in a bottle]
  1708. IsCarrying [evil smelling mud]
  1709. PrintMessage "You free the bees and they swarm around you but do not bite."
  1710. SwapLocations [empty bottle] [bees in a bottle]
  1711. TurnFlagOFF [Bottle Full]
  1712. DropIt [large african bees]
  1713. DoneWithTurn
  1714. END_COMMAND
  1715.  
  1716. COMMAND DROP BOTTLE
  1717. IsCarrying [bees in a bottle]
  1718. IsCarrying [evil smelling mud]
  1719. PrintMessage "You drop the bees and they swarm around you but do not bite."
  1720. SwapLocations [empty bottle] [bees in a bottle]
  1721. TurnFlagOFF [Bottle Full]
  1722. DropIt [large african bees]
  1723. DoneWithTurn
  1724. END_COMMAND
  1725.  
  1726. COMMAND GET BEES
  1727. NOT IsCarrying [evil smelling mud]
  1728. Present [large african bees]
  1729. PrintMessage "The bees sting you and your die!"
  1730. GoToRoom [Limbo]
  1731. BlankLine
  1732. DoneWithTurn
  1733. END_COMMAND
  1734.  
  1735. COMMAND ANY
  1736. Chance 8 ; 8% chance that bees sting you
  1737. NOT Present [evil smelling mud]
  1738. Present [large african bees]
  1739. PrintMessage "The bees sting you and your die!"
  1740. GoToRoom [Limbo]
  1741. BlankLine
  1742. DoneWithTurn
  1743. END_COMMAND
  1744.  
  1745. COMMAND GET BEES
  1746. Present [evil smelling mud]
  1747. Present [large african bees]
  1748. NOT Present [empty bottle]
  1749. PrintMessage "You don't have anything to put the bees in.  You need a container."
  1750. DoneWithTurn
  1751. END_COMMAND
  1752.  
  1753. COMMAND GET BEES
  1754. IsCarrying [evil smelling mud]
  1755. Present [large african bees]
  1756. Present [empty bottle]
  1757. PrintMessage "You put the bees in the bottle.  They are not happy!"
  1758. Destroy [empty bottle]
  1759. GetIt [bees in a bottle]
  1760. TurnFlagON [Bottle Full]
  1761. DoneWithTurn
  1762. END_COMMAND
  1763.  
  1764. COMMAND ANY
  1765. Chance 8 ; 8% chance that bees suffocate in bottle
  1766. IsCarrying [bees in a bottle]
  1767. SwapLocations [empty bottle] [bees in a bottle]
  1768. PrintMessage "The bees all suffocated in the bottle.  You empty them out."
  1769. BlankLine
  1770. END_COMMAND
  1771.  
  1772. NOUN [large african bees]
  1773. bees
  1774. killer
  1775. A swarm of large African "killer" bees is buzzing around your head.
  1776. LOCATION [large 8-sided room]
  1777. WEIGHT [noun weight]
  1778. END_NOUN
  1779.  
  1780. NOUN_DESCR [large african bees]
  1781. The bees are swarming close to your head.  They are very noisy.  Be careful!
  1782. END_NOUN_DESCR
  1783.  
  1784. NOUN [bees in a bottle]
  1785. bees
  1786. bottle-of
  1787. The bees are buzzing angryily in the bottle.
  1788. LOCATION [NoWhere]
  1789. WEIGHT [noun weight]
  1790. RELATED_NAME bees
  1791. END_NOUN
  1792.  
  1793. NOUN_DESCR [bees in a bottle]
  1794. The bees in the bottle do not look happy.  You had better not let them out.
  1795. END_NOUN_DESCR
  1796.  
  1797.  
  1798. ROOM [Large Tunnel]
  1799. Large Tunnel
  1800. NORTH [large 8-sided room]
  1801. SOUTH [Large Cavern]
  1802. LIGHT [lit brass lamp]
  1803. END_ROOM
  1804.  
  1805. ROOM_DESCR [Large Tunnel]
  1806. You are in a large tunnel which runs north and south.
  1807. END_ROOM_DESCR
  1808.  
  1809.  
  1810. ROOM [Large Cavern]
  1811. Large Cavern
  1812. NORTH [Large Tunnel]
  1813. SOUTH [royal anteroom]
  1814. WEST [RAM of an IBM-PC]
  1815. UP [Long Hallway]
  1816. DOWN [maze of pits #1]
  1817. LIGHT [lit brass lamp]
  1818. END_ROOM
  1819.  
  1820. ROOM_DESCR [Large Cavern]
  1821. You are in the middle of large cavern.  There are exits in all directions.
  1822. END_ROOM_DESCR
  1823.  
  1824.  
  1825. ROOM [RAM of an IBM-PC]
  1826. RAM of an IBM-PC
  1827. EAST [Large Cavern]
  1828. LIGHT [lit brass lamp]
  1829. END_ROOM
  1830.  
  1831. ROOM_DESCR [RAM of an IBM-PC]
  1832. You are in the memory RAM of an IBM-PC.  You must have taken a wrong turn!
  1833. END_ROOM_DESCR
  1834.  
  1835.  
  1836. ROOM [royal anteroom]
  1837. Royal Anteroom
  1838. NORTH [Large Cavern]
  1839. UP [Royal Chamber]
  1840. LIGHT [lit brass lamp]
  1841. END_ROOM
  1842.  
  1843. ROOM_DESCR [royal anteroom]
  1844. You are in the Royal Anteroom.  A large cavern lies to the north.
  1845. END_ROOM_DESCR
  1846.  
  1847. NOUN [stairs]
  1848. stairs
  1849. stone
  1850. A set of stone stairs lead upward into the darkness.
  1851. LOCATION [royal anteroom]
  1852. UNMOVABLE
  1853. END_NOUN
  1854.  
  1855. NOUN_DESCR [stairs]
  1856. The stairs are cut into the rock and lead upward.
  1857. END_NOUN_DESCR
  1858.  
  1859. NOUN [empty wine bladder]
  1860. bladder
  1861. wine
  1862. You see an empty wine bladder here.
  1863. LOCATION [royal anteroom]
  1864. WEIGHT [noun weight]
  1865. END_NOUN
  1866.  
  1867. NOUN_DESCR [empty wine bladder]
  1868. The bladder is the kind used to hold wine.  It is currently empty.
  1869. END_NOUN_DESCR
  1870.  
  1871. NOUN [distended gas bladder]
  1872. bladder
  1873. gas
  1874. You see a distended bladder here.
  1875. LOCATION [NoWhere]
  1876. WEIGHT [noun weight]
  1877. END_NOUN
  1878.  
  1879. NOUN_DESCR [distended gas bladder]
  1880. The bladder is quite distended and filled with gas.
  1881. END_NOUN_DESCR
  1882.  
  1883.  
  1884. ROOM [Royal Chamber]
  1885. Royal Chamber
  1886. DOWN [royal anteroom]
  1887. LIGHT [lit brass lamp]
  1888. END_ROOM
  1889.  
  1890. ROOM_DESCR [Royal Chamber]
  1891. You are in the Royal Chamber.  Stairs lead downward.
  1892. END_ROOM_DESCR
  1893.  
  1894. HELP [Royal Chamber]
  1895. A voice booms out - "Blow it up!"
  1896. END_HELP
  1897.  
  1898. COMMAND LIGHT GAS
  1899. InRoom [distended gas bladder]
  1900. Present [Flint and steel]
  1901. Present [bricked up window]
  1902. PrintMessage "The gas bladder blows up!  It blows a hole in the brick wall."
  1903. SwapLocations [bricked up window] [bricked up window with a hole in it]
  1904. Destroy [distended gas bladder]
  1905. PutInCurrentRoom [loose fire bricks]
  1906. DoneWithTurn (* no further action -- get next input *)
  1907. END_COMMAND
  1908.  
  1909. COMMAND LIGHT BLADDER
  1910. InRoom [distended gas bladder]
  1911. Present [Flint and steel]
  1912. Present [bricked up window]
  1913. PrintMessage "The gas bladder blows up!  It blows a hole in the brick wall."
  1914. SwapLocations [bricked up window] [bricked up window with a hole in it]
  1915. Destroy [distended gas bladder]
  1916. PutInCurrentRoom [loose fire bricks]
  1917. DoneWithTurn (* no further action -- get next input *)
  1918. END_COMMAND
  1919.  
  1920. NOUN [bricked up window]
  1921. window
  1922. bricked-up
  1923. There is a bricked-up window in the west wall.
  1924. LOCATION [Royal Chamber]
  1925. UNMOVABLE
  1926. END_NOUN
  1927.  
  1928. NOUN_DESCR [bricked up window]
  1929. The window has been bricked up and there is no way to remove the bricks.
  1930. END_NOUN_DESCR
  1931.  
  1932. COMMAND GET BRICKS
  1933. Present [bricked up window]
  1934. DescribeThing [bricked up window]
  1935. DoneWithTurn
  1936. END_COMMAND
  1937.  
  1938. NOUN [bricked up window with a hole in it]
  1939. hole
  1940. none
  1941. There is a hole in the middle of a bricked-up window in the west wall.
  1942. LOCATION [NoWhere]
  1943. UNMOVABLE
  1944. END_NOUN
  1945.  
  1946. NOUN_DESCR [bricked up window with a hole in it]
  1947. The hole is just large enough to squeeze through.  Beyond the bricked-up
  1948. window is a ledge.
  1949. END_NOUN_DESCR
  1950.  
  1951. COMMAND GET BRICKS
  1952. Present [loose fire bricks]
  1953. PrintMessage "These suckers are heavy!!"
  1954. GetIT [loose fire bricks]
  1955. DoneWithTurn
  1956. END_COMMAND
  1957.  
  1958. NOUN [loose fire bricks]
  1959. bricks
  1960. loose
  1961. There are several loose fire bricks laying about.
  1962. LOCATION [NoWhere]
  1963. WEIGHT [noun weight]
  1964. END_NOUN
  1965.  
  1966. NOUN_DESCR [loose fire bricks]
  1967. The bricks are a special kind used as fire-retardent material.
  1968. END_NOUN_DESCR
  1969.  
  1970. COMMAND GO LEDGE
  1971. Present [bricked up window with a hole in it]
  1972. AtLocation [Royal Chamber]
  1973. GoToRoom [On Narrow Ledge]
  1974. PrintMessage "You carefully climb through the hole to the ledge beyond."
  1975. BlankLine
  1976. DoneWithTurn
  1977. END_COMMAND
  1978.  
  1979. COMMAND GO HOLE
  1980. Present [bricked up window with a hole in it]
  1981. AtLocation [Royal Chamber]
  1982. GoToRoom [On Narrow Ledge]
  1983. PrintMessage "You carefully climb through the hole to the ledge beyond."
  1984. BlankLine
  1985. DoneWithTurn
  1986. END_COMMAND
  1987.  
  1988. ROOM [On Narrow Ledge]
  1989. On Narrow Ledge
  1990. WEST [Royal Chamber]
  1991. LIGHT [lit brass lamp]
  1992. END_ROOM
  1993.  
  1994. ROOM_DESCR [On Narrow Ledge]
  1995. You are on a narrow ledge by a chasm.  Across the chasm is the Throne Room.
  1996. END_ROOM_DESCR
  1997.  
  1998. HELP [On Narrow Ledge]
  1999. A voice booms out - "Try:  EXAMINE, JUMP, SWIM, CLIMB, THROW, FIND, GO, TAKE,
  2000. INVENTORY, SCORE."
  2001. END_HELP
  2002.  
  2003. COMMAND GO THRONE
  2004. AtLocation [On Narrow Ledge]
  2005. PrintMessage "How?  Jump?"
  2006. DoneWithTurn
  2007. END_COMMAND
  2008.  
  2009. COMMAND YES
  2010. PrintMessage "You sure are a positive person!"
  2011. DoneWithTurn
  2012. END_COMMAND
  2013.  
  2014. COMMAND NO
  2015. PrintMessage "You sure are a negative person!"
  2016. DoneWithTurn
  2017. END_COMMAND
  2018.  
  2019. COMMAND JUMP
  2020. NOT IsCarrying [loose fire bricks]
  2021. AtLocation [On Narrow Ledge]
  2022. GoToRoom [Ledge by the Throne Room]
  2023. PrintMessage "You take a running leap and sail across the chasm."
  2024. BlankLine
  2025. DoneWithTurn
  2026. END_COMMAND
  2027.  
  2028. COMMAND JUMP
  2029. NOT IsCarrying [loose fire bricks]
  2030. AtLocation [Ledge by the Throne Room]
  2031. GoToRoom [On Narrow Ledge]
  2032. PrintMessage "You take a running leap and sail across the chasm."
  2033. BlankLine
  2034. DoneWithTurn
  2035. END_COMMAND
  2036.  
  2037. COMMAND JUMP
  2038. IsCarrying [loose fire bricks]
  2039. AtLocation [Ledge by the Throne Room]
  2040. OR
  2041. AtLocation [On Narrow Ledge]
  2042. PrintMessage "You take a running leap and sail HALF-WAY across the chasm."
  2043. GoToRoom [Limbo]
  2044. BlankLine
  2045. DoneWithTurn
  2046. END_COMMAND
  2047.  
  2048. COMMAND GO THRONE
  2049. Present [thin black bear]
  2050. AtLocation [Ledge by the Throne Room]
  2051. PrintMessage "The bear blocks your way."
  2052. DoneWithTurn
  2053. END_COMMAND
  2054.  
  2055. COMMAND GO THRONE
  2056. NOT Present [thin black bear]
  2057. AtLocation [Ledge by the Throne Room]
  2058. PrintMessage "You walk along the ledge to the East until you find it."
  2059. GoToRoom [Throne Room]
  2060. DoneWithTurn
  2061. END_COMMAND
  2062.  
  2063. COMMAND GET ANY
  2064. Present [thin black bear]
  2065. PrintMessage "The bear wont let you get the $noun$."
  2066. DoneWithTurn
  2067. END_COMMAND
  2068.  
  2069. ROOM [Ledge by the Throne Room]
  2070. On Ledge
  2071. LIGHT [lit brass lamp]
  2072. END_ROOM
  2073.  
  2074. ROOM_DESCR [Ledge by the Throne Room]
  2075. You are on a ledge by the Throne Room.
  2076. END_ROOM_DESCR
  2077.  
  2078. HELP [Ledge by the Throne Room]
  2079. A voice booms out - "Try:  EXAMINE, JUMP, SWIM, CLIMB, THROW, FIND, GO, TAKE,
  2080. INVENTORY, SCORE."
  2081. END_HELP
  2082.  
  2083. NOUN [invisible Throne]
  2084. Throne
  2085. invisible
  2086. INVISIBLE -- just so menu-driven parser can find the noun THRONE in this room
  2087. LOCATION [Ledge by the Throne Room]
  2088. UNMOVABLE
  2089. END_NOUN
  2090.  
  2091. NOUN_DESCR [Invisible Throne]
  2092. You can't see it very well from where you are, but from this distance it looks
  2093. beautifully made.  It appears to be carved out of a solid piece of marble.
  2094. END_NOUN_DESCR
  2095.  
  2096. NOUN [thin black bear]
  2097. bear
  2098. black
  2099. There is a thin black bear roaming about the ledge area.
  2100. LOCATION [Ledge by the Throne Room]
  2101. UNMOVABLE
  2102. END_NOUN
  2103.  
  2104. NOUN_DESCR [thin black bear]
  2105. The black bear looks quite frightening.
  2106. END_NOUN_DESCR
  2107.  
  2108. NOUN [sleeping bear]
  2109. bear
  2110. sleeping
  2111. A black bear lies sleeping on the ground.
  2112. LOCATION [NoWhere]
  2113. UNMOVABLE
  2114. END_NOUN
  2115.  
  2116. NOUN_DESCR [sleeping bear]
  2117. The bear is really sawing them off.  He looks like he is hibernating.
  2118. END_NOUN_DESCR
  2119.  
  2120. NOUN [dead bear]
  2121. bear
  2122. dead
  2123. The body of a bear lies to one side.  He is quite dead.
  2124. LOCATION [NoWhere]
  2125. UNMOVABLE
  2126. END_NOUN
  2127.  
  2128. NOUN_DESCR [dead bear]
  2129. The bear is dead.  Aren't you ashamed of yourself?
  2130. END_NOUN_DESCR
  2131.  
  2132. COMMAND SCREAM
  2133. Present [thin black bear]
  2134. Destroy [thin black bear]
  2135. SendToRoom [dead bear] [Bottom of a Chasm]
  2136. PrintMessage [The bear is startled and fell off the ledge!]
  2137. DoneWithTurn
  2138. END_COMMAND
  2139.  
  2140. MESSAGE [The bear is startled and fell off the ledge!]
  2141. The bear is startled and falls off the ledge to the chasm far below!  There
  2142. is no way that it could have survived that fall.
  2143. END_MESSAGE
  2144.  
  2145. NOUN [MAGIC MIRROR]
  2146. MIRROR
  2147. MAGIC
  2148. There is a magic mirror here.
  2149. LOCATION [Ledge by the Throne Room]
  2150. POINTS 8
  2151. WEIGHT [noun weight]
  2152. END_NOUN
  2153.  
  2154. NOUN_DESCR [MAGIC MIRROR]
  2155. Your smiling face gazes back at you from the mirror.
  2156. END_NOUN_DESCR
  2157.  
  2158. NOUN [broken glass]
  2159. glass
  2160. broken
  2161. There are several pieces of broken glass here.
  2162. LOCATION [NoWhere]
  2163. WEIGHT [noun weight]
  2164. END_NOUN
  2165.  
  2166. NOUN_DESCR [broken glass]
  2167. The broken glass look like the last remains of a mirror.
  2168. END_NOUN_DESCR
  2169.  
  2170. COMMAND DROP MIRROR
  2171. IsCarrying [MAGIC MIRROR]
  2172. InRoom [THICK PERSIAN RUG]
  2173. DropIt [MAGIC MIRROR]
  2174. PrintMessage [Mirror lands softly on the rug]
  2175. DoneWithTurn
  2176. END_COMMAND
  2177.  
  2178. MESSAGE [Mirror lands softly on the rug]
  2179. Mirror lands softly on the rug - lights up and says: "DRAGON STINGS and fades."
  2180. I don't get it - hope you do.
  2181. END_MESSAGE
  2182.  
  2183. COMMAND DROP MIRROR
  2184. IsCarrying [MAGIC MIRROR]
  2185. NOT InRoom [THICK PERSIAN RUG]
  2186. DropIt [MAGIC MIRROR]
  2187. SwapLocations [broken glass] [MAGIC MIRROR]
  2188. PrintMessage [The mirror hits the floor]
  2189. DoneWithTurn
  2190. END_COMMAND
  2191.  
  2192. MESSAGE [The mirror hits the floor]
  2193. The mirror hits the floor and shatters into a million pieces.
  2194. END_MESSAGE
  2195.  
  2196. ROOM [Throne Room]
  2197. Throne Room
  2198. WEST [Ledge by the Throne Room]
  2199. LIGHT [lit brass lamp]
  2200. END_ROOM
  2201.  
  2202. ROOM_DESCR [Throne Room]
  2203. You are in the Throne Room.  There is a ledge to the west.
  2204. END_ROOM_DESCR
  2205.  
  2206. NOUN [Marble Throne]
  2207. Throne
  2208. Marble
  2209. There is a marble throne against one wall.
  2210. LOCATION [Throne Room],
  2211. UNMOVABLE
  2212. NOUN_SYNONYM Room
  2213. END_NOUN
  2214.  
  2215. NOUN_DESCR [Marble Throne]
  2216. The throne is beautifully made.  It is carved out of a solid piece of fine
  2217. marble.
  2218. END_NOUN_DESCR
  2219.  
  2220. COMMAND SIT
  2221. Present [Marble Throne]
  2222. PrintMessage "You sit on the throne for a few minutes and then get up."
  2223. DoneWithTurn
  2224. END_COMMAND
  2225.  
  2226. COMMAND SIT
  2227. PrintMessage "You don't have time to sit down."
  2228. DoneWithTurn
  2229. END_COMMAND
  2230.  
  2231. NOUN [GOLD CROWN]
  2232. CROWN
  2233. GOLD
  2234. There is a gold crown here.
  2235. LOCATION [Throne Room],
  2236. WEIGHT [noun weight]
  2237. POINTS 8
  2238. END_NOUN
  2239.  
  2240. NOUN_DESCR [GOLD CROWN]
  2241. The crown is made from solid gold.  It must be worth a fortune.
  2242. END_NOUN_DESCR
  2243.  
  2244.  
  2245. ROOM [maze of pits #1]
  2246. Maze of Pits
  2247. NORTH [Maze of Pits #2]
  2248. SOUTH [Maze of Pits #3]
  2249. EAST [Maze of Pits #3]
  2250. DOWN [Maze of Pits #2]
  2251. LIGHT [lit brass lamp]
  2252. END_ROOM
  2253.  
  2254. ROOM_DESCR [maze of pits #1]
  2255. You are in a maze of pits.  Tunnels lead off in all directions.
  2256. END_ROOM_DESCR
  2257.  
  2258. HELP [maze of pits #1]
  2259. A voice booms out - "You may need magic here!"
  2260. END_HELP
  2261.  
  2262.  
  2263. ROOM [maze of pits #2]
  2264. Maze of Pits
  2265. WEST [Maze of Pits #5]
  2266. UP [Maze of Pits #1]
  2267. LIGHT [lit brass lamp]
  2268. END_ROOM
  2269.  
  2270. ROOM_DESCR [maze of pits #2]
  2271. You are in a maze of pits.  Tunnels lead off in all directions.
  2272. END_ROOM_DESCR
  2273.  
  2274. HELP [maze of pits #2]
  2275. A voice booms out - "You may need magic here!"
  2276. END_HELP
  2277.  
  2278.  
  2279. ROOM [maze of pits #3]
  2280. Maze of Pits
  2281. NORTH [Maze of Pits #1]
  2282. EAST [Maze of Pits #2]
  2283. WEST [Maze of Pits #1]
  2284. UP [Maze of Pits #2]
  2285. LIGHT [lit brass lamp]
  2286. END_ROOM
  2287.  
  2288. ROOM_DESCR [maze of pits #3]
  2289. You are in a maze of pits.  Tunnels lead off in all directions.
  2290. END_ROOM_DESCR
  2291.  
  2292. HELP [maze of pits #3]
  2293. A voice booms out - "You may need magic here!"
  2294. END_HELP
  2295.  
  2296.  
  2297. ROOM [maze of pits #6]
  2298. Maze of Pits
  2299. SOUTH [Maze of Pits #4]
  2300. UP [Maze of Pits #5]
  2301. DOWN [Maze of Pits #4]
  2302. LIGHT [lit brass lamp]
  2303. END_ROOM
  2304.  
  2305. ROOM_DESCR [maze of pits #6]
  2306. You are in a maze of pits.  Tunnels lead off in all directions.
  2307. END_ROOM_DESCR
  2308.  
  2309. HELP [maze of pits #6]
  2310. A voice booms out - "You may need magic here!"
  2311. END_HELP
  2312.  
  2313. ROOM [maze of pits #5]
  2314. Maze of Pits
  2315. NORTH [Maze of Pits #4]
  2316. SOUTH [Maze of Pits #1]
  2317. EAST [Maze of Pits #2]
  2318. WEST [Maze of Pits #6]
  2319. UP [Maze of Pits #6]
  2320. DOWN [Maze of Pits #4]
  2321. LIGHT [lit brass lamp]
  2322. END_ROOM
  2323.  
  2324. ROOM_DESCR [maze of pits #5]
  2325. You are in a maze of pits.  Tunnels lead off in all directions.
  2326. END_ROOM_DESCR
  2327.  
  2328. HELP [maze of pits #5]
  2329. A voice booms out - "You may need magic here!"
  2330. END_HELP
  2331.  
  2332. NOUN [strange scratchings]
  2333. scratchings
  2334. strange
  2335. There are some strange scratchings on the rock wall.
  2336. LOCATION [Maze of Pits #5]
  2337. UNMOVABLE
  2338. END_NOUN
  2339.  
  2340. NOUN_DESCR [strange scratchings]
  2341. The strange scratchings spell out - ALADDIN WAS HERE!
  2342. END_NOUN_DESCR
  2343.  
  2344.  
  2345. ROOM [maze of pits #4]
  2346. Maze of Pits
  2347. NORTH [Maze of Pits #4]
  2348. SOUTH [Maze of Pits #1]
  2349. EAST [Maze of Pits #1]
  2350. WEST [Maze of Pits #3]
  2351. UP [Maze of Pits #5]
  2352. DOWN [Bottom of a Chasm]
  2353. LIGHT [lit brass lamp]
  2354. END_ROOM
  2355.  
  2356. ROOM_DESCR [maze of pits #4]
  2357. You are in a maze of pits.  Tunnels lead off in all directions.
  2358. END_ROOM_DESCR
  2359.  
  2360. HELP [maze of pits #4]
  2361. A voice booms out - "You may need magic here!"
  2362. END_HELP
  2363.  
  2364. NOUN [arrow pointing down]
  2365. arrow
  2366. none
  2367. You see an arrow pointing down.
  2368. LOCATION [Maze of Pits #4]
  2369. UNMOVABLE
  2370. END_NOUN
  2371.  
  2372. NOUN_DESCR [arrow pointing down]
  2373. The arrow is pointing down.  What more do you need to know about it?
  2374. END_NOUN_DESCR
  2375.  
  2376. NOUN [THICK PERSIAN RUG]
  2377. RUG
  2378. PERSIAN
  2379. There is a thick Persian rug here.
  2380. LOCATION [Maze of Pits #4]
  2381. WEIGHT [noun weight]
  2382. POINTS 8
  2383. END_NOUN
  2384.  
  2385. NOUN_DESCR [THICK PERSIAN RUG]
  2386. The rug looks quite old.  The craftmanship is excellent.
  2387. END_NOUN_DESCR
  2388.  
  2389. COMMAND AWAY
  2390. IsCarrying [THICK PERSIAN RUG]
  2391. AtLocation [Maze of Pits #4]
  2392. GoToRoom [Semi-dark Hole]
  2393. PrintMessage [You are magically wisked away on your carpet to...]
  2394. BlankLine
  2395. DoneWithTurn
  2396. END_COMMAND
  2397.  
  2398. MESSAGE [You are magically wisked away on your carpet to...]
  2399. You are magically wisked away on your carpet to...
  2400. END_MESSAGE
  2401.  
  2402. COMMAND AWAY
  2403. IsCarrying [THICK PERSIAN RUG]
  2404. AtLocation [Semi-dark Hole]
  2405. GoToRoom [Sunny Meadow]
  2406. PrintMessage [You are magically wisked away on your carpet to...]
  2407. BlankLine
  2408. DoneWithTurn
  2409. END_COMMAND
  2410.  
  2411. COMMAND AWAY
  2412. IsCarrying [THICK PERSIAN RUG]
  2413. AtLocation [Semi-dark Hole]
  2414. GoToRoom [Maze of Pits #4]
  2415. PrintMessage [You are magically wisked away on your carpet to...]
  2416. BlankLine
  2417. DoneWithTurn
  2418. END_COMMAND
  2419.  
  2420. COMMAND AWAY
  2421. IsCarrying [THICK PERSIAN RUG]
  2422. AtLocation [Sunny Meadow]
  2423. GoToRoom [Semi-dark Hole]
  2424. PrintMessage [You are magically wisked away on your carpet to...]
  2425. BlankLine
  2426. DoneWithTurn
  2427. END_COMMAND
  2428.  
  2429. COMMAND AWAY
  2430. PrintMessage [Nothing happens]
  2431. DoneWithTurn
  2432. END_COMMAND
  2433.  
  2434.  
  2435. ROOM [Bottom of a Chasm]
  2436. Bottom of a Chasm
  2437. UP [Maze of Pits #4]
  2438. LIGHT [lit brass lamp]
  2439. END_ROOM
  2440.  
  2441. ROOM_DESCR [Bottom of a Chasm]
  2442. You are at the bottom of a chasm.  Far above you are two ledges.  One ledge
  2443. has a bricked-up window just above it.
  2444. END_ROOM_DESCR
  2445.  
  2446. COMMAND GO LEDGE
  2447. AtLocation [Bottom of a Chasm]
  2448. PrintMessage "Sorry, but that is impossible.  The ledge is too far above you!"
  2449. DoneWithTurn
  2450. END_COMMAND
  2451.  
  2452. NOUN [GOLDEN NET]
  2453. NET
  2454. GOLDEN
  2455. There is golden net here.
  2456. LOCATION [Bottom of a Chasm]
  2457. POINTS 8
  2458. WEIGHT [noun weight]
  2459. END_NOUN
  2460.  
  2461. NOUN_DESCR [GOLDEN NET]
  2462. The golden net looks like the kind used to catch fish.  Does that give you any
  2463. ideas?
  2464. END_NOUN_DESCR
  2465.  
  2466. NOUN [sign- MAGIC WORD IS AWAY.]
  2467. sign
  2468. large
  2469. There is a large sign here.
  2470. LOCATION [Bottom of a Chasm]
  2471. UNMOVABLE
  2472. END_NOUN
  2473.  
  2474. NOUN_DESCR [sign- MAGIC WORD IS AWAY.]
  2475. The sign says - MAGIC WORD IS AWAY. LOOK LA -  The rest of sign is missing.
  2476. END_NOUN_DESCR
  2477.  
  2478. NOUN [invisible dam]
  2479. dam
  2480. xxxxinvisible
  2481. INVISIBLE
  2482. LOCATION [Bottom of a Chasm]
  2483. UNMOVABLE
  2484. END_NOUN
  2485.  
  2486. NOUN_DESCR [invisible dam]
  2487. What dam?  But, it sounds like a good idea.  Maybe you should build one.
  2488. END_NOUN_DESCR
  2489.  
  2490. NOUN [stream of lava]
  2491. lava
  2492. stream
  2493. There is a stream of lava flowing through the room.
  2494. LOCATION [Bottom of a Chasm]
  2495. UNMOVABLE
  2496. END_NOUN
  2497.  
  2498. NOUN_DESCR [stream of lava]
  2499. The stream of lava is very hot and gives the room an errie light.
  2500. END_NOUN_DESCR
  2501.  
  2502. COMMAND GET LAVA
  2503. Present [stream of lava]
  2504. PrintMessage "Sorry, but that is impossible.  The lava is too hot!"
  2505. DoneWithTurn
  2506. END_COMMAND
  2507.  
  2508. COMMAND GO LAVA
  2509. Present [stream of lava]
  2510. PrintMessage "Sorry, but that is impossible.  The lava is too hot!"
  2511. DoneWithTurn
  2512. END_COMMAND
  2513.  
  2514. COMMAND BUILD DAM
  2515. Present [loose fire bricks]
  2516. Present [stream of lava]
  2517. SwapLocations [lava stream with a brick dam] [stream of lava]
  2518. PrintMessage "You build a dam across the lava."
  2519. Destroy [invisible dam]
  2520. DropIt [FIRESTONE (hot)]
  2521. DoneWithTurn
  2522. END_COMMAND
  2523.  
  2524. COMMAND EXAMINE LAVA
  2525. Present [FIRESTONE (hot)]
  2526. Present [lava stream with a brick dam]
  2527. PrintMessage "By the dam you can see a firestone (quite rare)."
  2528. DoneWithTurn
  2529. END_COMMAND
  2530.  
  2531. COMMAND GET FIRESTONE
  2532. Present [FIRESTONE (hot)]
  2533. PrintMessage "It burns your hands as tyou try to pick it up.  It is too hot!"
  2534. DoneWithTurn
  2535. END_COMMAND
  2536.  
  2537. COMMAND POUR WATER
  2538. Present [bottle of water]
  2539. Present [FIRESTONE (hot)]
  2540. SwapLocations [bottle of water] [empty bottle]
  2541. TurnFlagOFF [Bottle Full]
  2542. SwapLocations [FIRESTONE (hot)] [FIRESTONE (cold now)]
  2543. PrintMessage "You pour the water on the firestone and it cools off."
  2544. DoneWithTurn
  2545. END_COMMAND
  2546.  
  2547. COMMAND EMPTY BOTTLE
  2548. Present [bottle of water]
  2549. Present [FIRESTONE (hot)]
  2550. SwapLocations [bottle of water] [empty bottle]
  2551. TurnFlagOFF [Bottle Full]
  2552. SwapLocations [FIRESTONE (hot)] [FIRESTONE (cold now)]
  2553. PrintMessage "You empty the water on the firestone and it cools off."
  2554. DoneWithTurn
  2555. END_COMMAND
  2556.  
  2557. NOUN [lava stream with a brick dam]
  2558. stream
  2559. lava
  2560. There is lava stream with a brick dam across it.
  2561. LOCATION [NoWhere]
  2562. NOUN_SYNONYMS DAM
  2563. UNMOVABLE
  2564. END_NOUN
  2565.  
  2566. NOUN_DESCR [lava stream with a brick dam]
  2567. The lava stream has been damed with a brick dam.
  2568. END_NOUN_DESCR
  2569.  
  2570. NOUN [FIRESTONE (cold now)]
  2571. FIRESTONE
  2572. cold
  2573. There is a beautiful firestone here.  It is now cold.
  2574. LOCATION [NoWhere]
  2575. POINTS 8
  2576. WEIGHT [noun weight]
  2577. END_NOUN
  2578.  
  2579. NOUN_DESCR [FIRESTONE (cold now)]
  2580. The firestone is a very valuable gem stone.  It is quite beautiful.
  2581. END_NOUN_DESCR
  2582.  
  2583. NOUN [FIRESTONE (hot)]
  2584. FIRESTONE
  2585. hot
  2586. There is a beautiful firestone here.  It is too hot to touch.
  2587. LOCATION [NoWhere]
  2588. POINTS 8
  2589. WEIGHT [noun weight]
  2590. END_NOUN
  2591.  
  2592. NOUN_DESCR [FIRESTONE (hot)]
  2593. The firestone is a very valuable gem stone.  It is quite beautiful.
  2594. It is too hot to touch.
  2595. END_NOUN_DESCR
  2596.  
  2597.  
  2598. ROOM [Limbo]
  2599. Limbo!
  2600. SOUTH [In Real Trouble!]
  2601. EAST [Forest]
  2602. WEST [In Real Trouble!]
  2603. UP [Top of an old oak tree]
  2604. DOWN [In Real Trouble!]
  2605. END_ROOM
  2606.  
  2607. ROOM_DESCR [Limbo]
  2608. You are in the middle of a large misty room with strange letters over the
  2609. exits.
  2610. END_ROOM_DESCR
  2611.  
  2612. NOUN [sign says - LIMBO!]
  2613. sign
  2614. neon
  2615. A neon sign flashs - LIMBO.  FIND THE CORRECT EXIT AND LIVE AGAIN!
  2616. LOCATION [Limbo]
  2617. UNMOVABLE
  2618. END_NOUN
  2619.  
  2620. NOUN_DESCR [sign says - LIMBO!]
  2621. The sign still proclaims - LIMBO.  FIND THE CORRECT EXIT AND LIVE AGAIN!
  2622. END_NOUN_DESCR
  2623.  
  2624.  
  2625. ROOM [In Real Trouble!]
  2626. In Real Trouble
  2627. Game_End
  2628. END_ROOM
  2629.  
  2630. ROOM_DESCR [In Real Trouble!]
  2631. You are in real trouble here.  There is a guy with a pitchfork standing in
  2632. front of you!
  2633. END_ROOM_DESCR
  2634.  
  2635. COMMAND WAKE ANY
  2636. PrintMessage [Nothing happens]
  2637. DoneWithTurn
  2638. END_COMMAND
  2639.  
  2640. MESSAGE [Nothing happens]
  2641. Stangely enough, nothing happens.
  2642. END_MESSAGE
  2643.  
  2644. COMMAND STOP
  2645. PrintMessage "To stop game say -- QUIT"
  2646. DoneWithTurn
  2647. END_MESSAGE
  2648.  
  2649.  
  2650. ;****************************************************
  2651.  
  2652.  
  2653. FLAG [Start of Game]         Beginning of game flag
  2654. FLAG [bottle full]           Bottle has liquid in it if ON, is empty if OFF
  2655.  
  2656. ;AUTOMATIC COMMANDS
  2657. ;Set FLAGS based on game or room status
  2658.  
  2659. COMMAND ANY
  2660. FlagOFF [Start of Game] ;first turn of game only - initialize conditions
  2661. TurnFlagON [Start of Game]
  2662. SetVariableTo [Number of turns lamp has been lit] 0
  2663. TurnFlagON [bottle full]
  2664. END_COMMAND
  2665.  
  2666.  
  2667. VARIABLE [Number of turns lamp has been lit]
  2668. COUNTER [Stumbling around in the dark]
  2669. #COMMENT Number of turns player has been stumbling around in the dark
  2670.  
  2671. (***************************************************)
  2672. (*  Automatic commands to control time lamp is ON *)
  2673. (*   -- lamp starts to flicker at 50 turns        *)
  2674. (*   -- lamp goes off at 75 turns                 *)
  2675. (*   -- Player dies if he stumbles around in dark  *)
  2676. (*      for 5 turns                                *)
  2677. (***************************************************)
  2678.  
  2679. COMMAND ANY
  2680. Present [lit brass lamp]
  2681. AddToVariable [Number of turns lamp has been lit] 1
  2682. VariableEquals [Number of turns lamp has been lit] 50
  2683. PrintMessage [The light flickers and the lamp grows weaker.]
  2684. RoomNeedsLight (* will be dark if no light *)
  2685. PrintMessage [You better find a way out of here pretty quick!]
  2686. END_COMMAND
  2687.  
  2688. COMMAND ANY
  2689. Present [lit brass lamp]
  2690. VariableGT [Number of turns lamp has been lit] 50
  2691. VariableLT [Number of turns lamp has been lit] 75
  2692. PrintMessage [The light flickers and the lamp grows weaker.]
  2693. END_COMMAND
  2694.  
  2695. COMMAND ANY
  2696. Present [lit brass lamp]
  2697. VariableEquals [Number of turns lamp has been lit] 75
  2698. PrintMessage [Sorry, but your lamp light flickers and goes out.]
  2699. SwapLocations [lit brass lamp] [unlit brass lamp - empty]
  2700. RoomNeedsLight (* will be dark if no light *)
  2701. TurnCounterON [Stumbling around in the dark]
  2702. LookAtRoom
  2703. END_COMMAND
  2704.  
  2705. COMMAND ANY
  2706. RoomNeedsLight (* will be dark if no light *)
  2707. NOT LightPresent (* no light in room *)
  2708. CounterEquals [Stumbling around in the dark] 0
  2709. PrintMessage [Stumbling around in the dark could be quite dangerous!]
  2710. TurnCounterON [Stumbling around in the dark]
  2711. END_COMMAND
  2712.  
  2713. COMMAND ANY
  2714. CounterGT [Stumbling around in the dark] 1
  2715. RoomNeedsLight (* will be dark if no light *)
  2716. NOT LightPresent (* no light in room *)
  2717. PrintMessage [Stumbling around in the dark could be quite dangerous!]
  2718. CounterEquals [Stumbling around in the dark] 5
  2719. GoToRoom [Limbo]
  2720. DoneWithTurn (* no further action -- get next input *)
  2721. END_COMMAND
  2722.  
  2723. COMMAND ANY
  2724. CounterGT [Stumbling around in the dark] 5
  2725. RoomNeedsLight (* will be dark if no light *)
  2726. NOT LightPresent (* no light in room *)
  2727. TurnCounterON [Stumbling around in the dark]
  2728. END_COMMAND
  2729.  
  2730. MESSAGE [The light flickers and the lamp grows weaker.]
  2731. The light flickers and the lamp grows weaker.
  2732. END_MESSAGE
  2733.  
  2734. MESSAGE [You better find a way out of here pretty quick!]
  2735. If I were you, I would find a way out of here pretty quick before the lamp
  2736. goes out!  This would not be a fun place to be caught stumbling around in the
  2737. dark.
  2738. END_MESSAGE
  2739.  
  2740. MESSAGE [Sorry, but your lamp light flickers and goes out.]
  2741. Sorry, but your lamp light flickers for the last time and goes out.
  2742. END_MESSAGE
  2743.  
  2744. MESSAGE [Stumbling around in the dark could be quite dangerous!]
  2745. You are stumbling around in the dark -- which could be quite dangerous!  You
  2746. could easily break your neck.
  2747. END_MESSAGE
  2748.  
  2749. #COMMENT -- the fish dies if you are not also carrying the water
  2750.  
  2751. COMMAND ANY
  2752. Chance 25
  2753. NOT Present [bottle of water]
  2754. IsCarrying [GOLDEN FISH]
  2755. SendToRoom [GOLDEN FISH] [Shore of Lake]
  2756. PrintMessage "The fish was too dry.  It died, and strangely enough, vanished!"
  2757. DoneWithTurn
  2758. END_COMMAND
  2759.  
  2760.  
  2761. COMMAND ANY
  2762. AtLocation [In Real Trouble!]
  2763. PrintMessage "Nothing happened."
  2764. BlankLine
  2765. TurnFlagON [Question Flag]
  2766. AskQuestion [Another game (Yes or No)?]
  2767. AnswerIsCorrect (* Answered YES *)
  2768. GoToRoom [Forest]
  2769. TurnFlagOFF [Question Flag]
  2770. DoneWithTurn
  2771. END_COMMAND
  2772.  
  2773. COMMAND ANY
  2774. AtLocation [In Real Trouble!]
  2775. FlagON [Question Flag] (* Answered NO *)
  2776. EndGame
  2777. DoneWithTurn
  2778. END_COMMAND
  2779.  
  2780. FLAG [Question Flag]
  2781. QUESTION [Another game (Yes or No)?] Another game (Yes or No)?
  2782. ANSWER [Another game (Yes or No)?] YES
  2783.  
  2784. COMMAND SCORE
  2785. AtLocation [Dismal Swamp]
  2786. ScoreEquals 100
  2787. PrintMessage "You are a noble and brave adventurer!  You are also a winner!"
  2788. BlankLine
  2789. EndGame
  2790. DoneWithTurn
  2791. END_COMMAND
  2792.  
  2793. COMMAND STOP
  2794. PrintMessage "To stop playing, enter the command QUIT."
  2795. DoneWithTurn
  2796. END_COMMAND
  2797.  
  2798. COMMAND FIND OX
  2799. NOT Present [SMALL STATUE OF A BLUE OXE]
  2800. PrintMessage "Neither of us knows where it is."
  2801. DoneWithTurn
  2802. END_COMMAND
  2803.  
  2804. COMMAND FIND SWAMP
  2805. NOT AtLocation [Dismal Swamp]
  2806. PrintMessage "Neither of us knows where it is."
  2807. DoneWithTurn
  2808. END_COMMAND
  2809.  
  2810. COMMAND FIND AXE
  2811. NOT Present [rusty axe]
  2812. PrintMessage "Neither of us knows where it is."
  2813. DoneWithTurn
  2814. END_COMMAND
  2815.  
  2816. COMMAND FIND TREE
  2817. NOT AtLocation [Hidden Grove]
  2818. NOT AtLocation [Dismal Swamp]
  2819. NOT AtLocation [Forest]
  2820. PrintMessage "Look in the swamp."
  2821. DoneWithTurn
  2822. END_COMMAND
  2823.  
  2824. COMMAND FIND TREE
  2825. AtLocation [Hidden Grove]
  2826. OR
  2827. AtLocation [Dismal Swamp]
  2828. OR
  2829. AtLocation [Forest]
  2830. PrintMessage "Look around you, stupid!"
  2831. DoneWithTurn
  2832. END_COMMAND
  2833.  
  2834. COMMAND FIND KEY
  2835. NOT Present [ring of keys]
  2836. PrintMessage "Look in the swamp."
  2837. DoneWithTurn
  2838. END_COMMAND
  2839.  
  2840.  
  2841. COMMAND FIND MUD
  2842. NOT Present [evil smelling mud]
  2843. PrintMessage "Look in the swamp."
  2844. DoneWithTurn
  2845. END_COMMAND
  2846.  
  2847. COMMAND SAY ANY
  2848. PrintMessage "Use one word."
  2849. DoneWithTurn
  2850. END_COMMAND
  2851.  
  2852. COMMAND YOHO ANY
  2853. PrintMessage "Sorry, wrong game!"
  2854. DoneWithTurn
  2855. END_COMMAND
  2856.  
  2857. COMMAND GET SIGN
  2858. PrintMessage "A voice booms out -- LEAVE THE $NOUN$ ALONE, TURKEY!!"
  2859. DoneWithTurn
  2860. END_COMMAND
  2861.  
  2862. COMMAND GET FISH
  2863. Present [GOLDEN FISH]
  2864. GetIT [GOLDEN FISH]
  2865. PrintMessage "You manage to catch the fish with your bare hands."
  2866. DoneWithTurn
  2867. END_COMMAND
  2868.  
  2869.  
  2870. COMMAND GET WATER
  2871. FlagON [bottle full]
  2872. PrintMessage [already full]
  2873. DoneWithTurn
  2874. END_COMMAND
  2875.  
  2876. MESSAGE [already full]
  2877. The bottle is already full.
  2878. END_MESSAGE
  2879.  
  2880. COMMAND GET WATER
  2881. NOT Present [empty bottle]
  2882. PrintMessage [nothing to put it in]
  2883. DoneWithTurn
  2884. END_COMMAND
  2885.  
  2886. MESSAGE [nothing to put it in]
  2887. You have nothing in which to carry it.
  2888. END_MESSAGE
  2889.  
  2890. COMMAND GET WATER
  2891. AtLocation [Shore of Lake]
  2892. PrintMessage [bottle now full of water]
  2893. SwapLocations [empty bottle] [bottle of water]
  2894. TurnFlagON [bottle full]
  2895. DoneWithTurn
  2896. END_COMMAND
  2897.  
  2898. MESSAGE [bottle now full of water]
  2899. The bottle is now full of sea water.
  2900. END_MESSAGE
  2901.  
  2902. COMMAND GET WATER
  2903. Present [empty bottle]
  2904. PrintMessage [no liquid here]
  2905. DoneWithTurn
  2906. END_COMMAND
  2907.  
  2908. MESSAGE [no liquid here]
  2909. There is nothing here with which to fill the bottle.
  2910. END_MESSAGE
  2911.  
  2912.  
  2913. COMMAND GET OIL
  2914. FlagON [bottle full]
  2915. PrintMessage [already full]
  2916. DoneWithTurn
  2917. END_COMMAND
  2918.  
  2919. COMMAND GET OIL
  2920. NOT Present [empty bottle]
  2921. PrintMessage [nothing to put it in]
  2922. DoneWithTurn
  2923. END_COMMAND
  2924.  
  2925. COMMAND GET OIL
  2926. AtLocation [Dismal Swamp]
  2927. PrintMessage [bottle now full of oil]
  2928. SwapLocations [empty bottle] [bottle of water]
  2929. TurnFlagON [bottle full]
  2930. DoneWithTurn
  2931. END_COMMAND
  2932.  
  2933. MESSAGE [bottle now full of oil]
  2934. The bottle is now full of slimey oil -- or oily slime.
  2935. END_MESSAGE
  2936.  
  2937. COMMAND GET OIL
  2938. Present [empty bottle]
  2939. PrintMessage [no liquid here]
  2940. DoneWithTurn
  2941. END_COMMAND
  2942.  
  2943.  
  2944. COMMAND JUMP
  2945. PrintMessage "Don't be silly!  That would be dangerous!"
  2946. DoneWithTurn
  2947. END_COMMAND
  2948.  
  2949. COMMAND JUMP
  2950. PrintMessage "Don't be silly!  Quit screwing around!"
  2951. DoneWithTurn
  2952. END_COMMAND
  2953.  
  2954. COMMAND HELP
  2955. RoomNeedsLight (* will be dark if no light *)
  2956. NOT LightPresent (* no light in room *)
  2957. PrintMessage [You are in real trouble...]
  2958. DoneWithTurn (* no further action -- get next input *)
  2959. END_COMMAND
  2960.  
  2961. MESSAGE [You are in real trouble...]
  2962. It is pitch black in here and you can't see your hand in front of your face.
  2963. You are really in deep weeds!  Sorry, I can't help you.  You got yourself into
  2964. this mess, so you will just have to get yourself out of it!
  2965. END_MESSAGE
  2966.  
  2967. COMMAND UNLOCK ANY
  2968. PrintMessage "There is nothing here to unlock, dummy!"
  2969. DoneWithTurn
  2970. END_COMMAND
  2971.  
  2972. COMMAND PUT WATER IN BOTTLE
  2973. ReDirectTo GET WATER
  2974. END_COMMAND
  2975.  
  2976. COMMAND PUT WATER
  2977. ReDirectTo POUR WATER
  2978. END_COMMAND
  2979.  
  2980. COMMAND PUT OIL IN LAMP
  2981. ReDirectTo FILL LAMP
  2982. END_COMMAND
  2983.  
  2984. COMMAND PUT OIL IN BOTTLE
  2985. ReDirectTo GET OIL
  2986. END_COMMAND
  2987.  
  2988. COMMAND PUT OIL
  2989. ReDirectTo POUR OIL
  2990. END_COMMAND
  2991.  
  2992. COMMAND POUR WATER
  2993. Present [bottle of water]
  2994. SwapLocations [bottle of water] [empty bottle]
  2995. PrintMessage [bottle empty, ground wet]
  2996. PrintMessage [feet now wet]
  2997. TurnFlagOFF [bottle full]
  2998. DoneWithTurn
  2999. END_COMMAND
  3000.  
  3001. COMMAND EMPTY BOTTLE
  3002. Present [bottle of water]
  3003. SwapLocations [bottle of water] [empty bottle]
  3004. PrintMessage [bottle empty, ground wet]
  3005. PrintMessage [feet now wet]
  3006. TurnFlagOFF [bottle full]
  3007. DoneWithTurn
  3008. END_COMMAND
  3009.  
  3010. MESSAGE [feet now wet]
  3011. Your feet are now wet.
  3012. END_MESSAGE
  3013.  
  3014. COMMAND POUR OIL
  3015. Present [bottle of oil]
  3016. SwapLocations [bottle of oil] [empty bottle]
  3017. PrintMessage [bottle empty, ground wet]
  3018. PrintMessage [What a pity!]
  3019. TurnFlagOFF [bottle full]
  3020. DoneWithTurn
  3021. END_COMMAND
  3022.  
  3023. COMMAND EMPTY BOTTLE
  3024. Present [bottle of oil]
  3025. SwapLocations [bottle of oil] [empty bottle]
  3026. PrintMessage [bottle empty, ground wet]
  3027. PrintMessage [What a pity!]
  3028. TurnFlagOFF [bottle full]
  3029. DoneWithTurn
  3030. END_COMMAND
  3031.  
  3032. MESSAGE [What a pity!]
  3033. Your feet are now wet.  What a waste!  What a pity!
  3034. END_MESSAGE
  3035.  
  3036. COMMAND DRINK WATER
  3037. Present [bottle of water]
  3038. PrintMessage [bottle now empty]
  3039. BlankLine
  3040. PrintMessage [Ugh! You die!]
  3041. SwapLocations [empty bottle] [bottle of water]
  3042. TurnFlagOFF [bottle full]
  3043. GoToRoom [Limbo]
  3044. DoneWithTurn
  3045. END_COMMAND
  3046.  
  3047. COMMAND DRINK BOTTLE
  3048. Present [bottle of water]
  3049. PrintMessage [bottle now empty]
  3050. BlankLine
  3051. PrintMessage [Ugh! You die!]
  3052. SwapLocations [empty bottle] [bottle of water]
  3053. TurnFlagOFF [bottle full]
  3054. GoToRoom [Limbo]
  3055. DoneWithTurn
  3056. END_COMMAND
  3057.  
  3058. MESSAGE [Ugh! You die!]
  3059. Ugh!  The water is polluted and you eventually die from its effects!
  3060. END_MESSAGE
  3061.  
  3062. MESSAGE [bottle now empty]
  3063. The bottle is now empty.
  3064. END_MESSAGE
  3065.  
  3066. COMMAND DRINK OIL
  3067. Present [bottle of oil]
  3068. PrintMessage [bottle now empty]
  3069. BlankLine
  3070. PrintMessage [Ugh!  This is real rot-gut!]
  3071. SwapLocations [empty bottle] [bottle of oil]
  3072. TurnFlagOFF [bottle full]
  3073. DoneWithTurn
  3074. END_COMMAND
  3075.  
  3076. COMMAND DRINK BOTTLE
  3077. Present [bottle of oil]
  3078. PrintMessage [bottle now empty]
  3079. BlankLine
  3080. PrintMessage [Ugh!  This is real rot-gut!]
  3081. SwapLocations [empty bottle] [bottle of oil]
  3082. TurnFlagOFF [bottle full]
  3083. DoneWithTurn
  3084. END_COMMAND
  3085.  
  3086. MESSAGE [Ugh!  This is real rot-gut!]
  3087. Ugh!  This stuff is really ugly stuff!  However, it is really potent -- about
  3088. 150 proof -- at least!  Boy-Oh-Boy do you feel good!  Hee hee...
  3089. END_MESSAGE
  3090.  
  3091. COMMAND DRINK ANY
  3092. PrintMessage [don't be ridiculous]
  3093. DoneWithTurn
  3094. END_COMMAND
  3095.  
  3096. COMMAND CLOSE BOTTLE
  3097. Present [bottle of oil]
  3098. OR
  3099. Present [empty bottle]
  3100. OR
  3101. Present [bottle of water]
  3102. PrintMessage "Ok.  It is now closed."
  3103. DoneWithTurn
  3104. END_COMMAND
  3105.  
  3106. COMMAND BREAK
  3107. PrintMessage "It is beyond your power to do that."
  3108. DoneWithTurn
  3109. END_COMMAND
  3110.  
  3111. COMMAND FILL BOTTLE
  3112. FlagON [bottle full]
  3113. PrintMessage [already full]
  3114. DoneWithTurn
  3115. END_COMMAND
  3116.  
  3117. COMMAND FILL BOTTLE
  3118. NOT Present [empty bottle]
  3119. PrintMessage [nothing to put it in]
  3120. DoneWithTurn
  3121. END_COMMAND
  3122.  
  3123. COMMAND FILL BOTTLE
  3124. AtLocation [Shore of Lake]
  3125. PrintMessage [bottle now full of water]
  3126. SwapLocations [empty bottle] [bottle of oil]
  3127. TurnFlagON [bottle full]
  3128. DoneWithTurn
  3129. END_COMMAND
  3130.  
  3131. COMMAND FILL BOTTLE
  3132. PrintMessage [no liquid here]
  3133. DoneWithTurn
  3134. END_COMMAND
  3135.  
  3136. COMMAND FILL ANY
  3137. PrintMessage "You can't fill that."
  3138. DoneWithTurn
  3139. END_COMMAND
  3140.  
  3141. MESSAGE [bottle empty, ground wet]
  3142. Your bottle is empty and the ground is wet.
  3143. END_MESSAGE
  3144.  
  3145. MESSAGE [don't be ridiculous]
  3146. Don't be ridiculous!
  3147. END_MESSAGE
  3148.  
  3149. #COMMENT -- LIGHT
  3150.  
  3151. MESSAGE [Sorry, but you can't]
  3152. What a great idea!  You must have played this game before, but unfortunately
  3153. you can't do that now.  It is still a good idea and you may wish to try it
  3154. some other time.  But unfortunately, it is simple impossible now because --
  3155. END_MESSAGE
  3156.  
  3157. COMMAND LIGHT LAMP
  3158. Present [unlit brass lamp - empty]
  3159. PrintMessage "The lamp has no oil!"
  3160. DoneWithTurn (* no further action -- get next input *)
  3161. END_COMMAND
  3162.  
  3163. COMMAND LIGHT LAMP
  3164. Present [unlit brass lamp - full]
  3165. Present [Flint and steel]
  3166. SwapLocations [unlit brass lamp - full] [lit brass lamp]
  3167. PrintMessage [OK...]
  3168. DoneWithTurn (* no further action -- get next input *)
  3169. END_COMMAND
  3170.  
  3171. COMMAND LIGHT LAMP
  3172. Present [unlit brass lamp - full]
  3173. NOT Present [Flint and steel]
  3174. PrintMessage [Sorry, but you can't]
  3175. PrintMessage [You don't have resources]
  3176. DoneWithTurn (* no further action -- get next input *)
  3177. END_COMMAND
  3178.  
  3179. MESSAGE [You don't have resources]
  3180. you don't have the necessary resources to $verb$ the $noun$.
  3181. END_MESSAGE
  3182.  
  3183. MESSAGE [OK...]
  3184. OK... you $verb$ the $noun$.
  3185. END_MESSAGE
  3186.  
  3187. COMMAND EXTINGUISH LAMP
  3188. Present [lit brass lamp]
  3189. PrintMessage [OK...]
  3190. SwapLocations [unlit brass lamp - full] [lit brass lamp]
  3191. DoneWithTurn (* no further action -- get next input *)
  3192. END_COMMAND
  3193.  
  3194. COMMAND OPEN BOTTLE
  3195. Present [bottle of oil]
  3196. OR
  3197. Present [empty bottle]
  3198. OR
  3199. Present [bottle of water]
  3200. PrintMessage "Ok.  It is now open."
  3201. DoneWithTurn
  3202. END_COMMAND
  3203.  
  3204. COMMAND KISS ANY
  3205. PrintMessage [Don't be silly!]
  3206. DoneWithTurn (* no further action -- get next input *)
  3207. END_COMMAND
  3208.  
  3209. MESSAGE [Don't be silly!]
  3210. Why on earth would your ever want to do that?  Don't you know that to
  3211. $verb$ the $noun$ would be extremely silly!
  3212. END_MESSAGE
  3213.  
  3214. COMMAND BREAK DOOR
  3215. PrintMessage [You charge at the door at full speed.]
  3216. DoneWithTurn (* no further action -- get next input *)
  3217. END_COMMAND
  3218.  
  3219. MESSAGE [You charge at the door at full speed.]
  3220. You charge at the door at full speed.  You hit it with your shoulder, bounce
  3221. off and land with a "thud" on the ground.  After rubbing the ache in your
  3222. shoulder, you stand up.  It is obvious that your body will break before the
  3223. door does!
  3224. END_MESSAGE
  3225.  
  3226. #COMMENT -- "Default" actions for LIGHT GAS or BLADDER
  3227.  
  3228. COMMAND LIGHT GAS
  3229. InRoom [distended gas bladder]
  3230. Present [Flint and steel]
  3231. PrintMessage "The gas bladder blows up making a terrible bang!!!"
  3232. Destroy [distended gas bladder]
  3233. DoneWithTurn (* no further action -- get next input *)
  3234. END_COMMAND
  3235.  
  3236. COMMAND LIGHT BLADDER
  3237. InRoom [distended gas bladder]
  3238. Present [Flint and steel]
  3239. PrintMessage "The gas bladder blows up making a terrible bang!!!"
  3240. Destroy [distended gas bladder]
  3241. DoneWithTurn (* no further action -- get next input *)
  3242. END_COMMAND
  3243.  
  3244. COMMAND PUT ANY IN ANY
  3245. PrintMessage "You try to fill the $object$ with the $noun$, but you fail."
  3246. DoneWithTurn
  3247. END_COMMAND
  3248.  
  3249. COMMAND FILL ANY WITH ANY
  3250. ReDirectTo PUT $OBJECT$ IN $NOUN$
  3251. DoneWithTurn (* no further action -- get next input *)
  3252. END_COMMAND
  3253.  
  3254.  
  3255.