home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / agt17.zip / CAVE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-05-02  |  64KB  |  3,195 lines
  1.  
  2. ;FLAGS, VARIABLES AND COUNTERS, ETC.
  3. ;Flag 0  Display CMD detail as it is being processed
  4. ;        enter DEBUG to toggle ON and OFF
  5. ;Flag 1  Bear is following if ON
  6. ;Flag 2  Bottle has liquid in it if ON, is empty if OFF
  7. ;Flag 3  Cave is closed if ON, open if OFF
  8. ;Flag 4  Troll has been paid off or frighten away if ON
  9. ;Flag 5  Lantern/Lamp is ON or OFF
  10. ;Flag 6  ON if it would be dark here if Lantern/Lamp is off
  11. ;Flag 7  ON if Lantern/Lamp has new set of batteries
  12. ;Flag 8  ON if crystal bridge currently exists
  13. ;Flag 9  NOT Using bare hands in attack if ON
  14. ;        also flag to indicate axe or knife is being thrown
  15. ;        also numerous temporary other uses
  16. ;Flag 10 Dwarf is in room if ON
  17. ;Flag 11 Pirate has stolen treasure if ON
  18. ;Flag 12 Hint about location of cave has been offered if ON
  19. ;Flag 13 Toggle flag for different responses to GET BIRD
  20. ;Flag 14 Toggle flag for different commands about SNAKE
  21. ;Flag 15 Has angered programmer if ON
  22. ;Flag 16 Programmer has given secret word if ON
  23. ;Flag 17 Cave is in process of closing if ON
  24. ;Flag 18 Pirate has made two appearances if ON
  25. ;Flag 19 Hint about moving in mazes has been offered if ON
  26. ;Variable 1 count of turns Lamp's batteries will last
  27. ;Variable 2 count of FEE FIE FOE FOO words
  28. ;Variable 3 countdown until cave closes & master game begins
  29.  
  30. ;TOGGLE DIAGNOSTIC MODE
  31.  
  32. COMMAND DEBUG
  33. ToggleFlag 0
  34. DoneWithTurn
  35. END_
  36.  
  37. ;AUTOMATIC COMMANDS
  38.  
  39. ;Set FLAGS based on game or room status
  40.  
  41. COMMAND ANY
  42. FlagOFF 7 ;first turn of game only - initialize conditions
  43. TurnFlagON 7 ;new batteries
  44. SetVariableTo 1 350 ;set of batteries last for 350 turns
  45. SetVariableTo 2 0 ;set FEE FIE FOE FOO count to 0
  46. TurnFlagON 2 ;bottle is now full
  47. END_
  48.  
  49. COMMAND ANY
  50. TurnFlagOFF 6
  51. RoomNeedsLight
  52. TurnFlagON 6 ;ON if room needs light, OFF otherwise
  53. END_
  54.  
  55. COMMAND ANY
  56. NOT Present 222 ;dwarf
  57. Destroy 222 ;causes dwarf not to get left in another room
  58. END_
  59.  
  60. COMMAND ANY
  61. TurnFlagOFF 10 ;Dwarf is not in room
  62. Present 202 ;lamp - dwarf can only be seen in light
  63. Present 221 ;dwarf blocking way
  64. OR
  65. Present 222 ;dwarf
  66. TurnFlagON 10 ;ON if dwarf in room, OFF otherwise
  67. END_
  68.  
  69. ;Commands to deal with lamp/light status and countdown
  70.  
  71. COMMAND ANY
  72. FlagON 5 ;lamp is ON
  73. SubtractFromVariable 1 1 ;countdown to zero when batteries are dead
  74. END_
  75.  
  76. COMMAND ANY
  77. FlagON 5 ;lamp is ON
  78. VariableEquals 1 26 ;batteries almost dead
  79. Present 202 ;lamp
  80. BlankLine
  81. PrintMessage 183 ;give hint about batteries
  82. BlankLine
  83. END_
  84.  
  85. COMMAND ANY
  86. FlagON 5 ;lamp is ON
  87. VariableLT 1 26 ;batteries almost dead
  88. VariableGT 1 0
  89. Present 202 ;lamp
  90. BlankLine
  91. PrintMessage 13 ;your lamp is growing weaker
  92. BlankLine
  93. END_
  94.  
  95. COMMAND ANY
  96. VariableEquals 1 0 ;countdown to zero when batteries are dead
  97. Present 202 ;lamp
  98. PrintMessage 184 ;your lamp has gone out
  99. TurnFlagOFF 5 ;Lamp is now OFF
  100. SwapLocations 202 201 ;swap for OFF lamp
  101. PrintMessage 185 ;no lamp - let's call it a day
  102. GoToRoom 121 ;Loser's area
  103. DoneWithTurn
  104. END_
  105.  
  106. COMMAND ANY
  107. FlagOFF 5 ;lamp is off
  108. FlagON 6 ;room needs light
  109. PrintMessage 16 ;now dark
  110. NOT AtLocation 11 ;XYZZY location
  111. NOT AtLocation 33 ;PLUGH location
  112. NOT AtLocation 31 ;TURBO location
  113. Chance 25
  114. PrintMessage 23 ;you fell into a pit
  115. GoToRoom 20 ;pit
  116. MinusScore 10 ;lose 10 points for dying
  117. SendToRoom 201 3 ;OFF lamp to building
  118. Destroy 202
  119. KillPlayer ;player is now dead
  120. DoneWithTurn
  121. END_
  122.  
  123. ;Commands to deal with random pirate activities
  124.  
  125. COMMAND ANY
  126. Chance 5
  127. AtLocationGT 15
  128. AtLocationLT 115 ;most of cave area
  129. PrintMessage 127 ;you hear a rustling noise behind you
  130. BlankLine
  131. FlagON 11 ;has stolen treasure already
  132. FlagOFF 18 ;hasn't made both appearances
  133. IsNowhere 259 ;pirate's chest
  134. PrintMessage 186 ;pirate goes to hide his chest
  135. SendToRoom 259 142 ;pirate's den
  136. TurnFlagON 18 ;pirate is now done
  137. END_
  138.  
  139. COMMAND ANY
  140. Chance 15
  141. FlagOFF 11 ;hasn't stolen treasure yet
  142. AtLocationGT 15
  143. AtLocationLT 115 ;most of cave area
  144. NOT atLocation 100 ;plover room
  145. NOT atLocation 101 ;soft room
  146. IsCarryingTreasure 5 ;carrying something worth more than 4 points
  147. PrintMessage 128 ;pirate steals your treasure
  148. TurnFlagON 11 ;has stolen it
  149. SendTreasuresToRoom 142 5 ;pirate's den
  150. END_
  151.  
  152. ;Commands to deal with random dwarf attacks on player
  153.  
  154. COMMAND ANY
  155. Chance 25
  156. IsNowhere 237 ;axe
  157. AtLocationGT 15
  158. AtLocationLT 115 ;most of cave area
  159. Present 202 ;lamp - dwarf can only be seen in light
  160. PrintMessage 3 ;Dwarf throws axe
  161. PutInCurrentRoom 237
  162. LookAtRoom
  163. DoneWithTurn
  164. END_
  165.  
  166. COMMAND ANY
  167. Chance 5
  168. FlagOFF 10 ;no dwarf currently in room
  169. AtLocationGT 15
  170. AtLocationLT 115 ;most of cave area
  171. NOT AtLocation 31 ;Programmer's Den
  172. Present 202 ;lamp - dwarf can only be seen in light
  173. PrintMessage 4 ;Dwarf is now in room
  174. PutInCurrentRoom 221 ;dwarf blocking way
  175. TurnFlagON 10 ;Dwarf is now here
  176. END_
  177.  
  178. COMMAND ANY
  179. Chance 5
  180. FlagOFF 10 ;no dwarf currently in room
  181. AtLocationGT 15
  182. AtLocationLT 115 ;most of cave area
  183. NOT AtLocation 31 ;Programmer's Den
  184. Present 202 ;lamp - dwarf can only be seen in light
  185. PrintMessage 4 ;Dwarf is now in room
  186. PutInCurrentRoom 222 ;dwarf
  187. TurnFlagON 10 ;Dwarf is now here
  188. END_
  189.  
  190. COMMAND ANY
  191. VerbIsDirection ;player trying to move out of room
  192. Present 221 ;dwarf blocking way
  193. Present 202 ;lamp - dwarf can only be seen in light
  194. PrintMessage 2 ;Dwarf blocks your way
  195. DoneWithTurn
  196. END_
  197.  
  198. COMMAND ANY
  199. FlagON 10 ;dwarf currently in room
  200. Chance 34
  201. Present 202 ;lamp - dwarf can only be seen in light
  202. TurnFlagON 9 ;a knife is being thrown
  203. PrintMessage 5 ;Dwarf throws knife
  204. Chance 60
  205. PrintMessage 6 ;knife misses by inches
  206. TurnFlagOFF 9 ;knife no longer being thrown
  207. END_
  208.  
  209. COMMAND ANY
  210. FlagON 9 ;knife was thrown
  211. IsWearing 275 ;magic cloak
  212. PrintMessage 9 ;knife bounces off cloak
  213. TurnFlagOFF 9 ;knife no longer being thrown
  214. END_
  215.  
  216. COMMAND ANY
  217. FlagON 9 ;knife was thrown AND not wearing cloak
  218. PrintMessage 7 ;knife gets you
  219. TurnFlagOFF 9 ;knife no longer being thrown
  220. MinusScore 10 ;lose 10 points for dying
  221. SendToRoom 201 3 ;OFF lamp to building
  222. Destroy 202
  223. KillPlayer
  224. DoneWithTurn
  225. END_
  226.  
  227. ;Commands to close cave
  228.  
  229. COMMAND ANY
  230. ScoreGT 271 ;got all but 1 treasure
  231. FlagOFF 3 ;cave still open
  232. FlagOFF 17 ;haven't starting to close yet
  233. SetVariableTo 3 31 ;30 turns until master game
  234. LockIt 203 ;grate
  235. CloseIt 203
  236. Destroy 200 ;keys
  237. SendToRoom 215 17 ;crystal bridge
  238. SendToRoom 287 27 ;other crystal bridge
  239. Destroy 216 ;phoney bridge
  240. Destroy 245 ;phoney troll
  241. Destroy 244 ;troll
  242. Destroy 243 ;bridge wreck
  243. END_
  244.  
  245. ;Continuation of previous command
  246. COMMAND ANY
  247. ScoreGT 271 ;got all but 1 treasure
  248. FlagOFF 3 ;cave still open
  249. FlagOFF 17 ;haven't starting to close yet
  250. TurnFlagON 17 ;now we have
  251. SendToRoom 241 117 ;troll bridge
  252. Destroy 246 ;bear
  253. Destroy 247 ;bear
  254. Destroy 248 ;bear
  255. PlusScore 20
  256. PrintMessage 129 ;Cave closing soon
  257. IsNowhere 272 ;chain
  258. SendToRoom 272 130 ;put it in Barren room
  259. END_
  260.  
  261. COMMAND ANY
  262. FlagON 17 ;closing
  263. SubtractFromVariable 3 1 ;subtract 1 from closing countdown
  264. VariableGT 3 0
  265. VariableLT 3 29
  266. BlankLine
  267. PrintMessage 17 ;Cave closes in #VAR3# turns
  268. BlankLine
  269. END_
  270.  
  271. COMMAND ANY
  272. FlagON 17 ;closing
  273. VariableEquals 3 0 ;countdown has reached zero
  274. SendTreasuresToRoom 3 5 ;send carried treasures to Treasure room
  275. SendAllToRoom 0 ;destroy all other carried items
  276. SetVariableTo 1 50 ;lamp will be one for 50 turns
  277. BlankLine
  278. PrintMessage 132 ;Cave is now closed
  279. BlankLine
  280. END_
  281.  
  282. ;Continuation of previous command
  283. COMMAND ANY
  284. FlagON 17 ;closing
  285. VariableEquals 3 0 ;countdown has reached zero
  286. SendToRoom 226 115 ;empty bottle
  287. SendToRoom 229 115 ;tiny plant
  288. SendToRoom 219 115 ;oyster
  289. SendToRoom 202 115 ;lamp - ON
  290. SendToRoom 205 115 ;black rod
  291. SendToRoom 228 115 ;mirror
  292. END_
  293.  
  294. ;Continuation of previous command
  295. COMMAND ANY
  296. FlagON 17 ;closing
  297. VariableEquals 3 0 ;countdown has reached zero
  298. SendToRoom 203 116 ;locked grate
  299. SendToRoom 214 116 ;snake
  300. SendToRoom 213 116 ;pillow
  301. SendToRoom 210 116 ;bird in cage
  302. SendToRoom 206 116 ;red rod
  303. END_
  304.  
  305. ;Continuation of previous command
  306. COMMAND ANY
  307. FlagON 17 ;closing
  308. VariableEquals 3 0 ;countdown has reached zero
  309. TurnFlagON 3 ;Cave is now closed
  310. TurnFlagOFF 17
  311. RemoveEverything
  312. GoToRoom 115
  313. PlusScore 10
  314. DoneWithTurn
  315. END_
  316.  
  317. ;Commands to deal with other random activities
  318.  
  319. COMMAND ANY
  320. FlagON 1 ;bear following
  321. PutInCurrentRoom 248 ;contented bear
  322. END_
  323.  
  324. COMMAND ANY
  325. AtLocation 33 ;Y2 room
  326. Chance 25
  327. PrintMessage 8 ;you hear a voice say "PLUGH"
  328. END_
  329.  
  330. COMMAND ANY
  331. AtLocation 33 ;Y2 room
  332. Chance 15
  333. PrintMessage 139 ;you hear a voice say "PLOVER"
  334. END_
  335.  
  336. COMMAND ANY
  337. NOT atLocation 117 ;one side of troll bridge
  338. NOT atLocation 122 ;other side
  339. Destroy 244 ;troll
  340. Destroy 245 ;phoney troll
  341. TurnFlagOFF 4 ;troll can now appear when you try to cross bridge
  342. END_
  343.  
  344. COMMAND ANY
  345. NOT atLocation 17 ;one side
  346. NOT atLocation 27 ;other side
  347. Destroy 216 ;phoney bridge
  348. END_
  349.  
  350. ;Commands to offer and give HINTS
  351.  
  352. COMMAND ANY
  353. FlagOFF 12 ;hint has not been offered yet
  354. AtLocation 5 ;forest
  355. OR
  356. AtLocation 6 ;forest
  357. TurnFlagON 12 ;now it has
  358. PrintMessage 62 ;are you trying to get in cave?
  359. PromptForYes
  360. PrintMessage 175 ;Do you want a hint?
  361. PromptForYes
  362. TurnFlagON 9 ;hint has been rejected - so far
  363. PrintMessage 143 ;The hint will cost your 5 points
  364. PrintMessage 1 ;Is that OK?
  365. PromptForYes
  366. TurnFlagOFF 9 ;hint has been accepted
  367. PrintMessage 57 ;Follow the stream
  368. MinusScore 5
  369. DoneWithTurn
  370. END_
  371.  
  372. ;Direction commands
  373.  
  374. ;BEAR related
  375.  
  376. COMMAND ANY
  377. VerbIsDirection
  378. FlagON 1 ;contented bear
  379. PrintMessage 141 ;you are being followed by the bear
  380. END_
  381.  
  382. ;CLAM/OYSTER related
  383.  
  384. COMMAND ANY
  385. VerbIsDirection
  386. IsCarrying 218 ;clam
  387. FlagOFF 3 ;cave is open
  388. PrintMessage 118 ;clam won't fit through passage
  389. DoneWithTurn
  390. END_
  391.  
  392. COMMAND ANY
  393. VerbIsDirection
  394. IsCarrying 219 ;oyster
  395. FlagOFF 3 ;cave is open
  396. PrintMessage 119 ;oyster won't fit through passage
  397. DoneWithTurn
  398. END_
  399.  
  400. ;DRAGON related
  401.  
  402. COMMAND ANY
  403. InRoom 239 ;dragon
  404. VerbIsDirection
  405. PrintMessage 153 ;Dragon won't let you
  406. DoneWithTurn
  407. END_
  408.  
  409. ;Witt's End related
  410.  
  411. COMMAND ANY
  412. AtLocation 108 ;Witt's End
  413. VerbIsDirection
  414. PrintMessage 126 ;back where you started
  415. END_
  416.  
  417. COMMAND EAST
  418. AtLocation 108 ;Witt's End
  419. Chance 20
  420. PrintMessage 151 ;You find your way out
  421. GoToRoom 106 ;Anti-Room
  422. DoneWithTurn
  423. END_
  424.  
  425. ;Bedquilt related
  426.  
  427. COMMAND NORTH
  428. AtLocation 65 ;Bedquilt
  429. Chance 33
  430. GoToRoom 70
  431. DoneWithTurn
  432. END_
  433.  
  434. COMMAND NORTH
  435. AtLocation 65 ;Bedquilt
  436. Chance 50
  437. GoToRoom 71
  438. DoneWithTurn
  439. END_
  440.  
  441. COMMAND NORTH
  442. AtLocation 65 ;Bedquilt
  443. GoToRoom 72
  444. DoneWithTurn
  445. END_
  446.  
  447. COMMAND UP
  448. AtLocation 65 ;Bedquilt
  449. PrintMessage 126 ;back where you started
  450. DoneWithTurn
  451. END_
  452.  
  453. ;NUGGET related
  454.  
  455. COMMAND UP
  456. AtLocation 15 ;hall of Mists
  457. IsCarrying 254 ;nugget
  458. PrintMessage 25 ;You can't be serious
  459. PrintMessage 201 ;The dome is unclimbable
  460. DoneWithTurn
  461. END_
  462.  
  463. ;CRYSTAL BRIDGE related
  464.  
  465. COMMAND WEST
  466. AtLocation 17 ;East side of fissure
  467. NOT InRoom 215 ;crystal bridge
  468. PrintMessage 97 ;No way across the fissure
  469. DoneWithTurn
  470. END_
  471.  
  472. COMMAND EAST
  473. AtLocation 27 ;West side of fissure
  474. NOT InRoom 287 ;crystal bridge
  475. PrintMessage 97 ;No way across the fissure
  476. DoneWithTurn
  477. END_
  478.  
  479. ;SNAKE related
  480.  
  481. COMMAND NORTH
  482. InRoom 214 ;snake
  483. PrintMessage 20 ;That's unsafe
  484. DoneWithTurn
  485. END_
  486.  
  487. COMMAND WEST
  488. InRoom 214 ;snake
  489. PrintMessage 20 ;That's unsafe
  490. DoneWithTurn
  491. END_
  492.  
  493. COMMAND SOUTH
  494. InRoom 214 ;snake
  495. PrintMessage 20 ;That's unsafe
  496. DoneWithTurn
  497. END_
  498.  
  499. COMMAND DOWN
  500. InRoom 214 ;snake
  501. PrintMessage 20 ;That's unsafe
  502. DoneWithTurn
  503. END_
  504.  
  505. ;PLANT related
  506.  
  507. COMMAND DOWN
  508. InRoom 233 ;gigantic beanstalk
  509. PrintMessage 51 ;You climb down
  510. GoToRoom 25 ;west pit
  511. DoneWithTurn
  512. END_
  513.  
  514. ;GRATE related
  515.  
  516. COMMAND DOWN
  517. AtLocation 8 ;above grate
  518. IsOpen 203 ;grate
  519. GoToRoom 9
  520. DoneWithTurn
  521. END_
  522.  
  523. COMMAND ENTER
  524. AtLocation 8 ;above grate
  525. IsOpen 203 ;grate
  526. GoToRoom 9
  527. DoneWithTurn
  528. END_
  529.  
  530. COMMAND UP
  531. AtLocation 9 ;below grate
  532. IsOpen 203 ;grate
  533. GoToRoom 8
  534. DoneWithTurn
  535. END_
  536.  
  537. COMMAND UP
  538. AtLocation 9 ;below grate
  539. IsClosed 203 ;grate
  540. PrintMessage 130 ;This exit is closed
  541. DoneWithTurn
  542. END_
  543.  
  544. ;Programmer's Den related
  545.  
  546. COMMAND SOUTH
  547. AtLocation 31 ;programmer's den
  548. FlagOFF 15 ;programmer is not angry
  549. FlagOFF 16 ;programmer has not given his secret word
  550. TurnFlagON 16 ;give secret word
  551. PrintMessage 212
  552. DoneWithTurn
  553. END_
  554.  
  555. ;DOOR related
  556.  
  557. COMMAND NORTH
  558. InRoom 211 ;closed rusty door
  559. PrintMessage 111 ;It refuses to open
  560. PrintMessage 113 ;hinges are too rusty
  561. DoneWithTurn
  562. END_
  563.  
  564. ;TROLL related
  565.  
  566. COMMAND NORTHEAST
  567. FlagOFF 17 ;Cave still open
  568. AtLocation 117 ;one side of troll bridge
  569. InRoom 241 ;troll bridge
  570. FlagOFF 4 ;troll can now appear when you try to cross bridge
  571. NOT InRoom 244 ;troll
  572. PutInCurrentRoom 244
  573. PrintMessage 10 ;Troll appears
  574. DoneWithTurn
  575. END_
  576.  
  577. COMMAND NORTHEAST
  578. FlagOFF 17 ;Cave still open
  579. AtLocation 117 ;one side of troll bridge
  580. InRoom 241 ;troll bridge
  581. InRoom 244 ;troll
  582. PrintMessage 160 ;Troll refuses to let you cross
  583. DoneWithTurn
  584. END_
  585.  
  586. COMMAND NORTHEAST
  587. FlagOFF 17 ;Cave still open
  588. AtLocation 117 ;one side of troll bridge
  589. InRoom 243 ;wreckage of bridge
  590. PrintMessage 161 ;no longer any way to cross
  591. DoneWithTurn
  592. END_
  593.  
  594. COMMAND NORTHEAST
  595. FlagOFF 17 ;Cave still open
  596. Present 245 ;phony troll
  597. AtLocation 117 ;one side of troll bridge
  598. GoToRoom 122 ;other side
  599. PutInCurrentRoom 245 ;phony troll
  600. PutInCurrentRoom 241 ;troll bridge
  601. PrintMessage 53 ;You cross
  602. DoneWithTurn
  603. END_
  604.  
  605. COMMAND SOUTHWEST
  606. FlagOFF 17 ;Cave still open
  607. Present 245 ;phony troll
  608. AtLocation 122 ;one side of troll bridge
  609. GoToRoom 117 ;other side
  610. PutInCurrentRoom 245 ;phony troll
  611. PutInCurrentRoom 241 ;troll bridge
  612. PrintMessage 53 ;You cross
  613. DoneWithTurn
  614. END_
  615.  
  616. COMMAND SOUTHWEST
  617. FlagOFF 17 ;Cave still open
  618. AtLocation 122 ;one side of troll bridge
  619. InRoom 241 ;troll bridge
  620. NOT InRoom 244 ;troll
  621. FlagOFF 4 ;troll can now appear when you try to cross bridge
  622. PutInCurrentRoom 244
  623. PrintMessage 10 ;Troll appears
  624. DoneWithTurn
  625. END_
  626.  
  627. COMMAND SOUTHWEST
  628. FlagOFF 17 ;Cave still open
  629. AtLocation 122 ;one side of troll bridge
  630. InRoom 241 ;troll bridge
  631. InRoom 244 ;troll
  632. PrintMessage 160 ;Troll refuses to let you cross
  633. DoneWithTurn
  634. END_
  635.  
  636. COMMAND SOUTHWEST
  637. InRoom 241 ;troll bridge
  638. FlagON 1 ;bear is following you
  639. PrintMessage 162 ;bridge buckles under weight of bear
  640. Destroy 241 ;troll bridge
  641. Destroy 244 ;troll
  642. Destroy 245 ;phony troll
  643. Destroy 248 ;bear
  644. TurnFlagOFF 1 ;bear no longer following you
  645. SendToRoom 243 117 ;bridge wreckage
  646. GoToRoom 20 ;pit
  647. MinusScore 10
  648. SendToRoom 201 3 ;OFF lamp to building
  649. Destroy 202
  650. KillPlayer
  651. DoneWithTurn
  652. END_
  653.  
  654. ;Plover Room related
  655.  
  656. COMMAND WEST
  657. AtLocation 100 ;Plover
  658. IsCarrying 266 ;emerald
  659. LoadWeightEquals 13 ;only carrying emerald
  660. PrintMessage 60 ;You squeeze into next room
  661. GoToRoom 99 ;alcove
  662. DoneWithTurn
  663. END_
  664.  
  665. COMMAND WEST
  666. AtLocation 100 ;Plover
  667. IsCarryingNothing
  668. GoToRoom 99 ;alcove
  669. PrintMessage 60 ;You squeeze into next room
  670. DoneWithTurn
  671. END_
  672.  
  673. COMMAND WEST
  674. AtLocation 100 ;Plover
  675. IsCarryingSomething
  676. PrintMessage 117 ;Something you are carrying won't fit
  677. DoneWithTurn
  678. END_
  679.  
  680. COMMAND EAST
  681. AtLocation 99 ;alcove
  682. IsCarryingNothing
  683. GoToRoom 100 ;plover
  684. PrintMessage 60 ;You squeeze into next room
  685. DoneWithTurn
  686. END_
  687.  
  688. COMMAND EAST
  689. AtLocation 99 ;alcove
  690. IsCarryingSomething
  691. PrintMessage 117 ;Something you are carrying won't fit
  692. DoneWithTurn
  693. END_
  694.  
  695. ;MAGIC words
  696.  
  697. ;TURBO
  698.  
  699. COMMAND TURBO
  700. FlagOFF 17 ;cave open
  701. FlagON 16 ;programmer has given secret word
  702. FlagOFF 15 ;programmer not angry
  703. AtLocation 31 ;programmer's den
  704. PrintMessage 61 ;transported to...
  705. GoToRoom 3 ;Inside Building
  706. DoneWithTurn
  707. END_
  708.  
  709. COMMAND TURBO
  710. FlagOFF 17 ;cave open
  711. FlagON 16 ;programmer has given secret word
  712. FlagOFF 15 ;programmer not angry
  713. AtLocation 3 ;in building
  714. GoToRoom 31 ;programmer's den
  715. PrintMessage 61 ;transported to...
  716. DoneWithTurn
  717. END_
  718.  
  719. COMMAND TURBO
  720. FlagON 15 ;programmer is angry
  721. PrintMessage 214 ;word has been revoked
  722. DoneWithTurn
  723. END_
  724.  
  725. COMMAND TURBO
  726. PrintMessage 12 ;word doesn't work here
  727. DoneWithTurn
  728. END_
  729.  
  730. ;XYZZY
  731.  
  732. COMMAND XYZZY
  733. FlagOFF 17 ;cave open
  734. AtLocation 11 ;XYZZY area
  735. PrintMessage 61 ;transported to...
  736. GoToRoom 3 ;Inside Building
  737. DoneWithTurn
  738. END_
  739.  
  740. COMMAND XYZZY
  741. FlagOFF 17 ;cave open
  742. AtLocation 3 ;in building
  743. PrintMessage 61 ;transported to...
  744. GoToRoom 11 ;XYZZY area
  745. DoneWithTurn
  746. END_
  747.  
  748. COMMAND XYZZY
  749. PrintMessage 12 ;word doesn't work here
  750. DoneWithTurn
  751. END_
  752.  
  753. ;PLUGH
  754.  
  755. COMMAND PLUGH
  756. FlagOFF 17 ;cave open
  757. FlagOFF 15 ;programmer not angry
  758. AtLocation 33 ;Y2 room
  759. PrintMessage 61 ;transported to...
  760. GoToRoom 3 ;Inside Building
  761. DoneWithTurn
  762. END_
  763.  
  764. COMMAND PLUGH
  765. FlagOFF 17 ;cave open
  766. FlagOFF 15 ;programmer not angry
  767. AtLocation 3 ;in building
  768. PrintMessage 61 ;transported to...
  769. GoToRoom 33 ;Y2
  770. DoneWithTurn
  771. END_
  772.  
  773. COMMAND PLUGH
  774. FlagON 15 ;programmer is angry
  775. PrintMessage 214 ;word has been revoked
  776. DoneWithTurn
  777. END_
  778.  
  779. COMMAND PLUGH
  780. PrintMessage 12 ;word doesn't work here
  781. DoneWithTurn
  782. END_
  783.  
  784. ;PLOVER/BUILDING
  785.  
  786. COMMAND PLOVER
  787. FlagOFF 17 ;cave open
  788. AtLocation 100 ;Plover
  789. NOT IsCarrying 266 ;emerald
  790. PrintMessage 61 ;transported to...
  791. GoToRoom 33 ;Y2
  792. DoneWithTurn
  793. END_
  794.  
  795. COMMAND PLOVER
  796. FlagOFF 17 ;cave open
  797. AtLocation 100 ;Plover
  798. IsCarrying 266 ;emerald
  799. DropIt 266
  800. PrintMessage 61 ;transported to...
  801. GoToRoom 33 ;Y2
  802. DoneWithTurn
  803. END_
  804.  
  805. COMMAND PLOVER
  806. FlagOFF 17 ;cave open
  807. AtLocation 33 ;Y2
  808. PrintMessage 61 ;transported to...
  809. GoToRoom 100 ;Plover room
  810. DoneWithTurn
  811. END_
  812.  
  813. COMMAND PLOVER
  814. AtLocation 101
  815. OR
  816. AtLocation 99
  817. GoToRoom 100 ;Plover room
  818. DoneWithTurn
  819. END_
  820.  
  821. COMMAND BUILDING
  822. AtLocation 2
  823. OR
  824. AtLocation 4
  825. OR
  826. AtLocation 7
  827. OR
  828. AtLocation 85
  829. PrintMessage 188
  830. GoToRoom 141 ;In front of building
  831. DoneWithTurn
  832. END_
  833.  
  834. COMMAND PLOVER
  835. PrintMessage 12 ;word doesn't work here
  836. DoneWithTurn
  837. END_
  838.  
  839. ;FOREST
  840.  
  841. COMMAND FOREST
  842. AtLocation 2
  843. OR
  844. AtLocation 4
  845. OR
  846. AtLocation 7
  847. OR
  848. AtLocation 8
  849. OR
  850. AtLocation 5
  851. OR
  852. AtLocation 141
  853. PrintMessage 188
  854. GoToRoom 6 ;forest
  855. DoneWithTurn
  856. END_
  857.  
  858. COMMAND FOREST
  859. PrintMessage 12 ;word doesn't work here
  860. DoneWithTurn
  861. END_
  862.  
  863. ;SLAB/STREAMBED/SLIT
  864.  
  865. COMMAND SLAB
  866. AtLocation 23
  867. OR
  868. AtLocation 65
  869. OR
  870. AtLocation 69
  871. OR
  872. AtLocation 64
  873. PrintMessage 188
  874. GoToRoom 68 ;SLAB
  875. DoneWithTurn
  876. END_
  877.  
  878. COMMAND STREAMBED
  879. AtLocation 2
  880. OR
  881. AtLocation 4
  882. OR
  883. AtLocation 141
  884. OR
  885. AtLocation 8
  886. OR
  887. AtLocation 5
  888. PrintMessage 188
  889. GoToRoom 7 ;STREAMBED or SLIT
  890. DoneWithTurn
  891. END_
  892.  
  893. COMMAND SLAB
  894. PrintMessage 12 ;word doesn't work here
  895. DoneWithTurn
  896. END_
  897.  
  898. ;BEDQUILT/HILL
  899.  
  900. COMMAND BEDQUILT
  901. AtLocation 33
  902. OR
  903. AtLocation 36
  904. OR
  905. AtLocation 39
  906. OR
  907. AtLocation 64
  908. OR
  909. AtLocation 72
  910. PrintMessage 188
  911. GoToRoom 65 ;BEDQUILT
  912. DoneWithTurn
  913. END_
  914.  
  915. COMMAND HILL
  916. AtLocation 7
  917. OR
  918. AtLocation 4
  919. OR
  920. AtLocation 141
  921. OR
  922. AtLocation 8
  923. PrintMessage 188
  924. GoToRoom 2 ;HILL
  925. DoneWithTurn
  926. END_
  927.  
  928. COMMAND BEDQUILT
  929. PrintMessage 12 ;word doesn't work here
  930. DoneWithTurn
  931. END_
  932.  
  933. ;ORIENTAL/VALLEY
  934.  
  935. COMMAND ORIENTAL
  936. AtLocation 66
  937. OR
  938. AtLocation 72
  939. OR
  940. AtLocation 98
  941. PrintMessage 188
  942. GoToRoom 97 ;ORIENTAL
  943. DoneWithTurn
  944. END_
  945.  
  946. COMMAND VALLEY
  947. AtLocation 2
  948. OR
  949. AtLocation 141
  950. OR
  951. AtLocation 8
  952. OR
  953. AtLocation 7
  954. PrintMessage 188
  955. GoToRoom 4 ;VALLEY
  956. DoneWithTurn
  957. END_
  958.  
  959. COMMAND ORIENTAL
  960. PrintMessage 12 ;word doesn't work here
  961. DoneWithTurn
  962. END_
  963.  
  964. ;GIANT/BARREN
  965.  
  966. COMMAND GIANT
  967. AtLocation 88
  968. OR
  969. AtLocation 93
  970. OR
  971. AtLocation 94
  972. OR
  973. AtLocation 95
  974. PrintMessage 188
  975. GoToRoom 92 ;GIANT
  976. DoneWithTurn
  977. END_
  978.  
  979. COMMAND BARREN
  980. AtLocation 122
  981. OR
  982. AtLocation 123
  983. OR
  984. AtLocation 124
  985. OR
  986. AtLocation 128
  987. OR
  988. AtLocation 129
  989. PrintMessage 188
  990. GoToRoom 130 ;BARREN
  991. DoneWithTurn
  992. END_
  993.  
  994. COMMAND GIANT
  995. PrintMessage 12 ;word doesn't work here
  996. DoneWithTurn
  997. END_
  998.  
  999. ;SHELL/DEPRESSION
  1000.  
  1001. COMMAND SHELL
  1002. AtLocation 64
  1003. OR
  1004. AtLocation 102
  1005. OR
  1006. AtLocation 104
  1007. OR
  1008. AtLocation 105
  1009. PrintMessage 188
  1010. GoToRoom 103 ;SHELL
  1011. DoneWithTurn
  1012. END_
  1013.  
  1014. COMMAND DEPRESSION
  1015. AtLocation 2
  1016. OR
  1017. AtLocation 141
  1018. OR
  1019. AtLocation 4
  1020. OR
  1021. AtLocation 7
  1022. PrintMessage 188
  1023. GoToRoom 8 ;DEPRESSION
  1024. DoneWithTurn
  1025. END_
  1026.  
  1027. COMMAND SHELL
  1028. PrintMessage 12 ;word doesn't work here
  1029. DoneWithTurn
  1030. END_
  1031.  
  1032. ;RUB/TOUCH/PUSH
  1033.  
  1034. COMMAND RUB LAMP
  1035. PrintMessage 75 ;rubbing the lamp is not particularly rewarding
  1036. DoneWithTurn
  1037. END_
  1038.  
  1039. COMMAND TOUCH ANY
  1040. AtLocation 31 ;programmer's den
  1041. TurnFlagOFF 16 ;revoke secret words
  1042. TurnFlagON 15 ;programmer is now angry
  1043. PrintMessage 213 ;programmer takes revenge
  1044. MinusScore 25 ;That will teach you
  1045. GoToRoom 44 ;Pirate's maze - just south of Pirate's den
  1046. DoneWithTurn
  1047. END_
  1048.  
  1049. COMMAND RUB ANY
  1050. PrintMessage 76 ;strange - nothing happens
  1051. DoneWithTurn
  1052. END_
  1053.  
  1054. ;FIND
  1055.  
  1056. COMMAND FIND KNIFE
  1057. PrintMessage 116 ;dwarf's knife vanishes
  1058. DoneWithTurn
  1059. END_
  1060.  
  1061. COMMAND FIND ANY
  1062. NOUNIsCarrying
  1063. PrintMessage 24 ;You already have it
  1064. DoneWithTurn
  1065. END_
  1066.  
  1067. COMMAND FIND ANY
  1068. FlagON 3 ;cave is closed
  1069. PrintMessage 138 ;It must be around here somewhere
  1070. DoneWithTurn
  1071. END_
  1072.  
  1073. COMMAND FIND DWARF
  1074. FlagON 10 ;dwarf in room
  1075. PrintMessage 94 ;It is here with you
  1076. DoneWithTurn
  1077. END_
  1078.  
  1079. COMMAND FIND CAVE
  1080. FlagOFF 12 ;hint has not been offered yet
  1081. TurnFlagON 12 ;now it has
  1082. PrintMessage 175 ;Do you want a hint?
  1083. PromptForYes
  1084. TurnFlagON 9 ;hint has been rejected - so far
  1085. PrintMessage 143 ;The hint will cost your 5 points
  1086. PrintMessage 1 ;Is that OK?
  1087. PromptForYes
  1088. TurnFlagOFF 9 ;hint has been accepted
  1089. PrintMessage 57 ;Follow the stream
  1090. MinusScore 5
  1091. DoneWithTurn
  1092. END_
  1093.  
  1094. COMMAND FIND CAVE
  1095. FlagON 9 ;hint was rejected
  1096. TurnFlagOFF 9
  1097. PrintMessage 86 ;OK, if you're so smart - do it yourself
  1098. DoneWithTurn
  1099. END_
  1100.  
  1101. COMMAND FIND ANY
  1102. PrintMessage 59 ;Sorry, I can't tell you where remote things are
  1103. DoneWithTurn
  1104. END_
  1105.  
  1106. ;GET
  1107.  
  1108. COMMAND GET ANY
  1109. AtLocation 31 ;programmer's den
  1110. TurnFlagOFF 16 ;revoke secret words
  1111. TurnFlagON 15 ;programmer is angry
  1112. PrintMessage 213 ;programmer talks of revenge
  1113. MinusScore 25 ;That will teach you
  1114. GoToRoom 44 ;Pirate's maze - just south of Pirate's den
  1115. DoneWithTurn
  1116. END_
  1117.  
  1118. COMMAND GET MIRROR
  1119. PrintMessage 148 ;Too far to reach
  1120. DoneWithTurn
  1121. END_
  1122.  
  1123. COMMAND GET SIGN
  1124. PrintMessage 11 ;voice booms out "Leave it alone"
  1125. DoneWithTurn
  1126. END_
  1127.  
  1128.  
  1129. COMMAND GET KNIFE
  1130. FlagON 10 ;dwarf here
  1131. PrintMessage 99 ;dwarf has it
  1132. DoneWithTurn
  1133. END_
  1134.  
  1135. COMMAND GET KNIFE
  1136. PrintMessage 116 ;dwarf's knife vanishes
  1137. DoneWithTurn
  1138. END_
  1139.  
  1140. COMMAND GET PLANT
  1141. PrintMessage 115 ;the plant's roots are too deep
  1142. DoneWithTurn
  1143. END_
  1144.  
  1145. COMMAND GET BEAR
  1146. InRoom 248 ;contented free bear
  1147. PrintMessage 54 ;bear will follow you anywhere
  1148. TurnFlagON 1 ;bear is following
  1149. DoneWithTurn
  1150. END_
  1151.  
  1152. COMMAND GET BEAR
  1153. AtLocation 130 ;barren room
  1154. PrintMessage 169 ;bear is still chained to wall
  1155. DoneWithTurn
  1156. END_
  1157.  
  1158. COMMAND GET WATER
  1159. FlagON 2 ;bottle is already full
  1160. PrintMessage 105 ;it is already full
  1161. DoneWithTurn
  1162. END_
  1163.  
  1164. COMMAND GET WATER
  1165. NOT Present 226 ;empty bottle
  1166. PrintMessage 104 ;you have nothing to put it in
  1167. DoneWithTurn
  1168. END_
  1169.  
  1170. COMMAND GET WATER
  1171. AtLocation 3 ;inside building
  1172. OR
  1173. AtLocation 4 ;valley by stream
  1174. OR
  1175. AtLocation 38 ;bottom of pit with stream
  1176. OR
  1177. AtLocation 95 ;cavern with waterfall
  1178. OR
  1179. AtLocation 113 ;reservoir
  1180. OR
  1181. AtLocation 141 ;by building
  1182. PrintMessage 107 ;bottle is now full of water
  1183. SwapLocations 226 225 ;swap empty bottle for water-filled
  1184. TurnFlagON 2 ;bottle is now full
  1185. DoneWithTurn
  1186. END_
  1187.  
  1188. COMMAND GET WATER
  1189. Present 226 ;empty bottle
  1190. PrintMessage 106 ;no water here
  1191. DoneWithTurn
  1192. END_
  1193.  
  1194. COMMAND GET OIL
  1195. FlagON 2 ;bottle is already full
  1196. PrintMessage 105 ;it is already full
  1197. DoneWithTurn
  1198. END_
  1199.  
  1200. COMMAND GET OIL
  1201. NOT Present 226 ;empty bottle
  1202. PrintMessage 104 ;you have nothing to put it in
  1203. DoneWithTurn
  1204. END_
  1205.  
  1206. COMMAND GET OIL
  1207. AtLocation 24 ;east pit of twopit room
  1208. PrintMessage 108 ;bottle is now full of oil
  1209. SwapLocations 226 227 ;swap empty bottle for oil-filled
  1210. TurnFlagON 2 ;bottle is now full
  1211. DoneWithTurn
  1212. END_
  1213.  
  1214. COMMAND GET OIL
  1215. Present 226 ;empty bottle
  1216. PrintMessage 106 ;no oil here
  1217. DoneWithTurn
  1218. END_
  1219.  
  1220. COMMAND GET BIRD
  1221. InRoom 209 ;little bird
  1222. FlagOFF 13 ;first time tried to GET BIRD
  1223. IsCarrying 205 ;black rod
  1224. PrintMessage 26 ;bird is afraid of you
  1225. TurnFlagON 13 ;now has tried to GET BIRD once
  1226. DoneWithTurn
  1227. END_
  1228.  
  1229. COMMAND GET BIRD
  1230. InRoom 209 ;little bird
  1231. FlagON 13 ;second time tried to GET BIRD
  1232. IsCarrying 205 ;black rod
  1233. PrintMessage 19 ;bird is scared now - try again later
  1234. TurnFlagOFF 13 ;toggle back to first response
  1235. DoneWithTurn
  1236. END_
  1237.  
  1238. COMMAND GET BIRD
  1239. InRoom 209 ;little bird
  1240. NOT IsCarrying 204 ;cage
  1241. PrintMessage 27 ;you can't carry the bird
  1242. DoneWithTurn
  1243. END_
  1244.  
  1245. COMMAND GET BIRD
  1246. InRoom 209 ;little bird
  1247. IsCarrying 204 ;cage
  1248. PrintMessage 79 ;You put it in cage
  1249. SwapLocations 204 210 ;cage now has bird in it
  1250. Destroy 209 ;bird
  1251. DoneWithTurn
  1252. END_
  1253.  
  1254. COMMAND GET CAGE
  1255. Present 210 ;caged bird
  1256. GetIt 210
  1257. PrintMessage 43 ;You have the cage and the bird
  1258. DoneWithTurn
  1259. END_
  1260.  
  1261. COMMAND GET RUG
  1262. Present 239 ;dragon blocking way
  1263. PrintMessage 153 ;Better not try it
  1264. DoneWithTurn
  1265. END_
  1266.  
  1267. COMMAND GET AXE
  1268. Present 239 ;dragon blocking way
  1269. InRoom 237 ;axe
  1270. PrintMessage 153 ;Better not try it
  1271. DoneWithTurn
  1272. END_
  1273.  
  1274. COMMAND GET AXE
  1275. Present 246 ;ferocious bear
  1276. InRoom 237 ;axe
  1277. PrintMessage 25 ;You can't be serious
  1278. DoneWithTurn
  1279. END_
  1280.  
  1281. COMMAND GET VASE
  1282. InRoom 264 ;pillow rug with vase on it
  1283. GetIt 263 ;ming vase
  1284. SwapLocations 213 264 ;pillow swaps for pillow with vase on it
  1285. PrintMessage 90 ;You get it
  1286. DoneWithTurn
  1287. END_
  1288.  
  1289. COMMAND GET PILLOW
  1290. InRoom 264 ;pillow rug with vase on it
  1291. GetIt 213 ;pillow
  1292. Destroy 264
  1293. PutInCurrentRoom 265 ;shards
  1294. PrintMessage 91 ;vase slips and breaks
  1295. LookAtRoom
  1296. DoneWithTurn
  1297. END_
  1298.  
  1299. ;PUT
  1300.  
  1301. COMMAND PUT BIRD IN CAGE
  1302. ReDirectTo GET BIRD
  1303. END_
  1304.  
  1305. COMMAND PUT BIRD
  1306. InRoom 209 ;little bird
  1307. PrintMessage 110 ;Don't be silly
  1308. DoneWithTurn
  1309. END_
  1310.  
  1311. COMMAND PUT ANY IN CAGE
  1312. PrintMessage 222 ;This is a BIRD cage!
  1313. DoneWithTurn
  1314. END_
  1315.  
  1316. COMMAND PUT WATER IN BOTTLE
  1317. ReDirectTo GET WATER
  1318. END_
  1319.  
  1320. COMMAND PUT OIL IN BOTTLE
  1321. ReDirectTo GET OIL
  1322. END_
  1323.  
  1324. COMMAND PUT OIL
  1325. ReDirectTo POUR OIL
  1326. END_
  1327.  
  1328. COMMAND PUT WATER
  1329. ReDirectTo POUR WATER
  1330. END_
  1331.  
  1332. COMMAND PUT COINS IN MACHINE
  1333. InRoom 250 ;vending machine
  1334. Present 258 ;rare coins
  1335. PutInCurrentRoom 251 ;fresh batteries
  1336. Destroy 258 ;rare coins
  1337. PrintMessage 82 ;batteries fall out
  1338. DoneWithTurn
  1339. END_
  1340.  
  1341. COMMAND PUT BATTERIES IN LAMP
  1342. Present 251 ;fresh batteries
  1343. Present 201 ;unlit lamp
  1344. OR
  1345. Present 202 ;lamp
  1346. PutInCurrentRoom 252 ;worn-out batteries
  1347. PutInCurrentRoom 202 ;lamp
  1348. Destroy 201
  1349. Destroy 251 ;fresh batteries
  1350. PrintMessage 39 ;lamp is now on
  1351. SetVariableTo 1 350 ;new life in batteries
  1352. TurnFlagON 5 ;Lamp is now ON
  1353. LookAtRoom
  1354. DoneWithTurn
  1355. END_
  1356.  
  1357. COMMAND PUT BATTERIES IN LAMP
  1358. NOT Present 251 ;fresh batteries
  1359. PrintMessage 37 ;sorry, but you need fresh batteries
  1360. DoneWithTurn
  1361. END_
  1362.  
  1363. ;DROP/POUR/INSERT/CHANGE
  1364.  
  1365. COMMAND DROP MAGAZINE
  1366. AtLocation 108 ;Witt's end
  1367. Present 220 ;magazine
  1368. Destroy 220 ;magazine
  1369. PrintMessage 15 ;it disappears
  1370. PlusScore 1
  1371. DoneWithTurn
  1372. END_
  1373.  
  1374. COMMAND DROP OIL
  1375. AtLocation 25 ;room with plant
  1376. Present 227 ;bottle of oil
  1377. SwapLocations 227 226 ;swap for empty bottle
  1378. PrintMessage 112 ;plant doesn't like oil
  1379. TurnFlagOFF 2 ;bottle is now empty
  1380. DoneWithTurn
  1381. END_
  1382.  
  1383. COMMAND DROP OIL
  1384. InRoom 211 ;rusty door
  1385. Present 227 ;bottle of oil
  1386. SwapLocations 227 226 ;swap for empty bottle
  1387. PrintMessage 114 ;oil has freed up door - so it can open
  1388. SwapLocations 211 212 ;swap for open door
  1389. PlusScore 10
  1390. DoneWithTurn
  1391. END_
  1392.  
  1393. COMMAND DROP OIL
  1394. Present 227 ;bottle of oil
  1395. SwapLocations 227 226 ;swap for empty bottle
  1396. PrintMessage 77 ;bottle is empty and ground is wet
  1397. PrintMessage 70 ;your feet are now wet
  1398. TurnFlagOFF 2 ;bottle is now empty
  1399. DoneWithTurn
  1400. END_
  1401.  
  1402. COMMAND POUR WATER
  1403. InRoom 231 ;gigantic beanstalk
  1404. Present 225 ;bottle of water
  1405. SwapLocations 225 226 ;swap for empty bottle
  1406. PrintMessage 209 ;plant dies and disappears
  1407. TurnFlagOFF 2 ;bottle is now empty
  1408. Destroy 231 ;gigantic beanstalk
  1409. Destroy 233 ;gigantic beanstalk in room 88
  1410. MinusScore 15
  1411. DoneWithTurn
  1412. END_
  1413.  
  1414. COMMAND POUR WATER
  1415. InRoom 230 ;12-foot beanstalk
  1416. Present 225 ;bottle of water
  1417. SwapLocations 225 226 ;swap for empty bottle
  1418. SwapLocations 231 230 ;swap for larger plant
  1419. SendToRoom 233 88 ;plant sticking out of pit into room 88
  1420. Destroy 232 ;plant sticking out of pit into room 23
  1421. PrintMessage 208 ;plant grows explosively
  1422. TurnFlagOFF 2 ;bottle is now empty
  1423. PlusScore 4
  1424. DoneWithTurn
  1425. END_
  1426.  
  1427. COMMAND POUR WATER
  1428. InRoom 229 ;tiny plant
  1429. Present 225 ;bottle of water
  1430. SwapLocations 225 226 ;swap for empty bottle
  1431. SwapLocations 229 230 ;swap for larger plant
  1432. SendToRoom 232 23 ;plant sticking out of pit into room 23
  1433. PrintMessage 207 ;plant grows for a spurt
  1434. TurnFlagOFF 2 ;bottle is now empty
  1435. PlusScore 5
  1436. DoneWithTurn
  1437. END_
  1438.  
  1439. COMMAND POUR WATER
  1440. Present 225 ;bottle of water
  1441. SwapLocations 225 226 ;swap for empty bottle
  1442. PrintMessage 77 ;bottle is empty and ground is wet
  1443. PrintMessage 70 ;your feet are now wet
  1444. TurnFlagOFF 2 ;bottle is now empty
  1445. DoneWithTurn
  1446. END_
  1447.  
  1448. COMMAND DROP VASE
  1449. InRoom 213 ;pillow
  1450. Present 263 ;ming vase
  1451. SwapLocations 213 264 ;pillow swaps for pillow with vase on it
  1452. Destroy 263 ;ming vase
  1453. PrintMessage 211 ;vase drop with delicate crash
  1454. PrintMessage 44 ;but, it doesn't break
  1455. DoneWithTurn
  1456. END_
  1457.  
  1458. COMMAND DROP VASE
  1459. NOT InRoom 213 ;pillow
  1460. Present 263 ;ming vase
  1461. Destroy 263 ;ming vase
  1462. PutInCurrentRoom 265 ;pottery shards
  1463. PrintMessage 211 ;vase drop with delicate crash
  1464. LookAtRoom
  1465. DoneWithTurn
  1466. END_
  1467.  
  1468. COMMAND DROP CAGE
  1469. IsCarrying 210 ;caged bird
  1470. DropIt 210
  1471. PrintMessage 58 ;You drop the cage and the bird
  1472. DoneWithTurn
  1473. END_
  1474.  
  1475. COMMAND INSERT COINS
  1476. InRoom 250 ;vending machine
  1477. Present 258 ;rare coins
  1478. PutInCurrentRoom 251 ;fresh batteries
  1479. Destroy 258 ;rare coins
  1480. PrintMessage 82 ;batteries fall out
  1481. DoneWithTurn
  1482. END_
  1483.  
  1484. COMMAND INSERT BATTERIES
  1485. Present 251 ;fresh batteries
  1486. Present 201 ;unlit lamp
  1487. OR
  1488. Present 202 ;lamp
  1489. PutInCurrentRoom 252 ;worn-out batteries
  1490. PutInCurrentRoom 202 ;lamp
  1491. Destroy 201
  1492. Destroy 251 ;fresh batteries
  1493. PrintMessage 39 ;lamp is now on
  1494. SetVariableTo 1 350 ;new life in batteries
  1495. TurnFlagON 5 ;Lamp is now ON
  1496. LookAtRoom
  1497. DoneWithTurn
  1498. END_
  1499.  
  1500. COMMAND INSERT BATTERIES
  1501. NOT Present 251 ;fresh batteries
  1502. PrintMessage 37 ;sorry, but you need fresh batteries
  1503. DoneWithTurn
  1504. END_
  1505.  
  1506. ;RELEASE/FREE
  1507.  
  1508. COMMAND RELEASE BEAR
  1509. InRoom 244 ;troll
  1510. Present 248 ;contented free bear
  1511. SwapLocations 244 245 ;troll is nowhere to be seen
  1512. PrintMessage 163 ;bear chases troll away
  1513. TurnFlagON 4 ;troll not there anymore
  1514. TurnFlagOFF 1 ;bear is not following you
  1515. PlusScore 10
  1516. DoneWithTurn
  1517. END_
  1518.  
  1519. COMMAND RELEASE BEAR
  1520. TurnFlagOFF 1 ;bear is not following you
  1521. PrintMessage 92 ;bear wanders off
  1522. END_
  1523.  
  1524. COMMAND RELEASE BIRD
  1525. FlagOFF 3 ;cave is open
  1526. Present 210 ;cage with bird in it
  1527. SwapLocations 204 210 ;swap for cage
  1528. PutInCurrentRoom 209 ;bird
  1529. PrintMessage 83 ;bird released
  1530. InRoom 214 ;green snake
  1531. Destroy 214 ;green snake
  1532. PrintMessage 30 ;bird attacks snake
  1533. PlusScore 10
  1534. DoneWithTurn
  1535. END_
  1536.  
  1537. COMMAND RELEASE BIRD
  1538. FlagON 3 ;cave is closed
  1539. Present 210 ;cage with bird in it
  1540. SwapLocations 204 210 ;swap for cage
  1541. InRoom 214 ;green snake
  1542. Destroy 209 ;bird
  1543. PrintMessage 46 ;attacking snake is dangerous
  1544. PrintMessage 101 ;snake eats bird
  1545. PrintMessage 199 ;you wake the nearest dwarf
  1546. MinusScore 10 ;lose 10 points for dying
  1547. GoToRoom 121 ;Loser's area
  1548. KillPlayer
  1549. DoneWithTurn
  1550. END_
  1551.  
  1552. COMMAND RELEASE BIRD
  1553. Present 210 ;cage with bird in it
  1554. SwapLocations 204 210 ;swap for cage
  1555. InRoom 239 ;green dragon
  1556. Destroy 209 ;bird
  1557. PrintMessage 154 ;dragon fries bird
  1558. DoneWithTurn
  1559. END_
  1560.  
  1561. COMMAND RELEASE BIRD
  1562. Present 204 ;cage
  1563. DoneWithTurn
  1564. END_
  1565.  
  1566. COMMAND RELEASE ANY
  1567. PrintMessage 14 ;I'm game...
  1568. DoneWithTurn
  1569. END_
  1570.  
  1571. ;DRINK
  1572.  
  1573. COMMAND DRINK WATER FROM BOTTLE
  1574. Present 225 ;bottle of water
  1575. PrintMessage 72 ;It was delicious
  1576. PrintMessage 74 ;bottle is now empty
  1577. SwapLocations 226 225 ;swap empty bottle for water-filled
  1578. TurnFlagOFF 2 ;bottle is now empty
  1579. DoneWithTurn
  1580. END_
  1581.  
  1582. COMMAND DRINK WATER
  1583. AtLocation 3 ;inside building
  1584. OR
  1585. AtLocation 4 ;valley by stream
  1586. OR
  1587. AtLocation 38 ;bottom of pit with stream
  1588. OR
  1589. AtLocation 95 ;cavern with waterfall
  1590. OR
  1591. AtLocation 113 ;reservoir
  1592. OR
  1593. AtLocation 141 ;by building
  1594. PrintMessage 73 ;drink from stream
  1595. DoneWithTurn
  1596. END_
  1597.  
  1598. COMMAND DRINK WATER
  1599. Present 225 ;bottle of water
  1600. PrintMessage 72 ;It was delicious
  1601. PrintMessage 74 ;bottle is now empty
  1602. SwapLocations 226 225 ;swap empty bottle for water-filled
  1603. TurnFlagOFF 2 ;bottle is now empty
  1604. DoneWithTurn
  1605. END_
  1606.  
  1607. COMMAND DRINK ANY
  1608. PrintMessage 110 ;Don't be ridiculous
  1609. DoneWithTurn
  1610. END_
  1611.  
  1612. ;OPEN
  1613.  
  1614. COMMAND OPEN CLAM
  1615. IsCarrying 218 ;clam
  1616. PrintMessage 120 ;put it down first
  1617. DoneWithTurn
  1618. END_
  1619.  
  1620. COMMAND OPEN CLAM
  1621. NOT present 262 ;trident
  1622. Present 218 ;clam
  1623. PrintMessage 122 ;don't have anything strong enough to open it
  1624. DoneWithTurn
  1625. END_
  1626.  
  1627. COMMAND OPEN CLAM
  1628. present 262 ;trident
  1629. InRoom 218 ;clam
  1630. PrintMessage 124 ;pearl rolls out
  1631. SwapLocations 218 219 ;clam becomes an oyster
  1632. SendToRoom 268 105 ;put pearl in cul-de-sac
  1633. DoneWithTurn
  1634. END_
  1635.  
  1636. COMMAND OPEN OYSTER
  1637. IsCarrying 219 ;oyster
  1638. PrintMessage 121 ;put it down first
  1639. DoneWithTurn
  1640. END_
  1641.  
  1642. COMMAND OPEN OYSTER
  1643. NOT present 262 ;trident
  1644. Present 219 ;oyster
  1645. PrintMessage 123 ;don't have anything strong enough to open it
  1646. DoneWithTurn
  1647. END_
  1648.  
  1649. COMMAND OPEN OYSTER
  1650. present 262 ;trident
  1651. InRoom 219 ;oyster
  1652. PrintMessage 125 ;it opens and then shuts
  1653. DoneWithTurn
  1654. END_
  1655.  
  1656. COMMAND OPEN DOOR
  1657. InRoom 212 ;it is already open
  1658. PrintMessage 84 ;it is already open
  1659. DoneWithTurn
  1660. END_
  1661.  
  1662. COMMAND OPEN DOOR
  1663. InRoom 211 ;rusty door
  1664. PrintMessage 111 ;too rusty to open
  1665. DoneWithTurn
  1666. END_
  1667.  
  1668. COMMAND OPEN CAGE
  1669. FlagOFF 3 ;cave is open
  1670. Present 210 ;cage with bird in it
  1671. PutInCurrentRoom 209 ;bird
  1672. SwapLocations 204 210 ;swap for cage
  1673. InRoom 214 ;green snake
  1674. Destroy 214 ;green snake
  1675. PrintMessage 30 ;bird attacks snake
  1676. PlusScore 10
  1677. DoneWithTurn
  1678. END_
  1679.  
  1680. COMMAND OPEN CAGE
  1681. FlagON 3 ;cave is closed
  1682. Present 210 ;cage with bird in it
  1683. SwapLocations 204 210 ;swap for cage
  1684. InRoom 214 ;green snake
  1685. Destroy 209 ;bird
  1686. PrintMessage 46 ;attacking snake is dangerous
  1687. PrintMessage 101 ;snake eats bird
  1688. PrintMessage 199 ;you wake the nearest dwarf
  1689. MinusScore 10 ;lose 10 points for dying
  1690. GoToRoom 121 ;Loser's area
  1691. KillPlayer
  1692. DoneWithTurn
  1693. END_
  1694.  
  1695. COMMAND OPEN CAGE
  1696. Present 210 ;cage with bird in it
  1697. SwapLocations 204 210 ;swap for cage
  1698. InRoom 239 ;green dragon
  1699. Destroy 209 ;bird
  1700. PrintMessage 154 ;dragon fries snake
  1701. DoneWithTurn
  1702. END_
  1703.  
  1704. COMMAND OPEN CAGE
  1705. Present 210 ;cage with bird in it
  1706. SwapLocations 204 210 ;swap for cage
  1707. PutInCurrentRoom 209 ;bird
  1708. PrintMessage 83 ;bird released
  1709. DoneWithTurn
  1710. END_
  1711.  
  1712. COMMAND OPEN CAGE
  1713. Present 204 ;cage
  1714. PrintMessage 223 ;It's already open
  1715. DoneWithTurn
  1716. END_
  1717.  
  1718. ;CLOSE
  1719.  
  1720. COMMAND CLOSE CAGE
  1721. Present 204 ;cage
  1722. PrintMessage 224 ;It's broken and wont close
  1723. DoneWithTurn
  1724. END_
  1725.  
  1726. ;WATER/OIL
  1727.  
  1728. COMMAND OIL
  1729. ReDirectTo POUR OIL
  1730. END_
  1731.  
  1732. COMMAND WATER ANY
  1733. InRoom 231 ;gigantic beanstalk
  1734. OR
  1735. InRoom 230 ;12-foot beanstalk
  1736. OR
  1737. InRoom 229 ;tiny plant
  1738. ReDirectTo POUR WATER
  1739. END_
  1740.  
  1741. COMMAND WATER ANY
  1742. Present 225 ;bottle of water
  1743. SwapLocations 225 226 ;swap for empty bottle
  1744. PrintMessage 77 ;bottle is empty and ground is wet
  1745. PrintMessage 70 ;your feet are now wet
  1746. TurnFlagOFF 2 ;bottle is now empty
  1747. DoneWithTurn
  1748. END_
  1749.  
  1750. COMMAND WATER ANY
  1751. PrintMessage 25 ;You can't be serious
  1752. DoneWithTurn
  1753. END_
  1754.  
  1755. ;LOCK
  1756.  
  1757. COMMAND LOCK ANY
  1758. NOT present 200 ;iron keys
  1759. PrintMessage 31 ;you don't have any keys
  1760. DoneWithTurn
  1761. END_
  1762.  
  1763. COMMAND LOCK CAGE
  1764. Present 204 ;cage
  1765. OR
  1766. Present 210 ;cage with bird
  1767. PrintMessage 32 ;it has no lock
  1768. DoneWithTurn
  1769. END_
  1770.  
  1771. COMMAND LOCK KEYS
  1772. Present 200 ;iron keys
  1773. PrintMessage 55 ;can't lock or unlock keys
  1774. DoneWithTurn
  1775. END_
  1776.  
  1777. COMMAND LOCK CHAIN
  1778. NOT atLocation 130 ;barren room
  1779. PrintMessage 173 ;nothing here to lock chain to
  1780. DoneWithTurn
  1781. END_
  1782.  
  1783. COMMAND LOCK CHAIN
  1784. AtLocation 130 ;barren room
  1785. Present 200 ;iron keys
  1786. Present 274 ;locked chain
  1787. OR
  1788. Present 273 ;locked chain with bear attached
  1789. PrintMessage 34 ;It is already locked
  1790. DoneWithTurn
  1791. END_
  1792.  
  1793. COMMAND LOCK CHAIN
  1794. AtLocation 130 ;barren room
  1795. Present 200 ;iron keys
  1796. Present 272 ;free chain
  1797. Destroy 272 ;free chain
  1798. PutInCurrentRoom 274 ;chain attached to wall
  1799. PrintMessage 35 ;It is now locked
  1800. DoneWithTurn
  1801. END_
  1802.  
  1803. COMMAND LOCK BEAR
  1804. NOT atLocation 130 ;barren room
  1805. PrintMessage 172 ;nothing here to lock bear to
  1806. DoneWithTurn
  1807. END_
  1808.  
  1809. COMMAND LOCK BEAR
  1810. AtLocation 130 ;barren room
  1811. Present 200 ;iron keys
  1812. Present 273 ;locked chain with bear attached
  1813. PrintMessage 34 ;It is already locked
  1814. DoneWithTurn
  1815. END_
  1816.  
  1817. COMMAND LOCK BEAR
  1818. AtLocation 130 ;barren room
  1819. Present 200 ;iron keys
  1820. Present 272 ;free chain
  1821. Present 248 ;contented free bear
  1822. Destroy 272 ;free chain
  1823. Destroy 248 ;free bear
  1824. PutInCurrentRoom 273 ;chain attached to wall and to bear
  1825. PutInCurrentRoom 247 ;gentle bear
  1826. PrintMessage 171 ;bear is now locked to wall
  1827. DoneWithTurn
  1828. END_
  1829.  
  1830. ;UNLOCK
  1831.  
  1832. COMMAND UNLOCK ANY
  1833. NOT present 200 ;iron keys
  1834. PrintMessage 31 ;you have no keys
  1835. DoneWithTurn
  1836. END_
  1837.  
  1838. COMMAND UNLOCK CAGE
  1839. Present 204 ;cage
  1840. OR
  1841. Present 210 ;caged bird
  1842. PrintMessage 32 ;it has no lock
  1843. DoneWithTurn
  1844. END_
  1845.  
  1846. COMMAND UNLOCK GRATE
  1847. FlagON 3 ;cave is closed
  1848. PrintMessage 130 ;cave is now closed
  1849. DoneWithTurn
  1850. END_
  1851.  
  1852. COMMAND UNLOCK GRATE
  1853. FlagOFF 3 ;cave is open
  1854. AtLocation 8 ;above grate
  1855. UnlockIt 203 ;grate
  1856. PrintMessage 85 ;it is now unlocked
  1857. DoneWithTurn
  1858. END_
  1859.  
  1860. COMMAND UNLOCK GRATE
  1861. FlagOFF 3 ;cave is open
  1862. AtLocation 9 ;below grate
  1863. PrintMessage 81 ;Sorry, the lock is out of reach
  1864. DoneWithTurn
  1865. END_
  1866.  
  1867. COMMAND UNLOCK ANY
  1868. InRoom 246 ;ferocious bear
  1869. PrintMessage 41 ;can't unlock because of bear
  1870. DoneWithTurn
  1871. END_
  1872.  
  1873. COMMAND UNLOCK BEAR
  1874. Present 248 ;unlocked bear
  1875. PrintMessage 33 ;It is already unlocked
  1876. DoneWithTurn
  1877. END_
  1878.  
  1879. COMMAND UNLOCK ANY
  1880. Present 200 ;iron keys
  1881. InRoom 247 ;gentle bear
  1882. SwapLocations 247 248 ;bear now free to wander
  1883. SwapLocations 273 274 ;chain no longer has bear attached
  1884. PrintMessage 170 ;bear now free to roam
  1885. DoneWithTurn
  1886. END_
  1887.  
  1888. COMMAND UNLOCK CHAIN
  1889. Present 272 ;unlocked chain
  1890. PrintMessage 33 ;It is already unlocked
  1891. DoneWithTurn
  1892. END_
  1893.  
  1894. COMMAND UNLOCK CHAIN
  1895. Present 200 ;iron keys
  1896. InRoom 274 ;chain attached to wall
  1897. SwapLocations 274 272 ;chain no longer attached to wall
  1898. PrintMessage 36 ;It is now unlocked
  1899. DoneWithTurn
  1900. END_
  1901.  
  1902. ;SAY or GO
  1903.  
  1904. COMMAND SAY ANY
  1905. PrintMessage 28 ;use only one word
  1906. DoneWithTurn
  1907. END_
  1908.  
  1909. ;LIGHT
  1910.  
  1911. COMMAND LIGHT LAMP
  1912. Present 202 ;lamp
  1913. PrintMessage 39 ;your lamp is now on
  1914. DoneWithTurn
  1915. END_
  1916.  
  1917. COMMAND LIGHT LAMP
  1918. NOT Present 201 ;unlit lamp
  1919. PrintMessage 38 ;you have no source of light
  1920. DoneWithTurn
  1921. END_
  1922.  
  1923. COMMAND LIGHT LAMP
  1924. Present 201 ;unlit lamp
  1925. VariableGT 1 0 ;batteries are not dead, yet
  1926. PrintMessage 39 ;your lamp is now on
  1927. TurnFlagON 5 ;Lamp is now ON
  1928. SwapLocations 202 201 ;swap for ON lamp
  1929. DoneWithTurn
  1930. END_
  1931.  
  1932. COMMAND LIGHT LAMP
  1933. Present 201 ;unlit lamp
  1934. VariableEquals 1 0 ;batteries are dead
  1935. PrintMessage 37 ;sorry, but your batteries are dead
  1936. DoneWithTurn
  1937. END_
  1938.  
  1939. ;EXTINGUISH
  1940.  
  1941. COMMAND EXTINGUISH LAMP
  1942. Present 201 ;unlit lamp
  1943. PrintMessage 40 ;your lamp is now off
  1944. DoneWithTurn
  1945. END_
  1946.  
  1947. COMMAND EXTINGUISH LAMP
  1948. Present 202 ;lamp
  1949. PrintMessage 40 ;your lamp is now off
  1950. TurnFlagOFF 5 ;Lamp is now OFF
  1951. SwapLocations 202 201 ;swap for OFF lamp
  1952. DoneWithTurn
  1953. END_
  1954.  
  1955. ;WAVE
  1956.  
  1957. COMMAND WAVE ROD
  1958. NOT IsCarrying 205 ;black rod
  1959. NOT IsCarrying 206 ;red rod
  1960. PrintMessage 29 ;You're not carrying it
  1961. DoneWithTurn
  1962. END_
  1963.  
  1964. COMMAND WAVE ROD
  1965. Present 205 ;black rod
  1966. FlagON 8 ;crystal bridge is here
  1967. AtLocation 17 ;east side of fissure
  1968. OR
  1969. AtLocation 27 ;west side of fissure
  1970. TurnFlagOFF 8 ;crystal bridge now gone
  1971. PutInCurrentRoom 216 ;open fissure
  1972. Destroy 215 ;crystal bridge
  1973. Destroy 287 ;other crystal bridge
  1974. LookAtRoom
  1975. DoneWithTurn
  1976. END_
  1977.  
  1978. COMMAND WAVE ROD
  1979. Present 205 ;black rod
  1980. FlagOFF 8 ;crystal bridge not here
  1981. AtLocation 17 ;east side of fissure
  1982. OR
  1983. AtLocation 27 ;west side of fissure
  1984. TurnFlagON 8 ;crystal bridge has suddenly appeared
  1985. SendToRoom 215 17 ;crystal bridge
  1986. SendToRoom 287 27 ;other crystal bridge
  1987. Destroy 216 ;open fissure
  1988. LookAtRoom
  1989. DoneWithTurn
  1990. END_
  1991.  
  1992. COMMAND WAVE FIGURE
  1993. InRoom 235 ;shadowy figure
  1994. OR
  1995. InRoom 236 ;shadowy figure
  1996. PrintMessage 219 ;You wave AT the figure
  1997. DoneWithTurn
  1998. END_
  1999.  
  2000. COMMAND WAVE ANY
  2001. PrintMessage 76 ;strange - nothing happens
  2002. DoneWithTurn
  2003. END_
  2004.  
  2005. ;ATTACK
  2006.  
  2007. COMMAND ATTACK BIRD
  2008. FlagON 3 ;cave is closed
  2009. Present 209 ;bird
  2010. OR
  2011. Present 210 ;bird in cage
  2012. PrintMessage 137 ;leave the poor bird alone
  2013. DoneWithTurn
  2014. END_
  2015.  
  2016. COMMAND ATTACK BIRD
  2017. Present 209 ;bird
  2018. FlagOFF 3 ;cave is open
  2019. PrintMessage 45 ;bird dies and disappears
  2020. Destroy 209 ;bird
  2021. DoneWithTurn
  2022. END_
  2023.  
  2024. COMMAND ATTACK BIRD
  2025. Present 210 ;bird in cage
  2026. FlagOFF 3 ;cave is open
  2027. PrintMessage 45 ;bird dies and disappears
  2028. Destroy 210 ;bird in cage
  2029. PutInCurrentRoom 204 ;cage without bird
  2030. DoneWithTurn
  2031. END_
  2032.  
  2033. COMMAND ATTACK SNAKE
  2034. FlagON 14 ;second command about SNAKE
  2035. Present 214 ;snake
  2036. PrintMessage 21 ;give snake hint
  2037. TurnFlagOFF 14 ;toggle for real message next
  2038. DoneWithTurn
  2039. END_
  2040.  
  2041. COMMAND ATTACK SNAKE
  2042. FlagOFF 14 ;first command about SNAKE
  2043. TurnFlagON 14 ;toggle for hint next
  2044. Present 214 ;snake
  2045. PrintMessage 46 ;attacking the snake is very dangerous
  2046. DoneWithTurn
  2047. END_
  2048.  
  2049. COMMAND ATTACK ANY
  2050. NOT NOUNpresent 
  2051. PrintMessage 228 ;It's not even here!
  2052. DoneWithTurn
  2053. END_
  2054.  
  2055. COMMAND ATTACK ANY WITH ROD
  2056. FlagOFF 3 ;cave is open 
  2057. Present 205 ;black rod
  2058. OR 
  2059. Present 206 ;red rod
  2060. PrintMessage 225 ;It is not a good weapon
  2061. DoneWithTurn
  2062. END_
  2063.  
  2064. COMMAND ATTACK ANY WITH LAMP
  2065. FlagOFF 3 ;cave is open 
  2066. Present 202 ;lamp
  2067. OR 
  2068. Present 203 ;lamp
  2069. PrintMessage 225 ;It is not a good weapon
  2070. DoneWithTurn
  2071. END_
  2072.  
  2073. COMMAND ATTACK ANY WITH TRIDENT
  2074. FlagOFF 3 ;cave is open 
  2075. Present 262 ;trident
  2076. PrintMessage 225 ;It is not a good weapon
  2077. DoneWithTurn
  2078. END_
  2079.  
  2080. COMMAND ATTACK ANY WITH BOTTLE
  2081. FlagOFF 3 ;cave is open 
  2082. Present 225 ;bottle
  2083. OR 
  2084. Present 226 
  2085. OR 
  2086. Present 227 
  2087. PrintMessage 225 ;It is not a good weapon
  2088. DoneWithTurn
  2089. END_
  2090.  
  2091. COMMAND ATTACK TROLL WITH AXE
  2092. Present 237 ;axe
  2093. Present 244 ;troll demanding money
  2094. PrintMessage 158 ;troll catches axe and throws it back
  2095. DoneWithTurn
  2096. END_
  2097.  
  2098. COMMAND ATTACK TROLL
  2099. Present 244 ;troll demanding money
  2100. PrintMessage 157 ;troll fends off your blows easily
  2101. DoneWithTurn
  2102. END_
  2103.  
  2104. COMMAND ATTACK CLAM
  2105. Present 218 ;giant clam
  2106. PrintMessage 150 ;shell is too hard
  2107. DoneWithTurn
  2108. END_
  2109.  
  2110. COMMAND ATTACK OYSTER
  2111. Present 219 ;giant oyster
  2112. PrintMessage 150 ;shell is too hard
  2113. DoneWithTurn
  2114. END_
  2115.  
  2116. COMMAND ATTACK DWARF
  2117. FlagON 3 ;cave is closed
  2118. PrintMessage 199 ;you wake the nearest dwarf
  2119. MinusScore 10 ;lose 10 points for dying
  2120. GoToRoom 121 ;Loser's area
  2121. KillPlayer
  2122. DoneWithTurn
  2123. END_
  2124.  
  2125. COMMAND ATTACK DWARF WITH AXE
  2126. Present 237 ;axe
  2127. Present 221 ;dwarf blocking way
  2128. OR
  2129. Present 222 ;dwarf
  2130. PrintMessage 149 ;You kill him - he disappears
  2131. Destroy 221 ;dwarf block way
  2132. Destroy 222 ;dwarf
  2133. DoneWithTurn
  2134. END_
  2135.  
  2136. COMMAND ATTACK DWARF
  2137. Present 221 ;dwarf blocking way
  2138. OR
  2139. Present 222 ;dwarf
  2140. TurnFlagON 9 ;not using bare hands for attack
  2141. PrintMessage 49 ;With your bare hands???
  2142. PromptForYES ;wants to use bare hands
  2143. TurnFlagOFF 9
  2144. BlankLine
  2145. PrintMessage 48 ;he dodges out of the way
  2146. DoneWithTurn
  2147. END_
  2148.  
  2149. COMMAND ATTACK DWARF
  2150. FlagON 9 ;not using bare hands for attack
  2151. TurnFlagOFF 9
  2152. BlankLine
  2153. PrintMessage 47 ;you kill him
  2154. Destroy 221 ;dwarf blocking way
  2155. Destroy 222 ;dwarf
  2156. DoneWithTurn
  2157. END_
  2158.  
  2159. COMMAND ATTACK BEAR WITH AXE
  2160. Present 246 ;ferocious bear
  2161. Present 237 ;axe
  2162. PrintMessage 164 ;Axe misses and lands where you can't get it
  2163. PutInCurrentRoom 237 ;axe
  2164. DoneWithTurn
  2165. END_
  2166.  
  2167. COMMAND ATTACK BEAR
  2168. Present 246 ;ferocious bear
  2169. PrintMessage 165 ;With your bare hands against his BEAR hands?
  2170. PrintMessage 110 ;Don't be ridiculous
  2171. DoneWithTurn
  2172. END_
  2173.  
  2174. COMMAND ATTACK BEAR
  2175. Present 248 ;contented free bear
  2176. OR
  2177. Present 247 ;gentle bear
  2178. PrintMessage 110 ;Don't be ridiculous
  2179. PrintMessage 166 ;The bear just wants to be your friend
  2180. DoneWithTurn
  2181. END_
  2182.  
  2183. COMMAND ATTACK DRAGON
  2184. Present 240 ;dead dragon
  2185. PrintMessage 167 ;It is already dead
  2186. DoneWithTurn
  2187. END_
  2188.  
  2189. COMMAND ATTACK DRAGON WITH AXE
  2190. Present 239 ;dragon blocking way
  2191. Present 237 ;axe
  2192. PrintMessage 152 ;Axe bounces off and lands where you can't get it
  2193. PutInCurrentRoom 237 ;axe
  2194. DoneWithTurn
  2195. END_
  2196.  
  2197. COMMAND ATTACK DRAGON
  2198. Present 239 ;dragon blocking way
  2199. TurnFlagON 9 ;not using bare hands for attack
  2200. PrintMessage 49 ;With your bare hands???
  2201. PromptForYES ;wants to use bare hands
  2202. TurnFlagOFF 9
  2203. BlankLine
  2204. PrintMessage 210 ;Congrats You did it
  2205. SwapLocations 239 240 ;dragon blocking way - dead dragon
  2206. SwapLocations 270 ;dragon sprawled on rug - plain rug
  2207. PlusScore 10
  2208. DoneWithTurn
  2209. END_
  2210.  
  2211. COMMAND ATTACK DRAGON
  2212. FlagON 9 ;not using bare hands for attack
  2213. TurnFlagOFF 9
  2214. BlankLine
  2215. PrintMessage 110 ;Don't be ridiculous
  2216. PrintMessage 153 ;Better not try it
  2217. DoneWithTurn
  2218. END_
  2219.  
  2220. COMMAND ATTACK ANY
  2221. PrintMessage 110 ;Don't be ridiculous
  2222. DoneWithTurn
  2223. END_
  2224.  
  2225. ;ABRACADABRA
  2226.  
  2227. COMMAND ABRACADABRA
  2228. PrintMessage 50 ;That is an old secret word that no longer works
  2229. DoneWithTurn
  2230. END_
  2231.  
  2232. ;DIG/EXCAVATE
  2233.  
  2234. COMMAND DIG any
  2235. PrintMessage 66 ;Digging is hard without a shovel
  2236. DoneWithTurn
  2237. END_
  2238.  
  2239. ;WAKE/CALM
  2240.  
  2241. COMMAND WAKE
  2242. FlagON 3 ;cave is closed
  2243. PrintMessage 199 ;you wake dwarves
  2244. MinusScore 10 ;lose 10 points for dying
  2245. GoToRoom 121 ;Loser's area
  2246. KillPlayer
  2247. DoneWithTurn
  2248. END_
  2249.  
  2250. COMMAND CALM ANY
  2251. PrintMessage 14 ;I'm game - tell me how
  2252. DoneWithTurn
  2253. END_
  2254.  
  2255. ;BREAK/BLAST/DYNAMITE 
  2256.  
  2257. COMMAND BREAK VASE
  2258. Present 263 ;ming vase
  2259. Destroy 263 ;ming vase
  2260. PutInCurrentRoom 265 ;pottery shards
  2261. PrintMessage 211 ;vase drop with delicate crash
  2262. LookAtRoom
  2263. DoneWithTurn
  2264. END_
  2265.  
  2266. COMMAND BREAK MIRROR
  2267. FlagOFF 3 ;cave is open
  2268. PrintMessage 148 ;Too far to reach
  2269. DoneWithTurn
  2270. END_
  2271.  
  2272. COMMAND BREAK MIRROR
  2273. PrintMessage 197 ;mirror shatters
  2274. PrintMessage 136 ;which wakes up dwarves
  2275. MinusScore 10 ;lose 10 points for dying
  2276. GoToRoom 121 ;Loser's area
  2277. KillPlayer
  2278. DoneWithTurn
  2279. END_
  2280.  
  2281. COMMAND BREAK BOTTLE
  2282. PrintMessage 146 ;Beyond your power to do that
  2283. DoneWithTurn
  2284. END_
  2285.  
  2286. COMMAND BLAST ANY
  2287. FlagOFF 3 ;cave is open
  2288. PrintMessage 67 ;To $VERB$ the $NOUN$ requires dynamite
  2289. DoneWithTurn
  2290. END_
  2291.  
  2292. COMMAND BLAST ANY
  2293. NOT Present 206 ;red rod
  2294. AtLocation 115 ;NE end of repository
  2295. PrintMessage 134 ;Lava buries you
  2296. GoToRoom 121 ;Loser's area
  2297. PlusScore 20
  2298. KillPlayer
  2299. DoneWithTurn
  2300. END_
  2301.  
  2302. COMMAND BLAST ANY
  2303. Present 206 ;red rod
  2304. PrintMessage 135 ;you blow yourself up
  2305. GoToRoom 121 ;Loser's area
  2306. PlusScore 10
  2307. KillPlayer
  2308. DoneWithTurn
  2309. END_
  2310.  
  2311. COMMAND BLAST ANY
  2312. NOT Present 206 ;red rod
  2313. AtLocation 116 ;SW end of repository
  2314. PrintMessage 133 ;You win
  2315. GoToRoom 120 ;Cave Office
  2316. PlusScore 35
  2317. DoneWithTurn
  2318. END_
  2319.  
  2320. COMMAND BLAST ANY
  2321. NOT Present 206 ;red rod
  2322. PrintMessage 29 ;You don't have resources
  2323. DoneWithTurn
  2324. END_
  2325.  
  2326. ;THROW/GIVE
  2327.  
  2328. COMMAND THROW BEAR
  2329. InRoom 244 ;troll
  2330. Present 248 ;contented free bear
  2331. SwapLocations 244 245 ;troll is nowhere to be seen
  2332. PrintMessage 163 ;bear chases troll away
  2333. TurnFlagON 4 ;troll not there anymore
  2334. TurnFlagOFF 1 ;bear is not following you
  2335. PlusScore 10
  2336. DoneWithTurn
  2337. END_
  2338.  
  2339. COMMAND THROW AXE
  2340. FlagON 3 ;cave is closed
  2341. PrintMessage 199 ;you wake the nearest dwarf
  2342. MinusScore 10 ;lose 10 points for dying
  2343. GoToRoom 121 ;Loser's area
  2344. KillPlayer
  2345. DoneWithTurn
  2346. END_
  2347.  
  2348. COMMAND THROW AXE
  2349. Present 237 ;axe
  2350. Present 221 ;dwarf blocking way
  2351. OR
  2352. Present 222 ;dwarf
  2353. TurnFlagON 9 ;throwing axe at dwarf
  2354. PutInCurrentRoom 237 ;axe
  2355. Chance 50
  2356. PrintMessage 149 ;You kill him - he disappears
  2357. TurnFlagOFF 9
  2358. Destroy 221 ;dwarf block way
  2359. Destroy 222 ;dwarf
  2360. DoneWithTurn
  2361. END_
  2362.  
  2363. COMMAND THROW AXE
  2364. FlagON 9 ;has already thrown axe at dwarf
  2365. PrintMessage 48 ;He dodges out of the way
  2366. PrintMessage 52 ;You missed
  2367. TurnFlagOFF 9
  2368. LookAtRoom
  2369. DoneWithTurn
  2370. END_
  2371.  
  2372. COMMAND THROW AXE
  2373. Present 244 ;troll demanding money
  2374. PrintMessage 158 ;troll catches axe and throws it back
  2375. PutInCurrentRoom 237 ;axe
  2376. LookAtRoom
  2377. DoneWithTurn
  2378. END_
  2379.  
  2380. COMMAND THROW AXE
  2381. Present 246 ;ferocious bear
  2382. Present 237 ;axe
  2383. PrintMessage 164 ;Axe misses and lands where you can't get it
  2384. PutInCurrentRoom 237 ;axe
  2385. DoneWithTurn
  2386. END_
  2387.  
  2388. COMMAND THROW AXE
  2389. Present 239 ;dragon blocking way
  2390. Present 237 ;axe
  2391. PrintMessage 152 ;Axe bounces off and lands where you can't get it
  2392. PutInCurrentRoom 237 ;axe
  2393. DoneWithTurn
  2394. END_
  2395.  
  2396. COMMAND THROW AXE
  2397. Present 218 ;giant clam
  2398. OR
  2399. Present 219 ;giant oyster
  2400. PrintMessage 150 ;shell is too hard
  2401. DoneWithTurn
  2402. END_
  2403.  
  2404. COMMAND THROW FOOD
  2405. Present 246 ;ferocious bear
  2406. Present 224 ;food
  2407. PrintMessage 168 ;Bear eats food and becomes friendly
  2408. Destroy 224 ;food
  2409. SwapLocations 246 247 ;bear becomes friendly
  2410. PlusScore 10
  2411. DoneWithTurn
  2412. END_
  2413.  
  2414. COMMAND THROW FOOD
  2415. Present 244 ;troll blocking way
  2416. Present 224 ;food
  2417. PrintMessage 182 ;troll wants treasure - not food
  2418. DoneWithTurn
  2419. END_
  2420.  
  2421. COMMAND THROW FOOD
  2422. Present 224 ;food
  2423. Present 239 ;dragon
  2424. OR
  2425. Present 214 ;snake
  2426. PrintMessage 102 ;It doesn't want food - except for you
  2427. DoneWithTurn
  2428. END_
  2429.  
  2430. COMMAND THROW FOOD
  2431. Present 224 ;food
  2432. Present 221 ;dwarf blocking way
  2433. OR
  2434. Present 222 ;dwarf
  2435. PrintMessage 103 ;It only eats coal
  2436. DoneWithTurn
  2437. END_
  2438.  
  2439. COMMAND THROW FOOD
  2440. Present 209 ;little bird
  2441. Present 224 ;food
  2442. PrintMessage 100 ;It isn't hungry
  2443. DoneWithTurn
  2444. END_
  2445.  
  2446. COMMAND THROW ANY
  2447. Present 244 ;troll demanding treasure
  2448. NOUNpointsGT 0 ;Noun is a treasure - i.e., it has value
  2449. PrintMessage 159 ;troll catches treasure and leaves
  2450. DestroyNOUN
  2451. SwapLocations 244 245 ;swap for phony troll
  2452. TurnFlagON 4 ;troll not there anymore
  2453. DoneWithTurn
  2454. END_
  2455.  
  2456. COMMAND THROW ANY
  2457. Present 244 ;troll demanding treasure
  2458. PrintMessage 174 ;troll throws it back
  2459. DoneWithTurn
  2460. END_
  2461.  
  2462. COMMAND THROW VASE
  2463. InRoom 213 ;pillow
  2464. Present 263 ;ming vase
  2465. SwapLocations 213 264 ;pillow swaps for pillow with vase on it
  2466. Destroy 263 ;ming vase
  2467. PrintMessage 211 ;vase drop with delicate crash
  2468. PrintMessage 44 ;but, it doesn't break
  2469. DoneWithTurn
  2470. END_
  2471.  
  2472. COMMAND THROW VASE
  2473. NOT InRoom 213 ;pillow
  2474. Present 263 ;ming vase
  2475. Destroy 263 ;ming vase
  2476. PutInCurrentRoom 265 ;pottery shards
  2477. PrintMessage 211 ;vase drop with delicate crash
  2478. LookAtRoom
  2479. DoneWithTurn
  2480. END_
  2481.  
  2482. COMMAND THROW BIRD
  2483. ReDirectTo FREE BIRD
  2484. END_
  2485.  
  2486. ;FEED
  2487.  
  2488. COMMAND FEED BEAR
  2489. Present 246 ;ferocious bear
  2490. Present 224 ;food
  2491. PrintMessage 168 ;Bear eats food and becomes friendly
  2492. Destroy 224 ;food
  2493. SwapLocations 246 247 ;bear becomes friendly
  2494. PlusScore 10
  2495. DoneWithTurn
  2496. END_
  2497.  
  2498. COMMAND FEED BEAR
  2499. NOT Present 224 ;food
  2500. PrintMessage 102 ;It doesn't want food - except for you
  2501. DoneWithTurn
  2502. END_
  2503.  
  2504. COMMAND FEED TROLL
  2505. Present 244 ;troll blocking way
  2506. PrintMessage 182 ;troll wants treasure - not food
  2507. DoneWithTurn
  2508. END_
  2509.  
  2510. COMMAND FEED DRAGON
  2511. Present 239 ;dragon
  2512. PrintMessage 102 ;It doesn't want food - except for you
  2513. DoneWithTurn
  2514. END_
  2515.  
  2516. COMMAND FEED SNAKE
  2517. Present 214 ;snake
  2518. Present 210 ;bird in cage
  2519. PrintMessage 101 ;snake eats your bird
  2520. SwapLocations 204 210 ;swap for cage
  2521. DoneWithTurn
  2522. END_
  2523.  
  2524. COMMAND FEED SNAKE
  2525. Present 214 ;snake
  2526. PrintMessage 102 ;It doesn't want food - except for you
  2527. DoneWithTurn
  2528. END_
  2529.  
  2530. COMMAND FEED DWARF
  2531. Present 221 ;dwarf blocking way
  2532. OR
  2533. Present 222 ;dwarf
  2534. PrintMessage 103 ;It only eats coal
  2535. DoneWithTurn
  2536. END_
  2537.  
  2538. COMMAND FEED BIRD
  2539. Present 209 ;little bird
  2540. OR
  2541. Present 210 ;little bird in cage
  2542. PrintMessage 100 ;It isn't hungry
  2543. DoneWithTurn
  2544. END_
  2545.  
  2546. COMMAND FEED ANY
  2547. PrintMessage 14 ;I'm game - care to tell me how
  2548. DoneWithTurn
  2549. END_
  2550.  
  2551. ;EAT
  2552.  
  2553. COMMAND EAT FOOD
  2554. Present 224 ;food
  2555. PrintMessage 72 ;It was delicious
  2556. Destroy 224 ;food
  2557. DoneWithTurn
  2558. END_
  2559.  
  2560. COMMAND EAT ANY
  2561. PrintMessage 71 ;I lost my appetite
  2562. DoneWithTurn
  2563. END_
  2564.  
  2565. ;FILL
  2566.  
  2567. COMMAND FILL ANY
  2568. NOT NOUNIsCarrying
  2569. PrintMessage 29 ;you aren't carrying it
  2570. DoneWithTurn
  2571. END_
  2572.  
  2573. COMMAND FILL VASE
  2574. Present 263 ;ming vase
  2575. Destroy 263 ;ming vase
  2576. PutInCurrentRoom 265 ;pottery shards
  2577. PrintMessage 145 ;temperature breaks vase
  2578. LookAtRoom
  2579. DoneWithTurn
  2580. END_
  2581.  
  2582. COMMAND FILL BOTTLE
  2583. FlagON 2 ;bottle is already full
  2584. PrintMessage 105 ;it is already full
  2585. DoneWithTurn
  2586. END_
  2587.  
  2588. COMMAND FILL BOTTLE
  2589. NOT Present 226 ;empty bottle
  2590. PrintMessage 104 ;you have nothing to put it in
  2591. DoneWithTurn
  2592. END_
  2593.  
  2594. COMMAND FILL BOTTLE
  2595. AtLocation 3 ;inside building
  2596. OR
  2597. AtLocation 4 ;valley by stream
  2598. OR
  2599. AtLocation 38 ;bottom of pit with stream
  2600. OR
  2601. AtLocation 95 ;cavern with waterfall
  2602. OR
  2603. AtLocation 113 ;reservoir
  2604. OR
  2605. AtLocation 141 ;by building
  2606. PrintMessage 107 ;bottle is now full of water
  2607. SwapLocations 226 225 ;swap empty bottle for water-filled
  2608. TurnFlagON 2 ;bottle is now full
  2609. DoneWithTurn
  2610. END_
  2611.  
  2612. COMMAND FILL BOTTLE
  2613. AtLocation 24 ;east pit of twopit room
  2614. PrintMessage 108 ;bottle is now full of oil
  2615. SwapLocations 226 227 ;swap empty bottle for oil-filled
  2616. TurnFlagON 2 ;bottle is now full
  2617. DoneWithTurn
  2618. END_
  2619.  
  2620. COMMAND FILL BOTTLE
  2621. PrintMessage 106 ;nothing here to fill it with
  2622. DoneWithTurn
  2623. END_
  2624.  
  2625. COMMAND FILL ANY
  2626. PrintMessage 109 ;You can't fill that
  2627. DoneWithTurn
  2628. END_
  2629.  
  2630. ;JUMP
  2631.  
  2632. COMMAND JUMP CHASM
  2633. InRoom 241 ;troll bridge
  2634. PrintMessage 96 ;Use bridge instead of jumping
  2635. DoneWithTurn
  2636. END_
  2637.  
  2638. COMMAND JUMP CHASM
  2639. IsSomewhere 215 ;crystal bridge
  2640. AtLocation 17 ;East side of fissure
  2641. OR
  2642. AtLocation 27 ;West side of fissure
  2643. PrintMessage 96 ;Use bridge instead of jumping
  2644. DoneWithTurn
  2645. END_
  2646.  
  2647. COMMAND JUMP ANY
  2648. IsNowhere 215 ;crystal bridge doesn't exist
  2649. AtLocation 17 ;East side of fissure
  2650. OR
  2651. AtLocation 27 ;West side of fissure
  2652. PrintMessage 18 ;Jump was unsuccessful
  2653. GoToRoom 20 ;pit
  2654. MinusScore 10
  2655. KillPlayer
  2656. DoneWithTurn
  2657. END_
  2658.  
  2659. COMMAND JUMP ANY
  2660. IsNowhere 241 ;troll bridge doesn't exist
  2661. AtLocation 117 ;one side of fissure
  2662. OR
  2663. AtLocation 122 ;other side of fissure
  2664. PrintMessage 18 ;Jump was unsuccessful
  2665. GoToRoom 20 ;pit
  2666. MinusScore 10
  2667. KillPlayer
  2668. DoneWithTurn
  2669. END_
  2670.  
  2671. COMMAND JUMP ANY
  2672. PrintMessage 110 ;Don't be ridiculous
  2673. DoneWithTurn
  2674. END_
  2675.  
  2676. ;CLIMB/CROSS/FOLLOW
  2677.  
  2678. COMMAND CLIMB ANY
  2679. InRoom 231 ;gigantic beanstalk
  2680. PrintMessage 202 ;you climb up the plant
  2681. GoToRoom 88 ;long corridor
  2682. DoneWithTurn
  2683. END_
  2684.  
  2685. COMMAND CLIMB ANY
  2686. InRoom 233 ;gigantic beanstalk sticking into room 88
  2687. PrintMessage 51 ;You climb down
  2688. GoToRoom 25 ;west pit
  2689. DoneWithTurn
  2690. END_
  2691.  
  2692. COMMAND CLIMB ANY
  2693. InRoom 230 ;12-ft beanstalk
  2694. PrintMessage 206 ;you climb up the plant
  2695. GoToRoom 23 ;top of pit
  2696. DoneWithTurn
  2697. END_
  2698.  
  2699. COMMAND CLIMB ANY
  2700. InRoom 232 ;12-ft beanstalk sticking into room 23
  2701. PrintMessage 51 ;You climb down
  2702. GoToRoom 25 ;west pit
  2703. DoneWithTurn
  2704. END_
  2705.  
  2706. COMMAND CLIMB ANY
  2707. AtLocation 25 ;west pit
  2708. OR
  2709. AtLocation 24 ;east pit
  2710. PrintMessage 205 ;use UP to climb out of pit
  2711. DoneWithTurn
  2712. END_
  2713.  
  2714. COMMAND CROSS BRIDGE
  2715. Present 245 ;phony troll
  2716. AtLocation 117 ;one side of troll bridge
  2717. GoToRoom 122 ;other side
  2718. PutInCurrentRoom 245 ;phony troll
  2719. PutInCurrentRoom 241 ;troll bridge
  2720. PrintMessage 53 ;You cross
  2721. DoneWithTurn
  2722. END_
  2723.  
  2724. COMMAND CROSS BRIDGE
  2725. Present 245 ;phony troll
  2726. AtLocation 122 ;one side of troll bridge
  2727. GoToRoom 117 ;other side
  2728. PutInCurrentRoom 245 ;phony troll
  2729. PutInCurrentRoom 241 ;troll bridge
  2730. PrintMessage 53 ;You cross
  2731. DoneWithTurn
  2732. END_
  2733.  
  2734. COMMAND CROSS BRIDGE
  2735. NOT InRoom 244 ;troll
  2736. InRoom 241 ;troll bridge
  2737. FlagOFF 4 ;troll can appear
  2738. PutInCurrentRoom 244
  2739. PrintMessage 10 ;Troll appears
  2740. LookAtRoom
  2741. DoneWithTurn
  2742. END_
  2743.  
  2744. COMMAND CROSS BRIDGE
  2745. InRoom 244 ;troll
  2746. PrintMessage 160 ;Troll refuses to let you cross
  2747. DoneWithTurn
  2748. END_
  2749.  
  2750. COMMAND CROSS BRIDGE
  2751. InRoom 243 ;wreckage of bridge
  2752. PrintMessage 161 ;no longer any way to cross
  2753. DoneWithTurn
  2754. END_
  2755.  
  2756. COMMAND CROSS BRIDGE
  2757. InRoom 241 ;troll bridge
  2758. FlagON 1 ;bear is following you
  2759. PrintMessage 162 ;bridge buckles under weight of bear
  2760. Destroy 241 ;troll bridge
  2761. Destroy 244 ;troll
  2762. Destroy 245 ;phony troll
  2763. Destroy 248 ;bear
  2764. TurnFlagOFF 1 ;bear no longer following you
  2765. SendToRoom 243 117 ;bridge wreckage
  2766. GoToRoom 20 ;pit
  2767. MinusScore 10
  2768. SendToRoom 201 3 ;OFF lamp to building
  2769. Destroy 202
  2770. KillPlayer
  2771. DoneWithTurn
  2772. END_
  2773.  
  2774. COMMAND CROSS BRIDGE
  2775. IsNowhere 215 ;crystal bridge
  2776. AtLocation 17 ;East side of fissure
  2777. OR
  2778. AtLocation 27 ;West side of fissure
  2779. PrintMessage 97 ;No way across the fissure
  2780. DoneWithTurn
  2781. END_
  2782.  
  2783. COMMAND FOLLOW STREAM
  2784. AtLocation 141
  2785. PrintMessage 87 ;You $VERB$ the $NOUN for a while
  2786. GoToRoom 4
  2787. DoneWithTurn
  2788. END_
  2789.  
  2790. COMMAND FOLLOW STREAM
  2791. AtLocation 3 ;Inside building
  2792. PrintMessage 204 ;must use exit
  2793. DoneWithTurn
  2794. END_
  2795.  
  2796. COMMAND FOLLOW STREAM
  2797. AtLocation 7 ;at slit
  2798. PrintMessage 95 ;you don't fit
  2799. DoneWithTurn
  2800. END_
  2801.  
  2802. COMMAND FOLLOW STREAM
  2803. AtLocation 4
  2804. PrintMessage 87 ;You $VERB$ the $NOUN for a while
  2805. GoToRoom 7
  2806. DoneWithTurn
  2807. END_
  2808.  
  2809. COMMAND FOLLOW STREAM
  2810. AtLocation 7
  2811. PrintMessage 87 ;You $VERB$ the $NOUN for a while
  2812. GoToRoom 8
  2813. DoneWithTurn
  2814. END_
  2815.  
  2816. COMMAND FOLLOW ROAD
  2817. AtLocation 141
  2818. PrintMessage 87 ;You $VERB$ the $NOUN for a while
  2819. GoToRoom 2
  2820. DoneWithTurn
  2821. END_
  2822.  
  2823. COMMAND FOLLOW ROAD
  2824. AtLocation 2
  2825. PrintMessage 87 ;You $VERB$ the $NOUN for a while
  2826. GoToRoom 141
  2827. DoneWithTurn
  2828. END_
  2829.  
  2830. COMMAND FOLLOW PIRATE
  2831. PrintMessage 25 ;Can't be serious
  2832. PrintMessage 216 ;The $NOUN$ is long gone
  2833. DoneWithTurn
  2834. END_
  2835.  
  2836. COMMAND FOLLOW PROGRAMMER
  2837. PrintMessage 25 ;Can't be serious
  2838. PrintMessage 216 ;The $NOUN$ is long gone
  2839. DoneWithTurn
  2840. END_
  2841.  
  2842. COMMAND FOLLOW DWARF
  2843. FlagON 10 ;in room
  2844. PrintMessage 94 ;It is already here
  2845. DoneWithTurn
  2846. END_
  2847.  
  2848. COMMAND FOLLOW DWARF
  2849. FlagOFF 10 ;not in room
  2850. PrintMessage 56 ;You crawl around for a while
  2851. DoneWithTurn
  2852. END_
  2853.  
  2854. COMMAND FOLLOW TROLL
  2855. NOT InRoom 244
  2856. PrintMessage 80 ;Tell me where to go to $VERB$ the $NOUN$
  2857. DoneWithTurn
  2858. END_
  2859.  
  2860. COMMAND FOLLOW TROLL
  2861. InRoom 244
  2862. PrintMessage 94 ;It is already here
  2863. DoneWithTurn
  2864. END_
  2865.  
  2866. COMMAND CLIMB ANY
  2867. PrintMessage 80 ;Tell me where to go to $VERB$ the $NOUN$
  2868. DoneWithTurn
  2869. END_
  2870.  
  2871. ;TALK TO/TELL/ASK
  2872.  
  2873. COMMAND TALK TO PLANT
  2874. AtLocation 25 ;west pit
  2875. PrintMessage 89 ;Plant cries "water..."
  2876. DoneWithTurn
  2877. END_
  2878.  
  2879. COMMAND TALK TO DWARF
  2880. FlagON 10 ;dwarf in room
  2881. PrintMessage 215 ;$NOUN$ speaks in dwarvish
  2882. DoneWithTurn
  2883. END_
  2884.  
  2885. COMMAND TALK TO FIGURE
  2886. InRoom 235 ;shadowy figure
  2887. OR
  2888. InRoom 236 ;shadowy figure
  2889. PrintMessage 220 ;$NOUN$ speaks in dwarvish
  2890. DoneWithTurn
  2891. END_
  2892.  
  2893. COMMAND TALK TO PIRATE
  2894. PrintMessage 216 ;The $NOUN$ is long gone
  2895. DoneWithTurn
  2896. END_
  2897.  
  2898. COMMAND TALK TO TROLL
  2899. InRoom 244 ;troll
  2900. PrintMessage 217 ;Troll says "give me a treasure"
  2901. DoneWithTurn
  2902. END_
  2903.  
  2904. COMMAND TALK TO ANY
  2905. PrintMessage 218 ;Talking to yourself is sick
  2906. DoneWithTurn
  2907. END_
  2908.  
  2909. ;LIST
  2910.  
  2911. COMMAND LIST ANY
  2912. FlagOFF 5 ;lamp is off
  2913. FlagON 6 ;room needs light
  2914. PrintMessage 16 ;now dark - so can't "LIST EXITS"
  2915. DoneWithTurn
  2916. END_
  2917.  
  2918. ;READ
  2919.  
  2920. COMMAND READ ANY
  2921. AtLocation 31 ;programmer's den
  2922. TurnFlagOFF 16 ;revoke secret words
  2923. TurnFlagON 15 ;programmer is angry
  2924. PrintMessage 213 ;programmer talks of revenge
  2925. MinusScore 25 ;That will teach you
  2926. GoToRoom 44 ;Pirate's maze - just south of Pirate's den
  2927. DoneWithTurn
  2928. END_
  2929.  
  2930. COMMAND READ OYSTER
  2931. FlagOFF 3 ;cave is open
  2932. NOUNpresent
  2933. PrintMessage 190 ;It is written in dwarvish
  2934. DoneWithTurn
  2935. END_
  2936.  
  2937. COMMAND READ ANY
  2938. FlagON 6 ;it is dark
  2939. NOT Present 202 ;lamp
  2940. PrintMessage 22 ;You can't read in the dark
  2941. DoneWithTurn
  2942. END_
  2943.  
  2944. ;EXAMINE
  2945.  
  2946. COMMAND EXAMINE ANY
  2947. AtLocation 31 ;programmer's den
  2948. TurnFlagOFF 16 ;revoke secret words
  2949. TurnFlagON 15 ;programmer is angry
  2950. PrintMessage 213 ;programmer talks of revenge
  2951. MinusScore 25 ;That will teach you
  2952. GoToRoom 44 ;Pirate's maze - just south of Pirate's den
  2953. DoneWithTurn
  2954. END_
  2955.  
  2956. COMMAND EXAMINE STREAM
  2957. AtLocation 3 ;Inside building
  2958. PrintMessage 204 ;It flows out through pipe
  2959. DoneWithTurn
  2960. END_
  2961.  
  2962. COMMAND EXAMINE STREAM
  2963. AtLocation 4 ;valley by stream
  2964. OR
  2965. AtLocation 141 ;by building
  2966. PrintMessage 88 ;describe stream
  2967. DoneWithTurn
  2968. END_
  2969.  
  2970. COMMAND EXAMINE STREAM
  2971. AtLocation 7 ;at slit
  2972. PrintMessage 98 ;describe stream
  2973. DoneWithTurn
  2974. END_
  2975.  
  2976. COMMAND EXAMINE BUILDING
  2977. AtLocation 141 ;outside building
  2978. PrintMessage 155 ;describe it
  2979. DoneWithTurn
  2980. END_
  2981.  
  2982. COMMAND EXAMINE TREE
  2983. NOT AtLocation 3 ;Inside building
  2984. AtLocation 141
  2985. OR
  2986. AtLocationLT 7 ;forest
  2987. PrintMessage 64 ;describe trees
  2988. DoneWithTurn
  2989. END_
  2990.  
  2991. COMMAND EXAMINE GRATE
  2992. AtLocation 8 ;depression
  2993. OR
  2994. AtLocation 9 ;below grate
  2995. OR
  2996. AtLocation 116 ;repository
  2997. PrintMessage 63 ;describe grate
  2998. DoneWithTurn
  2999. END_
  3000.  
  3001. COMMAND EXAMINE CAGE
  3002. Present 210 ;caged bird
  3003. PrintMessage 229 ;describe cage and bird
  3004. DoneWithTurn
  3005. END_
  3006.  
  3007. COMMAND EXAMINE CHASM
  3008. AtLocation 17
  3009. OR
  3010. AtLocation 27
  3011. OR
  3012. AtLocation 117
  3013. OR
  3014. AtLocation 122
  3015. PrintMessage 187 ;describe chasm
  3016. DoneWithTurn
  3017. END_
  3018.  
  3019. COMMAND EXAMINE MIST
  3020. PrintMessage 69 ;describe mist
  3021. DoneWithTurn
  3022. END_
  3023.  
  3024. COMMAND EXAMINE MAZE
  3025. AtLocation 107 ;vending machine maze
  3026. OR
  3027. AtLocation 112
  3028. OR
  3029. AtLocationGT 130
  3030. AtLocationLT 141
  3031. PrintMessage 156 ;Describe it
  3032. DoneWithTurn
  3033. END_
  3034.  
  3035. COMMAND EXAMINE MAZE
  3036. AtLocationGT 41 ;pirate's maze
  3037. AtLocationLT 57
  3038. PrintMessage 156 ;Describe it
  3039. DoneWithTurn
  3040. END_
  3041.  
  3042. COMMAND EXAMINE CAVE
  3043. AtLocationGT 10 ;in cave
  3044. AtLocationLT 141
  3045. PrintMessage 226 ;Describe cave walls etc.
  3046. DoneWithTurn
  3047. END_
  3048.  
  3049. COMMAND EXAMINE ROAD
  3050. AtLocation 2 ;top of hill
  3051. OR 
  3052. AtLocation 141 ;end of road 
  3053. PrintMessage 227 ;Describe road
  3054. DoneWithTurn
  3055. END_
  3056.  
  3057. ;FEE FIE FOE FOO
  3058.  
  3059. COMMAND FEE
  3060. AddToVariable 2 1 ;Add 1 to counter
  3061. NOT VariableEquals 2 4 ;Not to 4 yet
  3062. PrintMessage 42 ;nothing happens
  3063. DoneWithTurn
  3064. END_
  3065.  
  3066. COMMAND FOO
  3067. VariableEquals 2 4 ;OK - done with sequence
  3068. AtLocation 92 ;Giant room
  3069. Present 260 ;eggs
  3070. PrintMessage 42 ;nothing happens
  3071. SetVariableTo 2 0 ;Reset counter
  3072. DoneWithTurn
  3073. END_
  3074.  
  3075. COMMAND FOO
  3076. VariableEquals 2 4 ;OK - done with sequence
  3077. NOT AtLocation 92 ;Giant room
  3078. Present 260 ;eggs
  3079. DropIt 261 ;phony eggs
  3080. Destroy 260 ;real eggs
  3081. PrintMessage 93 ;Eggs vanish
  3082. SetVariableTo 2 0 ;Reset counter
  3083. DoneWithTurn
  3084. END_
  3085.  
  3086. COMMAND FOO
  3087. VariableEquals 2 4 ;OK - done with sequence
  3088. IsNowhere 260 ;eggs
  3089. Destroy 261 ;phony eggs
  3090. SendToRoom 260 92 ;real eggs go to Giant room
  3091. PrintMessage 65 ;Magic has been done
  3092. SetVariableTo 2 0 ;Reset counter
  3093. DoneWithTurn
  3094. END_
  3095.  
  3096. COMMAND FOO
  3097. VariableEquals 2 4 ;OK - done with sequence
  3098. PrintMessage 42 ;nothing happens
  3099. SetVariableTo 2 0 ;Reset counter
  3100. DoneWithTurn
  3101. END_
  3102.  
  3103. ;HELP
  3104.  
  3105. COMMAND HELP ANY
  3106. AtLocation 100 ;plover room
  3107. OR
  3108. AtLocation 101 ;dark room
  3109. PrintMessage 178 ;are you trying to explore beyond plover room?
  3110. PromptForYes
  3111. PrintMessage 175 ;Do you want a hint?
  3112. PromptForYes
  3113. TurnFlagON 9 ;hint has been rejected - so far
  3114. PrintMessage 143 ;The hint will cost your 5 points
  3115. PrintMessage 1 ;Is that OK?
  3116. PromptForYes
  3117. TurnFlagOFF 9 ;hint has been accepted
  3118. PrintMessage 179 ;None of the objects is useful
  3119. MinusScore 5
  3120. DoneWithTurn
  3121. END_
  3122.  
  3123. COMMAND HELP ANY
  3124. FlagOFF 19 ;maze hint has not been given, yet
  3125. AtLocation 107 ;vending machine maze
  3126. OR
  3127. AtLocation 112
  3128. OR
  3129. AtLocationGT 130
  3130. AtLocationLT 141
  3131. PrintMessage 177 ;Drop stuff
  3132. TurnFlagON 19 ;hint has been given
  3133. DoneWithTurn
  3134. END_
  3135.  
  3136. COMMAND HELP ANY
  3137. FlagON 19 ;maze hint has been given
  3138. AtLocation 107 ;vending machine maze
  3139. OR
  3140. AtLocation 112
  3141. OR
  3142. AtLocationGT 130
  3143. AtLocationLT 141
  3144. PrintMessage 68 ;I'm as confused as you are
  3145. DoneWithTurn
  3146. END_
  3147.  
  3148. COMMAND HELP ANY
  3149. FlagOFF 19 ;maze hint has not been given, yet
  3150. AtLocationGT 41 ;pirate's maze
  3151. AtLocationLT 57
  3152. PrintMessage 177 ;Drop stuff
  3153. TurnFlagON 19 ;hint has been given
  3154. DoneWithTurn
  3155. END_
  3156.  
  3157. COMMAND HELP ANY
  3158. FlagON 19 ;maze hint has been given
  3159. AtLocationGT 41 ;pirate's maze
  3160. AtLocationLT 57
  3161. PrintMessage 68 ;I'm as confused as you are
  3162. DoneWithTurn
  3163. END_
  3164.  
  3165. COMMAND HELP ANY
  3166. AtLocation 108 ;Witt's End
  3167. PrintMessage 180 ;are you trying to get out of here?
  3168. PromptForYes
  3169. PrintMessage 175 ;Do you want a hint?
  3170. PromptForYes
  3171. TurnFlagON 9 ;hint has been rejected - so far
  3172. PrintMessage 143 ;The hint will cost your 5 points
  3173. PrintMessage 1 ;Is that OK?
  3174. PromptForYes
  3175. TurnFlagOFF 9 ;hint has been accepted
  3176. PrintMessage 181 ;Keep going east
  3177. MinusScore 5
  3178. DoneWithTurn
  3179. END_
  3180.  
  3181. COMMAND HELP ANY
  3182. FlagON 9 ;hint was rejected
  3183. TurnFlagOFF 9
  3184. PrintMessage 86 ;OK, do it yourself
  3185. DoneWithTurn
  3186. END_
  3187.  
  3188. ;TURN
  3189.  
  3190. COMMAND TURN LIGHT
  3191. PrintMessage 221 ;use light & extinguish
  3192. DoneWithTurn
  3193. END_
  3194.  
  3195.