home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / appndxa / masters / pirate.agt < prev    next >
Text File  |  1992-10-20  |  67KB  |  2,945 lines

  1. #COMMENT
  2.  
  3.      Pirate's Adventure
  4.  
  5.      Original game by Scott and Alexis Adams
  6.  
  7.      Transcribed from a BASIC listing in the December 1980 issue of BYTE.
  8.  
  9.      Adapted for the Adventure Game Toolkit by David Malmberg.
  10.  
  11.  
  12. Walkthru for PIRATE ADVENTURE
  13.  
  14. From the London Flat room, first get the crackers and rum.  Wear the sneakers.
  15. Go stairs.  Get Book - twice.  Go Passage, then East.
  16.  
  17. Get the torch.  Open the duffel bag.  Get the matches.  Go West twice. Read
  18. the book (it tells that the magic word is Yoho.)  Go Window, and say YOHO.
  19. You've been teleported to a sandy island beach.
  20.  
  21. Drop book.  Go East.  Go Shack.  Give rum to the Pirate.  He will run away.
  22. Give the crackers to the parrot.  Go West, then East to the cave-ridden hill.
  23.  
  24. Go Path, to the top of the hill.  Go Crack.  Light the torch.  There's a shed
  25. containing lumber and sails.  Go shed, get the hammer and water wings, then go
  26. North, through the crack.  Unlight Torch.  Go down, then West (twice) to the
  27. beach.
  28.  
  29. Drop the wings, the torch, and the matches.  Get the book.  Say YOHO. You're
  30. back on the ledge again.  Enter to go back inside.  Go passage. Next East, to
  31. find the drunken pirate.  Get the rum bottle.  Drink rum.  Go downstairs to
  32. the room where you began.  Get Nails.  Get Rug.  Drop the rug. Get the keys.
  33. Go upstairs to the window ledge.  Say YOHO.
  34.  
  35. You are again teleported to the beach.  Drop the book, hammer, and nails.  Get
  36. water wings and Go Lagoon.  If the tide is not coming in, wait for it.  Go
  37. North.  Get some water and then get the fish.  Go South twice.  Drop the
  38. wings.  Get the torch and matches.  Go East twice. You'll be at the bottom of
  39. the hill.  Light the torch.  Go cave.  Go down.  Feed the fish to the crocs.
  40. Drop the bottle.  Unlock the door. Go Hallway.  Go East.  Go to the shed.  Get
  41. shovel.  Go north.  Get the lumber and sails.  Go West.  Go to the pit, up,
  42. and West.  Unlight torch.  Go back to the beach.  Get water wings.
  43.  
  44. Drop the lumber, sails, torch, and matches.  Go back to the shack.  Open the
  45. chest (use the keys).  Look inside.  Get the map and the plans.  Go back to
  46. the beach.  Get water wings.  Go to the lagoon.
  47.  
  48. If the tide is in, wait for it to go out.  Dig up the anchor.  Get anchor.  Go
  49. South to the beach.  Drop all.  Build Ship.  The Pirate Ship will be completed
  50. and then it will disappear.
  51.  
  52. Get book.  Say YOHO.  Go wake up the sleeping pirate.  Go back to the window
  53. and say YOHO again.  Drop the book.  If you like jokes, get the mongoose you
  54. see around the hut on the island.  Get shovel and map.  Go to the lagoon.
  55. Also, say WEIGH ANCHOR.  Go Ship, and Set Sail.  You are now at Treasure
  56. Island.
  57.  
  58. Go Ashore.  Dig.  Go South, then East into the field.  Pace 30.  Dig. You
  59. uncover a wooden box.  Get box.  Drop the shovel.  Go Monastery. Throw the
  60. mongoose at the snakes (if you got it.)  Eventually the parrot will chase off
  61. the snakes.  Get the doubloons.
  62.  
  63. South.  West.  Wake up the pirate.  Go North to the beach.  Go Dinghy.  Set
  64. Sail.  Go Ashore.  Get hammer.  Get nails.  Open the box, then examine it.
  65. Get the stamps.  Drop the hammer and box.  Get the book.  Say YOHO.  Enter and
  66. then go down the stairs.  Drop the treasures (stamps and doubloons) and say
  67. Score.  That's it.
  68.  
  69. #END_COMMENT
  70.  
  71. #OPTIONS /Labels[] /Messages""
  72.  
  73. TITLE
  74. COLORS WHITE YELLOW BLACK YELLOW RED
  75. P I R A T E ' S   A D V E N T U R E
  76.  
  77. by Scott and Alexis Adams
  78.  
  79. Adapted for the Adventure Game Toolkit by David Malmberg
  80.  
  81. ****
  82. END_TITLE
  83.  
  84.  
  85. INSTRUCTIONS
  86.  
  87. During your adventure, I will be your eyes and hands.  I know of places,
  88. actions, and things.
  89.  
  90. Your commands can be expressed in the format:
  91.  
  92.   <verb phrase> <(multiple) noun phrase(s)> <preposition> <noun phrase/object>
  93.  
  94. For example:
  95.  
  96.          PUT THE GREEN ROCK BEHIND THE OAK TREE
  97.          READ MY POETRY BOOK
  98.          SWIM IN THE SWIMMING POOL
  99.          EXAMINE THE GOLD RING, THE DWARF AND THE SILVER NECKLACE
  100.          EAT THE CELERY AND THE ONION
  101.          SHOOT THE BURGLAR WITH THE REVOLVER
  102.          ATTACK HIM
  103.            ("HIM" will refer to last noun mentioned, e.g., the burglar)
  104.          GET THE BOOK (also: TAKE THE BOOK)
  105.          READ IT
  106.            ("IT" will refer to last noun mentioned, e.g., the book)
  107.          GET ALL
  108.  
  109. Compound commands can be created by connecting single commands (like those
  110. above) with "AND", "THEN" or the punctuation symbols "," or ";" to connect two
  111. or more separate commands, such as:
  112.  
  113.          CLIMB DOWN THE LADDER THEN SOUTH, WEST AND NORTHWEST
  114.          GET THE CLOAK AND THEN EXAMINE IT; READ THE LABEL
  115.          DROP THE FOOD AND THE BOTTLE THEN UNLOCK THE DOOR AND THEN LEAVE
  116.  
  117. The game uses a number of special commands for various "housekeeping" chores.
  118. These are all pretty standard for most adventure games.  Specifically:
  119. HELP, SCORE, INVENTORY, VERBOSE, LIST EXITS, SAVE, RESTORE, SCRIPT, UNSCRIPT
  120. and QUIT.
  121.  
  122. The function keys have been predefined to stand for several of the most
  123. frequently used commands.  Similarly, the cursor keys correspond to the
  124. various movement/compass directions.
  125.  
  126. Hitting the '?' key (during the game) will display a diagram of keys and their
  127. definitions.
  128. END_INSTRUCTIONS
  129.  
  130. VERB
  131. GET PRY PULL CATCH
  132. EXTINGUISH UNLIGHT
  133. Dummy_Verb1 GO CLIMB PACE
  134. Dummy_Verb2 YOHO
  135. Dummy_Verb3 WAKE
  136. Dummy_Verb4 DIG
  137. Dummy_Verb5 FIND
  138. Dummy_Verb7 BUILD
  139. Dummy_Verb8 SET
  140. Dummy_Verb9 WEIGH
  141. Dummy_Verb10 CAST
  142. Dummy_Verb11 SAIL
  143. Dummy_Verb12 JUMP
  144. Dummy_Verb13 SAY
  145. Dummy_Verb14 POUR EMPTY
  146. Dummy_Verb15 FILL
  147. Dummy_Verb16 AWAY XYZZY PLOVER PLUGH
  148. Dummy_Verb17 BURY
  149. Dummy_Verb18 BREAK KICK
  150. Dummy_Verb19 KISS
  151. Dummy_Verb20 GIVE FEED
  152. END_VERB
  153.  
  154. VOCABULARY
  155. ! This is the default AGT verb list for the "menu-driven" parser for PIRATE
  156.  
  157. ! AGAIN should be the first A-verb
  158. 1 Again
  159. 2 Attack
  160. 3 Attack With
  161. 1 away
  162. 2 Break
  163. 3 Break with
  164. 1 Brief
  165. 2 build
  166. 2 bury
  167. 1 bunyon
  168. 2 Burn
  169. 2 cast
  170. 2 Chop
  171. 2 Close
  172. 2 Climb up
  173. 2 Climb down
  174. 2 climb to
  175. 2 Cut
  176. ! DOWN should be the first D-verb
  177. 1 Down
  178. 1 Dig
  179. 2 Drop
  180. 2 Drink
  181. ! EAST should be the first E-verb
  182. 1 East
  183. 2 Examine
  184. 2 Eat
  185. 2 empty
  186. 2 Enter
  187. 1 Exit
  188. 2 Extinguish
  189. 2 feed
  190. 3 Feed to
  191. 3 Fill with
  192. 2 find
  193. 2 free
  194. ! GET should be the first G-verb
  195. 2 Get
  196. 3 Give to
  197. 2 Go to
  198. ! HELP should be the first H-verb
  199. 1 Help
  200. 2 Heat
  201. 2 Hit
  202. 3 Hit with
  203. 2 Hold
  204. ! INVENTORY should be the first I-verb
  205. 1 Inventory
  206. 2 ignite
  207. 1 Jump
  208. 2 Jump to
  209. 2 kick
  210. 2 Kill
  211. 3 Kill With
  212. 2 kiss
  213. ! LOOK AROUND should be the first L-verb
  214. 1 Look around
  215. 2 Look at
  216. 1 List Exits
  217. 2 Light
  218. 3 Light With
  219. 3 Lock with
  220. ! NORTH should be the first N-verb
  221. 1 North
  222. 1 Northeast
  223. 1 Northwest
  224. 1 no
  225. ! OPEN should be the first O-verb
  226. 2 Open
  227. 2 Pace
  228. 3 Put in
  229. 3 Pour on
  230. 3 Pour in
  231. ! QUIT should be the first Q-verb
  232. 1 Quit
  233. ! READ should be the first R-verb
  234. 2 Read
  235. 2 release
  236. 2 Rub
  237. 1 Restore
  238. ! SOUTH should be the first S-verb
  239. 1 South
  240. 1 Southeast
  241. 1 Southwest
  242. 1 Score
  243. 1 Save
  244. 2 sail
  245. 2 Set
  246. 1 say
  247. 1 Scream
  248. 2 Scream At
  249. 1 Script
  250. 1 Shout
  251. 1 Sit
  252. 2 smash
  253. 1 stop
  254. 1 Swim
  255. ! TAKE should be the first T-verb
  256. 2 Take
  257. 2 Throw
  258. 3 Throw at
  259. ! UP should be the first U-verb
  260. 1 Up
  261. 2 unlight
  262. 2 Unlock
  263. 1 Unscript
  264. ! VERBOSE should be the first V-verb
  265. 1 Verbose
  266. 1 Version
  267. ! WEST should be the first W-verb
  268. 1 West
  269. 1 Wait
  270. 2 wake
  271. 2 weigh
  272. 1 Yell
  273. 2 Yell At
  274. 1 yes
  275. 1 yoho
  276. END_VOCABULARY
  277.  
  278. #DEFINE [noun weight] 13
  279. #DEFINE [NoWhere] 0
  280.  
  281. STARTING_ROOM [London Apartment]
  282.  
  283. ROOM [London Apartment]
  284. London Apartment
  285. UP [Alcove]
  286. END_ROOM
  287.  
  288. ROOM_DESCR [London Apartment]
  289. You are in a London apartment.
  290. END_ROOM_DESCR
  291.  
  292. COMMAND GO
  293. IsSomewhere [parrot] (* parrot exists *)
  294. FlagON [Has befriended parrot]
  295. PrintMessage "The parrot flies along behind you."
  296. BlankLine
  297. END_COMMAND
  298.  
  299. COMMAND GO STAIRS
  300. AtLocation [London Apartment]
  301. GoToRoom [Alcove]
  302. PrintMessage "You walk up the stairs to the room above."
  303. BlankLine
  304. DoneWithTurn
  305. END_COMMAND
  306.  
  307. NOUN [Flight of Stairs]
  308. Stairs
  309. Flight
  310. A flight of stairs leads upward.
  311. LOCATION [London Apartment]
  312. UNMOVABLE
  313. END_NOUN
  314.  
  315. NOUN_DESCR [Flight of Stairs]
  316. The stairs are made of wood and creak as you step on them.
  317. END_NOUN_DESCR
  318.  
  319. NOUN [Sign on wall 'Return treasures here...say SCORE.']
  320. Sign
  321. Large
  322. There is a large sign on the wall.
  323. LOCATION [London Apartment]
  324. UNMOVABLE
  325. READABLE
  326. END_NOUN
  327.  
  328. NOUN_DESCR [Sign on wall 'Return treasures here...say SCORE.']
  329. The sign on wall says 'Return treasures here...say SCORE.'
  330. END_NOUN_DESCR
  331.  
  332. TEXT [Sign on wall 'Return treasures here...say SCORE.']
  333. It says 'Return treasures here...say SCORE.'
  334. END_TEXT
  335.  
  336. NOUN [Rug in room]
  337. Rug
  338. Small
  339. A small rug covers part of the floor.
  340. LOCATION [London Apartment]
  341. UNMOVABLE
  342. END_NOUN
  343.  
  344. NOUN_DESCR [Rug in room]
  345. The rug is brown and sort of ugly.  It is nailed to the floor.
  346. END_NOUN_DESCR
  347.  
  348. NOUN [Rug]
  349. Rug
  350. Small
  351. A small rug covers part of the floor.
  352. LOCATION [NoWhere]
  353. END_NOUN
  354.  
  355. NOUN_DESCR [Rug]
  356. The rug is brown and sort of ugly.
  357. END_NOUN_DESCR
  358.  
  359. NOUN [Nails]
  360. Nails
  361. Iron
  362. There are a bunch of iron nails here.
  363. LOCATION [NoWhere]
  364. PLURAL
  365. NOUN_SYNONYMS NAIL
  366. END_NOUN
  367.  
  368. NOUN_DESCR [Nails]
  369. They are about "20 penny" iron nails.
  370. END_NOUN_DESCR
  371.  
  372. NOUN [ring of keys]
  373. ring
  374. key
  375. There are a ring of keys here.
  376. LOCATION [NoWhere]
  377. WEIGHT 2
  378. SIZE 2
  379. NOUN_SYNONYMS KEY KEYS
  380. PLURAL
  381. END_NOUN
  382.  
  383. NOUN_DESCR [ring of keys]
  384. The keys are made of iron and are attached to an iron ring.
  385. END_NOUN_DESCR
  386.  
  387. NOUN [Non-skid sneakers]
  388. sneakers
  389. Non-skid
  390. There are some non-skid sneakers here.
  391. LOCATION [London Apartment]
  392. WEARABLE
  393. NOUN_SYNONYMS SHOES
  394. END_NOUN
  395.  
  396. NOUN_DESCR [Non-skid sneakers]
  397. The sneakers are just your size -- 15 EEEEEs.
  398. END_NOUN_DESCR
  399.  
  400. NOUN [Crackers]
  401. Crackers
  402. stale
  403. There are some stale crackers here.
  404. LOCATION [London Apartment]
  405. NOUN_SYNONYMS SALTINE SALTINES CRACKER
  406. PLURAL
  407. EDIBLE
  408. END_NOUN
  409.  
  410. NOUN_DESCR [Crackers]
  411. The crackers are plain saltines.  They are stale.
  412. END_NOUN_DESCR
  413.  
  414. NOUN [water bottle]
  415. water
  416. bottle-of
  417. There is a small bottle of sea water here.
  418. LOCATION [NoWhere]
  419. WEIGHT [noun weight]
  420. NOUN_SYNONYMS BOTTLE
  421. END_NOUN
  422.  
  423. NOUN_DESCR [water bottle]
  424. The bottle is shaped like a rum bottle and looks like it would hold about a
  425. quart of liquid.  It is full of sea water.
  426. END_NOUN_DESCR
  427.  
  428. NOUN [rum bottle]
  429. rum
  430. bottle-of
  431. There is a small bottle of rum here.
  432. LOCATION [London Apartment]
  433. WEIGHT [noun weight]
  434. NOUN_SYNONYMS BOTTLE
  435. END_NOUN
  436.  
  437. NOUN_DESCR [rum bottle]
  438. The bottle is shaped like a rum bottle and looks like it would hold about a
  439. quart of liquid.  It is full of rum.
  440. END_NOUN_DESCR
  441.  
  442. NOUN [empty bottle]
  443. bottle
  444. empty
  445. There is a small empty bottle here.
  446. LOCATION [NoWhere]
  447. WEIGHT [noun weight]
  448. END_NOUN
  449.  
  450. NOUN_DESCR [empty bottle]
  451. The bottle is shaped like a rum bottle and looks like it would hold about a
  452. quart of liquid.  It is currently empty.
  453. END_NOUN_DESCR
  454.  
  455. ROOM [Alcove]
  456. Alcove
  457. DOWN [London Apartment]
  458. END_ROOM
  459.  
  460. ROOM_DESCR [Alcove]
  461. You are in an alcove at the top of some stairs.
  462. END_ROOM_DESCR
  463.  
  464. HELP [Alcove]
  465. Reading expands the mind!
  466. END_HELP
  467.  
  468. COMMAND GO STAIRS
  469. AtLocation [Alcove]
  470. GoToRoom [London Apartment]
  471. PrintMessage "You walk down the stairs to the room below."
  472. BlankLine
  473. DoneWithTurn
  474. END_COMMAND
  475.  
  476. COMMAND GO WINDOW
  477. AtLocation [Alcove]
  478. GoToRoom [Outside Window]
  479. PrintMessage "You climb out the window to the ledge outside."
  480. BlankLine
  481. DoneWithTurn
  482. END_COMMAND
  483.  
  484. COMMAND GO PASSAGE
  485. AtLocation [Alcove]
  486. Present [secret passage]
  487. GoToRoom [Secret Passageway]
  488. PrintMessage "You go behind the bookcase and enter the secret passageway."
  489. BlankLine
  490. DoneWithTurn
  491. END_COMMAND
  492.  
  493. COMMAND ENTER
  494. AtLocation [Alcove]
  495. Present [secret passage]
  496. GoToRoom [Secret Passageway]
  497. PrintMessage "You go behind the bookcase and enter the secret passageway."
  498. BlankLine
  499. DoneWithTurn
  500. END_COMMAND
  501. NOUN [Open Window]
  502. window
  503. open
  504. There is an open window here.
  505. LOCATION [Alcove]
  506. UNMOVABLE
  507. END_NOUN
  508.  
  509. NOUN_DESCR [Open Window]
  510. The window is open.  As you look through it, you can see the streets of London
  511. below you.
  512. END_NOUN_DESCR
  513.  
  514. NOUN [bookcase]
  515. bookcase
  516. full
  517. A bookcase filled with classics covers the wall.
  518. LOCATION [Alcove]
  519. UNMOVABLE
  520. OPENABLE
  521. OPEN
  522. SIZE 100
  523. WEIGHT
  524. END_NOUN
  525.  
  526. NOUN_DESCR [bookcase]
  527. The bookcase covers most of one wall and is quite full of a wide variety of
  528. books -- mostly classics.
  529. END_NOUN_DESCR
  530.  
  531. NOUN [Large leather bound book]
  532. book
  533. leather-bound
  534. You see a large leather-bound book.
  535. LOCATION [bookcase]
  536. READABLE
  537. END_NOUN
  538.  
  539. NOUN_DESCR [Large leather bound book]
  540. The book is "Treasure Island."  It looks like a first edition.
  541. END_NOUN_DESCR
  542.  
  543. TEXT [Large leather bound book]
  544. There's a word engraved in the flyleaf - YOHO ... and a message - 'Long John
  545. Silver left 2 treasures on Treasure Island'.
  546. END_TEXT
  547.  
  548. NOUN [secret passage]
  549. passage
  550. secret
  551. The bookcase has been moved, revealing a secret passage.
  552. LOCATION [NoWhere]
  553. UNMOVABLE
  554. NOUN_SYNONYMS BOOKCASE
  555. END_NOUN
  556.  
  557. NOUN_DESCR [secret passage]
  558. The bookcase has been moved out from the wall revealing a secret passage which
  559. is so dark that you can't see anything beyond the bookcase.
  560. END_NOUN_DESCR
  561.  
  562.  
  563. ROOM [Secret Passageway]
  564. Secret Passageway
  565. EAST [Musty Attic]
  566. WEST [Alcove]
  567. END_ROOM
  568.  
  569. ROOM_DESCR [Secret Passageway]
  570. You are in a secret passageway.
  571. END_ROOM_DESCR
  572.  
  573.  
  574. ROOM [Musty Attic]
  575. Musty Attic
  576. WEST [Secret Passageway]
  577. END_ROOM
  578.  
  579. ROOM_DESCR [Musty Attic]
  580. You are in a musty attic.
  581. END_ROOM_DESCR
  582.  
  583. NOUN [unlit torch]
  584. torch
  585. unlit
  586. There is an unlit torch nearby.
  587. LOCATION [Musty Attic]
  588. WEIGHT 2
  589. SIZE 2
  590. IS_LIGHT
  591. END_NOUN
  592.  
  593. NOUN_DESCR [unlit torch]
  594. The torch is about 3 feet long and has rags tied around one end.  The rags
  595. have been soaked in oil and should burn easily.
  596. END_NOUN_DESCR
  597.  
  598. NOUN [Duffle bag]
  599. bag
  600. duffle
  601. You see large duffle bag.  It looks like the kind that pirates have.
  602. LOCATION [Musty Attic]
  603. WEIGHT 10
  604. CLOSABLE
  605. CLOSED
  606. SIZE 10
  607. NOUN_SYNONYMS FLAP
  608. END_NOUN
  609. NOUN_DESCR [Duffle bag]
  610. The pirate's duffle bag is about a foot around and three feet tall.  It is
  611. brown canvas.  It has a flap which can be opened and closed.
  612. END_NOUN_DESCR
  613.  
  614. NOUN [Wooden matches]
  615. matches
  616. wooden
  617. There is a box of wooden matches.
  618. LOCATION [Duffle bag]
  619. WEIGHT 2
  620. SIZE 2
  621. NOUN_SYNONYMS MATCH
  622. PLURAL
  623. END_NOUN
  624.  
  625. NOUN_DESCR [Wooden matches]
  626. The matches are made out of wood.  You light one and it lights easily and
  627. burns brightly for about a minute before going out.
  628. END_NOUN_DESCR
  629.  
  630. NOUN [soggy matches]
  631. matches
  632. soggy
  633. There is a box of soggy matches here.
  634. LOCATION [NoWhere]
  635. WEIGHT 2
  636. SIZE 2
  637. NOUN_SYNONYMS MATCH
  638. PLURAL
  639. END_NOUN
  640.  
  641. NOUN_DESCR [soggy matches]
  642. The matches are too wet to light.
  643. END_NOUN_DESCR
  644.  
  645. NOUN [blazing torch]
  646. torch
  647. blazing
  648. The torch is blazing brightly.
  649. LOCATION [NoWhere]
  650. WEIGHT 5
  651. SIZE 12
  652. IS_LIGHT
  653. END_NOUN
  654.  
  655. NOUN_DESCR [blazing torch]
  656. The torch is blazing and gives a nice bright light.
  657. END_NOUN_DESCR
  658.  
  659. NOUN [Pieces of broken rum bottles]
  660. Pieces
  661. broken
  662. There are some glass pieces of broken rum bottles.
  663. LOCATION [Musty Attic]
  664. NOUN_SYNONYMS GLASS
  665. END_NOUN
  666.  
  667. NOUN_DESCR [Pieces of broken rum bottles]
  668. The pieces are quite small and made of very sharp glass.  Be careful!
  669. END_NOUN_DESCR
  670.  
  671.  
  672. ROOM [Outside Window]
  673. Outside Window
  674. ENTER [Alcove]
  675. END_ROOM
  676.  
  677. ROOM_DESCR [Outside Window]
  678. You are on a ledge outside a window of a tall building.
  679. END_ROOM_DESCR
  680.  
  681. ROOM [Sandy Beach]
  682. Sandy Beach
  683. EAST [Meadow]
  684. WEST [Shallow Lagoon]
  685. END_ROOM
  686.  
  687. ROOM_DESCR [Sandy Beach]
  688. You are on a sandy beach on a tropical isle.
  689. END_ROOM_DESCR
  690.  
  691. HELP [Sandy Beach]
  692. There are multiple exits here.
  693. END_HELP
  694.  
  695. COMMAND GO LAGOON
  696. AtLocation [Sandy Beach]
  697. GoToRoom [Shallow Lagoon]
  698. PrintMessage "You walk west down to the lagoon."
  699. BlankLine
  700. DoneWithTurn
  701. END_COMMAND
  702.  
  703. NOUN [Lagoon]
  704. Lagoon
  705. The
  706. There is a large lagoon to the west.
  707. LOCATION [Sandy Beach]
  708. UNMOVABLE
  709. END_NOUN
  710.  
  711. NOUN_DESCR [Lagoon]
  712. The lagoon is quite large and has very blue clear water.
  713. END_NOUN_DESCR
  714.  
  715. NOUN [Sand]
  716. Sand
  717. Beach
  718. There is sand everywhere.
  719. LOCATION [Sandy Beach]
  720. UNMOVABLE
  721. END_NOUN
  722.  
  723. NOUN_DESCR [Sand]
  724. The sand is fairly ordinary.  It is white, clean and quite fine.
  725. END_NOUN_DESCR
  726.  
  727. NOUN [Small ship's keel and mast]
  728. keel
  729. ship's
  730. There is a small ship's keel and mast here.
  731. LOCATION [Sandy Beach]
  732. NOUN_SYNONYMS MAST
  733. END_NOUN
  734.  
  735. NOUN_DESCR [Small ship's keel and mast]
  736. The keel and mast are for a small ship.
  737. END_NOUN_DESCR
  738.  
  739. NOUN [pirate ship]
  740. ship
  741. pirate
  742. A ship is anchored off-shore.  Its 'Jolly Roger' waves in the breeze.
  743. LOCATION [NoWhere]
  744. NOUN_SYNONYMS BOAT
  745. END_NOUN
  746.  
  747. NOUN_DESCR [pirate ship]
  748. It is obviously a pirate ship.  You can see its 'Jolly Roger' flapping in the
  749. light breeze.
  750. END_NOUN_DESCR
  751.  
  752. COMMAND GO BOAT
  753. Present [pirate ship]
  754. PrintMessage "You swim out to the pirate ship."
  755. GoToRoom [On Pirate Ship]
  756. DoneWithTurn
  757. END_COMMAND
  758.  
  759. COMMAND GO ASHORE
  760. FlagOFF [Has sailed to 'Treasure Island']
  761. AtLocation [On Pirate Ship]
  762. SendToRoom [Dinghy] [Shallow Lagoon]
  763. GoToRoom [Shallow Lagoon]
  764. PrintMessage "You row your dinghy to the island."
  765. TurnFlagOFF [On Treasure Island]
  766. BlankLine
  767. DoneWithTurn
  768. END_COMMAND
  769.  
  770. ROOM [Maze of Caves 7]
  771. Maze of Caves 7
  772. SOUTH [Maze of Caves 12]
  773. EAST [Maze of Caves 19]
  774. WEST [Foot of Hill]
  775. DOWN [In a Pit]
  776. LIGHT [blazing torch]
  777. END_ROOM
  778.  
  779. ROOM_DESCR [Maze of Caves 7]
  780. You are in a maze of caves.  There is a narrow opening to the west with a
  781. little day-light shinning through it.  Passages lead in all directions.
  782. END_ROOM_DESCR
  783.  
  784. ROOM [Meadow]
  785. Meadow
  786. EAST [Foot of Hill]
  787. WEST [Sandy Beach]
  788. SOUTH [Grass Shack]
  789. END_ROOM
  790.  
  791. ROOM_DESCR [Meadow]
  792. You are in a meadow.  The beach is to the west.  A hill rises to the east.
  793. END_ROOM_DESCR
  794.  
  795. COMMAND GO BEACH
  796. AtLocation [Meadow]
  797. GoToRoom [Sandy Beach]
  798. PrintMessage "You walk west to the beach."
  799. BlankLine
  800. DoneWithTurn
  801. END_COMMAND
  802.  
  803. COMMAND GO HILL
  804. AtLocation [Meadow]
  805. GoToRoom [Foot of Hill]
  806. PrintMessage "You walk east to the foot of the hill."
  807. BlankLine
  808. DoneWithTurn
  809. END_COMMAND
  810.  
  811. COMMAND GO SHACK
  812. AtLocation [Meadow]
  813. GoToRoom [Grass Shack]
  814. PrintMessage "You walk south and enter the grass shack."
  815. BlankLine
  816. DoneWithTurn
  817. END_COMMAND
  818.  
  819. NOUN [Hill]
  820. hill
  821. small
  822. There is a hill.
  823. LOCATION [NoWhere]
  824. NOUN_SYNONYMS PATH
  825. END_NOUN
  826.  
  827. NOUN_DESCR [Hill]
  828. The noun is just a "dummy" to define the noun HILL.
  829. END_NOUN_DESCR
  830.  
  831. NOUN [Beach]
  832. beach
  833. small
  834. There is a beach.
  835. LOCATION [NoWhere]
  836. END_NOUN
  837.  
  838. NOUN_DESCR [Beach]
  839. The noun is just a "dummy" to define the noun BEACH.
  840. END_NOUN_DESCR
  841.  
  842. NOUN [Shack]
  843. Shack
  844. Grass
  845. You can see a grass shack to the south.
  846. LOCATION [Meadow]
  847. UNMOVABLE
  848. END_NOUN
  849.  
  850. NOUN_DESCR [Shack]
  851. The grass shack looks like it would blow away in a strong wind.
  852. END_NOUN_DESCR
  853.  
  854. NOUN [Mongoose]
  855. Mongoose
  856. small
  857. There is a small mongoose here.
  858. LOCATION [Meadow]
  859. END_NOUN
  860.  
  861. NOUN_DESCR [Mongoose]
  862. The mongoose looks pretty ordinary.
  863. END_NOUN_DESCR
  864.  
  865. ROOM [Grass Shack]
  866. Grass Shack
  867. WEST [Meadow]
  868. END_ROOM
  869.  
  870. ROOM_DESCR [Grass Shack]
  871. You are in a grass shack.  There is an opening to the west.
  872. END_ROOM_DESCR
  873.  
  874. NOUN [treasure chest]
  875. chest
  876. treasure
  877. You see a jewel-encrusted, golden treasure chest.
  878. LOCATION [Grass Shack]
  879. WEIGHT 30
  880. SIZE 30
  881. CLOSABLE
  882. CLOSED
  883. LOCKABLE
  884. LOCKED
  885. KEY [ring of keys]
  886. END_NOUN
  887.  
  888. NOUN_DESCR [treasure chest]
  889. The chest is made out of gold and has been encrusted with many precious
  890. jewels.  The chest is about one foot square.  A key hole is in the center of
  891. the top of the chest.
  892. END_NOUN_DESCR
  893.  
  894. NOUN [Set of plans]
  895. plans
  896. Set
  897. You see a set of drawings.
  898. LOCATION [treasure chest]
  899. WEIGHT 10
  900. SIZE 10
  901. PLURAL
  902. NOUN_SYNONYMS PLAN DRAWING DRAWINGS
  903. READABLE
  904. END_NOUN
  905.  
  906. NOUN_DESCR [Set of plans]
  907. They're plans to build 'Jolly Roger' (a pirate ship!) - you'll need a hammer,
  908. nails, lumber, an anchor, sails and a keel.
  909. END_NOUN_DESCR
  910.  
  911. TEXT [Set of plans]
  912. It says that you'll need a hammer, nails, lumber, an anchor, sails and a keel.
  913. END_TEXT
  914.  
  915. NOUN [Map]
  916. Map
  917. pirate
  918. There is a pirate's map here.
  919. LOCATION [treasure chest]
  920. WEIGHT 10
  921. SIZE 10
  922. READABLE
  923. END_NOUN
  924.  
  925. NOUN_DESCR [Map]
  926. It's a map to Treasure Island.  At the bottom it says 'Go 30 paces then dig!'
  927. END_NOUN_DESCR
  928.  
  929. TEXT [Map]
  930. At the bottom of the map, is a message that says 'Go 30 paces then dig!'
  931. END_TEXT
  932.  
  933. NOUN [parrot]
  934. parrot
  935. green
  936. You see a small green parrot flying madly about.
  937. LOCATION [Grass Shack]
  938. NOUN_SYNONYMS POLLY
  939. END_NOUN
  940.  
  941. NOUN_DESCR [parrot]
  942. The parrot is sort of yellowish-green. It is about 8 inches tall.  The parrot
  943. appears somewhat nervous and keeps flying about.
  944. END_NOUN_DESCR
  945.  
  946. NOUN [Sleeping pirate]
  947. pirate
  948. Sleeping
  949. There is a sleeping pirate here.  He is snoring loudly.
  950. LOCATION [NoWhere]
  951. END_NOUN
  952.  
  953. NOUN_DESCR [Sleeping pirate]
  954. The pirate is sleeping very soundly and very loudly.
  955. END_NOUN_DESCR
  956.  
  957. NOUN [Wicked-looking pirate]
  958. pirate
  959. Wicked-looking
  960. There is a mean and wicked-looking pirate here.
  961. LOCATION [Grass Shack]
  962. END_NOUN
  963.  
  964. NOUN_DESCR [Wicked-looking pirate]
  965. The pirate does not look very friendly.
  966. END_NOUN_DESCR
  967.  
  968. ROOM [In Ocean]
  969. In Ocean
  970. NORTH [In Ocean]
  971. SOUTH [Shallow Lagoon]
  972. EAST [In Ocean]
  973. WEST [In Ocean]
  974. END_ROOM
  975.  
  976. ROOM_DESCR [In Ocean]
  977. You are in the ocean.
  978. END_ROOM_DESCR
  979.  
  980. NOUN [fish]
  981. fish
  982. large
  983. You see several large fish swimming about in the water.
  984. PLURAL
  985. LOCATION [In Ocean]
  986. NOUN_SYNONYMS MACKEREL
  987. END_NOUN
  988.  
  989. NOUN_DESCR [fish]
  990. The fish look like mackerel.
  991. END_NOUN_DESCR
  992.  
  993. NOUN [mackerel]
  994. fish
  995. large
  996. You see several large mackerel.  They are still alive, barely.
  997. PLURAL
  998. LOCATION [NoWhere]
  999. NOUN_SYNONYMS MACKEREL
  1000. END_NOUN
  1001.  
  1002. NOUN_DESCR [mackerel]
  1003. The fish are almost dead.
  1004. END_NOUN_DESCR
  1005.  
  1006. ROOM [In a Pit]
  1007. In a Pit
  1008. UP [Maze of Caves 7]
  1009. LIGHT [blazing torch]
  1010. END_ROOM
  1011.  
  1012. ROOM_DESCR [In a Pit]
  1013. You are in a deep pit.
  1014. END_ROOM_DESCR
  1015.  
  1016. HELP [In a Pit]
  1017. The tide is changing - matey.
  1018. END_HELP
  1019.  
  1020. COMMAND GO DOOR
  1021. AtLocation [In a Pit]
  1022. Present [Open doorway with hallway beyond]
  1023. GoToRoom [Long Hallway]
  1024. PrintMessage [You walk through the open door to the hallway beyond.]
  1025. BlankLine
  1026. DoneWithTurn
  1027. END_COMMAND
  1028.  
  1029. COMMAND ENTER DOOR
  1030. AtLocation [In a Pit]
  1031. Present [Open doorway with hallway beyond]
  1032. GoToRoom [Long Hallway]
  1033. PrintMessage [You walk through the open door to the hallway beyond.]
  1034. BlankLine
  1035. DoneWithTurn
  1036. END_COMMAND
  1037.  
  1038. COMMAND GO HALLWAY
  1039. AtLocation [In a Pit]
  1040. Present [Open doorway with hallway beyond]
  1041. GoToRoom [Long Hallway]
  1042. PrintMessage [You walk through the open door to the hallway beyond.]
  1043. BlankLine
  1044. DoneWithTurn
  1045. END_COMMAND
  1046.  
  1047. MESSAGE [You walk through the open door to the hallway beyond.]
  1048. You walk through the open door to the hallway beyond.
  1049. END_MESSAGE
  1050.  
  1051. NOUN [Locked door #2]
  1052. door
  1053. Locked
  1054. There is a locked door here.
  1055. LOCATION [In a Pit]
  1056. UNMOVABLE
  1057. END_NOUN
  1058.  
  1059. NOUN_DESCR [Locked door #2]
  1060. The door is locked tight.
  1061. END_NOUN_DESCR
  1062.  
  1063. NOUN [Open doorway with hallway beyond]
  1064. Doorway
  1065. Open
  1066. Through an open doorway you can see a long hallway.
  1067. LOCATION [NoWhere]
  1068. UNMOVABLE
  1069. END_NOUN
  1070.  
  1071. NOUN_DESCR [Open doorway with hallway beyond]
  1072. Beyond the open doorway is a long hallway.
  1073. END_NOUN_DESCR
  1074.  
  1075.  
  1076. NOUN [Mean and hungry looking crocodiles]
  1077. crocodiles
  1078. hungry
  1079. You see several mean and hungry-looking crocodiles.
  1080. PLURAL
  1081. LOCATION [In a Pit]
  1082. NOUN_SYNONYMS CROCS
  1083. END_NOUN
  1084.  
  1085. NOUN_DESCR [Mean and hungry looking crocodiles]
  1086. The crocodiles look very hungry.  Be careful!
  1087. END_NOUN_DESCR
  1088.  
  1089. ROOM [Maze of Caves 12]
  1090. Maze of Caves
  1091. NORTH [Maze of Caves 7]
  1092. SOUTH [Maze of Caves 7]
  1093. EAST  [Maze of Caves 19]
  1094. WEST [Maze of Caves 13]
  1095. LIGHT [blazing torch]
  1096. END_ROOM
  1097.  
  1098. ROOM_DESCR [Maze of Caves 12]
  1099. You are in a maze of caves.
  1100. END_ROOM_DESCR
  1101.  
  1102. ROOM [Maze of Caves 13]
  1103. Maze of Caves
  1104. SOUTH [Maze of Caves 7]
  1105. EAST [Maze of Caves 7]
  1106. WEST [Maze of Caves 12]
  1107. LIGHT [blazing torch]
  1108. END_ROOM
  1109.  
  1110. ROOM_DESCR [Maze of Caves 13]
  1111. You are in a maze of caves.
  1112. END_ROOM_DESCR
  1113.  
  1114. ROOM [Foot of Hill]
  1115. Foot of Hill
  1116. WEST [Meadow] 
  1117. UP [Top of Hill]
  1118. END_ROOM
  1119.  
  1120. ROOM_DESCR [Foot of Hill]
  1121. You are at the foot of a small hill.  The hill is riddled with caves.  A path
  1122. leads up to the top of the hill.  To the west is a meadow.
  1123. END_ROOM_DESCR
  1124.  
  1125. HELP [Foot of Hill]
  1126. There are multiple exits here.
  1127. END_HELP
  1128.  
  1129. COMMAND CLIMB HILL
  1130. AtLocation [Foot of Hill]
  1131. GoToRoom [Top of Hill]
  1132. PrintMessage "You climb up the path to the top of the hill."
  1133. BlankLine
  1134. DoneWithTurn
  1135. END_COMMAND
  1136.  
  1137. COMMAND GO CAVE
  1138. AtLocation [Foot of Hill]
  1139. GoToRoom [Maze of Caves 7]
  1140. PrintMessage "You climb up to one of the caves and enter it."
  1141. BlankLine
  1142. DoneWithTurn
  1143. END_COMMAND
  1144.  
  1145. ROOM [In Tool Shed]
  1146. Tool Shed
  1147. NORTH [In Large Cavern]
  1148. LIGHT [blazing torch]
  1149. END_ROOM
  1150.  
  1151. ROOM_DESCR [In Tool Shed]
  1152. You are in a tool shed.  The door is to the north.
  1153. END_ROOM_DESCR
  1154.  
  1155. NOUN [Shovel]
  1156. Shovel
  1157. large
  1158. There is a large shovel here.
  1159. LOCATION [In Tool Shed]
  1160. SIZE 25 (* Wont fit through crack *)
  1161. WEIGHT 25 (* Wont fit through crack *)
  1162. END_NOUN
  1163.  
  1164. NOUN_DESCR [Shovel]
  1165. The shovel has a long and handle and its blade is a little rusty.
  1166. END_NOUN_DESCR
  1167.  
  1168. NOUN [Claw hammer]
  1169. hammer
  1170. Claw
  1171. You see a big claw hammer.
  1172. LOCATION [In Tool Shed]
  1173. SIZE 2 (* Will fit through crack *)
  1174. WEIGHT 2 (* Will fit through crack *)
  1175. END_NOUN
  1176.  
  1177. NOUN_DESCR [Claw hammer]
  1178. The claw hammer is quite heavy.  You swing it a few times.  It feels good in
  1179. your hand.
  1180. END_NOUN_DESCR
  1181.  
  1182. NOUN [Water wings]
  1183. wings
  1184. Water
  1185. There are some water wings here.
  1186. LOCATION [In Tool Shed]
  1187. SIZE 2 (* Will fit through crack *)
  1188. WEIGHT 2 (* Will fit through crack *)
  1189. END_NOUN
  1190.  
  1191. NOUN_DESCR [Water wings]
  1192. The water wings look like they would allow you to float.
  1193. END_NOUN_DESCR
  1194.  
  1195.  
  1196. ROOM [Long Hallway]
  1197. Long Hallway
  1198. EAST [In Large Cavern]
  1199. LIGHT [blazing torch]
  1200. END_ROOM
  1201.  
  1202. ROOM_DESCR [Long Hallway]
  1203. You are in a long hallway.
  1204. END_ROOM_DESCR
  1205.  
  1206. COMMAND GO DOOR
  1207. AtLocation [Long Hallway]
  1208. Present [Open doorway with pit beyond]
  1209. GoToRoom [In a Pit]
  1210. PrintMessage [You walk through the door to the pit beyond.]
  1211. BlankLine
  1212. DoneWithTurn
  1213. END_COMMAND
  1214.  
  1215. COMMAND ENTER DOOR
  1216. AtLocation [Long Hallway]
  1217. Present [Open doorway with pit beyond]
  1218. GoToRoom [In a Pit]
  1219. PrintMessage [You walk through the door to the pit beyond.]
  1220. BlankLine
  1221. DoneWithTurn
  1222. END_COMMAND
  1223.  
  1224. COMMAND GO PIT
  1225. AtLocation [Long Hallway]
  1226. Present [Open doorway with pit beyond]
  1227. GoToRoom [In a Pit]
  1228. PrintMessage [You walk through the door to the pit beyond.]
  1229. BlankLine
  1230. DoneWithTurn
  1231. END_COMMAND
  1232.  
  1233. MESSAGE [You walk through the door to the pit beyond.]
  1234. You walk through the open door to the pit beyond.
  1235. END_MESSAGE
  1236.  
  1237. NOUN [Locked door]
  1238. door
  1239. Locked
  1240. There is a locked door here.  It is locked on the other side.
  1241. LOCATION [Long Hallway]
  1242. UNMOVABLE
  1243. END_NOUN
  1244.  
  1245. NOUN_DESCR [Locked door]
  1246. The door is locked on the other side.  You can't open it or even unlock it
  1247. from this side.
  1248. END_NOUN_DESCR
  1249.  
  1250. NOUN [Open doorway with pit beyond]
  1251. Doorway
  1252. Open
  1253. Through an open doorway you can see a large pit.
  1254. LOCATION [NoWhere]
  1255. UNMOVABLE
  1256. END_NOUN
  1257. NOUN_DESCR [Open doorway with pit beyond]
  1258. Beyond the open doorway is a large pit.
  1259. END_NOUN_DESCR
  1260.  
  1261. ROOM [In Large Cavern]
  1262. Large Cavern
  1263. WEST [Long Hallway]
  1264. SOUTH [In Tool Shed]
  1265. LIGHT [blazing torch]
  1266. END_ROOM
  1267.  
  1268. ROOM_DESCR [In Large Cavern]
  1269. You are in a large cavern.  There is a narrow crack with day-light shining
  1270. through it.
  1271. END_ROOM_DESCR
  1272.  
  1273. COMMAND GO SHED
  1274. AtLocation [In Large Cavern]
  1275. GoToRoom [In Tool Shed]
  1276. DoneWithTurn
  1277. END_COMMAND
  1278.  
  1279. COMMAND GO CRACK
  1280. AtLocation [In Large Cavern]
  1281. LoadWeightLT 20
  1282. GoToRoom [Top of Hill]
  1283. PrintMessage [You just manage to squeeze]
  1284. BlankLine
  1285. DoneWithTurn
  1286. END_COMMAND
  1287.  
  1288. COMMAND GO CRACK
  1289. AtLocation [In Large Cavern]
  1290. LoadWeightGT 19
  1291. PrintMessage [You can't squeeze through the crack.]
  1292. DoneWithTurn
  1293. END_COMMAND
  1294.  
  1295. NOUN [Tool Shed]
  1296. shed
  1297. Tool
  1298. There is a walk-in tool shed to the south.  Its door is open.
  1299. LOCATION [In Large Cavern]
  1300. UNMOVABLE
  1301. END_NOUN
  1302.  
  1303. NOUN_DESCR [Tool Shed]
  1304. The shed is one of the those aluminum siding things.  Its door is open.
  1305. END_NOUN_DESCR
  1306.  
  1307. NOUN [Pile of sails]
  1308. sails
  1309. Pile
  1310. You see a large pile of sails here.
  1311. LOCATION [In Large Cavern]
  1312. SIZE 25 (* Wont fit through crack *)
  1313. WEIGHT 25 (* Wont fit through crack *)
  1314. NOUN_SYNONYMS PILE SAIL
  1315. END_NOUN
  1316.  
  1317. NOUN_DESCR [Pile of sails]
  1318. The sails are just large enough for a small boat.
  1319. END_NOUN_DESCR
  1320.  
  1321. NOUN [Precut lumber]
  1322. lumber
  1323. precut
  1324. You see a some precut lumber here.
  1325. LOCATION [In Large Cavern]
  1326. SIZE 25 (* Wont fit through crack *)
  1327. WEIGHT 25 (* Wont fit through crack *)
  1328. NOUN_SYNONYMS WOOD
  1329. END_NOUN
  1330.  
  1331. NOUN_DESCR [Precut lumber]
  1332. The lumber looks like it has been precut for building a small boat.
  1333. END_NOUN_DESCR
  1334.  
  1335. ROOM [Top of Hill]
  1336. Top of Hill
  1337. DOWN [Foot of Hill]
  1338. END_ROOM
  1339.  
  1340. ROOM_DESCR [Top of Hill]
  1341. You are on the top of small hill.  Below you is Pirate's Island.  A path
  1342. leads down.
  1343. END_ROOM_DESCR
  1344.  
  1345. COMMAND GO PATH
  1346. AtLocation [Top of Hill]
  1347. GoToRoom [Foot of Hill]
  1348. PrintMessage "You climb down the path to the bottom of the hill."
  1349. BlankLine
  1350. DoneWithTurn
  1351. END_COMMAND
  1352.  
  1353. COMMAND GO CRACK
  1354. AtLocation [Top of Hill]
  1355. LoadWeightLT 20
  1356. GoToRoom [In Large Cavern]
  1357. PrintMessage [You just manage to squeeze]
  1358. BlankLine
  1359. DoneWithTurn
  1360. END_COMMAND
  1361.  
  1362. COMMAND GO CRACK
  1363. AtLocation [Top of Hill]
  1364. LoadWeightGT 19
  1365. PrintMessage [You can't squeeze through the crack.]
  1366. DoneWithTurn
  1367. END_COMMAND
  1368.  
  1369. MESSAGE [You just manage to squeeze]
  1370. You just manage to squeeze through the crack to the other side.
  1371. END_MESSAGE
  1372.  
  1373. MESSAGE [You can't squeeze through the crack.]
  1374. You can't squeeze through the crack.  Something you are carrying gets stuck as
  1375. you try and you can't get through.
  1376. END_MESSAGE
  1377.  
  1378. NOUN [Narrow crack in the rock]
  1379. crack
  1380. Narrow
  1381. There is a rock wall with a narrow crack in it.
  1382. NOUN_SYNONYMS WALL
  1383. LOCATION [Top of Hill]
  1384. UNMOVABLE
  1385. END_NOUN
  1386.  
  1387. NOUN_DESCR [Narrow crack in the rock]
  1388. The crack in the rock wall is quite narrow.  The crack leads into a cave in
  1389. the hill.
  1390. END_NOUN_DESCR
  1391.  
  1392. ROOM [Maze of Caves 19]
  1393. Maze of Caves
  1394. EAST [Maze of Caves 7]
  1395. WEST [Maze of Caves 12]
  1396. LIGHT [blazing torch]
  1397. END_ROOM
  1398.  
  1399. ROOM_DESCR [Maze of Caves 19]
  1400. You are in a maze of caves.
  1401. END_ROOM_DESCR
  1402.  
  1403. ROOM [On Pirate Ship]
  1404. On Pirate Ship
  1405. END_ROOM
  1406.  
  1407. ROOM_DESCR [On Pirate Ship]
  1408. You are aboard a pirate ship anchored off-shore a small tropical island.
  1409. END_ROOM_DESCR
  1410.  
  1411. FLAG [Has sailed to 'Treasure Island']
  1412.  
  1413. COMMAND GO ASHORE
  1414. FlagON [Has sailed to 'Treasure Island']
  1415. AtLocation [On Pirate Ship]
  1416. SendToRoom [Dinghy] [On Beach]
  1417. SendToRoom [Wicked-looking pirate] [On Beach]
  1418. GoToRoom [On Beach]
  1419. PrintMessage "You row your dinghy to the island."
  1420. TurnFlagON [On Treasure Island]
  1421. BlankLine
  1422. DoneWithTurn
  1423. END_COMMAND
  1424.  
  1425. ROOM [On Beach]
  1426. On Beach
  1427. SOUTH [Graveyard]
  1428. END_ROOM
  1429.  
  1430. ROOM_DESCR [On Beach]
  1431. You are on the beach at treasure island.  Your ship is anchored off-shore.
  1432. There is a graveyard to the south.
  1433. END_ROOM_DESCR
  1434.  
  1435. NOUN [Dinghy]
  1436. dinghy
  1437. small
  1438. Your dinghy is on the beach.  Half in and half out of the water.
  1439. LOCATION [NoWhere]
  1440. UNMOVABLE
  1441. NOUN_SYNONYMS SHORE ASHORE
  1442. END_NOUN
  1443.  
  1444. NOUN_DESCR [Dinghy]
  1445. The dinghy is quite small.  It is half in and half out of the water on the
  1446. edge of the water.
  1447. END_NOUN_DESCR
  1448.  
  1449. COMMAND GO BOAT
  1450. AtLocation [On Beach]
  1451. GoToRoom [On Pirate Ship]
  1452. PrintMessage "You row your dinghy out to the pirate ship."
  1453. BlankLine
  1454. DoneWithTurn
  1455. END_COMMAND
  1456.  
  1457. COMMAND GO DINGHY
  1458. AtLocation [On Beach]
  1459. GoToRoom [On Pirate Ship]
  1460. PrintMessage "You row your dinghy out to the pirate ship."
  1461. BlankLine
  1462. DoneWithTurn
  1463. END_COMMAND
  1464.  
  1465. ROOM [Graveyard]
  1466. Graveyard
  1467. NORTH [On Beach]
  1468. EAST [Barren Field]
  1469. END_ROOM
  1470.  
  1471. ROOM_DESCR [Graveyard]
  1472. You are in a spooky graveyard.  It is full of empty and broken rum bottles.
  1473. END_ROOM_DESCR
  1474.  
  1475. NOUN [Mouldy old bones]
  1476. bones
  1477. Mouldy
  1478. There are some mouldy old bones here.
  1479. LOCATION [NoWhere]
  1480. END_NOUN
  1481.  
  1482. NOUN_DESCR [Mouldy old bones]
  1483. The bones are bleached and white.
  1484. END_NOUN_DESCR
  1485.  
  1486. ROOM [Barren Field]
  1487. Barren Field
  1488. WEST [Graveyard]
  1489. NORTH [Monastery]
  1490. END_ROOM
  1491.  
  1492. ROOM_DESCR [Barren Field]
  1493. You are in a large barren field.  There is a graveyard to the west.
  1494. END_ROOM_DESCR
  1495.  
  1496. FLAG [Has walked off 30 paces]
  1497.  
  1498. COMMAND GO 30
  1499. AtLocation [Barren Field]
  1500. TurnFlagON [Has walked off 30 paces]
  1501. PrintMessage [You walk off 30 paces.]
  1502. DoneWithTurn
  1503. END_COMMAND
  1504.  
  1505. COMMAND GO 30
  1506. PrintMessage [You walk off 30 paces.]
  1507. DoneWithTurn
  1508. END_COMMAND
  1509.  
  1510. MESSAGE [You walk off 30 paces.]
  1511. You walk off 30 paces.
  1512. END_MESSAGE
  1513.  
  1514. NOUN [Wooden Box]
  1515. Box
  1516. Wooden
  1517. There is a small wooden box here.
  1518. LOCATION [NoWhere]
  1519. WEIGHT 20
  1520. SIZE 20
  1521. CLOSEABLE
  1522. CLOSED
  1523. NOUN_SYNONYMS LID
  1524. END_NOUN
  1525.  
  1526. NOUN_DESCR [Wooden Box]
  1527. The wooden box is about six inches square.  It has a lid on one end.
  1528. END_NOUN_DESCR
  1529.  
  1530. NOUN [Rare old priceless stamps]
  1531. stamps
  1532. priceless
  1533. There are some rare old priceless stamps here.
  1534. LOCATION [Wooden Box]
  1535. POINTS 50 (* one of two treasures in game *)
  1536. WEIGHT 10
  1537. SIZE 10
  1538. END_NOUN
  1539.  
  1540. NOUN_DESCR [Rare old priceless stamps]
  1541. The stamps are a very rare commemorative series of great adventurers.  You
  1542. see your own face smiling up on one of the priceless stamps.
  1543. END_NOUN_DESCR
  1544.  
  1545. COMMAND GO GRAVEYARD
  1546. AtLocation [Barren Field]
  1547. GoToRoom [Graveyard]
  1548. PrintMessage "You walk west to the graveyard."
  1549. BlankLine
  1550. DoneWithTurn
  1551. END_COMMAND
  1552.  
  1553. COMMAND GO MONASTERY
  1554. AtLocation [Barren Field]
  1555. GoToRoom [Monastery]
  1556. PrintMessage "You walk north to the monastery."
  1557. BlankLine
  1558. DoneWithTurn
  1559. END_COMMAND
  1560.  
  1561. NOUN [Noun Monastery]
  1562. Monastery
  1563. Monastery
  1564. And there is a Monastery to the north.
  1565. LOCATION [Barren Field]
  1566. END_NOUN
  1567.  
  1568. NOUN_DESCR [Noun Monastery]
  1569. The Monastery looks quite old.
  1570. END_NOUN_DESCR
  1571.  
  1572.  
  1573. ROOM [Shallow Lagoon]
  1574. Shallow Lagoon
  1575. NORTH [In Ocean]
  1576. SOUTH [Sandy Beach]
  1577. EAST [Sandy Beach]
  1578. WEST [Sandy Beach]
  1579. END_ROOM
  1580.  
  1581. ROOM_DESCR [Shallow Lagoon]
  1582. You are in a shallow lagoon.  There is beach to the south, east and west.
  1583. END_ROOM_DESCR
  1584.  
  1585. COMMAND GO BEACH
  1586. AtLocation [Shallow Lagoon]
  1587. GoToRoom [Sandy Beach]
  1588. PrintMessage "You walk back up to the beach."
  1589. BlankLine
  1590. DoneWithTurn
  1591. END_COMMAND
  1592.  
  1593. NOUN [The tide is coming in]
  1594. tide
  1595. The
  1596. The ocean is to the north.  The tide is coming in.
  1597. LOCATION [NoWhere]
  1598. NOUN_SYNONYMS OCEAN
  1599. UNMOVABLE
  1600. END_NOUN
  1601.  
  1602. NOUN_DESCR [The tide is coming in]
  1603. The tide is coming in.  The waves are quite large and are breaking against the
  1604. sand.
  1605. END_NOUN_DESCR
  1606.  
  1607. NOUN [The tide is out]
  1608. tide
  1609. The
  1610. The ocean is to the north.  The tide is out.
  1611. LOCATION [Shallow Lagoon]
  1612. NOUN_SYNONYMS OCEAN
  1613. UNMOVABLE
  1614. END_NOUN
  1615.  
  1616. NOUN_DESCR [The tide is out]
  1617. The tide is going out.  The water is quite shallow.
  1618. END_NOUN_DESCR
  1619.  
  1620. NOUN [Flotsam and jetsam]
  1621. Flotsam
  1622. Jetsam
  1623. There is a flotsam and jetsam here.
  1624. LOCATION [NoWhere]
  1625. NOUN_SYNONYMS JETSAM
  1626. END_NOUN
  1627.  
  1628. NOUN_DESCR [Flotsam and jetsam]
  1629. The flotsam and jetsam consist of broken sea shells, some seaweed, pieces of
  1630. wood, a smashed milk cartoon, i.e., it is just garbage and is of little
  1631. interest to a big-time adventurer like you.  Ignore it.
  1632. END_NOUN_DESCR
  1633.  
  1634. NOUN [Rusty anchor]
  1635. anchor
  1636. Rusty
  1637. There is a rusty anchor half-buried in the sand.
  1638. LOCATION [Shallow Lagoon]
  1639. UNMOVABLE
  1640. END_NOUN
  1641.  
  1642. NOUN_DESCR [Rusty anchor]
  1643. The anchor is quite rusty.  It is stuck in the sand.
  1644. END_NOUN_DESCR
  1645.  
  1646. NOUN [anchor]
  1647. anchor
  1648. Rusty
  1649. There is a rusty anchor here.
  1650. LOCATION [NoWhere]
  1651. WEIGHT 30
  1652. SIZE 30
  1653. END_NOUN
  1654.  
  1655. NOUN_DESCR [anchor]
  1656. The anchor is quite rusty and quite heavy.
  1657. END_NOUN_DESCR
  1658.  
  1659. ROOM [Monastery]
  1660. Monastery
  1661. SOUTH [Barren Field]
  1662. END_ROOM
  1663.  
  1664. ROOM_DESCR [Monastery]
  1665. You are in a sacked and deserted monastery.
  1666. END_ROOM_DESCR
  1667.  
  1668. NOUN [Deadly mamba snakes]
  1669. snakes
  1670. mamba
  1671. The ground is covered by deadly mamba snakes.  They are everywhere.
  1672. LOCATION [Monastery]
  1673. NOUN_SYNONYMS SNAKE
  1674. PLURAL
  1675. END_NOUN
  1676.  
  1677. NOUN_DESCR [Deadly mamba snakes]
  1678. The mamba snakes are all over this place.  They are very deadly.  One bite and
  1679. you are history!
  1680. END_NOUN_DESCR
  1681.  
  1682. NOUN [Doubloons]
  1683. Doubloons
  1684. Gold
  1685. There are a bunch of gold doubloons here.
  1686. LOCATION [Monastery]
  1687. PLURAL
  1688. POINTS 50 (* one of two treasures in the game *)
  1689. END_NOUN
  1690.  
  1691. NOUN_DESCR [Doubloons]
  1692. The gold doubloons must be worth a great deal of money.
  1693. END_NOUN_DESCR
  1694.  
  1695. ROOM [Never-Never land]
  1696. Never-Never land
  1697. END_ROOM
  1698.  
  1699. ROOM_DESCR [Never-Never land]
  1700.  
  1701. You are in Never-Never land.
  1702. END_ROOM_DESCR
  1703.  
  1704.  
  1705. FLAG [Question Flag]
  1706.  
  1707. NOUN [Dummy noun #1]
  1708. Graveyard
  1709. small
  1710. This is a dummy noun
  1711. LOCATION [NoWhere]
  1712. UNMOVABLE
  1713. END_NOUN
  1714.  
  1715. NOUN [Dummy noun #2]
  1716. cave
  1717. small
  1718. This is a dummy noun
  1719. LOCATION [NoWhere]
  1720. UNMOVABLE
  1721. END_NOUN
  1722.  
  1723. NOUN [Dummy noun #3]
  1724. pit
  1725. small
  1726. This is a dummy noun
  1727. LOCATION [NoWhere]
  1728. UNMOVABLE
  1729. END_NOUN
  1730.  
  1731. NOUN [Dummy noun #4]
  1732. hallway
  1733. small
  1734. This is a dummy noun
  1735. LOCATION [NoWhere]
  1736. UNMOVABLE
  1737. END_NOUN
  1738.  
  1739. FLAG [Start of Game]         Beginning of game flag
  1740. FLAG [bottle full]           Bottle has liquid in it if ON, is empty if OFF
  1741.  
  1742. ;AUTOMATIC COMMANDS
  1743. ;Set FLAGS based on game or room status
  1744.  
  1745. COMMAND ANY
  1746. FlagOFF [Start of Game] ;first turn of game only - initialize conditions
  1747. TurnFlagON [Start of Game]
  1748. TurnFlagON [bottle full]
  1749. END_COMMAND
  1750.  
  1751. (***************************************************)
  1752. (*  Automatic commands whenever player is swimming *)
  1753. (*  -- matches get soggy                           *)
  1754. (*  -- torch goes out                              *)
  1755. (***************************************************)
  1756.  
  1757. COMMAND ANY
  1758. AtLocation [In Ocean]
  1759. Present [Wooden matches]
  1760. SwapLocations [Wooden matches] [soggy matches]
  1761. END_COMMAND
  1762.  
  1763. COMMAND ANY
  1764. AtLocation [In Ocean]
  1765. Present [blazing torch] (* blazing torch *)
  1766. SwapLocations [blazing torch] [unlit torch]  (* swap with unlit torch *)
  1767. TurnCounterOFF [Number of turns torch has been lit]
  1768. END_COMMAND
  1769.  
  1770. FLAG [Has befriended parrot]
  1771.  
  1772. COUNTER [Number of turns torch has been lit]
  1773. COUNTER [Stumbling around in the dark]
  1774. #COMMENT Number of turns player has been stumbling around in the dark
  1775.  
  1776. (***************************************************)
  1777. (*  Automatic commands to control time torch is ON *)
  1778. (*   -- Torch starts to flicker at 25 turns        *)
  1779. (*   -- Torch goes off at 50 turns                 *)
  1780. (*   -- Player dies if he stumbles around in dark  *)
  1781. (*      for 5 turns                                *)
  1782. (***************************************************)
  1783.  
  1784. COMMAND ANY
  1785. Present [blazing torch]
  1786. CounterEquals [Number of turns torch has been lit] 25
  1787. PrintMessage [The light flickers and the torch grows weaker.]
  1788. RoomNeedsLight (* will be dark if no light *)
  1789. PrintMessage [You better find a way out of here pretty quick!]
  1790. END_COMMAND
  1791.  
  1792. COMMAND ANY
  1793. Present [blazing torch]
  1794. CounterGT [Number of turns torch has been lit] 25
  1795. CounterLT [Number of turns torch has been lit] 50
  1796. PrintMessage [The light flickers and the torch grows weaker.]
  1797. END_COMMAND
  1798.  
  1799. COMMAND ANY
  1800. Present [blazing torch]
  1801. CounterEquals [Number of turns torch has been lit] 50
  1802. PrintMessage [Sorry, but your torch light flickers and goes out.]
  1803. SwapLocations [blazing torch] [unlit torch]
  1804. Destroy [Wooden matches]
  1805. RoomNeedsLight (* will be dark if no light *)
  1806. TurnCounterON [Stumbling around in the dark]
  1807. LookAtRoom
  1808. END_COMMAND
  1809.  
  1810. COMMAND ANY
  1811. RoomNeedsLight (* will be dark if no light *)
  1812. NOT LightPresent (* no light in room *)
  1813. CounterEquals [Stumbling around in the dark] 0
  1814. PrintMessage [Stumbling around in the dark could be quite dangerous!]
  1815. TurnCounterON [Stumbling around in the dark]
  1816. END_COMMAND
  1817.  
  1818. COMMAND ANY
  1819. CounterGT [Stumbling around in the dark] 1
  1820. RoomNeedsLight (* will be dark if no light *)
  1821. NOT LightPresent (* no light in room *)
  1822. PrintMessage [Stumbling around in the dark could be quite dangerous!]
  1823. CounterEquals [Stumbling around in the dark] 5
  1824. GoToRoom [Never-Never land]
  1825. DoneWithTurn (* no further action -- get next input *)
  1826. END_COMMAND
  1827.  
  1828. COMMAND ANY
  1829. CounterGT [Stumbling around in the dark] 5
  1830. RoomNeedsLight (* will be dark if no light *)
  1831. NOT LightPresent (* no light in room *)
  1832. TurnCounterON [Stumbling around in the dark]
  1833. END_COMMAND
  1834.  
  1835. MESSAGE [The light flickers and the torch grows weaker.]
  1836. The light flickers and the torch grows weaker.
  1837. END_MESSAGE
  1838.  
  1839. MESSAGE [You better find a way out of here pretty quick!]
  1840. If I were you, I would find a way out of here pretty quick before the torch
  1841. goes out!  This would not be a fun place to be caught stumbling around in the
  1842. dark.
  1843. END_MESSAGE
  1844.  
  1845. MESSAGE [Sorry, but your torch light flickers and goes out.]
  1846. Sorry, but your torch light flickers for the last time and goes out.
  1847. END_MESSAGE
  1848.  
  1849. MESSAGE [Stumbling around in the dark could be quite dangerous!]
  1850. You are stumbling around in the dark -- which could be quite dangerous!  You
  1851. could easily break your neck.
  1852. END_MESSAGE
  1853.  
  1854.  
  1855. (***************************************************)
  1856. (*  Automatic commands to control meeting parrot     *)
  1857. (*  and have parrot follow player and speak          *)
  1858. (***************************************************)
  1859.  
  1860. FLAG [Has met parrot]
  1861.  
  1862. COMMAND ANY
  1863. Present [parrot]
  1864. FlagOFF [Has met parrot]
  1865. PrintMessage "The parrot squawks -- 'Polly wants a cracker!!'"
  1866. BlankLine
  1867. TurnFlagON [Has met parrot]
  1868. END_COMMAND
  1869.  
  1870. COMMAND ANY
  1871. IsSomewhere [parrot] (* parrot exists *)
  1872. FlagON [Has befriended parrot]
  1873. PutInCurrentRoom [parrot] (* put parrot in room *)
  1874. VerbIsDirection (* moving to another location *)
  1875. PrintMessage "The parrot flies along behind you."
  1876. BlankLine
  1877. END_COMMAND
  1878.  
  1879. COMMAND ANY
  1880. Chance 5
  1881. Present [parrot]
  1882. PrintMessage [The parrot sings - "Sixteen men on a dead man's chest..."]
  1883. BlankLine
  1884. END_COMMAND
  1885.  
  1886. MESSAGE [The parrot sings - "Sixteen men on a dead man's chest..."]
  1887. The parrot starts singing - "Sixteen men on a dead man's chest..."
  1888. END_MESSAGE
  1889.  
  1890. COMMAND ANY
  1891. Chance 35
  1892. Present [parrot]
  1893. IsLocated [Wooden matches] [Duffle bag]
  1894. PrintMessage [The parrot cries out - "check the bag!"]
  1895. BlankLine
  1896. END_COMMAND
  1897.  
  1898. MESSAGE [The parrot cries out - "check the bag!"]
  1899. The parrot cries out - "check the bag!"
  1900. END_MESSAGE
  1901.  
  1902. COMMAND ANY
  1903. Chance 10
  1904. Present [parrot]
  1905. IsLocated [Map] [treasure chest]
  1906. PrintMessage [The parrot cries out - "check the chest!"]
  1907. BlankLine
  1908. END_COMMAND
  1909.  
  1910. MESSAGE [The parrot cries out - "check the chest!"]
  1911. The parrot cries out - "check the chest!"
  1912. END_MESSAGE
  1913.  
  1914. FLAG [On Treasure Island]
  1915.  
  1916. COMMAND ANY
  1917. FlagOFF [On Treasure Island]
  1918. Chance 80
  1919. InRoom [rum bottle]
  1920. Present [Wicked-looking pirate]
  1921. Destroy [Wicked-looking pirate]
  1922. SendToRoom [Sleeping pirate] [Musty Attic]
  1923. SendToRoom [rum bottle] [Musty Attic]
  1924. PrintMessage [The pirate grabs the rum and scuttles off chortling]
  1925. DoneWithTurn
  1926. END_COMMAND
  1927.  
  1928. COMMAND ANY
  1929. FlagON [On Treasure Island]
  1930. Chance 80
  1931. InRoom [rum bottle]
  1932. Present [Wicked-looking pirate]
  1933. Destroy [Wicked-looking pirate]
  1934. SendToRoom [Sleeping pirate] [Graveyard]
  1935. SendToRoom [rum bottle] [Graveyard]
  1936. PrintMessage [The pirate grabs the rum and scuttles off chortling]
  1937. DoneWithTurn
  1938. END_COMMAND
  1939.  
  1940. COMMAND ANY
  1941. Chance 50
  1942. AtLocation [In Ocean]
  1943. DescribeThing [The tide is coming in]
  1944. BlankLine
  1945. NOT IsCarrying [Water wings]
  1946. PrintMessage [You drowned]
  1947. GoToRoom [Never-never land]
  1948. DoneWithTurn
  1949. END_COMMAND
  1950.  
  1951. COMMAND ANY
  1952. Chance 35
  1953. NOT Present [water bottle]
  1954. Present [mackerel]
  1955. Destroy [mackerel]
  1956. SendToRoom [fish] [In Ocean]
  1957. PrintMessage "The fish are too dry.  They died, and strangely enough, vanished!"
  1958. DoneWithTurn
  1959. END_COMMAND
  1960.  
  1961. COMMAND ANY
  1962. Chance 80
  1963. InRoom [mackerel]
  1964. Present [Mean and hungry looking crocodiles]
  1965. Destroy [mackerel]
  1966. Destroy [Mean and hungry looking crocodiles]
  1967. PrintMessage [The crocs eat the fish and leave]
  1968. DoneWithTurn
  1969. END_COMMAND
  1970.  
  1971. FLAG [Tide is changing]
  1972.  
  1973. COMMAND ANY
  1974. Chance 10
  1975. SwapLocations [The tide is coming in] [The tide is out]
  1976. TurnFlagON [Tide is changing]
  1977. END_COMMAND
  1978.  
  1979. COMMAND ANY
  1980. FlagON [Tide is changing]
  1981. IsNoWhere [anchor] (* Player has not dug up anchor yet *)
  1982. SwapLocations [Rusty anchor] [Flotsam and jetsam]
  1983. END_COMMAND
  1984.  
  1985. COMMAND ANY
  1986. FlagON [Tide is changing]
  1987. Present [Parrot]
  1988. PrintMessage [Parrot cries - "the tide is changing, matey."]
  1989. BlankLine
  1990. END_COMMAND
  1991.  
  1992. COMMAND ANY
  1993. FlagON [Tide is changing]
  1994. TurnFlagOFF [Tide is changing]
  1995. END_COMMAND
  1996.  
  1997. COMMAND ANY
  1998. Chance 50
  1999. AtLocation [Shallow Lagoon]
  2000. Present [The tide is coming in]
  2001. DescribeThing [The tide is coming in]
  2002. BlankLine
  2003. NOT IsCarrying [Water wings]
  2004. PrintMessage [You drowned]
  2005. GoToRoom [Never-never land]
  2006. DoneWithTurn
  2007. END_COMMAND
  2008.  
  2009. MESSAGE [You drowned]
  2010. You are suddenly underwater!  Then you remember that you can't swim!
  2011. ....blub...blub...blub....
  2012. END_MESSAGE
  2013. COMMAND ANY
  2014. Chance 3
  2015. InRoom [parrot]
  2016. PrintMessage [The parrot cries out - "pieces of eight."]
  2017. BlankLine
  2018. END_COMMAND
  2019.  
  2020. COMMAND ANY
  2021. Chance 80
  2022. InRoom [Mongoose]
  2023. Present [Deadly mamba snakes]
  2024. Destroy [Mongoose]
  2025. PrintMessage [The snakes bit the mongoose and run it off.]
  2026. BlankLine
  2027. END_COMMAND
  2028.  
  2029. MESSAGE [The snakes bit the mongoose and run it off.]
  2030. You are surprised to see the deadly mamba snakes bite the mongoose and drive
  2031. it off.
  2032. END_MESSAGE
  2033.  
  2034. COMMAND ANY
  2035. Chance 80
  2036. InRoom [parrot]
  2037. Present [Deadly mamba snakes]
  2038. Destroy [Deadly mamba snakes]
  2039. PrintMessage [The parrot cries out - "pieces of eight."]
  2040. BlankLine
  2041. PrintMessage [The parrot attacks the snakes]
  2042. DoneWithTurn
  2043. END_COMMAND
  2044.  
  2045. MESSAGE [The parrot cries out - "pieces of eight."]
  2046. The parrot cries out - "pieces of eight."
  2047. END_MESSAGE
  2048.  
  2049. MESSAGE [The parrot attacks the snakes]
  2050. The parrot attacks the deadly mamba snakes and drives them off.
  2051. END_MESSAGE
  2052.  
  2053. COMMAND ANY
  2054. AtLocation [Never-Never land]
  2055. PrintMessage "Nothing happened."
  2056. BlankLine
  2057. TurnFlagON [Question Flag]
  2058. AskQuestion [Another game (Yes or No)?]
  2059. AnswerIsCorrect (* Answered YES *)
  2060. GoToRoom [London Apartment]
  2061. TurnFlagOFF [Question Flag]
  2062. DoneWithTurn
  2063. END_COMMAND
  2064.  
  2065. COMMAND ANY
  2066. AtLocation [Never-Never land]
  2067. FlagON [Question Flag] (* Answered NO *)
  2068. EndGame
  2069. DoneWithTurn
  2070. END_COMMAND
  2071.  
  2072. #DEFINE [Another game (Yes or No)?]  1
  2073.  
  2074. QUESTION [Another game (Yes or No)?] Another game (Yes or No)?
  2075. ANSWER [Another game (Yes or No)?] YES
  2076.  
  2077. COMMAND SCORE
  2078. AtLocation [London Apartment]
  2079. Present [Doubloons]
  2080. Present [Rare old priceless stamps]
  2081. PrintMessage "You are a noble and brave adventurer!  You are also a winner!"
  2082. BlankLine
  2083. EndGame
  2084. DoneWithTurn
  2085. END_COMMAND
  2086.  
  2087. COMMAND SAY
  2088. PrintMessage "Use one word, i.e., $NOUN$ only."
  2089. DoneWithTurn
  2090. END_COMMAND
  2091.  
  2092. COMMAND AWAY ANY
  2093. PrintMessage "Sorry, wrong game!"
  2094. DoneWithTurn
  2095. END_COMMAND
  2096.  
  2097. COMMAND GET ANY
  2098. Present [Wicked-looking pirate]
  2099. PrintMessage [The pirate wont let you]
  2100. DoneWithTurn
  2101. END_COMMAND
  2102.  
  2103. COMMAND GET FLOTSAM
  2104. PrintMessage "Don't be silly!  Quit screwing around!"
  2105. DoneWithTurn
  2106. END_COMMAND
  2107.  
  2108. COMMAND GET SIGN
  2109. PrintMessage "A voice booms out -- LEAVE THE $NOUN$ ALONE, TURKEY!!"
  2110. DoneWithTurn
  2111. END_COMMAND
  2112.  
  2113. COMMAND GET RUG
  2114. Present [Rug in room]
  2115. PrintMessage "You can't get the rug without something to pry the nails up."
  2116. DoneWithTurn
  2117. END_COMMAND
  2118.  
  2119. COMMAND GET NAILS
  2120. FlagOFF [Has nails out of box lid]
  2121. Present [Wooden box]
  2122. NOT Present [Claw hammer]
  2123. PrintMessage "You don't have the necessary resources!"
  2124. DoneWithTurn
  2125. END_COMMAND
  2126.  
  2127. COMMAND GET NAILS
  2128. FlagOFF [Has nails out of box lid]
  2129. Present [Wooden box]
  2130. Present [Claw hammer]
  2131. PrintMessage [You pry out the nails on the box's lid.]
  2132. DropIT [Nails]
  2133. TurnFlagON [Has nails out of box lid]
  2134. DoneWithTurn
  2135. END_COMMAND
  2136.  
  2137. MESSAGE [You pry out the nails on the box's lid.]
  2138. You pry the nails out of the box's lid.
  2139. END_MESSAGE
  2140.  
  2141. COMMAND GET NAILS
  2142. Present [Rug in room]
  2143. NOT Present [Claw hammer]
  2144. PrintMessage "You can't get the nails without something to pry them up."
  2145. DoneWithTurn
  2146. END_COMMAND
  2147.  
  2148. COMMAND GET NAILS
  2149. Present [Rug in room]
  2150. Present [Claw hammer]
  2151. PrintMessage "You pry the nails up with the clay hammer."
  2152. GetIt [Nails]
  2153. SwapLocations [Rug] [Rug in room]
  2154. DoneWithTurn
  2155. END_COMMAND
  2156.  
  2157. COMMAND GET RUG
  2158. AtLocation [London Apartment]
  2159. Present [Rug]
  2160. PrintMessage "There is something under the rug."
  2161. GetIt [Rug]
  2162. PutInCurrentRoom [ring of keys]
  2163. DoneWithTurn
  2164. END_COMMAND
  2165.  
  2166. COMMAND GET SAND
  2167. PrintMessage [You play in the sand for a while.]
  2168. DoneWithTurn
  2169. END_COMMAND
  2170.  
  2171. COMMAND GET BOOK
  2172. AtLocation [Alcove]
  2173. Present [Large leather bound book]
  2174. NOT Present [secret passage]
  2175. PutInCurrentRoom [secret passage]
  2176. PrintMessage "The bookcase slides back to reveal a secret passage."
  2177. DoneWithTurn (* no further action -- get next input *)
  2178. END_COMMAND
  2179.  
  2180. COMMAND GET PARROT
  2181. Present [parrot]
  2182. NOT Present [Wicked-looking pirate]
  2183. PrintMessage "The parrot flies out of your grasp."
  2184. DoneWithTurn
  2185. END_COMMAND
  2186.  
  2187. COMMAND GET ANCHOR
  2188. Present [Rusty anchor]
  2189. Present [shovel]
  2190. GetIt [anchor]
  2191. Destroy [Rusty anchor]
  2192. PrintMessage [You manage to dig the anchor out of the sand.]
  2193. DoneWithTurn
  2194. END_COMMAND
  2195.  
  2196. COMMAND GET FISH
  2197. Present [fish]
  2198. Destroy [fish]
  2199. GetIT [mackerel]
  2200. PrintMessage "You manage to catch the fish with your bare hands."
  2201. DoneWithTurn
  2202. END_COMMAND
  2203.  
  2204. COMMAND GET DOUBLOONS
  2205. Present [Doubloons]
  2206. Present [Deadly mamba snakes]
  2207. PrintMessage [You get bit]
  2208. GoToRoom [Never-never land]
  2209. DoneWithTurn
  2210. END_COMMAND
  2211.  
  2212. MESSAGE [You get bit]
  2213. As your reach for the doubloons, the deadly mamba snakes bite you.  Too bad!
  2214. END_MESSAGE
  2215.  
  2216. COMMAND GET WATER
  2217. FlagON [bottle full]
  2218. PrintMessage [already full]
  2219. DoneWithTurn
  2220. END_COMMAND
  2221.  
  2222. MESSAGE [already full]
  2223. The bottle is already full.
  2224. END_MESSAGE
  2225.  
  2226. COMMAND GET WATER
  2227. NOT Present [empty bottle]
  2228. PrintMessage [nothing to put it in]
  2229. DoneWithTurn
  2230. END_COMMAND
  2231. MESSAGE [nothing to put it in]
  2232. You have nothing in which to carry it.
  2233. END_MESSAGE
  2234.  
  2235. COMMAND GET WATER
  2236. AtLocation [In Ocean]
  2237. PrintMessage [bottle now full of water]
  2238. SwapLocations [empty bottle] [water bottle]
  2239. TurnFlagON [bottle full]
  2240. DoneWithTurn
  2241. END_COMMAND
  2242.  
  2243. MESSAGE [bottle now full of water]
  2244. The bottle is now full of sea water.
  2245. END_MESSAGE
  2246.  
  2247. COMMAND GET WATER
  2248. Present [empty bottle]
  2249. PrintMessage [no liquid here]
  2250. DoneWithTurn
  2251. END_COMMAND
  2252.  
  2253. MESSAGE [no liquid here]
  2254. There is nothing here with which to fill the bottle.
  2255. END_MESSAGE
  2256.  
  2257. COMMAND WAKE PIRATE
  2258. Present [Sleeping pirate]
  2259. PrintMessage [The pirate says - 'Aye matey, we be casting off soon]
  2260. SendToRoom [Wicked-looking pirate] [On Pirate Ship]
  2261. DoneWithTurn
  2262. END_COMMAND
  2263.  
  2264. MESSAGE [The pirate says - 'Aye matey, we be casting off soon]
  2265. The pirate says - 'Aye matey, we be casting off soon."  He then runs away.
  2266. Just as he disappears out of sight, he cries out - 'Hurry, matey, the tide is
  2267. changing!"
  2268. END_MESSAGE
  2269.  
  2270. COMMAND PLAY SAND
  2271. PrintMessage [You play in the sand for a while.]
  2272. DoneWithTurn
  2273. END_COMMAND
  2274.  
  2275. MESSAGE [You play in the sand for a while.]
  2276. You play in the sand for a while.  But eventually you get bored and stop.
  2277. END_MESSAGE
  2278.  
  2279. COMMAND JUMP
  2280. AtLocation [Outside Window]
  2281. PrintMessage "Don't be silly!  That would be dangerous!"
  2282. DoneWithTurn
  2283. END_COMMAND
  2284.  
  2285. COMMAND JUMP
  2286. PrintMessage "Don't be silly!  Quit screwing around!"
  2287. DoneWithTurn
  2288. END_COMMAND
  2289.  
  2290. COMMAND YOHO
  2291. AtLocation [Outside Window]
  2292. IsCarrying [Large leather bound book]
  2293. IsWearing [Non-skid sneakers]
  2294. GoToRoom [Sandy Beach]
  2295. PrintMessage [Everything spins around and suddenly you are elsewhere...]
  2296. BlankLine
  2297. DoneWithTurn
  2298. END_COMMAND
  2299.  
  2300. COMMAND YOHO
  2301. AtLocation [Sandy Beach]
  2302. IsCarrying [Large leather bound book]
  2303. IsWearing [Non-skid sneakers]
  2304. GoToRoom [Outside Window]
  2305. PrintMessage [Everything spins around and suddenly you are elsewhere...]
  2306. BlankLine
  2307. DoneWithTurn
  2308. END_COMMAND
  2309.  
  2310. MESSAGE [Everything spins around and suddenly you are elsewhere...]
  2311. Everything spins around and suddenly you are elsewhere...
  2312. END_MESSAGE
  2313.  
  2314. COMMAND YOHO
  2315. PrintMessage "Don't be silly!  Quit screwing around!"
  2316. DoneWithTurn
  2317. END_COMMAND
  2318.  
  2319. COMMAND HELP
  2320. AtLocation [Sandy Beach]
  2321. OR
  2322. AtLocation [Outside Window]
  2323. PrintMessage [You may need magic here.]
  2324. DoneWithTurn
  2325. END_COMMAND
  2326.  
  2327. MESSAGE [You may need magic here.]
  2328. You may need magic here.
  2329. END_MESSAGE
  2330.  
  2331. COMMAND HELP
  2332. RoomNeedsLight (* will be dark if no light *)
  2333. NOT LightPresent (* no light in room *)
  2334. PrintMessage [You are in real trouble...]
  2335. DoneWithTurn (* no further action -- get next input *)
  2336. END_COMMAND
  2337.  
  2338. MESSAGE [You are in real trouble...]
  2339. It is pitch black in here and you can't see your hand in front of your face.
  2340. You are really in deep weeds!  Sorry, I can't help you.  You got yourself into
  2341. this mess, so you will just have to get yourself out of it!
  2342. END_MESSAGE
  2343.  
  2344. FLAG [Has built boat]
  2345.  
  2346. COMMAND BUILD BOAT
  2347. FlagOFF [Has built boat]
  2348. Present [Claw hammer]
  2349. Present [Small ship's keel and mast]
  2350. Present [Set of plans]
  2351. Present [anchor]
  2352. Present [Nails]
  2353. Present [Pile of sails]
  2354. Present [Precut lumber]
  2355. TurnFlagON [Has built boat]
  2356. END_COMMAND
  2357.  
  2358. COMMAND BUILD BOAT
  2359. FlagON [Has built boat] -- continuation of previous COMMAND
  2360. SendToRoom [pirate ship] [Shallow Lagoon]
  2361. PrintMessage [You build a boat]
  2362. BlankLine
  2363. PrintMessage [Congratulations!  But your adventure isn't over yet.]
  2364. Destroy [Small ship's keel and mast]
  2365. Destroy [anchor]
  2366. Destroy [Nails]
  2367. Destroy [Pile of sails]
  2368. Destroy [Precut lumber]
  2369. DoneWithTurn
  2370. END_COMMAND
  2371.  
  2372. MESSAGE [You build a boat]
  2373. You work like a fiend possessed with a lust for adventure and treasure.
  2374. As you drive the last nail, the ship disappears -- like magic!
  2375. END_MESSAGE
  2376.  
  2377. MESSAGE [Congratulations!  But your adventure isn't over yet.]
  2378. Congratulations!  But your adventure isn't over yet.
  2379. END_MESSAGE
  2380.  
  2381. COMMAND BUILD BOAT
  2382. NOT Present [Set of plans]
  2383. PrintMessage "You need to have some plans - or it will be a mess - not a boat."
  2384. DoneWithTurn
  2385. END_COMMAND
  2386.  
  2387. COMMAND BUILD BOAT
  2388. PrintMessage "Something is missing that you need to build a boat."
  2389. DoneWithTurn
  2390. END_COMMAND
  2391.  
  2392. COMMAND KILL PIRATE
  2393. Present [Wicked-looking pirate]
  2394. PrintMessage "'Don't even think about it - matey!'"
  2395. DoneWithTurn
  2396. END_COMMAND
  2397.  
  2398. COMMAND UNLOCK ANY
  2399. Present [Wicked-looking pirate]
  2400. PrintMessage [The pirate wont let you]
  2401. DoneWithTurn
  2402. END_COMMAND
  2403.  
  2404. COMMAND UNLOCK ANY
  2405. Present [Mean and hungry looking crocodiles]
  2406. PrintMessage [The crocodiles wont let you]
  2407. DoneWithTurn
  2408. END_COMMAND
  2409.  
  2410. MESSAGE [The pirate wont let you]
  2411. As your reach for the $noun$, the wicked-looking pirate snarls -- "leave
  2412. it alone, matey!"  You decide to follow his advise.
  2413. END_MESSAGE
  2414.  
  2415. COMMAND UNLOCK DOOR
  2416. AtLocation [In a Pit]
  2417. Present [Locked door #2]
  2418. NOT Present [Mean and hungry looking crocodiles]
  2419. Present [ring of keys]
  2420. SwapLocations [Locked door #2] [Open doorway with hallway beyond]
  2421. SwapLocations [Locked door] [Open doorway with pit beyond]
  2422. PrintMessage "You unlock the door and swing it open revealing a hallway beyond."
  2423. DoneWithTurn
  2424. END_COMMAND
  2425.  
  2426. COMMAND GIVE RUM TO PIRATE
  2427. FlagOFF [On Treasure Island]
  2428. Present [rum bottle]
  2429. Present [Wicked-looking pirate]
  2430. Destroy [Wicked-looking pirate]
  2431. SendToRoom [Sleeping pirate] [Musty Attic]
  2432. SendToRoom [rum bottle] [Musty Attic]
  2433. PrintMessage [The pirate grabs the rum and scuttles off chortling]
  2434. DoneWithTurn
  2435. END_COMMAND
  2436.  
  2437. COMMAND GIVE RUM TO PIRATE
  2438. FlagON [On Treasure Island]
  2439. Present [rum bottle]
  2440. Present [Wicked-looking pirate]
  2441. Destroy [Wicked-looking pirate]
  2442. SendToRoom [Sleeping pirate] [Graveyard]
  2443. SendToRoom [rum bottle] [Graveyard]
  2444. PrintMessage [The pirate grabs the rum and scuttles off chortling]
  2445. DoneWithTurn
  2446. END_COMMAND
  2447. MESSAGE [The pirate grabs the rum and scuttles off chortling]
  2448. The pirate grabs the rum and scuttles off chortling.
  2449. END_MESSAGE
  2450.  
  2451. COMMAND GIVE FISH TO CROCODILES
  2452. Present [mackerel]
  2453. Present [Mean and hungry looking crocodiles]
  2454. Destroy [mackerel]
  2455. Destroy [Mean and hungry looking crocodiles]
  2456. PrintMessage [The crocs eat the fish and leave]
  2457. DoneWithTurn
  2458. END_COMMAND
  2459.  
  2460. MESSAGE [The crocs eat the fish and leave]
  2461. The crocodiles eat the fish and leave.
  2462. END_MESSAGE
  2463.  
  2464. COMMAND GIVE CRACKERS TO PARROT
  2465. NOT Present [Wicked-Looking Pirate]
  2466. Present [parrot]
  2467. Present [Crackers]
  2468. Destroy [Crackers]
  2469. PrintMessage [The parrot eats crackers]
  2470. TurnFlagON [Has befriended parrot]
  2471. DoneWithTurn
  2472. END_COMMAND
  2473.  
  2474. MESSAGE [The Parrot eats crackers]
  2475. The parrot eats all the crackers and becomes your friend.
  2476. END_MESSAGE
  2477.  
  2478. COMMAND WEIGH ANCHOR
  2479. PrintMessage "About 60 pounds.  Try 'Set sail.'"
  2480. DoneWithTurn
  2481. END_COMMAND
  2482.  
  2483. COMMAND SAIL
  2484. PrintMessage "Try 'weigh anchor.'"
  2485. DoneWithTurn
  2486. END_COMMAND
  2487.  
  2488. COMMAND CAST
  2489. PrintMessage "Try 'weigh anchor.'"
  2490. DoneWithTurn
  2491. END_COMMAND
  2492.  
  2493. COMMAND SET SAIL
  2494. AtLocation [On Pirate Ship]
  2495. NOT Present [Wicked-looking pirate]
  2496. PrintMessage "You have no crew."
  2497. DoneWithTurn
  2498. END_COMMAND
  2499.  
  2500. COMMAND SET SAIL
  2501. AtLocation [On Pirate Ship]
  2502. NOT Present [map]
  2503. PrintMessage "The pirate says 'Aye matey we be needing a map first.'"
  2504. DoneWithTurn
  2505. END_COMMAND
  2506.  
  2507. COMMAND SET SAIL
  2508. AtLocation [On Pirate Ship]
  2509. Present [Wicked-looking pirate]
  2510. IsSomeWhere [The tide is out]
  2511. PrintMessage [The pirate says - ' Aye matey, we be waiting for the tide]
  2512. DoneWithTurn
  2513. END_COMMAND
  2514.  
  2515. MESSAGE [The pirate says - ' Aye matey, we be waiting for the tide]
  2516. The pirate says - ' Aye matey, we be waiting for the tide to come in.'
  2517. END_MESSAGE
  2518.  
  2519. #COMMENT -- Sail to 'Treasure Island'
  2520.  
  2521. COMMAND SET SAIL
  2522. FlagOFF [Has sailed to 'Treasure Island']
  2523. AtLocation [On Pirate Ship]
  2524. Present [Wicked-looking pirate]
  2525. IsSomeWhere [The tide is coming in]
  2526. TurnFlagON [Has sailed to 'Treasure Island']
  2527. PrintMessage [You sail off for a couple of days]
  2528. DoneWithTurn
  2529. END_COMMAND
  2530.  
  2531. #COMMENT -- Sail from 'Treasure Island' to original island
  2532.  
  2533. COMMAND SET SAIL
  2534. FlagON [Has sailed to 'Treasure Island']
  2535. AtLocation [On Pirate Ship]
  2536. Present [Wicked-looking pirate]
  2537. IsSomeWhere [The tide is coming in]
  2538. TurnFlagOFF [Has sailed to 'Treasure Island']
  2539. PrintMessage [You sail off for a couple of days]
  2540. DoneWithTurn
  2541. END_COMMAND
  2542.  
  2543. MESSAGE [You sail off for a couple of days]
  2544. You sail for a couple of days.  Finally, you anchor off-shore of a tiny
  2545. tropical island.
  2546. END_MESSAGE
  2547.  
  2548. COMMAND WAIT
  2549. SwapLocations [The tide is coming in] [The tide is out]
  2550. TurnFlagON [Tide is changing]
  2551. END_COMMAND
  2552.  
  2553. COMMAND WAIT
  2554. FlagON [Tide is changing]
  2555. IsNoWhere [anchor] (* Player has not dug up anchor yet *)
  2556. SwapLocations [Rusty anchor] [Flotsam and jetsam]
  2557. END_COMMAND
  2558.  
  2559. COMMAND WAIT
  2560. FlagON [Tide is changing]
  2561. Present [Parrot]
  2562. PrintMessage [Parrot cries - "the tide is changing, matey."]
  2563. END_COMMAND
  2564.  
  2565. MESSAGE [Parrot cries - "the tide is changing, matey."]
  2566. The parrot cries - 'The tide is changing, matey.'
  2567. END_MESSAGE
  2568.  
  2569. COMMAND WAIT
  2570. FlagON [Tide is changing]
  2571. TurnFlagOFF [Tide is changing]
  2572. DoneWithTurn
  2573. END_COMMAND
  2574.  
  2575. COMMAND DIG
  2576. Present [Shovel]
  2577. AtLocation [On Beach]
  2578. NOT Present [Rum bottle]
  2579. DropIt [Rum bottle]
  2580. PrintMessage "You dig up a bottle of rum."
  2581. DoneWithTurn
  2582. END_COMMAND
  2583.  
  2584. COMMAND DIG
  2585. Present [Shovel]
  2586. AtLocation [Graveyard]
  2587. DropIt [Mouldy old bones]
  2588. PrintMessage "You dig up a bunch of mouldy old bones.  Ugh!"
  2589. DoneWithTurn
  2590. END_COMMAND
  2591.  
  2592. COMMAND DIG
  2593. Present [Shovel]
  2594. AtLocation [Barren Field]
  2595. FlagON [Has walked off 30 paces]
  2596. DropIt [Wooden Box]
  2597. PrintMessage "You dig up a small wooden box."
  2598. DoneWithTurn
  2599. END_COMMAND
  2600.  
  2601. COMMAND DIG
  2602. Present [Rusty anchor]
  2603. Present [shovel]
  2604. GetIt [anchor]
  2605. Destroy [Rusty anchor]
  2606. PrintMessage [You manage to dig the anchor out of the sand.]
  2607. DoneWithTurn
  2608. END_COMMAND
  2609. MESSAGE [You manage to dig the anchor out of the sand.]
  2610. You manage to dig the anchor out of the sand.
  2611. END_MESSAGE
  2612.  
  2613. COMMAND DIG
  2614. Present [Shovel]
  2615. PrintMessage "You dig up a small hole, but don't find anything."
  2616. DoneWithTurn
  2617. END_COMMAND
  2618.  
  2619. COMMAND DIG
  2620. NOT Present [Shovel]
  2621. PrintMessage "You don't have the necessary resources!"
  2622. DoneWithTurn
  2623. END_COMMAND
  2624.  
  2625. COMMAND BURY
  2626. Present [Shovel]
  2627. PrintMessage "The ground is to hard and you give up."
  2628. DoneWithTurn
  2629. END_COMMAND
  2630.  
  2631. COMMAND BURY
  2632. NOT Present [Shovel]
  2633. PrintMessage "You don't have the necessary resources!"
  2634. DoneWithTurn
  2635. END_COMMAND
  2636.  
  2637. COMMAND PUT WATER IN BOTTLE
  2638. ReDirectTo GET WATER
  2639. END_COMMAND
  2640.  
  2641. COMMAND PUT RUM
  2642. ReDirectTo POUR RUM
  2643. END_COMMAND
  2644.  
  2645. COMMAND PUT WATER
  2646. ReDirectTo POUR WATER
  2647. END_COMMAND
  2648.  
  2649. COMMAND POUR WATER
  2650. Present [water bottle]
  2651. SwapLocations [water bottle] [empty bottle]
  2652. PrintMessage [bottle empty, ground wet]
  2653. PrintMessage [feet now wet]
  2654. TurnFlagOFF [bottle full]
  2655. DoneWithTurn
  2656. END_COMMAND
  2657.  
  2658. MESSAGE [feet now wet]
  2659. Your feet are now wet.
  2660. END_MESSAGE
  2661.  
  2662. COMMAND POUR RUM
  2663. Present [rum bottle]
  2664. SwapLocations [rum bottle] [empty bottle]
  2665. PrintMessage [bottle empty, ground wet]
  2666. PrintMessage [What a pity!]
  2667. TurnFlagOFF [bottle full]
  2668. DoneWithTurn
  2669. END_COMMAND
  2670.  
  2671. MESSAGE [What a pity!]
  2672. Your feet are now wet.  What a waste!  What a pity!
  2673. END_MESSAGE
  2674.  
  2675. COMMAND DRINK WATER
  2676. Present [water bottle]
  2677. PrintMessage [bottle now empty]
  2678. BlankLine
  2679. PrintMessage [Ugh! You die!]
  2680. SwapLocations [empty bottle] [water bottle]
  2681. TurnFlagOFF [bottle full]
  2682. GoToRoom [Never-never land]
  2683. DoneWithTurn
  2684. END_COMMAND
  2685.  
  2686. MESSAGE [Ugh! You die!]
  2687. Ugh!  The sea water is polluted and you eventually die from its effects!
  2688. END_MESSAGE
  2689.  
  2690. MESSAGE [bottle now empty]
  2691. The bottle is now empty.
  2692. END_MESSAGE
  2693.  
  2694. COMMAND DRINK RUM
  2695. Present [rum bottle]
  2696. PrintMessage [bottle now empty]
  2697. BlankLine
  2698. PrintMessage [Ugh!  This is real rot-gut!]
  2699. SwapLocations [empty bottle] [rum bottle]
  2700. TurnFlagOFF [bottle full]
  2701. DoneWithTurn
  2702. END_COMMAND
  2703.  
  2704. MESSAGE [Ugh!  This is real rot-gut!]
  2705. Ugh!  This stuff is real rot-gut!  However, it is really potent -- about 150
  2706. proof -- at least!  Boy-Oh-Boy do you feel good!  Hee hee...
  2707. END_MESSAGE
  2708.  
  2709. COMMAND DRINK ANY
  2710. PrintMessage [don't be ridiculous]
  2711. DoneWithTurn
  2712. END_COMMAND
  2713.  
  2714. COMMAND CLOSE BOTTLE
  2715. Present [rum bottle]
  2716. OR
  2717. Present [empty bottle]
  2718. OR
  2719. Present [water bottle]
  2720. PrintMessage "Ok.  It is now closed."
  2721. DoneWithTurn
  2722. END_COMMAND
  2723.  
  2724. COMMAND BREAK
  2725. PrintMessage "It is beyond your power to do that."
  2726. DoneWithTurn
  2727. END_COMMAND
  2728.  
  2729. COMMAND FILL BOTTLE
  2730. FlagON [bottle full]
  2731. PrintMessage [already full]
  2732. DoneWithTurn
  2733. END_COMMAND
  2734.  
  2735. COMMAND FILL BOTTLE
  2736. NOT Present [empty bottle]
  2737. PrintMessage [nothing to put it in]
  2738. DoneWithTurn
  2739. END_COMMAND
  2740.  
  2741. COMMAND FILL BOTTLE
  2742. AtLocation [In Ocean]
  2743. PrintMessage [bottle now full of water]
  2744. SwapLocations [empty bottle] [rum bottle]
  2745. TurnFlagON [bottle full]
  2746. DoneWithTurn
  2747. END_COMMAND
  2748.  
  2749. COMMAND FILL BOTTLE
  2750. PrintMessage [no liquid here]
  2751. DoneWithTurn
  2752. END_COMMAND
  2753.  
  2754. COMMAND FILL ANY
  2755. PrintMessage "You can't fill that."
  2756. DoneWithTurn
  2757. END_COMMAND
  2758.  
  2759. MESSAGE [bottle empty, ground wet]
  2760. Your bottle is empty and the ground is wet.
  2761. END_MESSAGE
  2762.  
  2763. MESSAGE [don't be ridiculous]
  2764. Don't be ridiculous!
  2765. END_MESSAGE
  2766.  
  2767.  
  2768.  
  2769. #COMMENT -- LIGHT
  2770.  
  2771. COMMAND LIGHT MATCHES
  2772. Present [Wooden matches] (* dry matches *)
  2773. PrintMessage "The match burns for a few minutes and then goes out."
  2774. DoneWithTurn (* no further action -- get next input *)
  2775. END_COMMAND
  2776.  
  2777. COMMAND LIGHT MATCHES
  2778. Present [soggy matches]
  2779. PrintMessage [Sorry, but you can't]
  2780. PrintMessage [Your matches are too wet]
  2781. DoneWithTurn (* no further action -- get next input *)
  2782. END_COMMAND
  2783.  
  2784. MESSAGE [Sorry, but you can't]
  2785. What a great idea!  You must have played this game before, but unfortunately
  2786. you can't do that now.  It is still a good idea and you may wish to try it
  2787. some other time.  But unfortunately, it is simple impossible now because --
  2788. END_MESSAGE
  2789.  
  2790. MESSAGE [Your matches are too wet]
  2791. your matches are too wet to light!
  2792. END_MESSAGE
  2793.  
  2794. COMMAND LIGHT TORCH
  2795. Present [unlit torch]
  2796. Present [Wooden matches]
  2797. SwapLocations [unlit torch] [blazing torch]
  2798. PrintMessage [OK...]
  2799. TurnCounterON [Number of turns torch has been lit]
  2800. DoneWithTurn (* no further action -- get next input *)
  2801. END_COMMAND
  2802.  
  2803. COMMAND LIGHT TORCH
  2804. Present [unlit torch]
  2805. Present [soggy matches]
  2806. PrintMessage [Sorry, but you can't]
  2807. PrintMessage [Your matches are too wet]
  2808. DoneWithTurn (* no further action -- get next input *)
  2809. END_COMMAND
  2810.  
  2811. COMMAND LIGHT TORCH
  2812. Present [unlit torch] (* torch *)
  2813. NOT Present [Wooden matches] (* dry matches *)
  2814. PrintMessage [Sorry, but you can't]
  2815. PrintMessage [You don't have resources]
  2816. DoneWithTurn (* no further action -- get next input *)
  2817. END_COMMAND
  2818.  
  2819. MESSAGE [You don't have resources]
  2820. you don't have the necessary resources to $verb$ the $noun$.
  2821. END_MESSAGE
  2822.  
  2823. MESSAGE [OK...]
  2824. OK... you $verb$ the $noun$.
  2825. END_MESSAGE
  2826.  
  2827. COMMAND EXTINGUISH TORCH
  2828. Present [blazing torch] (* blazing torch *)
  2829. PrintMessage [OK...]
  2830. SwapLocations [unlit torch] [blazing torch]
  2831. TurnCounterOFF [Number of turns torch has been lit]
  2832. DoneWithTurn (* no further action -- get next input *)
  2833. END_COMMAND
  2834.  
  2835. COMMAND OPEN ANY
  2836. Present [Mean and hungry looking crocodiles]
  2837. PrintMessage [The crocodiles wont let you]
  2838. DoneWithTurn
  2839. END_COMMAND
  2840.  
  2841. MESSAGE [The crocodiles wont let you]
  2842. As your reach for the $noun$, the crocks snap at your leg.  Since the
  2843. crocodiles look quite hungry, you decide that discretion is the better part
  2844. of valor.
  2845. END_MESSAGE
  2846.  
  2847. COMMAND OPEN ANY
  2848. Present [Wicked-looking pirate]
  2849. PrintMessage [The pirate wont let you]
  2850. DoneWithTurn
  2851. END_COMMAND
  2852.  
  2853. COMMAND OPEN BOOK
  2854. Present [Large leather bound book]
  2855. PrintMessage "You find a note - 'You be liking parrots.  They be smart matey.'"
  2856. DoneWithTurn
  2857. END_COMMAND
  2858.  
  2859. COMMAND OPEN BOTTLE
  2860. Present [rum bottle]
  2861. OR
  2862. Present [empty bottle]
  2863. OR
  2864. Present [water bottle]
  2865. PrintMessage "Ok.  It is now open."
  2866. DoneWithTurn
  2867. END_COMMAND
  2868.  
  2869. COMMAND OPEN BOOK
  2870. PrintMessage [OK...]
  2871. DoneWithTurn (* no further action -- get next input *)
  2872. END_COMMAND
  2873.  
  2874. FLAG [Has nails out of box lid]
  2875.  
  2876. COMMAND OPEN BOX
  2877. FlagOFF [Has nails out of box lid]
  2878. Present [Wooden box]
  2879. Present [Claw hammer]
  2880. PrintMessage [You pry out the nails on the box's lid.]
  2881. TurnFlagON [Has nails out of box lid]
  2882. DropIT [Nails]
  2883. DoneWithTurn
  2884. END_COMMAND
  2885.  
  2886. COMMAND OPEN BOX
  2887. FlagOFF [Has nails out of box lid]
  2888. Present [Wooden box]
  2889. NOT Present [Claw hammer]
  2890. PrintMessage "It is nailed shut!"
  2891. DoneWithTurn
  2892. END_COMMAND
  2893.  
  2894. COMMAND OPEN BOX
  2895. FlagON [Has nails out of box lid]
  2896. Present [Wooden box]
  2897. PrintMessage "You open the box by lifting the lid."
  2898. OpenIT [Wooden box]
  2899. DoneWithTurn
  2900. END_COMMAND
  2901.  
  2902. COMMAND TALK TO PARROT
  2903. Present [parrot]
  2904. PrintMessage [You chat with parrot]
  2905. DoneWithTurn (* no further action -- get next input *)
  2906. END_COMMAND
  2907.  
  2908. COMMAND ASK PARROT ABOUT ANY
  2909. Present [parrot]
  2910. PrintMessage [You chat with parrot]
  2911. DoneWithTurn (* no further action -- get next input *)
  2912. END_COMMAND
  2913.  
  2914. MESSAGE [You chat with parrot]
  2915. Talking to a parrot is rather strange --even for you! You must be desperate to
  2916. solve this adventure or have other kinds of problems.  The parrot seems somewhat
  2917. amused by your attempts at communication.  He stares at you and then responds
  2918. with a loud "Polly wants a cracker!"
  2919. END_MESSAGE
  2920.  
  2921. COMMAND KISS ANY
  2922. PrintMessage [Don't be silly!]
  2923. DoneWithTurn (* no further action -- get next input *)
  2924. END_COMMAND
  2925.  
  2926. MESSAGE [Don't be silly!]
  2927. Why on earth would your ever want to do that?  Don't you know that to
  2928. $verb$ the $noun$ would be extremely silly!
  2929. END_MESSAGE
  2930.  
  2931. COMMAND BREAK DOOR
  2932. PrintMessage [You charge at the door at full speed.]
  2933. DoneWithTurn (* no further action -- get next input *)
  2934. END_COMMAND
  2935.  
  2936. MESSAGE [You charge at the door at full speed.]
  2937. You charge at the door at full speed.  You hit it with your shoulder, bounce
  2938. off and land with a "thud" on the floor.  After rubbing the ache in your
  2939. shoulder, you stand up.  It is obvious that your body will break before the
  2940. door does!
  2941. END_MESSAGE
  2942.  
  2943.  
  2944.  
  2945.