home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCAMES / GAMETOL2 / SQUY-SRC.ZOO / squynch.cmd next >
Encoding:
Text File  |  1988-06-04  |  74.0 KB  |  2,713 lines
  1.  
  2. (* ---------------------------------------------------------------------------*)
  3. (* REM   Flag 1 -- Status of gate -- ON = Open, OFF = Closed                  *)
  4. (* REM   Flag 2 -- Status of coin -- ON = Wrapped, OFF = Not Wrapped          *)
  5. (* REM   Flag 3 -- Status of carpet -- ON = Rolled, OFF = Not Rolled          *)
  6. (* REM   Flag 4 -- Status of block -- ON = In Pail, OFF = Not In Pail         *)
  7. (* REM   Flag 5 -- Status of key -- ON = Player found it, OFF = under doormat *)
  8. (* REM   Flag 6 -- Status of ORC  -- ON = Following Player                    *)
  9. (* REM   Flag 7 -- Status of PIPE -- ON = Lit, OFF = NOT Lit                  *)
  10. (* REM   Flag 8 -- Status of PAIL -- ON = Pail is full of water               *)
  11. (* REM   Flag 9 -- Status of carpet -- ON = put under boulder                 *)
  12. (* REM   Flag 10 - Status of door -- ON = Open, OFF = Closed                  *)
  13. (* REM   Flag 11 - Status of staff -- ON = bolts door                         *)
  14. (* REM   Flag 12 - Status of ruby -- ON = Freed from case                     *)
  15. (* REM   Flag 13 - Status of beast -- ON = Freed from cage                    *)
  16. (* REM   Flag 14 - Status of ruby -- ON = Put in crown                        *)
  17. (* ---------------------------------------------------------------------------*)
  18. (* REM   Test 1 -- test for candle having been extinguished                   *)
  19. (* REM   Test 2 -- Status of lunchbox -- open or closed                       *)
  20. (* REM   Test 3 -- Status of trapdoor -- open of closed                       *)
  21. (* REM   Test 4 -- test for first time on scale                               *)
  22. (* REM   Test 5 -- test for first time to "GET BLOCK"                         *)
  23. (* REM   Test 6 -- not used                                                   *)
  24. (* REM   Test 7 -- Status of vial -- open or closed                           *)
  25. (* REM   Test 8 -- Status of clothspin -- on clothline or not                 *)
  26. (* REM   Test 9 -- Status of clothspin -- on nose or not                      *)
  27. (* REM   Test 10 - test if player got gold from gloom                         *)
  28. (* ---------------------------------------------------------------------------*)
  29.  
  30. (* REM --- ANY Commands *)
  31.  
  32. COMMAND ANY ANY
  33. NewLife (* Player has just begun game or been resurrected *)
  34. TurnFlagON 3 (* Carpet is rolled at beginning of game *)
  35. END_COMMAND
  36.  
  37. COMMAND ANY ANY
  38. AtLocation 4 (* Player is in Cave *)
  39. IsLocated 220  3 (* ogres is in Front of cave *)
  40. GoToRoom 3 (* Move Player to Front of cave *)
  41. PrintMessage 94 (* A hairy arm reaches out and grabs you by the scruff of *)
  42. LookAtRoom (* Display room *)
  43. DoneWithTurn
  44. END_COMMAND
  45.  
  46. COMMAND ANY ANY
  47. AtLocation 20 (* Player is in Moat *)
  48. PrintMessage 128 (* "How can a little bathing hurt?", you think to yourself *)
  49. KillPlayer (* You die! *)
  50. DoneWithTurn
  51. END_COMMAND
  52.  
  53. COMMAND ANY ANY
  54. AtLocation 27 (* Player is in Royal Laundry Room *)
  55. IsLocated 259  24 (* test eight is in Nothing *)
  56. PrintMessage 240 (* There is a clothpin attached to the clothline.  *)
  57. END_COMMAND
  58.  
  59. COMMAND ANY ANY
  60. NOT AtLocation 14 (* Player is NOT in Front of Castle *)
  61. FlagON 6 (* Flag # 6 is ON -- Orc Following Player *)
  62. PutInCurrentRoom 225 (* Move orc to current room *)
  63. PrintMessage 144 (* An orc followed you in, carefully scrutinizing your loa *)
  64. END_COMMAND
  65.  
  66. COMMAND ANY ANY
  67. AtLocation 14 (* Player is in Front of Castle *)
  68. FlagON 6 (* Flag # 6 is ON -- Orc Following Player *)
  69. PutInCurrentRoom 225 (* Move orc to current room *)
  70. END_COMMAND
  71.  
  72. COMMAND ANY ANY
  73. AtLocation 13 (* Player is in Gloom *)
  74. InRoom 226 (* gold is in current Room *)
  75. PrintMessage 226 (* There is a bar of gold here, embedded in the center of  *)
  76. END_COMMAND
  77.  
  78. COMMAND ANY ANY
  79. AtLocation 13 (* Player is in Gloom *)
  80. IsLocated 261  24 (* test ten is in Nothing *)
  81. PrintMessage 226 (* There is a bar of gold here, embedded in the center of  *)
  82. END_COMMAND
  83.  
  84. COMMAND ANY ANY
  85. TurnFlagOFF 100 (* Continuation Flag *)
  86. AtLocation 19 (* Player is in On the scale *)
  87. NOT FlagON 10 (* Flag # 10 is OFF *)
  88. Present 202 (* gnarled staff is present *)
  89. Present 204 (* lunchbox is present *)
  90. Present 206 (* metal pipe is present *)
  91. Present 207 (* wax candle is present *)
  92. Present 208 (* worn doormat is present *)
  93. Present 209 (* gold coin is present *)
  94. Present 210 (* ancient revolver is present *)
  95. TurnFlagON 100
  96. END_COMMAND
  97.  
  98. COMMAND ANY ANY
  99. FlagON 100 (* Continuation from prior Meta-command *)
  100. Present 210 (* ancient revolver is present *)
  101. Present 218 (* ornate vase is present *)
  102. Present 223 (* dried meat is present *)
  103. Present 231 (* wooden pail is present *)
  104. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  105. FlagON 4 (* Flag # 4 is ON *)
  106. Present 233 (* plaque is present *)
  107. PrintMessage 9 (* A shrill mechanical voice exclaims, "OOF!! <gasp> Pleas *)
  108. TurnFlagON 10 (* Turn Flag # 10 ON *)
  109. END_COMMAND
  110.  
  111. COMMAND ANY ANY
  112. AtLocation 19 (* Player is in On the scale *)
  113. NOT FlagON 10 (* Flag # 10 is OFF *)
  114. IsLocated 241  24 (* test four is in Nothing *)
  115. Destroy 241 (* Move test four to room Zero *)
  116. PrintMessage 87 (* A shrill mechanical voice exclaims," Haven't you read t *)
  117. END_COMMAND
  118.  
  119. COMMAND ANY ANY
  120. AtLocation 19 (* Player is in On the scale *)
  121. NOT FlagON 10 (* Flag # 10 is OFF *)
  122. IsNoWhere 241 (* test four is in room Zero -- NoWhere *)
  123. PrintMessage 88 (* A shrill mechanical voice shouts, " H.....E.....A....V.  *)
  124. END_COMMAND
  125.  
  126. (* REM -- EXTINGUISH *)
  127.  
  128. COMMAND EXTINGUISH CANDLE
  129. NOUNPresent (* NOUN is present *)
  130. IsLocated 237  24 (* test one is in Nothing *)
  131. Destroy 237 (* Move test one to room Zero *)
  132. PrintMessage 35 (* Extinguished.  *)
  133. DoneWithTurn
  134. END_COMMAND
  135.  
  136. COMMAND EXTINGUISH CANDLE
  137. NOUNPresent (* NOUN is present *)
  138. NOT IsLocated 237  24 (* test one is NOT in Nothing *)
  139. PrintMessage 36 (* It already IS extinguished! *)
  140. DoneWithTurn
  141. END_COMMAND
  142.  
  143. COMMAND EXTINGUISH PIPE
  144. NOUNPresent (* NOUN is present *)
  145. NOT FlagON 7 (* Flag # 7 is OFF -- Pipe is NOT Lit *)
  146. PrintMessage 42 (* It was never lit.  *)
  147. DoneWithTurn
  148. END_COMMAND
  149.  
  150. COMMAND EXTINGUISH PIPE
  151. FlagON 7 (* Flag # 7 is ON -- Pipe is Lit *)
  152. PrintMessage 35 (* Extinguished.  *)
  153. TurnFlagOFF 7 (* Turn Flag # 7 OFF -- Pipe is NOT Lit *)
  154. DoneWithTurn
  155. END_COMMAND
  156.  
  157. (* REM -- SMOKE *)
  158.  
  159. COMMAND SMOKE PIPE
  160. NOUNPresent (* NOUN is present *)
  161. FlagON 7 (* Flag # 7 is ON -- Pipe is Lit *)
  162. PrintMessage 43 (* You inhale deeply from the metal pipe, and appreciative *)
  163. DoneWithTurn
  164. END_COMMAND
  165.  
  166. COMMAND SMOKE PIPE
  167. NOT FlagON 7 (* Flag # 7 is OFF -- Pipe is NOT Lit *)
  168. PrintMessage 42 (* It was never lit.  *)
  169. DoneWithTurn
  170. END_COMMAND
  171.  
  172. COMMAND SMOKE ANY
  173. NOT NOUNPresent (* NOUN is NOT present *)
  174. PrintMessage 1 (* ? Now where do you see any of that?? *)
  175. DoneWithTurn
  176. END_COMMAND
  177.  
  178. (* REM -- PULL *)
  179.  
  180. COMMAND PULL BLOCK
  181. NOUNPresent (* NOUN is present *)
  182. AtLocation 9 (* Player is in Well *)
  183. PutInCurrentRoom 229 (* Move yellowed note to current room *)
  184. PrintMessage 44 (* As you pull out the block, an aged, and yellowed note f *)
  185. GetNOUN (* Get it *)
  186. DoneWithTurn
  187. END_COMMAND
  188.  
  189. COMMAND PULL BLOCK
  190. NOUNPresent (* NOUN is present *)
  191. NOT AtLocation 9 (* Player is NOT in Well *)
  192. GetNOUN (* Get it *)
  193. PrintMessage 45 (* Taken.  *)
  194. DoneWithTurn
  195. END_COMMAND
  196.  
  197. COMMAND PULL BOULDER
  198. InRoom 219 (* boulder is in current Room *)
  199. PrintMessage 178 (* Sure! No sweat! Why didn't I think of that one? *)
  200. DoneWithTurn
  201. END_COMMAND
  202.  
  203. (* REM -- LIGHT -- HEAT -- MELT -- BURN *)
  204.  
  205. COMMAND LIGHT CANDLE
  206. NOUNPresent (* NOUN is present *)
  207. IsLocated 237  24 (* test one is in Nothing *)
  208. PrintMessage 40 (* It already IS lit.  *)
  209. DoneWithTurn
  210. END_COMMAND
  211.  
  212. COMMAND LIGHT CANDLE
  213. NOUNPresent (* NOUN is present *)
  214. NOT IsLocated 237  24 (* test one is NOT in Nothing *)
  215. PrintMessage 41 (* You cannot relight the candle.  *)
  216. DoneWithTurn
  217. END_COMMAND
  218.  
  219. COMMAND LIGHT PIPE
  220. NOUNPresent (* NOUN is present *)
  221. IsCarrying 207 (* Player is carrying wax candle *)
  222. IsLocated 237  24 (* test one is in Nothing *)
  223. FlagON 7 (* Flag # 7 is ON -- Pipe is Lit *)
  224. PrintMessage 40 (* It already IS lit.  *)
  225. DoneWithTurn
  226. END_COMMAND
  227.  
  228. COMMAND LIGHT PIPE
  229. NOUNPresent (* NOUN is present *)
  230. IsCarrying 207 (* Player is carrying wax candle *)
  231. NOT FlagON 7 (* Flag # 7 is OFF -- Pipe is NOT Lit *)
  232. IsLocated 237  24 (* test one is in Nothing *)
  233. PrintMessage 210 (* The pipe is now lit and it warms up a bit.  *)
  234. TurnFlagON 7 (* Turn Flag # 7 ON -- Pipe is Lit *)
  235. PlusScore 25 (* Add 25 to score *)
  236. DoneWithTurn
  237. END_COMMAND
  238.  
  239. COMMAND LIGHT PIPE
  240. NOUNPresent (* NOUN is present *)
  241. IsCarrying 207 (* Player is carrying wax candle *)
  242. NOT IsLocated 237  24 (* test one is NOT in Nothing *)
  243. PrintMessage 41 (* You cannot relight the candle.  *)
  244. DoneWithTurn
  245. END_COMMAND
  246.  
  247. COMMAND LIGHT PIPE
  248. NOUNPresent (* NOUN is present *)
  249. NOT IsCarrying 207 (* Player is NOT carrying wax candle *)
  250. PrintMessage 39 (* You don't have anything to light it with.  *)
  251. DoneWithTurn
  252. END_COMMAND
  253.  
  254. COMMAND MELT ICE
  255. NOUNPresent (* NOUN is present *)
  256. PrintMessage 47 (* How do you propose to do that? *)
  257. DoneWithTurn
  258. END_COMMAND
  259.  
  260. (* REM -- DROP *)
  261.  
  262. COMMAND DROP PIPE
  263. RedirectTo PUT PIPE
  264. END_COMMAND
  265.  
  266. COMMAND DROP GOLD
  267. NOUNIsCarrying (* Player is carrying NOUN *)
  268. FlagON 6 (* Flag # 6 is ON -- Orc Following Player *)
  269. InRoom 225 (* orc is in current Room *)
  270. PrintMessage 225 (* The orc, with frightening force, missiles in at your ha *)
  271. DestroyNOUN (* Move NOUN to Room Zero*)
  272. SendToRoom 225  14 (* Move orc to Front of Castle *)
  273. TurnFlagOFF 6 (* Turn Flag # 6 OFF -- Orc NOT Following Player *)
  274. DoneWithTurn
  275. END_COMMAND
  276.  
  277. COMMAND DROP GOLD
  278. NOUNIsCarrying (* Player is carrying NOUN *)
  279. NOT FlagON 6 (* Flag # 6 is OFF -- Orc NOT Following Player *)
  280. PutNOUNInCurrentRoom (* Move NOUN to Current Room *)
  281. PrintMessage 140 (* Dropped.  *)
  282. DoneWithTurn
  283. END_COMMAND
  284.  
  285. (* REM -- BREAK -- SMASH *)
  286.  
  287. COMMAND BREAK ICE
  288. AtLocation 9 (* Player is in Well *)
  289. NOUNInRoom (* NOUN is in current room *)
  290. PrintMessage 52 (* The ice doesn't even crack.  *)
  291. DoneWithTurn
  292. END_COMMAND
  293.  
  294. COMMAND BREAK GLASS
  295. Present 213 (* glass is present *)
  296. PrintMessage 13 (* Stuff's made out of tough stuff.  After banging, beating *)
  297. DoneWithTurn
  298. END_COMMAND
  299.  
  300. COMMAND BREAK VASE
  301. NOUNPresent (* NOUN is present *)
  302. DestroyNOUN (* Move NOUN to Room Zero*)
  303. PutInCurrentRoom 244 (* Move sales tag to current room *)
  304. PrintMessage 179 (* The vase smashes into smithereens, revealing a sales ta *)
  305. DoneWithTurn
  306. END_COMMAND
  307.  
  308. COMMAND BREAK BOULDER
  309. PrintMessage 86 (* How absolutely amusing....  *)
  310. DoneWithTurn
  311. END_COMMAND
  312.  
  313. COMMAND BREAK ANY
  314. NOT NOUNPresent (* It isn't here *)
  315. PrintMessage 1 (* ? Now where do you see any of that?? *)
  316. DoneWithTurn
  317. END_COMMAND
  318.  
  319. (* REM -- SHOW *)
  320.  
  321. COMMAND SHOW GOLD
  322. NOUNIsCarrying (* Player is carrying NOUN *)
  323. InRoom 225 (* orc is in current Room *)
  324. NOT FlagON 6 (* Flag # 6 is OFF -- Orc NOT Following Player *)
  325. PrintMessage 55 (* The orc's eyeballs widen, and his mouth hangs agape, as *)
  326. TurnFlagON 6 (* Turn Flag # 6 ON -- Orc Following Player *)
  327. DoneWithTurn
  328. END_COMMAND
  329.  
  330. COMMAND SHOW GOLD
  331. NOUNIsCarrying (* Player is carrying NOUN *)
  332. InRoom 225 (* orc is in current Room *)
  333. FlagON 6 (* Flag # 6 is ON -- Orc Following Player *)
  334. PrintMessage 56 (* The orc crouches low and pounces on you, grabbing away  *)
  335. DestroyNOUN (* Move NOUN to Room Zero*)
  336. DoneWithTurn
  337. END_COMMAND
  338.  
  339. COMMAND SHOW GOLD
  340. NOUNIsCarrying (* Player is carrying NOUN *)
  341. NOT InRoom 225 (* orc is NOT in current Room *)
  342. InRoom 220 (* ogres is in current Room *)
  343. PrintMessage 57 (* The ogres pause, just long enough to eye your gold disi *)
  344. DoneWithTurn
  345. END_COMMAND
  346.  
  347. COMMAND SHOW GOLD
  348. NOUNIsCarrying (* Player is carrying NOUN *)
  349. NOT InRoom 220 (* ogres is NOT in current Room *)
  350. NOT InRoom 225 (* orc is NOT in current Room *)
  351. PrintMessage 58 (* To WHO?!!? *)
  352. DoneWithTurn
  353. END_COMMAND
  354.  
  355. COMMAND SHOW ORC
  356. NOUNPresent (* NOUN is present *)
  357. PrintMessage 208 (* Such illiteracy may be harmful.The orc lifts you by you *)
  358. DoneWithTurn
  359. END_COMMAND
  360.  
  361. COMMAND SHOW ANY
  362. NOT NOUNPresent (* NOUN isn't here *)
  363. PrintMessage 1 (* ? Now where do you see any of that?? *)
  364. DoneWithTurn
  365. END_COMMAND
  366.  
  367. (* REM -- THROW *)
  368.  
  369. COMMAND THROW GOLD
  370. NOUNIsCarrying (* Player is carrying NOUN *)
  371. FlagON 6 (* Flag # 6 is ON -- Orc Following Player *)
  372. AtLocation 22 (* Player is in Front of Moat *)
  373. DestroyNOUN (* Move NOUN to Room Zero*)
  374. Destroy 225 (* Move orc to room Zero *)
  375. PrintMessage 59 (* With wild, and frenzied yowls of greed, the orc charges *)
  376. PlusScore 30 (* Add 30 to score *)
  377. TurnFlagOFF 6 (* Turn Flag # 6 OFF -- Orc NOT Following Player *)
  378. DoneWithTurn
  379. END_COMMAND
  380.  
  381. COMMAND THROW GOLD
  382. NOUNIsCarrying (* Player is carrying NOUN *)
  383. NOT FlagON 6 (* Flag # 6 is OFF -- Orc NOT Following Player *)
  384. AtLocation 22 (* Player is in Front of Moat *)
  385. DestroyNOUN (* Move NOUN to Room Zero*)
  386. PrintMessage 60 (* Done.  *)
  387. DoneWithTurn
  388. END_COMMAND
  389.  
  390. COMMAND THROW GOLD
  391. NOUNIsCarrying (* Player is carrying NOUN *)
  392. NOT AtLocation 22 (* Player is NOT in Front of Moat *)
  393. AtLocation 14 (* Player is in Front of Castle *)
  394. PrintMessage 61 (* The orc's hand suddenly shoots up into the air, catchin *)
  395. DestroyNOUN (* Move NOUN to Room Zero*)
  396. DoneWithTurn
  397. END_COMMAND
  398.  
  399. COMMAND THROW GOLD
  400. NOUNIsCarrying (* Player is carrying NOUN *)
  401. NOT AtLocation 22 (* Player is NOT in Front of Moat *)
  402. NOT AtLocation 14 (* Player is NOT in Front of Castle *)
  403. PrintMessage 96 (* Whew! What a terrible arm! You throw it a few meager pa *)
  404. DropNOUN (* Move NOUN to current room *)
  405. DoneWithTurn
  406. END_COMMAND
  407.  
  408. COMMAND THROW ANY
  409. PrintMessage 96 (* Whew! What a terrible arm! You throw it a few meager pa *)
  410. DropNOUN (* Move NOUN to current room *)
  411. DoneWithTurn
  412. END_COMMAND
  413.  
  414. (* REM -- GIVE *)
  415.  
  416. COMMAND GIVE GOLD
  417. NOUNIsCarrying (* Player is carrying NOUN *)
  418. InRoom 225 (* orc is in current Room *)
  419. DestroyNOUN (* Move NOUN to Room Zero*)
  420. PrintMessage 62 (* "Wow!", exclaims the orc incredously."What's a little s *)
  421. DoneWithTurn
  422. END_COMMAND
  423.  
  424. COMMAND GIVE GOLD
  425. NOUNIsCarrying (* Player is carrying NOUN *)
  426. InRoom 220 (* ogres is in current Room *)
  427. PrintMessage 63 (* With yelps of childishly glee, B'gig and B'gog, swipe o *)
  428. DestroyNOUN (* Move NOUN to Room Zero*)
  429. DoneWithTurn
  430. END_COMMAND
  431.  
  432. COMMAND GIVE GOLD
  433. NOT InRoom 220 (* ogres is NOT in current Room *)
  434. NOT InRoom 225 (* orc is NOT in current Room *)
  435. PrintMessage 58 (* To WHO?!!? *)
  436. DoneWithTurn
  437. END_COMMAND
  438.  
  439. COMMAND GIVE COIN
  440. NOUNPresent (* NOUN is present *)
  441. InRoom 220 (* ogres is in current Room *)
  442. DestroyNOUN (* Move NOUN to Room Zero*)
  443. Destroy 203 (* Move crumpled wrapper to room Zero *)
  444. SwapLocations 220  235 (* Swap locations of ogres and paralized ogres *)
  445. PrintMessage 19 (* Greedily, and with yelps of delight and glee, B'gig and *)
  446. DoneWithTurn
  447. END_COMMAND
  448.  
  449. COMMAND GIVE COIN
  450. NOT InRoom 220 (* ogres is NOT in current Room *)
  451. InRoom 225 (* orc is in current Room *)
  452. PrintMessage 22 (* The orcs eyeballs bulge out revoltingly, as he swipes i *)
  453. DestroyNOUN (* Move NOUN to Room Zero*)
  454. Destroy 203 (* Move crumpled wrapper to room Zero *)
  455. DoneWithTurn
  456. END_COMMAND
  457.  
  458. COMMAND GIVE COIN
  459. NOT InRoom 220 (* ogres is NOT in current Room *)
  460. NOT InRoom 225 (* orc is NOT in current Room *)
  461. PrintMessage 58 (* To WHO?!!? *)
  462. DoneWithTurn
  463. END_COMMAND
  464.  
  465. COMMAND GIVE MEAT TO BEAST
  466. ReDirectTo FEED BEAST
  467. END_COMMAND
  468.  
  469. COMMAND GIVE ANY
  470. NOUNPresent (* NOUN is present *)
  471. InRoom 225 (* orc is in current Room *)
  472. DestroyNOUN (* Move NOUN to Room Zero*)
  473. PrintMessage 22 (* The orcs eyeballs bulge out revoltingly, as he swipes i *)
  474. DoneWithTurn
  475. END_COMMAND
  476.  
  477. COMMAND GIVE ANY
  478. NOUNPresent (* NOUN is present *)
  479. NOT InRoom 225 (* orc is NOT in current Room *)
  480. InRoom 220 (* ogres is in current Room *)
  481. PrintMessage 23 (* The ogres cease quarreling,just long enough to eye your *)
  482. DoneWithTurn
  483. END_COMMAND
  484.  
  485. COMMAND GIVE ANY
  486. NOUNPresent (* NOUN is present *)
  487. NOT InRoom 225 (* orc is NOT in current Room *)
  488. NOT InRoom 220 (* ogres is NOT in current Room *)
  489. PrintMessage 58 (* To WHO?!!? *)
  490. DoneWithTurn
  491. END_COMMAND
  492.  
  493. COMMAND GIVE ORC
  494. NOUNPresent (* NOUN is present *)
  495. PrintMessage 137 (* Such illiteracy can be harmful.The orc lifts you by you *)
  496. DoneWithTurn
  497. END_COMMAND
  498.  
  499. COMMAND GIVE ANY
  500. NOT NOUNPresent (* NOUN is NOT present *)
  501. PrintMessage 1 (* ? Now where do you see any of that?? *)
  502. DoneWithTurn
  503. END_COMMAND
  504.  
  505. (* REM -- CROSS *)
  506.  
  507. COMMAND CROSS BRIDGE
  508. ReDirectTo GO BRIDGE
  509. END_COMMAND
  510.  
  511. (* REM -- FILL *)
  512.  
  513. COMMAND FILL PAIL
  514. NOUNIsCarrying (* Player is carrying NOUN *)
  515. AtLocation 18 (* Player is in Drawbridge *)
  516. FlagON 4 (* Flag # 4 is ON *)
  517. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  518. PrintMessage 60 (* Done.  *)
  519. TurnFlagON 8 (* Turn Flag # 8 ON -- Pail is full of water *)
  520. DoneWithTurn
  521. END_COMMAND
  522.  
  523. COMMAND FILL PAIL
  524. NOUNIsCarrying (* Player is carrying NOUN *)
  525. AtLocation 18 (* Player is in Drawbridge *)
  526. FlagON 4 (* Flag # 4 is ON *)
  527. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  528. PrintMessage 65 (* It IS filled.  *)
  529. DoneWithTurn
  530. END_COMMAND
  531.  
  532. COMMAND FILL PAIL
  533. NOUNIsCarrying (* Player is carrying NOUN *)
  534. AtLocation 18 (* Player is in Drawbridge *)
  535. NOT FlagON 4 (* Flag # 4 is OFF *)
  536. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  537. PrintMessage 66 (* You try filling it but it just bobs along the surface a *)
  538. DoneWithTurn
  539. END_COMMAND
  540.  
  541. COMMAND FILL PAIL
  542. NOUNIsCarrying (* Player is carrying NOUN *)
  543. NOT AtLocation 18 (* Player is NOT in Drawbridge *)
  544. AtLocation 22 (* Player is in Front of Moat *)
  545. PrintMessage 68 (* You're going to have to go deeper in, for that.  *)
  546. DoneWithTurn
  547. END_COMMAND
  548.  
  549. COMMAND FILL PAIL
  550. NOUNPresent (* Pail is here *)
  551. NOT AtLocation 18 (* Player is NOT in Drawbridge *)
  552. NOT AtLocation 22 (* Player is NOT in Front of Moat *)
  553. PrintMessage 67 (* Fill it with WHAT?!!? *)
  554. DoneWithTurn
  555. END_COMMAND
  556.  
  557. COMMAND FILL VASE
  558. NOUNIsCarrying (* Player is carrying NOUN *)
  559. AtLocation 22 (* Player is in Front of Moat *)
  560. PrintMessage 68 (* You're going to have to go deeper in, for that.  *)
  561. DoneWithTurn
  562. END_COMMAND
  563.  
  564. COMMAND FILL VASE
  565. NOUNIsCarrying (* Player is carrying NOUN *)
  566. NOT AtLocation 22 (* Player is NOT in Front of Moat *)
  567. AtLocation 18 (* Player is in Drawbridge *)
  568. PrintMessage 66 (* You try filling it but it just bobs along the surface a *)
  569. DoneWithTurn
  570. END_COMMAND
  571.  
  572. COMMAND FILL VASE
  573. NOUNIsCarrying (* Player is carrying NOUN *)
  574. NOT AtLocation 22 (* Player is NOT in Front of Moat *)
  575. NOT AtLocation 18 (* Player is NOT in Drawbridge *)
  576. PrintMessage 67 (* Fill it with WHAT?!!? *)
  577. DoneWithTurn
  578. END_COMMAND
  579.  
  580. COMMAND FILL ANY
  581. NOT NOUNPresent (* NOUN is NOT here *)
  582. PrintMessage 1 (* ? Now where do you see any of that?? *)
  583. DoneWithTurn
  584. END_COMMAND
  585.  
  586. (* REM -- LOWER *)
  587.  
  588. COMMAND LOWER PAIL
  589. ReDirectTo FILL PAIL
  590. END_COMMAND
  591.  
  592. (* REM -- STEP *)
  593.  
  594. COMMAND STEP ON SCALE
  595. AtLocation 16 (* Player is in Front of Crownroom *)
  596. GoToRoom 19 (* Move Player to On the scale *)
  597. DoneWithTurn
  598. END_COMMAND
  599.  
  600. COMMAND STEP OFF SCALE
  601. AtLocation 19 (* Player is On the Scale *)
  602. GoToRoom 16 (* Move Player to Front of Crownroom *)
  603. DoneWithTurn
  604. END_COMMAND
  605.  
  606. COMMAND STEP ON SCALE
  607. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  608. NOT AtLocation 19 (* Player is NOT On the Scale *)
  609. PrintMessage 1 (* ? Now where do you see any of that?? *)
  610. DoneWithTurn
  611. END_COMMAND
  612.  
  613. (* REM -- STAND *)
  614.  
  615. COMMAND STAND ON SCALE
  616. AtLocation 16 (* Player is in Front of Crownroom *)
  617. GoToRoom 19 (* Move Player to On the scale *)
  618. DoneWithTurn
  619. END_COMMAND
  620.  
  621. COMMAND STAND ANY
  622. PrintMessage 72 (* You can't.  *)
  623. DoneWithTurn
  624. END_COMMAND
  625.  
  626. (* REM -- SIT *)
  627.  
  628. COMMAND SIT ON CARPET
  629. NOUNPresent (* NOUN is present *)
  630. PrintMessage 139 (* Mercy! Mayhap thinketh thee tis' Arabian Knights thou a *)
  631. DoneWithTurn
  632. END_COMMAND
  633.  
  634. COMMAND SIT ANY
  635. AtLocation 15 (* Player is in Waiting room *)
  636. PrintMessage 71 (* You are now sitting on an extremely comfortable bench.  *)
  637. DoneWithTurn
  638. END_COMMAND
  639.  
  640. (* REM -- SLEEP *)
  641.  
  642. COMMAND SLEEP ANY
  643. AtLocation 7 (* Player is in Bedroom *)
  644. PrintMessage 73 (* You get into the bed but can't sleep.  You have a fine b *)
  645. DoneWithTurn
  646. END_COMMAND
  647.  
  648. COMMAND SLEEP ANY
  649. PrintMessage 75 (* You just slept, didn't you read the introduction? *)
  650. DoneWithTurn
  651. END_COMMAND
  652.  
  653. (* REM -- EMPTY *)
  654.  
  655. COMMAND EMPTY PAIL
  656. NOUNPresent (* NOUN is present *)
  657. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  658. PrintMessage 77 (* It all empties out.  *)
  659. TurnFlagOFF 8 (* Turn Flag # 8 OFF -- Pail is NOT full of water *)
  660. DoneWithTurn
  661. END_COMMAND
  662.  
  663. COMMAND EMPTY PAIL
  664. NOUNPresent (* NOUN is present *)
  665. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  666. PrintMessage 78 (* But there's no water in the pail! *)
  667. DoneWithTurn
  668. END_COMMAND
  669.  
  670. COMMAND EMPTY ANY
  671. NOT NOUNPresent (* NOUN is NOT present *)
  672. PrintMessage 1 (* ? Now where do you see any of that?? *)
  673. DoneWithTurn
  674. END_COMMAND
  675.  
  676. (* REM -- POUR *)
  677.  
  678. COMMAND POUR ANY
  679. Present 231 (* wooden pail is present *)
  680. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  681. PrintMessage 77 (* It all empties out.  *)
  682. TurnFlagOFF 8 (* Turn Flag # 8 OFF -- Pail is NOT full of water *)
  683. DoneWithTurn
  684. END_COMMAND
  685.  
  686. COMMAND POUR ANY
  687. Present 231 (* wooden pail is present *)
  688. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  689. PrintMessage 78 (* But there's no water in the pail! *)
  690. DoneWithTurn
  691. END_COMMAND
  692.  
  693. COMMAND POUR ANY
  694. NOT Present 231 (* wooden pail is NOT present *)
  695. PrintMessage 1 (* ? Now where do you see any of that?? *)
  696. DoneWithTurn
  697. END_COMMAND
  698.  
  699. (* REM -- READ *)
  700.  
  701. COMMAND READ LABEL
  702. Present 211 (* magic carpet is present *)
  703. PrintMessage 79 (* The label reads: "To operate this carpet, just say Rise *)
  704. DoneWithTurn
  705. END_COMMAND
  706.  
  707. COMMAND READ LABEL
  708. NOT Present 211 (* magic carpet is NOT present *)
  709. PrintMessage 1 (* ? Now where do you see any of that?? *)
  710. DoneWithTurn
  711. END_COMMAND
  712.  
  713. COMMAND READ COIN
  714. NOT NOUNIsCarrying (* Player is NOT carrying NOUN *)
  715. PrintMessage 142 (* The coin is neatly wrapped in a crumpled candy wrapper.  *)
  716. DoneWithTurn
  717. END_COMMAND
  718.  
  719. (* REM -- KILL -- ATTACK -- HIT *)
  720.  
  721. COMMAND KILL ANY
  722. PrintMessage 86 (* How absolutely amusing....  *)
  723. DoneWithTurn
  724. END_COMMAND
  725.  
  726. COMMAND ATTACK ANY
  727. PrintMessage 86 (* How absolutely amusing....  *)
  728. DoneWithTurn
  729. END_COMMAND
  730.  
  731.  182 
  732. COMMAND HIT ANY
  733. PrintMessage 86 (* How absolutely amusing....  *)
  734. DoneWithTurn
  735. END_COMMAND
  736.  
  737. (* REM -- LOOK *)
  738.  
  739. COMMAND LOOK UNDER BOULDER
  740. AtLocation 11 (* Player is in Boulder room *)
  741. InRoom 219 (* boulder is in current Room *)
  742. PrintMessage 25 (* The bottom of the boulder is slightly off the ground le *)
  743. DoneWithTurn
  744. END_COMMAND
  745.  
  746. COMMAND LOOK UNDER DOORMAT
  747. NOT AtLocation 11 (* Player is NOT in Boulder room *)
  748. AtLocation 6 (* Player is in Squynchian home *)
  749. Present 208 (* worn doormat is present *)
  750. NOT FlagON 5 (* Flag # 5 is OFF *)
  751. PutInCurrentRoom 205 (* Move rusty key to current room *)
  752. PrintMessage 27 (* Removing the doormat reveals a rusty key engulfed in th *)
  753. TurnFlagON 5 (* Turn Flag # 5 ON *)
  754. DoneWithTurn
  755. END_COMMAND
  756.  
  757. COMMAND LOOK UNDER DOORMAT
  758. AtLocation 6 (* Player is in Squynchian home *)
  759. Present 208 (* worn doormat is present *)
  760. FlagON 5 (* Flag # 5 is ON *)
  761. PrintMessage 28 (* There is nothing but dust there.  *)
  762. DoneWithTurn
  763. END_COMMAND
  764.  
  765. COMMAND LOOK CAGE
  766. AtLocation 4 (* Player is in Cave *)
  767. IsLocated 221  5 (* beast is in Cage *)
  768. PrintMessage 146 (* There is a snarling, ferocious looking beast in the cag *)
  769. DoneWithTurn
  770. END_COMMAND
  771.  
  772. COMMAND LOOK CAGE
  773. AtLocation 4 (* Player is in Cave *)
  774. NOT IsLocated 221  5 (* beast is NOT in Cage *)
  775. PrintMessage 189 (* There isn't anything really in the cage, save for some  *)
  776. DoneWithTurn
  777. END_COMMAND
  778.  
  779. COMMAND LOOK VASE
  780. NOUNIsCarrying (* Player is carrying NOUN *)
  781. PrintMessage 213 (* There is a small piece of paper laying at the bottom of *)
  782. DoneWithTurn
  783. END_COMMAND
  784.  
  785. COMMAND LOOK VASE
  786. NOT NOUNIsCarrying (* Player is NOT carrying NOUN *)
  787. PrintMessage 1 (* ? Now where do you see any of that?? *)
  788. DoneWithTurn
  789. END_COMMAND
  790.  
  791. (* REM -- SLIDE *)
  792.  
  793. COMMAND SLIDE CARPET
  794. ReDirectTo PUT CARPET
  795. END_COMMAND
  796.  
  797. COMMAND SLIDE STAFF
  798. NOUNPresent (* NOUN is present *)
  799. AtLocation 4 (* Player is in Cave *)
  800. FlagON 1 (* Flag # 1 is ON *)
  801. NOT FlagON 11 (* Flag # 11 is OFF *)
  802. PrintMessage 11 (* The staff now bolts the door.  *)
  803. TurnFlagON 11 (* Turn Flag # 11 ON *)
  804. DestroyNOUN (* Move NOUN to Room Zero*)
  805. DoneWithTurn
  806. END_COMMAND
  807.  
  808. COMMAND SLIDE STAFF
  809. NOUNPresent (* NOUN is present *)
  810. AtLocation 4 (* Player is in Cave *)
  811. FlagON 1 (* Flag # 1 is ON *)
  812. FlagON 11 (* Flag # 11 is ON *)
  813. PrintMessage 105 (* It IS bolted.  *)
  814. DoneWithTurn
  815. END_COMMAND
  816.  
  817. COMMAND SLIDE STAFF
  818. AtLocation 4 (* Player is in Cave *)
  819. NOUNPresent (* NOUN is present *)
  820. NOT FlagON 1 (* Flag # 1 is OFF *)
  821. PrintMessage 106 (* A task quite impossible if the gates are open! *)
  822. DoneWithTurn
  823. END_COMMAND
  824.  
  825. COMMAND SLIDE ANY
  826. NOT AtLocation 4 (* Player is NOT in Cave *)
  827. PrintMessage 145 (* Huh?!!!! *)
  828. DoneWithTurn
  829. END_COMMAND
  830.  
  831. (* REM -- RISE *)
  832.  
  833. COMMAND RISE
  834. ReDirectTo SAY RISE
  835. END_COMMAND
  836.  
  837. (* REM -- SAY *)
  838.  
  839. COMMAND SAY RISE
  840. FlagON 9 (* Flag # 9 is ON *)
  841. NOT FlagON 3 (* Flag # 3 is OFF *)
  842. PrintMessage 29 (* A slow quiet rumble slowly crescendos to an ear-splitti *)
  843. Destroy 219 (* Move boulder to room Zero *)
  844. DoneWithTurn
  845. END_COMMAND
  846.  
  847. COMMAND SAY RISE
  848. FlagON 9 (* Flag # 9 is ON *)
  849. FlagON 3 (* Flag # 3 is ON *)
  850. PrintMessage 125 (* As you pronounce the command, you detect a slight movem *)
  851. KillPlayer (* You die! *)
  852. DoneWithTurn
  853. END_COMMAND
  854.  
  855. COMMAND SAY RISE
  856. Present 211 (* magic carpet is present *)
  857. NOT FlagON 9 (* Flag # 9 is OFF *)
  858. Destroy 211 (* Move magic carpet to room Zero *)
  859. PrintMessage 31 (* The carpet, unwieldy at first, rises slowly into the ai *)
  860. DoneWithTurn
  861. END_COMMAND
  862.  
  863. COMMAND SAY RISE
  864. NOT Present 211 (* magic carpet is NOT present *)
  865. PrintMessage 32 (* Speaking to oneself is a sign of impending mental colla *)
  866. DoneWithTurn
  867. END_COMMAND
  868.  
  869. COMMAND SAY ANY
  870. PrintMessage 32 (* Speaking to oneself is a sign of impending mental colla *)
  871. DoneWithTurn
  872. END_COMMAND
  873.  
  874. (* REM -- WRAP *)
  875.  
  876. COMMAND WRAP COIN
  877. NOUNPresent (* NOUN is present *)
  878. NOT FlagON 2 (* Flag # 2 is OFF *)
  879. Present 203 (* crumpled wrapper is present *)
  880. PrintMessage 159 (* You wrap it neatly with the crumpled candy wrapper.  *)
  881. TurnFlagON 2 (* Turn Flag # 2 ON *)
  882. Destroy 203 (* Move crumpled wrapper to room Zero *)
  883. DoneWithTurn
  884. END_COMMAND
  885.  
  886. COMMAND WRAP COIN
  887. NOUNPresent (* NOUN is present *)
  888. Present 203 (* crumpled wrapper is present *)
  889. FlagON 2 (* Flag # 2 is ON *)
  890. PrintMessage 15 (* It IS wrapped. *)
  891. DoneWithTurn
  892. END_COMMAND
  893.  
  894. COMMAND WRAP COIN
  895. NOUNPresent (* NOUN is present *)
  896. NOT FlagON 2 (* Flag # 2 is OFF *)
  897. NOT Present 203 (* crumpled wrapper is NOT present *)
  898. PrintMessage 16 (* Wrap it with WHAT? *)
  899. DoneWithTurn
  900. END_COMMAND
  901.  
  902. COMMAND WRAP ANY
  903. NOT NOUNPresent (* NOUN is NOT present *)
  904. PrintMessage 1 (* ? Now where do you see any of that?? *)
  905. DoneWithTurn
  906. END_COMMAND
  907.  
  908. COMMAND WRAP ANY
  909. PrintMessage 145 (* Huh?!!!! *)
  910. DoneWithTurn
  911. END_COMMAND
  912.  
  913. (* REM -- UNWRAP *)
  914.  
  915. COMMAND UNWRAP COIN
  916. NOUNPresent (* NOUN is present *)
  917. FlagON 2 (* Flag # 2 is ON *)
  918. TurnFlagOFF 2 (* Turn Flag # 2 OFF *)
  919. PrintMessage 17 (* As your fingers make contact with the coin, your entire *)
  920. PutNOUNInCurrentRoom (* Move NOUN to Current Room *)
  921. PutInCurrentRoom 203 (* Move crumpled wrapper to current room *)
  922. DoneWithTurn
  923. END_COMMAND
  924.  
  925. COMMAND UNWRAP COIN
  926. NOUNPresent (* NOUN is present *)
  927. NOT FlagON 2 (* Flag # 2 is OFF *)
  928. PrintMessage 18 (* It IS unwrapped already.  *)
  929. DoneWithTurn
  930. END_COMMAND
  931.  
  932. COMMAND UNWRAP ANY
  933. NOT NOUNPresent (* NOUN is NOT present *)
  934. PrintMessage 1 (* ? Now where do you see any of that?? *)
  935. DoneWithTurn
  936. END_COMMAND
  937.  
  938. COMMAND UNWRAP ANY
  939. PrintMessage 145 (* Huh?!!!! *)
  940. DoneWithTurn
  941. END_COMMAND
  942.  
  943. (* REM -- BOLT *)
  944.  
  945. COMMAND BOLT GATES
  946. AtLocation 4 (* Player is in Cave *)
  947. IsCarrying 202 (* Player is carrying gnarled staff *)
  948. FlagON 1 (* Flag # 1 is ON *)
  949. NOT FlagON 11 (* Flag # 11 is OFF *)
  950. Destroy 202 (* Move gnarled staff to room Zero *)
  951. TurnFlagON 11 (* Turn Flag # 11 ON *)
  952. PrintMessage 104 (* The staff now bolts the door.  *)
  953. DoneWithTurn
  954. END_COMMAND
  955.  
  956. COMMAND BOLT GATES
  957. AtLocation 4 (* Player is in Cave *)
  958. IsCarrying 202 (* Player is carrying gnarled staff *)
  959. FlagON 1 (* Flag # 1 is ON *)
  960. FlagON 11 (* Flag # 11 is ON *)
  961. PrintMessage 105 (* It IS bolted.  *)
  962. DoneWithTurn
  963. END_COMMAND
  964.  
  965. COMMAND BOLT GATES
  966. AtLocation 4 (* Player is in Cave *)
  967. IsCarrying 202 (* Player is carrying gnarled staff *)
  968. NOT FlagON 1 (* Flag # 1 is OFF *)
  969. PrintMessage 106 (* A task quite impossible if the gates are open! *)
  970. DoneWithTurn
  971. END_COMMAND
  972.  
  973. COMMAND BOLT GATES
  974. AtLocation 4 (* Player is in Cave *)
  975. NOT IsCarrying 202 (* Player is NOT carrying gnarled staff *)
  976. PrintMessage 107 (* You have nothing to bolt it with.  *)
  977. DoneWithTurn
  978. END_COMMAND
  979.  
  980. COMMAND BOLT GATES
  981. NOT AtLocation 4 (* Player is NOT in Cave *)
  982. PrintMessage 1 (* ? Now where do you see any of that?? *)
  983. DoneWithTurn
  984. END_COMMAND
  985.  
  986. (* REM -- UNBOLT *)
  987.  
  988. COMMAND UNBOLT GATES
  989. AtLocation 4 (* Player is in Cave *)
  990. FlagON 11 (* Flag # 11 is ON *)
  991. PrintMessage 108 (* It is now unbolted.  *)
  992. TurnFlagOFF 11 (* Turn Flag # 11 OFF *)
  993. SendToRoom 202  1 (* Move gnarled staff to player *)
  994. DoneWithTurn
  995. END_COMMAND
  996.  
  997. COMMAND UNBOLT GATES
  998. AtLocation 4 (* Player is in Cave *)
  999. NOT FlagON 11 (* Flag # 11 is OFF *)
  1000. PrintMessage 109 (* It isn't bolted.  *)
  1001. DoneWithTurn
  1002. END_COMMAND
  1003.  
  1004. COMMAND UNBOLT GATES
  1005. NOT AtLocation 4 (* Player is NOT in Cave *)
  1006. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1007. DoneWithTurn
  1008. END_COMMAND
  1009.  
  1010. (* REM -- CUT *)
  1011.  
  1012. COMMAND CUT GLASS
  1013. NOUNPresent (* NOUN is present *)
  1014. IsCarrying 201 (* Player is carrying Squeeb's crown *)
  1015. FlagON 11 (* Flag # 11 is ON *)
  1016. NOT FlagON 12 (* Flag # 12 is OFF *)
  1017. PrintMessage 110 (* You cut a square into the glass case.  *)
  1018. SendToItem 215 213 (* Move Ruby to glass *)
  1019. SwapLocations 213 267 (* Switch to broken case *)
  1020. TurnFlagON 12 (* Turn Flag # 12 ON *)
  1021. DoneWithTurn
  1022. END_COMMAND
  1023.  
  1024. COMMAND CUT GLASS
  1025. NOUNPresent (* NOUN is present *)
  1026. NOT IsCarrying 201 (* Player is NOT carrying Squeeb's crown *)
  1027. PrintMessage 111 (* You haven't got the proper utensils.  *)
  1028. DoneWithTurn
  1029. END_COMMAND
  1030.  
  1031. COMMAND CUT ANY
  1032. NOT NOUNPresent (* NOUN is NOT present *)
  1033. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1034. DoneWithTurn
  1035. END_COMMAND
  1036.  
  1037. (* REM -- FEED *)
  1038.  
  1039. COMMAND FEED BEAST
  1040. Present 221 (* Beast is present *)
  1041. IsCarrying 223 (* Player is carrying dried meat *)
  1042. Destroy 223 (* Move dried meat to room Zero *)
  1043. Destroy 221 (* Move beast to Room Zero*)
  1044. TurnFlagOFF 13 (* Turn Flag # 13 OFF *)
  1045. PrintMessage 115 (* Greedily, the beast pounces on it *)
  1046. DoneWithTurn
  1047. END_COMMAND
  1048.  
  1049. COMMAND FEED BEAST
  1050. Present 221 (* Beast is present *)
  1051. NOT IsCarrying 223 (* Player is NOT carrying dried meat *)
  1052. PrintMessage 116 (* Why not? Gratefully, the beast sinks his teeth into you *)
  1053. KillPlayer (* You die! *)
  1054. DoneWithTurn
  1055. END_COMMAND
  1056.  
  1057. COMMAND FEED BEAST
  1058. NOT NOUNPresent (* NOUN is NOT present *)
  1059. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1060. DoneWithTurn
  1061. END_COMMAND
  1062.  
  1063. COMMAND FEED ANY
  1064. PrintMessage 178 (* Sure.  Why didn't I think of that? *)
  1065. DoneWithTurn
  1066. END_COMMAND
  1067.  
  1068. COMMAND FEED MEAT
  1069. ReDirectTo FEED BEAST
  1070. END_COMMAND
  1071.  
  1072. (* REM -- WEAR *)
  1073.  
  1074. COMMAND WEAR CROWN
  1075. NOUNPresent (* Crown is present *)
  1076. FlagON 14 (* Flag # 14 is ON *)
  1077. PrintMessage 129 (* The iron gates fling open, as an earth shattering "KABO *)
  1078. PlusScore 50 (* Final 50 points *)
  1079. WinGame (* End Game as Winner *)
  1080. DoneWithTurn
  1081. END_COMMAND
  1082.  
  1083. COMMAND WEAR CROWN
  1084. NOUNPresent (* Crown is present *)
  1085. NOT FlagON 14 (* Flag # 14 is OFF *)
  1086. PrintMessage 121 (* You are overcome with a certain tingling feeling, which *)
  1087. DoneWithTurn
  1088. END_COMMAND
  1089.  
  1090. COMMAND WEAR ANY
  1091. NOT NOUNPresent (* Crown is NOT present *)
  1092. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1093. DoneWithTurn
  1094. END_COMMAND
  1095.  
  1096. COMMAND WEAR ANY
  1097. PrintMessage 145 (* Huh?!!!! *)
  1098. DoneWithTurn
  1099. END_COMMAND
  1100.  
  1101. (* REM -- UNROLL *)
  1102.  
  1103. COMMAND UNROLL CARPET
  1104. NOUNPresent (* NOUN is present *)
  1105. FlagON 3 (* Flag # 3 is ON *)
  1106. PrintMessage 60 (* Done.  *)
  1107. TurnFlagOFF 3 (* Turn Flag # 3 OFF *)
  1108. DoneWithTurn
  1109. END_COMMAND
  1110.  
  1111. COMMAND UNROLL CARPET
  1112. NOUNPresent (* NOUN is present *)
  1113. NOT FlagON 3 (* Flag # 3 is OFF *)
  1114. PrintMessage 123 (* It IS unrolled.  *)
  1115. DoneWithTurn
  1116. END_COMMAND
  1117.  
  1118. COMMAND UNROLL CARPET
  1119. NOT NOUNPresent (* NOUN is NOT present *)
  1120. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1121. DoneWithTurn
  1122. END_COMMAND
  1123.  
  1124. COMMAND UNROLL ANY
  1125. PrintMessage 145 (* Huh?!!!! *)
  1126. DoneWithTurn
  1127. END_COMMAND
  1128.  
  1129. (* REM -- ROLL *)
  1130.  
  1131. COMMAND ROLL CARPET
  1132. NOUNPresent (* NOUN is present *)
  1133. NOT FlagON 3 (* Flag # 3 is OFF *)
  1134. PrintMessage 60 (* Done.  *)
  1135. TurnFlagON 3 (* Turn Flag # 3 ON *)
  1136. DoneWithTurn
  1137. END_COMMAND
  1138.  
  1139. COMMAND ROLL CARPET
  1140. NOUNPresent (* NOUN is present *)
  1141. FlagON 3 (* Flag # 3 is ON *)
  1142. PrintMessage 124 (* It IS rolled.  *)
  1143. DoneWithTurn
  1144. END_COMMAND
  1145.  
  1146. COMMAND ROLL CARPET
  1147. NOT NOUNPresent (* NOUN is NOT present *)
  1148. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1149. DoneWithTurn
  1150. END_COMMAND
  1151.  
  1152. COMMAND ROLL ANY
  1153. PrintMessage 145 (* Huh?!!!! *)
  1154. DoneWithTurn
  1155. END_COMMAND
  1156.  
  1157. (* REM -- FIRE *)
  1158.  
  1159. COMMAND FIRE GUN AT ANY
  1160. ReDirectTo SHOOT $OBJECT$
  1161. END_COMMAND
  1162.  
  1163. (* REM -- SHOOT *)
  1164.  
  1165. COMMAND SHOOT ANY
  1166. Present 210 (* ancient revolver is here *)
  1167. PrintMessage 148 (* As you pull the trigger, you hear a loud click, and a s *)
  1168. DoneWithTurn
  1169. END_COMMAND
  1170.  
  1171. COMMAND SHOOT ANY
  1172. NOT Present 210 (* ancient revolver is not here *)
  1173. PrintMessage 145 (* Huh?!!!! *)
  1174. DoneWithTurn
  1175. END_COMMAND
  1176.  
  1177. (* REM -- EAT *)
  1178.  
  1179. COMMAND EAT MEAT
  1180. NOUNPresent (* NOUN is present *)
  1181. PrintMessage 174 (* You try to chew it but its leather-like texture makes i *)
  1182. KillPlayer (* You die! *)
  1183. DoneWithTurn
  1184. END_COMMAND
  1185.  
  1186. (* REM -- PUSH *)
  1187.  
  1188. COMMAND PUSH BOULDER
  1189. InRoom 219 (* boulder is in current Room *)
  1190. PrintMessage 178 (* Sure! No sweat! Why didn't I think of that one? *)
  1191. DoneWithTurn
  1192. END_COMMAND
  1193.  
  1194. COMMAND PUSH BOULDER
  1195. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1196. DoneWithTurn
  1197. END_COMMAND
  1198.  
  1199. (* REM -- SCREAM *)
  1200.  
  1201. COMMAND SCREAM ANY
  1202. PrintMessage 181 (* Yaaaaaaouuuuuwwwwwwrggghhhh!!!!! Now then, how do you f *)
  1203. DoneWithTurn
  1204. END_COMMAND
  1205.  
  1206. (* REM -- SHAKE *)
  1207.  
  1208. COMMAND SHAKE VASE
  1209. NOUNPresent (* NOUN present *)
  1210. PrintMessage 222 (* Yes, there is definitely something inside.  *)
  1211. DoneWithTurn
  1212. END_COMMAND
  1213.  
  1214. COMMAND SHAKE VASE
  1215. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1216. DoneWithTurn
  1217. END_COMMAND
  1218.  
  1219. COMMAND SHAKE ANY
  1220. NOUNPresent (* NOUN present *)
  1221. PrintMessage 223 (* No doubt you'd be asking for bread crumbs soon, in orde *)
  1222. DoneWithTurn
  1223. END_COMMAND
  1224.  
  1225. COMMAND SHAKE ANY
  1226. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1227. DoneWithTurn
  1228. END_COMMAND
  1229.  
  1230. (* REM -- HIT *)
  1231.  
  1232. COMMAND HIT BOULDER
  1233. NOUNPresent (* NOUN is present *)
  1234. PrintMessage 192 (* Hitting a boulder?! How absolutely ridiculous! Ha! *)
  1235. DoneWithTurn
  1236. END_COMMAND
  1237.  
  1238. COMMAND HIT BOULDER
  1239. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1240. DoneWithTurn
  1241. END_COMMAND
  1242.  
  1243. (* REM -- SPRAY *)
  1244.  
  1245. COMMAND SPRAY SPRAYCAN
  1246. NOUNIsCarrying (* Player is carrying NOUN *)
  1247. AtLocation 23 (* Player is in On Top of Cove *)
  1248. GoToRoom 22 (* Move Player to Front of Moat *)
  1249. PrintMessage 200 (* The spraycan emits a shot of such a repugnant odor, tha *)
  1250. DoneWithTurn
  1251. END_COMMAND
  1252.  
  1253. COMMAND SPRAY SPRAYCAN
  1254. NOUNIsCarrying (* Player is carrying NOUN *)
  1255. NOT AtLocation 23 (* Player is NOT in On Top of Cove *)
  1256. PrintMessage 201 (* The spraycan emits a shot of such a repulsive odor, tha *)
  1257. DoneWithTurn
  1258. END_COMMAND
  1259.  
  1260. COMMAND SPRAY SPRAYCAN
  1261. NOT NOUNpresent (* NOUN is not present *)
  1262. PrintMessage 199 (* ? You don't have that.  *)
  1263. DoneWithTurn
  1264. END_COMMAND
  1265.  
  1266. (* REM -- KICK *)
  1267.  
  1268. COMMAND KICK ANY
  1269. NOUNPresent (* NOUN is present *)
  1270. PrintMessage 212 (* Kicking it results in nothing but a sore toe.  *)
  1271. DoneWithTurn
  1272. END_COMMAND
  1273.  
  1274. COMMAND KICK ANY
  1275. NOT NOUNPresent (* NOUN is NOT present *)
  1276. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1277. DoneWithTurn
  1278. END_COMMAND
  1279.  
  1280. (* REM -- SWIM *)
  1281.  
  1282. COMMAND SWIM IN MOAT
  1283. AtLocation 22 (* Player is in Front of Moat *)
  1284. GoToRoom 20 (* Move Player to Moat *)
  1285. DoneWithTurn
  1286. END_COMMAND
  1287.  
  1288. COMMAND SWIM IN MOAT
  1289. AtLocation 18 (* Player is in Drawbridge *)
  1290. GoToRoom 20 (* Move Player to Moat *)
  1291. DoneWithTurn
  1292. END_COMMAND
  1293.  
  1294. COMMAND SWIM ANY
  1295. PrintMessage 178 (* Sure! Why didn't I think of that?? *)
  1296. DoneWithTurn
  1297. END_COMMAND
  1298.  
  1299. (* REM -- COVER - HOLD *)
  1300.  
  1301. COMMAND COVER NOSE
  1302. PrintMessage 218 (* You look so absolutely ridiculous, standing there with  *)
  1303. DoneWithTurn
  1304. END_COMMAND
  1305.  
  1306. COMMAND COVER ANY
  1307. PrintMessage 145 (* Huh?!!!! *)
  1308. DoneWithTurn
  1309. END_COMMAND
  1310.  
  1311. (* REM -- OOPS *)
  1312.  
  1313. COMMAND OOPS ANY
  1314. PrintMessage 219 (* Screwed up again, did you? *)
  1315. DoneWithTurn
  1316. END_COMMAND
  1317.  
  1318. (* REM -- STICK -- WEDGE -- MOVE -- PRY *)
  1319.  
  1320. COMMAND STICK ANY
  1321. PrintMessage 72 (* You can't.  *)
  1322. DoneWithTurn
  1323. END_COMMAND
  1324.  
  1325. (* REM -- PIN *)
  1326.  
  1327. COMMAND PIN CLOTHPIN ON CLOTHLINE
  1328. Present 247 (* Player is carrying wooden clothpin *)
  1329. Present 246 (* clothline is present *)
  1330. SendToRoom 259  24 (* Move test eight to Nothing *)
  1331. Destroy 247 (* Move wooden clothpin to room Zero *)
  1332. PrintMessage 60 (* Done.  *)
  1333. DoneWithTurn
  1334. END_COMMAND
  1335.  
  1336. COMMAND PIN CLOTHPIN ON CLOTHLINE
  1337. NOT Present 247 (* Player is NOT carrying wooden clothpin *)
  1338. Present 246 (* clothsline is present *)
  1339. PrintMessage 199 (* ? You don't have that.  *)
  1340. DoneWithTurn
  1341. END_COMMAND
  1342.  
  1343. COMMAND PIN CLOTHPIN ON CLOTHLINE
  1344. NOT Present 246 (* OBJECT is NOT present *)
  1345. PrintMessage 3 (* ? Now where do you see any of that?? *)
  1346. DoneWithTurn
  1347. END_COMMAND
  1348.  
  1349. COMMAND PIN CLOTHPIN ON NOSE
  1350. IsCarrying 247 (* Player is carrying wooden clothpin *)
  1351. IsLocated 260  24 (* test nine is in Nothing *)
  1352. PrintMessage 194 (* The clothpin is now firmly pinned to your nose, success *)
  1353. Destroy 260 (* Move test nine to room Zero *)
  1354. DoneWithTurn
  1355. END_COMMAND
  1356.  
  1357. COMMAND PIN CLOTHPIN ON NOSE
  1358. IsCarrying 247 (* Player is carrying wooden clothpin *)
  1359. IsLocated 260  0 (* test nine is in NOWHERE *)
  1360. PrintMessage 195 (* It IS pinned to your nose.  *)
  1361. DoneWithTurn
  1362. END_COMMAND
  1363.  
  1364. COMMAND PIN CLOTHPIN ON NOSE
  1365. NOT IsCarrying 247 (* Player is NOT carrying wooden clothpin *)
  1366. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1367. DoneWithTurn
  1368. END_COMMAND
  1369.  
  1370. COMMAND PIN NOSE
  1371. ReDirectTo PIN CLOTHPIN ON NOSE
  1372. END_COMMAND
  1373.  
  1374. COMMAND PIN ANY
  1375. Present 247 (* Player is carrying wooden clothpin *)
  1376. PrintMessage 230 (* You can't pin that.  *)
  1377. DoneWithTurn
  1378. END_COMMAND
  1379.  
  1380. COMMAND PIN ANY
  1381. PrintMessage 199 (* ? You don't have that.  *)
  1382. DoneWithTurn
  1383. END_COMMAND
  1384.  
  1385. (* REM -- UNPIN *)
  1386.  
  1387. COMMAND UNPIN ANY
  1388. AtLocation 27 (* Player is in Royal Laundry Room *)
  1389. IsLocated 259  24 (* test eight is in Nothing *)
  1390. GetNOUN (* Get it *)
  1391. Destroy 259 (* Move test eight to room Zero *)
  1392. PrintMessage 45 (* Taken.  *)
  1393. PrintMessage 227 (* A Squynchian maid comes bounceswinging in, humming a mi *)
  1394. DoneWithTurn
  1395. END_COMMAND
  1396.  
  1397. COMMAND UNPIN ANY
  1398. AtLocation 27 (* Player is in Royal Laundry Room *)
  1399. IsLocated 259  0 (* test eight is in NOWHERE *)
  1400. PrintMessage 241 (* It IS unpinned.  *)
  1401. DoneWithTurn
  1402. END_COMMAND
  1403.  
  1404. COMMAND UNPIN ANY
  1405. IsLocated 260  0 (* test nine is in NOWHERE *)
  1406. SendToRoom 260  24 (* Move test nine to Nothing *)
  1407. PrintMessage 60 (* Done.  *)
  1408. DoneWithTurn
  1409. END_COMMAND
  1410.  
  1411. COMMAND UNPIN ANY
  1412. NOUNPresent (* NOUN is present *)
  1413. PrintMessage 242 (* You can't unpin that! *)
  1414. DoneWithTurn
  1415. END_COMMAND
  1416.  
  1417. COMMAND UNPIN ANY
  1418. NOT NOUNPresent (* NOUN is NOT present *)
  1419. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1420. DoneWithTurn
  1421. END_COMMAND
  1422.  
  1423. (* REM -- EXAMINE *)
  1424.  
  1425. COMMAND EXAMINE BRIDGE
  1426. NOT NOUNPresent (* NOUN is NOT present *)
  1427. AtLocation 14 (* Player is in Front of Castle *)
  1428. OR
  1429. AtLocation 18 (* Player is in Drawbridge *)
  1430. PrintMessage 211 (* The massive drawbridge is currently down.  *)
  1431. DoneWithTurn
  1432. END_COMMAND
  1433.  
  1434. COMMAND EXAMINE BRIDGE
  1435. NOT AtLocation 14 (* Player is NOT in Front of Castle *)
  1436. NOT AtLocation 18 (* Player is NOT in Drawbridge *)
  1437. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1438. DoneWithTurn
  1439. END_COMMAND
  1440.  
  1441. COMMAND EXAMINE LABEL
  1442. Present 211 (* magic carpet is present *)
  1443. PrintMessage 79 (* The label reads: "To operate this carpet, just say Rise"*)
  1444. DoneWithTurn
  1445. END_COMMAND
  1446.  
  1447. COMMAND EXAMINE LABEL
  1448. NOT Present 211 (* magic carpet is NOT present *)
  1449. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1450. DoneWithTurn
  1451. END_COMMAND
  1452.  
  1453. COMMAND EXAMINE COIN
  1454. NOUNPresent (* NOUN is present *)
  1455. NOT FlagON 2 (* Flag # 2 is OFF *)
  1456. PrintMessage 141 (* There are engravings on the coin of Squoob the Squynch, *)
  1457. DoneWithTurn
  1458. END_COMMAND
  1459.  
  1460. COMMAND EXAMINE COIN
  1461. NOUNPresent (* NOUN is present *)
  1462. FlagON 2 (* Flag # 2 is ON *)
  1463. PrintMessage 142 (* The coin is neatly wrapped in a crumpled candy wrapper.  *)
  1464. DoneWithTurn
  1465. END_COMMAND
  1466.  
  1467. COMMAND EXAMINE CARPET
  1468. NOUNPresent (* NOUN is present *)
  1469. FlagON 3 (* Flag # 3 is ON *)
  1470. PrintMessage 4 (* The carpet is woven of flaming, interwining, blue and r *)
  1471. DoneWithTurn
  1472. END_COMMAND
  1473.  
  1474. COMMAND EXAMINE CARPET
  1475. NOUNPresent (* NOUN is present *)
  1476. NOT FlagON 3 (* Flag # 3 is OFF *)
  1477. PrintMessage 6 (* The carpet is woven of flaming, interwining, blue and r *)
  1478. DoneWithTurn
  1479. END_COMMAND
  1480.  
  1481. COMMAND EXAMINE GATES
  1482. AtLocation 4 (* Player is in Cave *)
  1483. FlagON 1 (* Flag # 1 is ON *)
  1484. FlagON 11 (* Flag # 11 is ON *)
  1485. PrintMessage 151 (* The iron gates stand at the mouth of the cave.  Two iron *)
  1486. PrintMessage 152 (* The gates are currently closed and bolted with a staff  *)
  1487. DoneWithTurn
  1488. END_COMMAND
  1489.  
  1490. COMMAND EXAMINE GATES
  1491. AtLocation 4 (* Player is in Cave *)
  1492. FlagON 1 (* Flag # 1 is ON *)
  1493. NOT FlagON 11 (* Flag # 11 is OFF *)
  1494. PrintMessage 151 (* The iron gates stand at the mouth of the cave.  Two iron *)
  1495. PrintMessage 153 (* The gates are currently closed.  *)
  1496. DoneWithTurn
  1497. END_COMMAND
  1498.  
  1499. COMMAND EXAMINE GATES
  1500. AtLocation 4 (* Player is in Cave *)
  1501. NOT FlagON 1 (* Flag # 1 is OFF *)
  1502. NOT FlagON 11 (* Flag # 11 is OFF *)
  1503. PrintMessage 154 (* The iron gates stand at the mouth of the cave.  Two iron *)
  1504. DoneWithTurn
  1505. END_COMMAND
  1506.  
  1507. COMMAND EXAMINE GATES
  1508. NOT AtLocation 4 (* Player is NOT in Cave *)
  1509. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1510. DoneWithTurn
  1511. END_COMMAND
  1512.  
  1513. COMMAND EXAMINE CROWN
  1514. NOUNPresent (* Crown is here *)
  1515. FlagON 14 (* Flag # 14 is ON *)
  1516. PrintMessage 155 (* The tall, thin crown is made of pure diamond.  It is set *)
  1517. DoneWithTurn
  1518. END_COMMAND
  1519.  
  1520. COMMAND EXAMINE CROWN
  1521. NOUNPresent (* Crown is here *)
  1522. NOT FlagON 14 (* Flag # 14 is OFF *)
  1523. PrintMessage 156 (* The tall, thin crown is made of pure diamond.  A gaping  *)
  1524. DoneWithTurn
  1525. END_COMMAND
  1526.  
  1527. COMMAND EXAMINE PAIL
  1528. NOUNIsCarrying (* Player is carrying NOUN *)
  1529. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  1530. FlagON 4 (* Flag # 4 is ON *)
  1531. PrintMessage 157 (* The old, wooden pail is filled to the brim with murky w *)
  1532. DoneWithTurn
  1533. END_COMMAND
  1534.  
  1535. COMMAND EXAMINE PAIL
  1536. NOUNPresent (* NOUN is present *)
  1537. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  1538. FlagON 4 (* Flag # 4 is ON *)
  1539. PrintMessage 184 (* There is a block in the pail.  *)
  1540. DoneWithTurn
  1541. END_COMMAND
  1542.  
  1543. COMMAND EXAMINE PAIL
  1544. NOUNPresent (* NOUN is present *)
  1545. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  1546. NOT FlagON 4 (* Flag # 4 is OFF *)
  1547. PrintMessage 90 (* The old, wooden pail looks like it went through a lot o *)
  1548. DoneWithTurn
  1549. END_COMMAND
  1550.  
  1551. COMMAND EXAMINE TRAPDOOR
  1552. NOUNPresent (* NOUN is present *)
  1553. IsNoWhere 240 (* test three is in room Zero -- NoWhere *)
  1554. PrintMessage 158 (* There is an old, rotting trapdoor at the bottom of the  *)
  1555. DoneWithTurn
  1556. END_COMMAND
  1557.  
  1558. COMMAND EXAMINE TRAPDOOR
  1559. NOUNPresent (* NOUN is present *)
  1560. NOT IsNoWhere 240 (* test three is NOT in room Zero -- NoWhere *)
  1561. PrintMessage 89 (* There is an old, rotting trapdoor at the bottom of the  *)
  1562. DoneWithTurn
  1563. END_COMMAND
  1564.  
  1565. COMMAND EXAMINE LUNCHBOX
  1566. NOUNPresent (* NOUN is present *)
  1567. IsNoWhere 238 (* test two is in room Zero -- NoWhere *)
  1568. PrintMessage 163 (* The small lunchbox looks the same as any other lunchbox *)
  1569. DoneWithTurn
  1570. END_COMMAND
  1571.  
  1572. COMMAND EXAMINE LUNCHBOX
  1573. NOUNPresent (* NOUN is present *)
  1574. NOT IsNoWhere 238 (* test two is NOT in room Zero -- NoWhere *)
  1575. PrintMessage 164 (* The small lunchbox looks the same as any other lunchbox *)
  1576. DoneWithTurn
  1577. END_COMMAND
  1578.  
  1579. COMMAND EXAMINE CANDLE
  1580. NOUNPresent (* NOUN is present *)
  1581. IsNoWhere 237 (* test one is in room Zero -- NoWhere *)
  1582. PrintMessage 168 (* The candle is extinguished.  *)
  1583. DoneWithTurn
  1584. END_COMMAND
  1585.  
  1586. COMMAND EXAMINE CANDLE
  1587. NOUNPresent (* NOUN is present *)
  1588. NOT IsNoWhere 237 (* test one is NOT in room Zero -- NoWhere *)
  1589. PrintMessage 169 (* The candle is lit.  *)
  1590. DoneWithTurn
  1591. END_COMMAND
  1592.  
  1593. COMMAND EXAMINE EMBLEM
  1594. AtLocation 16 (* Player is in Front of Crownroom *)
  1595. FlagON 10 (* Flag # 10 is ON *)
  1596. PrintMessage 176 (* The royal emblem of Squynchian Lords is imprinted atop  *)
  1597. DoneWithTurn
  1598. END_COMMAND
  1599.  
  1600. COMMAND EXAMINE EMBLEM
  1601. AtLocation 16 (* Player is in Front of Crownroom *)
  1602. NOT FlagON 10 (* Flag # 10 is OFF *)
  1603. PrintMessage 177 (* The royal emblem of Squynchian Lords is imprinted atop  *)
  1604. DoneWithTurn
  1605. END_COMMAND
  1606.  
  1607. COMMAND EXAMINE CAGE
  1608. AtLocation 4 (* Player is in Cave *)
  1609. IsLocated 221  5 (* beast is in Cage *)
  1610. PrintMessage 187 (* The bars are made of a sturdy steel, enclosing a feroci *)
  1611. DoneWithTurn
  1612. END_COMMAND
  1613.  
  1614. COMMAND EXAMINE CAGE
  1615. AtLocation 4 (* Player is in Cave *)
  1616. NOT IsLocated 221  5 (* beast is NOT in Cage *)
  1617. PrintMessage 188 (* The bars are made of a sturdy steel, which are currentl *)
  1618. DoneWithTurn
  1619. END_COMMAND
  1620.  
  1621. COMMAND EXAMINE CAGE
  1622. NOT AtLocation 4 (* Player is NOT in Cave *)
  1623. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1624. DoneWithTurn
  1625. END_COMMAND
  1626.  
  1627. COMMAND EXAMINE VIAL
  1628. NOUNPresent (* NOUN is present *)
  1629. IsNoWhere 256 (* test seven is in room Zero -- NoWhere *)
  1630. PrintMessage 203 (* The shiny vial is currently open.  Some lettering is ins *)
  1631. DoneWithTurn
  1632. END_COMMAND
  1633.  
  1634. COMMAND EXAMINE VIAL
  1635. NOUNPresent (* NOUN is present *)
  1636. NOT IsNoWhere 256 (* test seven is NOT in room Zero -- NoWhere *)
  1637. PrintMessage 204 (* The shiny vial is currently closed.  Some lettering is i *)
  1638. DoneWithTurn
  1639. END_COMMAND
  1640.  
  1641. COMMAND EXAMINE DOOR
  1642. AtLocation 16 (* Player is in Front of Crownroom *)
  1643. FlagON 10 (* Flag # 10 is ON *)
  1644. PrintMessage 214 (* It's open.  *)
  1645. DoneWithTurn
  1646. END_COMMAND
  1647.  
  1648. COMMAND EXAMINE DOOR
  1649. AtLocation 16 (* Player is in Front of Crownroom *)
  1650. NOT FlagON 10 (* Flag # 10 is OFF *)
  1651. PrintMessage 97 (* It's closed.  *)
  1652. DoneWithTurn
  1653. END_COMMAND
  1654.  
  1655. COMMAND EXAMINE DOOR
  1656. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  1657. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1658. DoneWithTurn
  1659. END_COMMAND
  1660.  
  1661. COMMAND EXAMINE NOSE
  1662. PrintMessage 5 (* How gross!  I would rather not! *)
  1663. DoneWithTurn
  1664. END_COMMAND
  1665.  
  1666. COMMAND EXAMINE ANY
  1667. NOT NOUNPresent (* NOUN is NOT present *)
  1668. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1669. DoneWithTurn
  1670. END_COMMAND
  1671.  
  1672. (* REM -- CLIMB *)
  1673.  
  1674. COMMAND CLIMB TREE
  1675. NOT AtLocation 31 (* Player is NOT in Clearing *)
  1676. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1677. DoneWithTurn
  1678. END_COMMAND
  1679.  
  1680. COMMAND CLIMB TREE
  1681. GoToRoom 2 (* Move Player to Tree *)
  1682. PrintMessage 231 (* You climb up the tree *)
  1683. DoneWithTurn
  1684. END_COMMAND
  1685.  
  1686. COMMAND CLIMB ANY
  1687. NOUNPresent (* NOUN is present *)
  1688. PrintMessage 207 (* I'd rather not, thank you.  *)
  1689. DoneWithTurn
  1690. END_COMMAND
  1691.  
  1692. COMMAND CLIMB ANY
  1693. NOT NOUNPresent (* NOUN is NOT present *)
  1694. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1695. DoneWithTurn
  1696. END_COMMAND
  1697.  
  1698. (* REM -- GET *)
  1699.  
  1700. COMMAND GET ALL
  1701. PrintMessage 2 (* Sorry, but you must take things one at a time. *)
  1702. DoneWithTurn
  1703. END_COMMAND
  1704.  
  1705. COMMAND GET BLOCK
  1706. NOUNPresent (* NOUN is present *)
  1707. AtLocation 9 (* Player is in Well *)
  1708. IsLocated 242  24 (* test five is in Nothing *)
  1709. Destroy 242 (* Move test five to room Zero *)
  1710. PutInCurrentRoom 229 (* Move yellowed note to current room *)
  1711. PrintMessage 44 (* As you pull out the block, an aged, and yellowed note f *)
  1712. GetNoun (* Get it *)
  1713. DoneWithTurn
  1714. END_COMMAND
  1715.  
  1716. COMMAND GET BLOCK
  1717. NOUNPresent (* NOUN is present *)
  1718. AtLocation 9 (* Player is in Well *)
  1719. NOT IsLocated 242  24 (* test five is NOT in Nothing *)
  1720. GetNoun (* Get it *)
  1721. PrintMessage 45 (* Taken.  *)
  1722. DoneWithTurn
  1723. END_COMMAND
  1724.  
  1725. COMMAND GET BLOCK
  1726. NOT AtLocation 9 (* Player is NOT in Well *)
  1727. NOT FlagON 8 (* Flag # 8 is OFF -- Pail is NOT full of water *)
  1728. FlagON 4 (* Flag # 4 is ON *)
  1729. Present 231 (* wooden pail is present *)
  1730. GetNoun (* Get it *)
  1731. TurnFlagOFF 4 (* Turn Flag # 4 OFF *)
  1732. PrintMessage 45 (* Taken.  *)
  1733. DoneWithTurn
  1734. END_COMMAND
  1735.  
  1736. COMMAND GET BLOCK
  1737. Present 231 (* wooden pail is present *)
  1738. FlagON 4 (* Flag # 4 is ON *)
  1739. FlagON 8 (* Flag # 8 is ON -- Pail is full of water *)
  1740. PrintMessage 186 (* The block is very slippery, and drops back in with a sp *)
  1741. DoneWithTurn
  1742. END_COMMAND
  1743.  
  1744. COMMAND GET BLOCK
  1745. NOUNPresent (* NOUN is present *)
  1746. NOT FlagON 4 (* Flag # 4 is OFF *)
  1747. GetNOUN (* Get it *)
  1748. PrintMessage 45 (* Taken.  *)
  1749. DoneWithTurn
  1750. END_COMMAND
  1751.  
  1752. COMMAND GET BLOCK
  1753. NOT NOUNPresent (* NOUN is NOT present *)
  1754. NOT FlagON 4 (* Flag # 4 is OFF *)
  1755. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1756. DoneWithTurn
  1757. END_COMMAND
  1758.  
  1759. COMMAND GET CARPET
  1760. AtLocation 9 (* Player is in Well *)
  1761. NOUNPresent (* NOUN is present *)
  1762. PutInCurrentRoom 227 (* Move rotting trapdoor to current room *)
  1763. GetNOUN (* Get it *)
  1764. PrintMessage 53 (* Upon removing the carpet a trapdoor is revealed!.......  *)
  1765. DoneWithTurn
  1766. END_COMMAND
  1767.  
  1768. COMMAND GET CARPET
  1769. NOT AtLocation 9 (* Player is NOT in Well *)
  1770. NOUNPresent (* NOUN is present *)
  1771. GetNOUN (* Get it *)
  1772. PrintMessage 45 (* Taken.  *)
  1773. DoneWithTurn
  1774. END_COMMAND
  1775.  
  1776. COMMAND GET CARPET
  1777. AtLocation 11 (* Player is in Boulder room *)
  1778. FlagON 9 (* Flag # 9 is ON *)
  1779. GetNOUN (* Get it *)
  1780. TurnFlagOFF 9 (* Turn Flag # 9 OFF *)
  1781. PrintMessage 45 (* Taken.  *)
  1782. DoneWithTurn
  1783. END_COMMAND
  1784.  
  1785. COMMAND GET ON SCALE
  1786. AtLocation 16 (* Player is in Front of Crownroom *)
  1787. GoToRoom 19 (* Move Player to On the scale *)
  1788. DoneWithTurn
  1789. END_COMMAND
  1790.  
  1791. COMMAND GET OFF SCALE
  1792. AtLocation 19 (* Player is On the Scale *)
  1793. GoToRoom 16 (* Move Player to Front of Crownroom *)
  1794. DoneWithTurn
  1795. END_COMMAND
  1796.  
  1797. COMMAND GET ON SCALE
  1798. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  1799. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1800. DoneWithTurn
  1801. END_COMMAND
  1802.  
  1803. COMMAND GET DOORMAT
  1804. AtLocation 6 (* Player is in Squynchian home *)
  1805. NOUNPresent (* NOUN is present *)
  1806. NOT FlagON 5 (* Flag # 5 is OFF *)
  1807. PrintMessage 27 (* Removing the doormat reveals a rusty key engulfed in th *)
  1808. PutInCurrentRoom 205 (* Move rusty key to current room *)
  1809. GetNOUN (* Get it *)
  1810. TurnFlagON 5 (* Turn Flag # 5 ON *)
  1811. DoneWithTurn
  1812. END_COMMAND
  1813.  
  1814. COMMAND GET DOORMAT
  1815. AtLocation 6 (* Player is in Squynchian home *)
  1816. NOUNPresent (* NOUN is present *)
  1817. FlagON 5 (* Flag # 5 is ON *)
  1818. PrintMessage 45 (* Taken.  *)
  1819. GetNOUN (* Get it *)
  1820. DoneWithTurn
  1821. END_COMMAND
  1822.  
  1823. COMMAND GET COIN
  1824. NOUNPresent (* NOUN is present *)
  1825. FlagON 2 (* Flag # 2 is ON *)
  1826. GetNOUN (* Get it *)
  1827. PrintMessage 45 (* Taken.  *)
  1828. DoneWithTurn
  1829. END_COMMAND
  1830.  
  1831. COMMAND GET COIN
  1832. NOUNPresent (* NOUN is present *)
  1833. NOT FlagON 2 (* Flag # 2 is OFF *)
  1834. PrintMessage 34 (* Eyes shining and mouth slavoring you pick up the gold c *)
  1835. DoneWithTurn
  1836. END_COMMAND
  1837.  
  1838. COMMAND GET RUBY
  1839. AtLocation 4 (* Player is in Cave *)
  1840. FlagON 12 (* Flag # 12 is ON *)
  1841. NOT FlagON 13 (* Flag # 13 is OFF *)
  1842. IsLocated 221  5 (* beast is in Cage *)
  1843. PrintMessage 112 (* Suddenly, as you reach for the Ruby, the gates of the c *)
  1844. PutInCurrentRoom 221 (* Move beast to current room *)
  1845. TurnFlagON 13 (* Turn Flag # 13 ON *)
  1846. DoneWithTurn
  1847. END_COMMAND
  1848.  
  1849. COMMAND GET RUBY
  1850. AtLocation 4 (* Player is in Cave *)
  1851. FlagON 12 (* Flag # 12 is ON *)
  1852. FlagON 11 (* Flag # 11 is ON *)
  1853. FlagON 13 (* Flag # 13 is ON *)
  1854. PrintMessage 113 (* The beast slinks toward you, eyes gleaming with hunger.  *)
  1855. KillPlayer (* You die! *)
  1856. DoneWithTurn
  1857. END_COMMAND
  1858.  
  1859. COMMAND GET RUBY
  1860. AtLocation 4 (* Player is in Cave *)
  1861. FlagON 12 (* Flag # 12 is ON *)
  1862. NOT FlagON 11 (* Flag # 11 is OFF *)
  1863. NOT FlagON 13 (* Flag # 13 is OFF *)
  1864. PrintMessage 7 (* Two ogres appear in the doorway, eyes wild with hate."T *)
  1865. KillPlayer (* You die! *)
  1866. DoneWithTurn
  1867. END_COMMAND
  1868.  
  1869. COMMAND GET RUBY
  1870. AtLocation 4 (* Player is in Cave *)
  1871. NOT FlagON 12 (* Flag # 12 is OFF *)
  1872. NOT FlagON 13 (* Flag # 13 is OFF *)
  1873. FlagON 11 (* Flag # 11 is ON *)
  1874. PrintMessage 114 (* Impossible, the glass completely covers it! *)
  1875. DoneWithTurn
  1876. END_COMMAND
  1877.  
  1878. COMMAND GET RUBY
  1879. NOT AtLocation 4 (* Player is NOT in Cave *)
  1880. PrintMessage 1 (* ? Now where do you see any of that?? *)
  1881. DoneWithTurn
  1882. END_COMMAND
  1883.  
  1884. COMMAND GET RUBY
  1885. AtLocation 4 (* Player is in Cave *)
  1886. FlagON 12 (* Flag # 12 is ON *)
  1887. FlagON 11 (* Flag # 11 is ON *)
  1888. IsNoWhere 221 (* beast is in room Zero -- NoWhere *)
  1889. GetNOUN (* Get it *)
  1890. PrintMessage 45 (* Taken.  *)
  1891. PlusScore 100 (* Add 100 to score *)
  1892. DoneWithTurn
  1893. END_COMMAND
  1894.  
  1895. COMMAND GET VIAL
  1896. AtLocation 23 (* Player is in On Top of Cove *)
  1897. NOT IsLocated 260  0 (* test nine is NOT in NOWHERE *)
  1898. PrintMessage 197 (* The ghastly, lurid smell becomes so abhorently unbearab *)
  1899. GoToRoom 22 (* Move Player to Front of Moat *)
  1900. DoneWithTurn
  1901. END_COMMAND
  1902.  
  1903. COMMAND GET VIAL
  1904. AtLocation 23 (* Player is in On Top of Cove *)
  1905. NOT NOUNIsCarrying (* Player is NOT carrying NOUN *)
  1906. IsLocated 260  0 (* test nine is in NOWHERE *)
  1907. GetNOUN (* Get it *)
  1908. PrintMessage 243 (* The clothpin just barely keeps out the lurid odor, as y *)
  1909. PlusScore 15 (* Add 15 points to score *)
  1910. DoneWithTurn
  1911. END_COMMAND
  1912.  
  1913. COMMAND GET GOLD
  1914. AtLocation 13 (* Player is in Gloom *)
  1915. NOT NOUNPresent (* NOUN is NOT present *)
  1916. IsLocated 261  24 (* test ten is in Nothing *)
  1917. Destroy 261 (* Move test ten to room Zero *)
  1918. GetNOUN (* Get it *)
  1919. PrintMessage 45 (* Taken.  *)
  1920. DoneWithTurn
  1921. END_COMMAND
  1922.  
  1923. COMMAND GET GOLD
  1924. NOUNPresent (* NOUN is present *)
  1925. GetNOUN (* Get it *)
  1926. PrintMessage 45 (* Taken.  *)
  1927. DoneWithTurn
  1928. END_COMMAND
  1929.  
  1930. COMMAND GET CLOTHPIN
  1931. AtLocation 27 (* Player is in Royal Laundry Room *)
  1932. NOT NOUNPresent (* NOUN is NOT present *)
  1933. IsLocated 259  24 (* test eight is in Nothing *)
  1934. GetNOUN (* Get it *)
  1935. Destroy 259 (* Move test eight to room Zero *)
  1936. PrintMessage 45 (* Taken.  *)
  1937. PrintMessage 227 (* A Squynchian maid comes bounceswinging in, humming a mi *)
  1938. DoneWithTurn
  1939. END_COMMAND
  1940.  
  1941. COMMAND GET CLOTHPIN
  1942. NOUNPresent (* NOUN is present *)
  1943. NOT NOUNIsCarrying (* Player is NOT carrying NOUN *)
  1944. GetNOUN (* Get it *)
  1945. PrintMessage 45 (* Taken.  *)
  1946. DoneWithTurn
  1947. END_COMMAND
  1948.  
  1949. (* REM -- PUT *)
  1950.  
  1951. COMMAND PUT CANDLE
  1952. NOUNIsCarrying (* Player is carrying NOUN *)
  1953. AtLocation 9 (* Player is in Well *)
  1954. IsLocated 237  24 (* test one is in Nothing *)
  1955. PutInCurrentRoom 207 (* Move wax candle to current room *)
  1956. Destroy 237 (* Move test one to room Zero *)
  1957. PrintMessage 48 (* The candle sputters twice, and extinguishes.  *)
  1958. DoneWithTurn
  1959. END_COMMAND
  1960.  
  1961. COMMAND PUT CANDLE
  1962. NOUNIsCarrying (* Player is carrying NOUN *)
  1963. AtLocation 9 (* Player is in Well *)
  1964. NOT IsLocated 237  24 (* test one is NOT in Nothing *)
  1965. PutInCurrentRoom 207 (* Move wax candle to current room *)
  1966. PrintMessage 60 (* Done.  *)
  1967. DoneWithTurn
  1968. END_COMMAND
  1969.  
  1970. COMMAND PUT CANDLE
  1971. NOUNIsCarrying (* Player is carrying NOUN *)
  1972. NOT AtLocation 9 (* Player is NOT in Well *)
  1973. PrintMessage 10 (* You find no good surface to put it on.  *)
  1974. DoneWithTurn
  1975. END_COMMAND
  1976.  
  1977. COMMAND PUT PIPE
  1978. NOUNIsCarrying (* Player is carrying NOUN *)
  1979. AtLocation 9 (* Player is in Well *)
  1980. InRoom 212 (* ice is in current Room *)
  1981. FlagON 7 (* Flag # 7 is ON -- Pipe is Lit *)
  1982. PutNOUNInCurrentRoom (* Move NOUN to Current Room *)
  1983. PutInCurrentRoom 211 (* Move magic carpet to current room *)
  1984. Destroy 212 (* Move ice to room Zero *)
  1985. Destroy 222 (* Move object to room Zero *)
  1986. PrintMessage 50 (* The ice starts sizzling, fizzling, and rapidly evaporat *)
  1987. PlusScore 30 (* Add 30 to score *)
  1988. DoneWithTurn
  1989. END_COMMAND
  1990.  
  1991. COMMAND PUT PIPE
  1992. NOUNIsCarrying (* Player is carrying NOUN *)
  1993. AtLocation 9 (* Player is in Well *)
  1994. InRoom 212 (* ice is in current Room *)
  1995. NOT FlagON 7 (* Flag # 7 is OFF -- Pipe is NOT Lit *)
  1996. SendNOUNToRoom 9 (* Move NOUN to Well *)
  1997. PrintMessage 60 (* Done. *)
  1998. DoneWithTurn
  1999. END_COMMAND
  2000.  
  2001. COMMAND PUT BLOCK
  2002. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2003. NOUNIsCarrying (* Player is carrying NOUN *)
  2004. Present 231 (* wooden pail is present *)
  2005. NOT FlagON 4 (* Flag # 4 is OFF *)
  2006. DestroyNOUN (* Move NOUN to Room Zero*)
  2007. TurnFlagON 4 (* Turn Flag # 4 ON *)
  2008. PrintMessage 60 (* Done.  *)
  2009. DoneWithTurn
  2010. END_COMMAND
  2011.  
  2012. COMMAND PUT BLOCK
  2013. NOUNIsCarrying (* Player is carrying NOUN *)
  2014. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2015. Present 231 (* wooden pail is present *)
  2016. FlagON 4 (* Flag # 4 is ON *)
  2017. PrintMessage 69 (* It IS in the pail already.  *)
  2018. DoneWithTurn
  2019. END_COMMAND
  2020.  
  2021. COMMAND PUT BLOCK
  2022. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2023. NOUNIsCarrying (* Player is carrying NOUN *)
  2024. NOT Present 231 (* wooden pail is NOT present *)
  2025. PutNOUNInCurrentRoom (* Move NOUN to Current Room *)
  2026. PrintMessage 122 (* In WHAT!?? *)
  2027. DoneWithTurn
  2028. END_COMMAND
  2029.  
  2030. COMMAND PUT BLOCK
  2031. AtLocation 16 (* Player is in Front of Crownroom *)
  2032. NOUNIsCarrying (* Player is carrying NOUN *)
  2033. FlagON 4 (* Flag # 4 is ON *)
  2034. PrintMessage 185 (* The block is in the pail! *)
  2035. DoneWithTurn
  2036. END_COMMAND
  2037.  
  2038. COMMAND PUT BLOCK
  2039. AtLocation 16 (* Player is in Front of Crownroom *)
  2040. NOUNIsCarrying (* Player is carrying NOUN *)
  2041. NOT FlagON 4 (* Flag # 4 is OFF *)
  2042. SendNOUNToRoom 19 (* Move NOUN to On the scale *)
  2043. PrintMessage 183 (* Fine.  It now rests on the scale.  *)
  2044. DoneWithTurn
  2045. END_COMMAND
  2046.  
  2047. COMMAND PUT CARPET
  2048. NOUNIsCarrying (* Player is carrying NOUN *)
  2049. AtLocation 11 (* Player is in Boulder room *)
  2050. NOT FlagON 9 (* Flag # 9 is OFF *)
  2051. PrintMessage 60 (* Done.  *)
  2052. TurnFlagON 9 (* Turn Flag # 9 ON *)
  2053. DestroyNOUN (* Move NOUN to Room Zero*)
  2054. DoneWithTurn
  2055. END_COMMAND
  2056.  
  2057. COMMAND PUT CARPET
  2058. NOT AtLocation 11 (* Player is NOT in Boulder room *)
  2059. PutNOUNInCurrentRoom (* Move NOUN to Current Room *)
  2060. PrintMessage 60 (* Done.  *)
  2061. DoneWithTurn
  2062. END_COMMAND
  2063.  
  2064. COMMAND PUT RUBY
  2065. NOUNIsCarrying (* Player is carrying NOUN *)
  2066. IsCarrying 201 (* Player is carrying Squeeb's crown *)
  2067. FlagON 11 (* Flag # 11 is ON *)
  2068. SendNOUNToItem 201 (* Move NOUN to location of Squeeb's crown *)
  2069. PrintMessage 118 (* The ogre's, suddenly awoken from their stupor, sound th *)
  2070. TurnFlagON 14 (* Turn Flag # 14 ON *)
  2071. DoneWithTurn
  2072. END_COMMAND
  2073.  
  2074. COMMAND PUT RUBY
  2075. NOUNIsCarrying (* Player is carrying NOUN *)
  2076. IsCarrying 201 (* Player is carrying Squeeb's crown *)
  2077. NOT FlagON 11 (* Flag # 11 is OFF *)
  2078. PrintMessage 119 (* The ogre's, suddenly awoken from their stupor, sound al *)
  2079. PrintMessage 7 (* Two ogres appear in the doorway, eyes wild with hate."T *)
  2080. KillPlayer (* You die! *)
  2081. DoneWithTurn
  2082. END_COMMAND
  2083.  
  2084. COMMAND PUT RUBY
  2085. NOUNIsCarrying (* Player is carrying NOUN *)
  2086. FlagON 11 (* Flag # 11 is ON *)
  2087. NOT IsCarrying 201 (* Player is NOT carrying Squeeb's crown *)
  2088. PrintMessage 120 (* You don't have the crown.  *)
  2089. DoneWithTurn
  2090. END_COMMAND
  2091.  
  2092. COMMAND PUT STAFF
  2093. NOUNPresent (* NOUN is present *)
  2094. AtLocation 4 (* Player is in Cave *)
  2095. FlagON 1 (* Flag # 1 is ON *)
  2096. NOT FlagON 11 (* Flag # 11 is OFF *)
  2097. PrintMessage 11 (* The staff now bolts the door.  *)
  2098. TurnFlagON 11 (* Turn Flag # 11 ON *)
  2099. DestroyNOUN (* Move NOUN to Room Zero*)
  2100. DoneWithTurn
  2101. END_COMMAND
  2102.  
  2103. COMMAND PUT STAFF
  2104. NOUNPresent (* NOUN is present *)
  2105. AtLocation 4 (* Player is in Cave *)
  2106. FlagON 1 (* Flag # 1 is ON *)
  2107. FlagON 11 (* Flag # 11 is ON *)
  2108. PrintMessage 105 (* It IS bolted.  *)
  2109. DoneWithTurn
  2110. END_COMMAND
  2111.  
  2112. COMMAND PUT STAFF
  2113. AtLocation 4 (* Player is in Cave *)
  2114. NOUNPresent (* NOUN is present *)
  2115. NOT FlagON 1 (* Flag # 1 is OFF *)
  2116. PrintMessage 106 (* A task quite impossible if the gates are open! *)
  2117. DoneWithTurn
  2118. END_COMMAND
  2119.  
  2120. COMMAND PUT STAFF
  2121. NOUNPresent (* NOUN is present *)
  2122. NOT AtLocation 4 (* Player is NOT in Cave *)
  2123. AtLocation 16 (* Player is in Front of Crownroom *)
  2124. SendNOUNToRoom 19 (* Move NOUN to On the scale *)
  2125. PrintMessage 183 (* Fine.  It now rests on the scale.  *)
  2126. DoneWithTurn
  2127. END_COMMAND
  2128.  
  2129. COMMAND PUT STAFF
  2130. NOT AtLocation 4 (* Player is NOT in Cave *)
  2131. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2132. PrintMessage 10 (* You find no good surface to put it on.  *)
  2133. DoneWithTurn
  2134. END_COMMAND
  2135.  
  2136. COMMAND PUT ANY
  2137. AtLocation 16 (* Player is in Front of Crownroom *)
  2138. NOUNPresent (* NOUN is present *)
  2139. PrintMessage 183 (* Fine.  It now rests on the scale.  *)
  2140. SendNOUNToRoom 19 (* Move NOUN to On the scale *)
  2141. DoneWithTurn
  2142. END_COMMAND
  2143.  
  2144. (* REM -- GO *)
  2145.  
  2146. COMMAND GO TRAPDOOR
  2147. AtLocation 9 (* Player is in Well *)
  2148. NOUNInRoom (* NOUN is in current room *)
  2149. IsNoWhere 240 (* test three is in room Zero -- NoWhere *)
  2150. GoToRoom 10 (* Move Player to Small room *)
  2151. DoneWithTurn
  2152. END_COMMAND
  2153.  
  2154. COMMAND GO TRAPDOOR
  2155. AtLocation 9 (* Player is in Well *)
  2156. NOUNInRoom (* NOUN is in current room *)
  2157. NOT IsNoWhere 240 (* test three is NOT in room Zero -- NoWhere *)
  2158. PrintMessage 97 (* It's closed.  *)
  2159. DoneWithTurn
  2160. END_COMMAND
  2161.  
  2162. COMMAND GO TRAPDOOR
  2163. NOT NOUNPresent (* NOUN is NOT present *)
  2164. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2165. DoneWithTurn
  2166. END_COMMAND
  2167.  
  2168. COMMAND GO BRIDGE
  2169. AtLocation 14 (* Player is in Front of Castle *)
  2170. NOT InRoom 225 (* orc is NOT in current Room *)
  2171. GoToRoom 18 (* Move Player to Drawbridge *)
  2172. DoneWithTurn
  2173. END_COMMAND
  2174.  
  2175. COMMAND GO BRIDGE
  2176. AtLocation 14 (* Player is in Front of Castle *)
  2177. InRoom 225 (* orc is in current Room *)
  2178. PrintMessage 64 (* The orc draws itself up to its full height and bars you *)
  2179. PrintMessage 95 (* shoving you.  *)
  2180. DoneWithTurn
  2181. END_COMMAND
  2182.  
  2183. COMMAND GO BRIDGE
  2184. NOT AtLocation 14 (* Player is NOT in Front of Castle *)
  2185. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2186. DoneWithTurn
  2187. END_COMMAND
  2188.  
  2189. COMMAND GO SCALE
  2190. AtLocation 16 (* Player is in Front of Crownroom *)
  2191. GoToRoom 19 (* Move Player to On the scale *)
  2192. DoneWithTurn
  2193. END_COMMAND
  2194.  
  2195. COMMAND GO SCALE
  2196. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2197. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2198. DoneWithTurn
  2199. END_COMMAND
  2200.  
  2201. COMMAND GO COVE
  2202. AtLocation 11 (* Player is in Boulder room *)
  2203. NOT InRoom 219 (* boulder is NOT in current Room *)
  2204. GoToRoom 12 (* Move Player to Pirate cove *)
  2205. DoneWithTurn
  2206. END_COMMAND
  2207.  
  2208. COMMAND GO COVE
  2209. InRoom 219 (* boulder is in current Room *)
  2210. PrintMessage 33 (* Ramming your head violently against the boulder, has no *)
  2211. DoneWithTurn
  2212. END_COMMAND
  2213.  
  2214. COMMAND GO COVE
  2215. NOT AtLocation 11 (* Player is NOT in Boulder room *)
  2216. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2217. DoneWithTurn
  2218. END_COMMAND
  2219.  
  2220. COMMAND GO DOOR
  2221. AtLocation 16 (* Player is in Front of Crownroom *)
  2222. FlagON 10 (* Flag # 10 is ON *)
  2223. GoToRoom 17 (* Move Player to Crown room *)
  2224. DoneWithTurn
  2225. END_COMMAND
  2226.  
  2227. COMMAND GO DOOR
  2228. AtLocation 16 (* Player is in Front of Crownroom *)
  2229. NOT FlagON 10 (* Flag # 10 is OFF *)
  2230. PrintMessage 182 (* It's closed.  The emblem atop the door flashes red in wa *)
  2231. DoneWithTurn
  2232. END_COMMAND
  2233.  
  2234. COMMAND GO DOOR
  2235. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2236. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2237. DoneWithTurn
  2238. END_COMMAND
  2239.  
  2240. COMMAND GO GATES
  2241. AtLocation 4 (* Player is in Cave *)
  2242. NOT FlagON 1 (* Flag # 1 is OFF *)
  2243. PrintMessage 7 (* Two ogres appear in the doorway, eyes wild with hate."T *)
  2244. KillPlayer (* You die! *)
  2245. DoneWithTurn
  2246. END_COMMAND
  2247.  
  2248. COMMAND GO GATES
  2249. AtLocation 4 (* Player is in Cave *)
  2250. FlagON 1 (* Flag # 1 is ON *)
  2251. NOT FlagON 11 (* Flag # 11 is OFF *)
  2252. PrintMessage 97 (* It's closed.  *)
  2253. DoneWithTurn
  2254. END_COMMAND
  2255.  
  2256. COMMAND GO GATES
  2257. AtLocation 4 (* Player is in Cave *)
  2258. FlagON 1 (* Flag # 1 is ON *)
  2259. FlagON 11 (* Flag # 11 is ON *)
  2260. PrintMessage 98 (* It's bolted.  *)
  2261. DoneWithTurn
  2262. END_COMMAND
  2263.  
  2264. COMMAND GO GATES
  2265. NOT AtLocation 4 (* Player is NOT in Cave *)
  2266. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2267. DoneWithTurn
  2268. END_COMMAND
  2269.  
  2270. COMMAND GO CAGE
  2271. AtLocation 4 (* Player is in Cave *)
  2272. IsLocated 221  5 (* beast is in Cage *)
  2273. PrintMessage 147 (* Besides the fact, that there isn't any way in, I wouldn *)
  2274. DoneWithTurn
  2275. END_COMMAND
  2276.  
  2277. COMMAND GO CAGE
  2278. AtLocation 4 (* Player is in Cave *)
  2279. NOT IsLocated 221  5 (* beast is NOT in Cage *)
  2280. InRoom 221 (* beast is in current Room *)
  2281. PrintMessage 113 (* The beast slinks toward you, eyes gleaming with hunger.  *)
  2282. KillPlayer (* You die! *)
  2283. DoneWithTurn
  2284. END_COMMAND
  2285.  
  2286. COMMAND GO CAGE
  2287. AtLocation 4 (* Player is in Cave *)
  2288. IsNoWhere 221 (* beast is in room Zero -- NoWhere *)
  2289. GoToRoom 5 (* Move Player to Cage *)
  2290. DoneWithTurn
  2291. END_COMMAND
  2292.  
  2293. COMMAND GO CAGE
  2294. NOT AtLocation 4 (* Player is NOT in Cave *)
  2295. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2296. DoneWithTurn
  2297. END_COMMAND
  2298.  
  2299. COMMAND GO NORTH
  2300. ReDirectTo NORTH
  2301. END_COMMAND
  2302.  
  2303. COMMAND GO NORTHWEST
  2304. ReDirectTo NORTHWEST
  2305. END_COMMAND
  2306.  
  2307. COMMAND GO NORTHEAST
  2308. ReDirectTo NORTHEAST
  2309. END_COMMAND
  2310.  
  2311. COMMAND GO SOUTH
  2312. ReDirectTo SOUTH
  2313. END_COMMAND
  2314.  
  2315. COMMAND GO SOUTHWEST
  2316. ReDirectTo SOUTHWEST
  2317. END_COMMAND
  2318.  
  2319. COMMAND GO SOUTHEAST
  2320. ReDirectTo SOUTHEAST
  2321. END_COMMAND
  2322.  
  2323. COMMAND GO WEST
  2324. ReDirectTo WEST
  2325. END_COMMAND
  2326.  
  2327. COMMAND GO EAST
  2328. ReDirectTo EAST
  2329. END_COMMAND
  2330.  
  2331. COMMAND GO UP
  2332. ReDirectTo UP
  2333. END_COMMAND
  2334.  
  2335. COMMAND GO DOWN
  2336. ReDirectTo DOWN
  2337. END_COMMAND
  2338.  
  2339. (* REM -- DOWN *)
  2340.  
  2341. COMMAND DOWN
  2342. AtLocation 9 (* Player is in Well *)
  2343. NOUNInRoom (* NOUN is in current room *)
  2344. IsNoWhere 240 (* test three is in room Zero -- NoWhere *)
  2345. GoToRoom 10 (* Move Player to Small room *)
  2346. DoneWithTurn
  2347. END_COMMAND
  2348.  
  2349. (* REM -- NORTH *)
  2350.  
  2351. COMMAND NORTH
  2352. InRoom 219 (* boulder is in current Room *)
  2353. PrintMessage 33 (* Ramming your head violently against the boulder, has no *)
  2354. DoneWithTurn
  2355. END_COMMAND
  2356.  
  2357. COMMAND NORTH
  2358. AtLocation 11 (* Player is in Boulder room *)
  2359. NOT InRoom 219 (* boulder is NOT in current Room *)
  2360. GoToRoom 12 (* Move Player to Pirate cove *)
  2361. DoneWithTurn
  2362. END_COMMAND
  2363.  
  2364. (* REM -- EAST *)
  2365.  
  2366. COMMAND EAST
  2367. AtLocation 14 (* Player is in Front of Castle *)
  2368. NOT InRoom 225 (* orc is NOT in current Room *)
  2369. GoToRoom 18 (* Move Player to Drawbridge *)
  2370. DoneWithTurn
  2371. END_COMMAND
  2372.  
  2373. COMMAND EAST
  2374. AtLocation 14 (* Player is in Front of Castle *)
  2375. InRoom 225 (* orc is in current Room *)
  2376. PrintMessage 64 (* The orc draws itself up to its full height and bars you *)
  2377. PrintMessage 95 (* shoving you.  *)
  2378. DoneWithTurn
  2379. END_COMMAND
  2380.  
  2381. COMMAND EAST
  2382. AtLocation 16 (* Player is in Front of Crownroom *)
  2383. FlagON 10 (* Flag # 10 is ON *)
  2384. GoToRoom 17 (* Move Player to Crown room *)
  2385. DoneWithTurn
  2386. END_COMMAND
  2387.  
  2388. COMMAND EAST
  2389. AtLocation 16 (* Player is in Front of Crownroom *)
  2390. NOT FlagON 10 (* Flag # 10 is OFF *)
  2391. PrintMessage 182 (* It's closed.  The emblem atop the door flashes red in wa *)
  2392. DoneWithTurn
  2393. END_COMMAND
  2394.  
  2395. (* REM -- WEST *)
  2396.  
  2397. COMMAND WEST
  2398. AtLocation 4 (* Player is in Cave *)
  2399. NOT FlagON 1 (* Flag # 1 is OFF *)
  2400. PrintMessage 7 (* Two ogres appear in the doorway, eyes wild with hate."T *)
  2401. KillPlayer (* You die! *)
  2402. DoneWithTurn
  2403. END_COMMAND
  2404.  
  2405. COMMAND WEST
  2406. AtLocation 4 (* Player is in Cave *)
  2407. FlagON 1 (* Flag # 1 is ON *)
  2408. NOT FlagON 11 (* Flag # 11 is OFF *)
  2409. PrintMessage 97 (* It's closed.  *)
  2410. DoneWithTurn
  2411. END_COMMAND
  2412.  
  2413. COMMAND WEST
  2414. AtLocation 4 (* Player is in Cave *)
  2415. FlagON 1 (* Flag # 1 is ON *)
  2416. FlagON 11 (* Flag # 11 is ON *)
  2417. PrintMessage 98 (* It's bolted.  *)
  2418. DoneWithTurn
  2419. END_COMMAND
  2420.  
  2421. (* REM -- ENTER *)
  2422.  
  2423. COMMAND ENTER TRAPDOOR
  2424. RedirectTo GO TRAPDOOR
  2425. END_COMMAND
  2426.  
  2427. COMMAND ENTER CAGE
  2428. ReDirectTo GO CAGE
  2429. END_COMMAND
  2430.  
  2431. COMMAND ENTER GATES
  2432. ReDirectTo GO GATES
  2433. END_COMMAND
  2434.  
  2435. COMMAND ENTER DOOR
  2436. ReDirectTo GO DOOR
  2437. END_COMMAND
  2438.  
  2439. COMMAND ENTER COVE
  2440. ReDirectTo GO COVE
  2441. END_COMMAND
  2442.  
  2443. (* REM -- EXIT *)
  2444.  
  2445. COMMAND EXIT ANY
  2446. AtLocation 9 (* Player is in Well *)
  2447. NOT IsNoWhere 240 (* test three is NOT in room Zero -- NoWhere *)
  2448. GoToRoom 8 (* Move Player to Front of well *)
  2449. DoneWithTurn
  2450. END_COMMAND
  2451.  
  2452. (* REM -- OPEN *)
  2453.  
  2454. COMMAND OPEN TRAPDOOR
  2455. AtLocation 9 (* Player is in Well *)
  2456. NOUNInRoom (* NOUN is in current room *)
  2457. IsLocated 240  24 (* test three is in Nothing *)
  2458. Destroy 240 (* Move test three to room Zero *)
  2459. PrintMessage 149 (* Opened.  *)
  2460. DoneWithTurn
  2461. END_COMMAND
  2462.  
  2463. COMMAND OPEN TRAPDOOR
  2464. AtLocation 9 (* Player is in Well *)
  2465. NOUNInRoom (* NOUN is in current room *)
  2466. IsNoWhere 240 (* test three is in room Zero -- NoWhere *)
  2467. PrintMessage 103 (* It IS open.  *)
  2468. DoneWithTurn
  2469. END_COMMAND
  2470.  
  2471. COMMAND OPEN VIAL
  2472. NOUNIsCarrying (* Player is carrying NOUN *)
  2473. IsLocated 256  24 (* test seven is in Nothing *)
  2474. Destroy 256 (* Move test seven to room Zero *)
  2475. PrintMessage 198 (* You open the vial, expectant, hopeful, only to notice i *)
  2476. DoneWithTurn
  2477. END_COMMAND
  2478.  
  2479. COMMAND OPEN VIAL
  2480. NOUNIsCarrying (* Player is carrying NOUN *)
  2481. NOT IsLocated 256  24 (* test seven is NOT in Nothing *)
  2482. PrintMessage 103 (* It IS open.  *)
  2483. DoneWithTurn
  2484. END_COMMAND
  2485.  
  2486. COMMAND OPEN DOOR
  2487. AtLocation 16 (* Player is in Front of Crownroom *)
  2488. NOT FlagON 10 (* Flag # 10 is OFF *)
  2489. PrintMessage 191 (* You can't seem to make it budge.  Perhaps it's jammed.  *)
  2490. DoneWithTurn
  2491. END_COMMAND
  2492.  
  2493. COMMAND OPEN DOOR
  2494. AtLocation 16 (* Player is in Front of Crownroom *)
  2495. FlagON 10 (* Flag # 10 is ON *)
  2496. PrintMessage 103 (* It IS open.  *)
  2497. DoneWithTurn
  2498. END_COMMAND
  2499.  
  2500. COMMAND OPEN DOOR
  2501. NOT AtLocation 16 (* Player is NOT in Front of Crownroom *)
  2502. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2503. DoneWithTurn
  2504. END_COMMAND
  2505.  
  2506. COMMAND OPEN CASE
  2507. AtLocation 4 (* Player is in Cave *)
  2508. PrintMessage 143 (* The glass case is completely sealed from all four sides *)
  2509. DoneWithTurn
  2510. END_COMMAND
  2511.  
  2512. COMMAND OPEN GATES
  2513. AtLocation 4 (* Player is in Cave *)
  2514. FlagON 1 (* Flag # 1 is ON *)
  2515. NOT FlagON 11 (* Flag # 11 is OFF *)
  2516. PrintMessage 7 (* Two ogres appear in the doorway, eyes wild with hate."T *)
  2517. KillPlayer (* You die! *)
  2518. DoneWithTurn
  2519. END_COMMAND
  2520.  
  2521. COMMAND OPEN GATES
  2522. AtLocation 4 (* Player is in Cave *)
  2523. FlagON 1 (* Flag # 1 is ON *)
  2524. FlagON 11 (* Flag # 11 is ON *)
  2525. PrintMessage 98 (* It's bolted.  *)
  2526. DoneWithTurn
  2527. END_COMMAND
  2528.  
  2529. COMMAND OPEN GATES
  2530. AtLocation 4 (* Player is in Cave *)
  2531. NOT FlagON 1 (* Flag # 1 is OFF *)
  2532. PrintMessage 103 (* It IS open.  *)
  2533. DoneWithTurn
  2534. END_COMMAND
  2535.  
  2536. COMMAND OPEN GATES
  2537. NOT AtLocation 4 (* Player is NOT in Cave *)
  2538. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2539. DoneWithTurn
  2540. END_COMMAND
  2541.  
  2542. COMMAND OPEN LUNCHBOX
  2543. NOUNPresent (* NOUN is present *)
  2544. NOT IsNoWhere 238 (* test two is NOT in room Zero -- NoWhere *)
  2545. PrintMessage 165 (* It's locked.  *)
  2546. DoneWithTurn
  2547. END_COMMAND
  2548.  
  2549. COMMAND OPEN LUNCHBOX
  2550. NOUNPresent (* NOUN is present *)
  2551. IsNoWhere 238 (* test two is in room Zero -- NoWhere *)
  2552. PrintMessage 103 (* It IS open.  *)
  2553. DoneWithTurn
  2554. END_COMMAND
  2555.  
  2556. COMMAND OPEN ANY
  2557. NOT NOUNPresent (* NOUN is NOT present *)
  2558. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2559. DoneWithTurn
  2560. END_COMMAND
  2561.  
  2562. (* REM -- CLOSE *)
  2563.  
  2564. COMMAND CLOSE VIAL
  2565. NOUNIsCarrying (* Player is carrying NOUN *)
  2566. IsNoWhere 256 (* test seven is in room Zero -- NoWhere *)
  2567. SendToRoom 256  24 (* Move test seven to Nothing *)
  2568. PrintMessage 150 (* Closed.  *)
  2569. DoneWithTurn
  2570. END_COMMAND
  2571.  
  2572. COMMAND CLOSE VIAL
  2573. NOUNIsCarrying (* Player is carrying NOUN *)
  2574. NOT IsNoWhere 256 (* test seven is NOT in room Zero -- NoWhere *)
  2575. PrintMessage 102 (* It IS closed.  *)
  2576. DoneWithTurn
  2577. END_COMMAND
  2578.  
  2579. COMMAND CLOSE CAGE
  2580. AtLocation 4 (* Player is in Cave *)
  2581. PrintMessage 190 (* You don't have the strength.  Especially in the height o *)
  2582. DoneWithTurn
  2583. END_COMMAND
  2584.  
  2585. COMMAND CLOSE CAGE
  2586. NOT AtLocation 4 (* Player is NOT in Cave *)
  2587. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2588. DoneWithTurn
  2589. END_COMMAND
  2590.  
  2591. COMMAND CLOSE GATES
  2592. AtLocation 4 (* Player is in Cave *)
  2593. NOT FlagON 1 (* Flag # 1 is OFF *)
  2594. PrintMessage 101 (* It is now closed.  *)
  2595. TurnFlagON 1 (* Turn Flag # 1 ON *)
  2596. DoneWithTurn
  2597. END_COMMAND
  2598.  
  2599. COMMAND CLOSE GATES
  2600. AtLocation 4 (* Player is in Cave *)
  2601. FlagON 1 (* Flag # 1 is ON *)
  2602. PrintMessage 102 (* It IS closed.  *)
  2603. DoneWithTurn
  2604. END_COMMAND
  2605.  
  2606. COMMAND CLOSE GATES
  2607. NOT AtLocation 4 (* Player is NOT in Cave *)
  2608. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2609. DoneWithTurn
  2610. END_COMMAND
  2611.  
  2612. COMMAND CLOSE TRAPDOOR
  2613. AtLocation 9 (* Player is in Well *)
  2614. NOUNInRoom (* NOUN is in current room *)
  2615. IsNoWhere 240 (* test three is in room Zero -- NoWhere *)
  2616. SendToRoom 240  24 (* Move test three to Nothing *)
  2617. PrintMessage 150 (* Closed.  *)
  2618. DoneWithTurn
  2619. END_COMMAND
  2620.  
  2621. COMMAND CLOSE TRAPDOOR
  2622. AtLocation 9 (* Player is in Well *)
  2623. NOUNInRoom (* NOUN is in current room *)
  2624. NOT IsNoWhere 240 (* test three is NOT in room Zero -- NoWhere *)
  2625. PrintMessage 102 (* It IS closed.  *)
  2626. DoneWithTurn
  2627. END_COMMAND
  2628.  
  2629. COMMAND CLOSE TRAPDOOR
  2630. NOT NOUNInRoom (* NOUN is NOT in current room *)
  2631. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2632. DoneWithTurn
  2633. END_COMMAND
  2634.  
  2635. COMMAND CLOSE ANY
  2636. NOT NOUNPresent (* NOUN is NOT present *)
  2637. PrintMessage 199 (* ? You don't have that.  *)
  2638. DoneWithTurn
  2639. END_COMMAND
  2640.  
  2641. (* REM -- LOCK *)
  2642.  
  2643. COMMAND LOCK LUNCHBOX
  2644. NOUNPresent (* NOUN is present *)
  2645. IsCarrying 205 (* Player is carrying rusty key *)
  2646. IsNoWhere 238 (* test two is in room Zero -- NoWhere *)
  2647. SendToRoom 238  24 (* Move test two to Nothing *)
  2648. PrintMessage 84 (* The lunchbox is now locked.  *)
  2649. DoneWithTurn
  2650. END_COMMAND
  2651.  
  2652. COMMAND LOCK LUNCHBOX
  2653. NOUNPresent (* NOUN is present *)
  2654. IsCarrying 205 (* Player is carrying rusty key *)
  2655. NOT IsNoWhere 238 (* test two is NOT in room Zero -- NoWhere *)
  2656. PrintMessage 83 (* It IS unlocked.  *)
  2657. DoneWithTurn
  2658. END_COMMAND
  2659.  
  2660. COMMAND LOCK LUNCHBOX
  2661. NOUNPresent (* NOUN is present *)
  2662. NOT IsCarrying 205 (* Player is NOT carrying rusty key *)
  2663. PrintMessage 82 (* You don't have the key.  *)
  2664. DoneWithTurn
  2665. END_COMMAND
  2666.  
  2667. COMMAND LOCK ANY
  2668. NOT NOUNPresent (* NOUN is NOT present *)
  2669. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2670. DoneWithTurn
  2671. END_COMMAND
  2672.  
  2673. (* REM -- UNLOCK *)
  2674.  
  2675. COMMAND UNLOCK LUNCHBOX
  2676. NOUNPresent (* NOUN is present *)
  2677. IsCarrying 205 (* Player is carrying rusty key *)
  2678. IsLocated 238  24 (* test two is in Nothing *)
  2679. Destroy 238 (* Move test two to room Zero *)
  2680. PutInCurrentRoom 223 (* Move dried meat to current room *)
  2681. PrintMessage 80 (* You unlock the lunchbox, and the lid flips open to reve *)
  2682. DoneWithTurn
  2683. END_COMMAND
  2684.  
  2685. COMMAND UNLOCK LUNCHBOX
  2686. NOUNPresent (* NOUN is present *)
  2687. IsCarrying 205 (* Player is carrying rusty key *)
  2688. NOT IsLocated 238  24 (* test two is NOT in Nothing *)
  2689. PrintMessage 83 (* It IS unlocked.  *)
  2690. DoneWithTurn
  2691. END_COMMAND
  2692.  
  2693. COMMAND UNLOCK LUNCHBOX
  2694. NOUNPresent (* NOUN is present *)
  2695. NOT IsCarrying 205 (* Player is NOT carrying rusty key *)
  2696. PrintMessage 82 (* You don't have the key.  *)
  2697. DoneWithTurn
  2698. END_COMMAND
  2699.  
  2700. COMMAND UNLOCK LUNCHBOX
  2701. NOT NOUNPresent (* NOUN is NOT present *)
  2702. PrintMessage 1 (* ? Now where do you see any of that?? *)
  2703. DoneWithTurn
  2704. END_COMMAND
  2705.  
  2706. (* REM -- DEBUG *)
  2707.  
  2708. COMMAND DEBUG ANY
  2709. ToggleFlag 0 (* Toggle Debug Flag *)
  2710. DoneWithTurn
  2711. END_COMMAND
  2712.  
  2713.