home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / agt3.zip / BIGDATE.CMD < prev    next >
OS/2 REXX Batch file  |  1988-04-16  |  20KB  |  804 lines
  1.  
  2. COMMAND ANY ANY
  3. AtLocation 21 (* Player is in Betty's bedroom *)
  4. IsLocated 203  99 (* Diamond is in BLANK *)
  5. Present 201 (* Ring is present *)
  6. Present 202 (* Earrings is present *)
  7. Present 204 (* Blouse is present *)
  8. Present 205 (* Polish is present *)
  9. Present 206 (* Necklace is present *)
  10. Present 207 (* Lipstick is present *)
  11. Present 208 (* Nails is present *)
  12. Present 209 (* Razor is present *)
  13. Present 233 (* Shoes is present *)
  14. PrintMessage 57 (* You did it!  Good luck on your date! *)
  15. PlusScore 30 (* Add 30 to score *)
  16. EndGame (* End Game *)
  17. DoneWithTurn
  18. END_COMMAND
  19.  
  20. COMMAND DEBUG
  21. ToggleFlag 0 (* Toggle Debugging Feature *)
  22. DoneWithTurn
  23. END_COMMAND
  24.  
  25. COMMAND BEND HANGER
  26. NOUNPresent (* NOUN is present *)
  27. SwapLocations 212 232 (* Swap hanger and hook *)
  28. PrintMessage 30 (* The coat hanger is now a bent hook. *)
  29. DoneWithTurn
  30. END_COMMAND
  31.  
  32. COMMAND BEND HANGER
  33. PrintMessage 3 (* I don't see any  *)
  34. DoneWithTurn
  35. END_COMMAND
  36.  
  37. COMMAND BEND HOOK
  38. NOUNPresent (* NOUN is present *)
  39. PrintMessage 32 (* The bent hook has been bent back into a coat hanger. *)
  40. SwapLocations 212 232 (* Swap hanger and hook *)
  41. DoneWithTurn
  42. END_COMMAND
  43.  
  44. COMMAND BEND HOOK
  45. PrintMessage 3 (* I don't see any  *)
  46. DoneWithTurn
  47. END_COMMAND
  48.  
  49. COMMAND EXAMINE HOLE
  50. IsNoWhere 214 (* Key is in room Zero -- NoWhere *)
  51. AtLocation 7 (* Player is in Foyer *)
  52. PrintMessage 31 (* There is a key inside the small hole. *)
  53. DoneWithTurn
  54. END_COMMAND
  55.  
  56. COMMAND EXAMINE HOLE
  57. AtLocation 7 (* Player is in Foyer *)
  58. PrintMessage 1 (* I see nothing odd about the  *)
  59. DoneWithTurn
  60. END_COMMAND
  61.  
  62. COMMAND EXAMINE LAVATORY
  63. NOUNPresent (* NOUN is present *)
  64. IsNoWhere 206 (* Necklace is in room Zero -- NoWhere *)
  65. PutInCurrentRoom 206 (* Move Necklace to current room *)
  66. PrintMessage 28 (* There is a diamond necklace here! *)
  67. DoneWithTurn
  68. END_COMMAND
  69.  
  70. COMMAND EXAMINE LAVATORY
  71. NOUNPresent (* NOUN is present *)
  72. PrintMessage 1 (* I see nothing odd about the  *)
  73. DoneWithTurn
  74. END_COMMAND
  75.  
  76. COMMAND EXAMINE LAVATORY
  77. PrintMessage 3 (* I don't see any  *)
  78. DoneWithTurn
  79. END_COMMAND
  80.  
  81. COMMAND EXAMINE BED
  82. AtLocation 8 (* Player is in Mary's bedroom *)
  83. IsNoWhere 203 (* Diamond is in room Zero -- NoWhere *)
  84. PutInCurrentRoom 203 (* Move Diamond to current room *)
  85. PrintMessage 27 (* A diamond to your necklace was under the covers. *)
  86. DoneWithTurn
  87. END_COMMAND
  88.  
  89. COMMAND EXAMINE BED
  90. AtLocation 8 (* Player is in Mary's bedroom *)
  91. PrintMessage 1 (* I see nothing odd about the  *)
  92. DoneWithTurn
  93. END_COMMAND
  94.  
  95. COMMAND EXAMINE BED
  96. PrintMessage 3 (* I don't see any  *)
  97. DoneWithTurn
  98. END_COMMAND
  99.  
  100. COMMAND EXAMINE COSTUME
  101. NOUNPresent (* NOUN is present *)
  102. PrintMessage 26 (* There is a pocket in the costume. *)
  103. DoneWithTurn
  104. END_COMMAND
  105.  
  106. COMMAND EXAMINE COSTUME
  107. PrintMessage 3 (* I don't see any  *)
  108. DoneWithTurn
  109. END_COMMAND
  110.  
  111. COMMAND EXAMINE POCKET
  112. Present 210 (* Costume is present *)
  113. IsNoWhere 208 (* Nails is in room Zero -- NoWhere *)
  114. GetIt 208 (* Move Nails to Player *)
  115. PlusScore 10 (* Add 10 to score *)
  116. PrintMessage 25 (* You got a set of fake nails from the pocket. *)
  117. DoneWithTurn
  118. END_COMMAND
  119.  
  120. COMMAND EXAMINE POCKET
  121. Present 210 (* Player is carrying Costume *)
  122. PrintMessage 1 (* I see nothing odd about the  *)
  123. DoneWithTurn
  124. END_COMMAND
  125.  
  126. COMMAND EXAMINE POCKET
  127. PrintMessage 3 (* I don't see any  *)
  128. DoneWithTurn
  129. END_COMMAND
  130.  
  131. COMMAND EXAMINE NECKLACE
  132. NOT NOUNPresent (* NOUN is NOT present *)
  133. PrintMessage 3 (* I don't see any  *)
  134. DoneWithTurn
  135. END_COMMAND
  136.  
  137. COMMAND EXAMINE NECKLACE
  138. FlagON 6 (* Flag # 6 is ON *)
  139. PrintMessage 1 (* I see nothing odd about the  *)
  140. DoneWithTurn
  141. END_COMMAND
  142.  
  143. COMMAND EXAMINE NECKLACE
  144. PrintMessage 20 (* A diamond set is missing from the necklace. *)
  145. DoneWithTurn
  146. END_COMMAND
  147.  
  148. COMMAND EXAMINE WINDOW
  149. NOT AtLocation 23 (* Player is NOT in Rec room *)
  150. PrintMessage 8 (* No. *)
  151. DoneWithTurn
  152. END_COMMAND
  153.  
  154. COMMAND EXAMINE WINDOW
  155. FlagON 8 (* Flag # 8 is ON *)
  156. PrintMessage 50 (* It is open. *)
  157. DoneWithTurn
  158. END_COMMAND
  159.  
  160. COMMAND EXAMINE WINDOW
  161. PrintMessage 51 (* It is closed. *)
  162. END_COMMAND
  163.  
  164. COMMAND EXAMINE ANTENNA
  165. NOT NOUNPresent (* NOUN is NOT present *)
  166. PrintMessage 3 (* I don't see any  *)
  167. DoneWithTurn
  168. END_COMMAND
  169.  
  170. COMMAND EXAMINE ANTENNA
  171. IsNoWhere 201 (* Ring is in room Zero -- NoWhere *)
  172. PutInCurrentRoom 201 (* Move Ring to current room *)
  173. PrintMessage 17 (* There is a ring here that Danny put on the antenna. *)
  174. SwapLocations 237  222 (* Swap locations of T.V. and TV *)
  175. DoneWithTurn
  176. END_COMMAND
  177.  
  178. COMMAND EXAMINE ANTENNA
  179. PrintMessage 1 (* I see nothing odd about the  *)
  180. DoneWithTurn
  181. END_COMMAND
  182.  
  183. COMMAND EXAMINE DESK
  184. AtLocation 2 (* Player is in Southwest basement *)
  185. PrintMessage 1 (* I see nothing odd about the  *)
  186. DoneWithTurn
  187. END_COMMAND
  188.  
  189. COMMAND EXAMINE DESK
  190. PrintMessage 3 (* I don't see any  *)
  191. END_COMMAND
  192.  
  193. COMMAND EXAMINE ANY
  194. PrintMessage 1 (* I see nothing odd about the  *)
  195. DoneWithTurn
  196. END_COMMAND
  197.  
  198. COMMAND YES ANY
  199. PrintMessage 8 (* No. *)
  200. DoneWithTurn
  201. END_COMMAND
  202.  
  203. COMMAND NO ANY
  204. PrintMessage 9 (* Yes. *)
  205. DoneWithTurn
  206. END_COMMAND
  207.  
  208. COMMAND FIX NECKLACE
  209. NOT NOUNPresent (* NOUN is NOT present *)
  210. PrintMessage 3 (* I don't see any  *)
  211. DoneWithTurn
  212. END_COMMAND
  213.  
  214. COMMAND FIX NECKLACE
  215. FlagON 6 (* Flag # 6 is ON *)
  216. PrintMessage 23 (* It doesn't need to be worked on. *)
  217. DoneWithTurn
  218. END_COMMAND
  219.  
  220. COMMAND FIX NECKLACE
  221. Present 236 (* Player is carrying Pliers *)
  222. Present 218 (* Player is carrying Glue *)
  223. Present 203 (* Player is carrying Diamond *)
  224. PrintMessage 22 (* Congratulations!  Maybe you should be a jeweler! *)
  225. TurnFlagON 6 (* Turn Flag # 6 ON *)
  226. SendToRoom 203  99 (* Move Diamond to BLANK *)
  227. PlusScore 20 (* Add 20 to score *)
  228. DoneWithTurn
  229. END_COMMAND
  230.  
  231. COMMAND FIX NECKLACE
  232. PrintMessage 21 (* You need something more to fix the necklace. *)
  233. DoneWithTurn
  234. END_COMMAND
  235.  
  236. COMMAND FIX ANY
  237. PrintMessage 23 (* It doesn't need to be worked on. *)
  238. DoneWithTurn
  239. END_COMMAND
  240.  
  241. COMMAND OPEN ICEBOX
  242. AtLocation 13 (* Player is in Kitchen *)
  243. NOT FlagON 1 (* Flag # 1 is NOT ON *)
  244. IsLocated 218  0 (* Glue is in its starting room *)
  245. PrintMessage 33 (* The icebox is now standing open. *)
  246. TurnFlagON 1 (* Turn Flag # 1 ON *)
  247. PutInCurrentRoom 218 (* Move Glue to current room *)
  248. PrintMessage 29 (* A tube of glue falls out of the icebox onto the floor. *)
  249. DoneWithTurn
  250. END_COMMAND
  251.  
  252. COMMAND OPEN ICEBOX
  253. AtLocation 13 (* Player is in Kitchen *)
  254. NOT FlagON 1 (* Flag # 1 is NOT ON *)
  255. PrintMessage 33 (* The icebox is now standing open. *)
  256. TurnFlagON 1 (* Turn Flag # 1 ON *)
  257. DoneWithTurn
  258. END_COMMAND
  259.  
  260. COMMAND OPEN ICEBOX
  261. AtLocation 13 (* Player is in Kitchen *)
  262. FlagON 1 (* Flag # 1 is ON *)
  263. PrintMessage 34 (* It is already open. *)
  264. DoneWithTurn
  265. END_COMMAND
  266.  
  267. COMMAND OPEN DOOR
  268. AtLocation 3 (* Player is in North basement *)
  269. NOT FlagON 2 (* Flag # 2 is NOT ON *)
  270. PrintMessage 41 (* The door is now open. *)
  271. TurnFlagON 2 (* Turn Flag # 2 ON *)
  272. DoneWithTurn
  273. END_COMMAND
  274.  
  275. COMMAND OPEN DOOR
  276. AtLocation 3 (* Player is in North basement *)
  277. FlagON 2 (* Flag # 2 is ON *)
  278. PrintMessage 34 (* It is already open. *)
  279. DoneWithTurn
  280. END_COMMAND
  281.  
  282. COMMAND OPEN CAR
  283. AtLocation 17 (* Player is in Garage *)
  284. NOT FlagON 3 (* Flag # 3 is NOT ON *)
  285. PrintMessage 41 (* The door is now open. *)
  286. TurnFlagON 3 (* Turn Flag # 3 ON *)
  287. DoneWithTurn
  288. END_COMMAND
  289.  
  290. COMMAND OPEN CAR
  291. AtLocation 17 (* Player is in Garage *)
  292. FlagON 3 (* Flag # 3 is ON *)
  293. PrintMessage 34 (* It is already open. *)
  294. DoneWithTurn
  295. END_COMMAND
  296.  
  297. COMMAND OPEN CAR
  298. PrintMessage 4 (* You can't reach that from here. *)
  299. DoneWithTurn
  300. END_COMMAND
  301.  
  302. COMMAND OPEN CHEST
  303. NOUNPresent (* NOUN is present *)
  304. FlagON 4 (* Flag # 4 is ON *)
  305. NOT FlagON 5 (* Flag # 5 is NOT ON *)
  306. IsNoWhere 236 (* Pliers is in room Zero -- NoWhere *)
  307. SendToItem 236  235 (* Move Pliers to Chest *)
  308. SendToItem 205  235 (* Move Polish to Chest *)
  309. PlusScore 10 (* Add 10 to score *)
  310. PrintMessage 48 (* It is now open. *)
  311. PrintMessage 24 (* You took a pair of pliers and nail polish from the ches *)
  312. TurnFlagON 5 (* Turn Flag # 5 ON *)
  313. DoneWithTurn
  314. END_COMMAND
  315.  
  316. COMMAND OPEN CHEST
  317. NOUNPresent (* NOUN is present *)
  318. FlagON 4 (* Flag # 4 is ON *)
  319. NOT FlagON 5 (* Flag # 5 is NOT ON *)
  320. TurnFlagON 5 (* Turn Flag # 5 ON *)
  321. PrintMessage 48 (* It is now open. *)
  322. DoneWithTurn
  323. END_COMMAND
  324.  
  325. COMMAND OPEN CHEST
  326. NOUNPresent (* NOUN is present *)
  327. NOT FlagON 4 (* Flag # 4 is NOT ON *)
  328. PrintMessage 44 (* The chest is locked. *)
  329. DoneWithTurn
  330. END_COMMAND
  331.  
  332. COMMAND OPEN CHEST
  333. NOUNPresent (* NOUN is present *)
  334. FlagON 4 (* Flag # 4 is ON *)
  335. FlagON 5 (* Flag # 5 is ON *)
  336. PrintMessage 34 (* It is already open. *)
  337. DoneWithTurn
  338. END_COMMAND
  339.  
  340. COMMAND OPEN CHEST
  341. PrintMessage 3 (* I don't see any  *)
  342. DoneWithTurn
  343. END_COMMAND
  344.  
  345. COMMAND OPEN CABINET
  346. NOT NOUNPresent (* NOUN is NOT present *)
  347. PrintMessage 3 (* I don't see any  *)
  348. DoneWithTurn
  349. END_COMMAND
  350.  
  351. COMMAND OPEN CABINET
  352. FlagON 7 (* Flag # 7 is ON *)
  353. PrintMessage 34 (* It is already open. *)
  354. DoneWithTurn
  355. END_COMMAND
  356.  
  357. COMMAND OPEN CABINET
  358. TurnFlagON 7 (* Turn Flag # 7 ON *)
  359. PrintMessage 48 (* It is now open. *)
  360. IsLocated 202  0 (* Earrings is in its starting room *)
  361. PrintMessage 19 (* You found a pair of earrings. *)
  362. PutInCurrentRoom 202 (* Move Earrings to current room *)
  363. DoneWithTurn
  364. END_COMMAND
  365.  
  366. COMMAND OPEN WINDOW
  367. NOT AtLocation 23 (* Player is NOT in Rec room *)
  368. PrintMessage 8 (* No. *)
  369. DoneWithTurn
  370. END_COMMAND
  371.  
  372. COMMAND OPEN WINDOW
  373. FlagON 8 (* Flag # 8 is ON *)
  374. PrintMessage 34 (* It is already open. *)
  375. DoneWithTurn
  376. END_COMMAND
  377.  
  378. COMMAND OPEN WINDOW
  379. TurnFlagON 8 (* Turn Flag # 8 ON *)
  380. PrintMessage 48 (* It is now open. *)
  381. DoneWithTurn
  382. END_COMMAND
  383.  
  384. COMMAND OPEN DRAWER
  385. NOT NOUNPresent (* NOUN is NOT present *)
  386. PrintMessage 3 (* I don't see any  *)
  387. DoneWithTurn
  388. END_COMMAND
  389.  
  390. COMMAND OPEN DRAWER
  391. FlagON 9 (* Flag # 9 is ON *)
  392. PrintMessage 34 (* It is already open. *)
  393. DoneWithTurn
  394. END_COMMAND
  395.  
  396. COMMAND OPEN DRAWER
  397. IsNoWhere 238 (* Vampire Blood is in room Zero -- NoWhere *)
  398. PrintMessage 48 (* It is now open. *)
  399. PrintMessage 13 (* There was a tube of "Vampire Blood" here. *)
  400. PutInCurrentRoom 238 (* Move Vampire Blood to current room *)
  401. TurnFlagON 9 (* Turn Flag # 9 ON *)
  402. DoneWithTurn
  403. END_COMMAND
  404.  
  405. COMMAND OPEN DRAWER
  406. PrintMessage 48 (* It is now open. *)
  407. TurnFlagON 9 (* Turn Flag # 9 ON *)
  408. DoneWithTurn
  409. END_COMMAND
  410.  
  411. COMMAND CLOSE ICEBOX
  412. AtLocation 13 (* Player is in Kitchen *)
  413. FlagON 1 (* Flag # 1 is ON *)
  414. PrintMessage 35 (* The icebox is now closed. *)
  415. TurnFlagOFF 1 (* Turn Flag # 1 OFF *)
  416. DoneWithTurn
  417. END_COMMAND
  418.  
  419. COMMAND CLOSE ICEBOX
  420. AtLocation 13 (* Player is in Kitchen *)
  421. NOT FlagON 1 (* Flag # 1 is NOT ON *)
  422. PrintMessage 36 (* It is already closed. *)
  423. DoneWithTurn
  424. END_COMMAND
  425.  
  426. COMMAND CLOSE DOOR
  427. AtLocation 3 (* Player is in North basement *)
  428. FlagON 2 (* Flag # 2 is ON *)
  429. PrintMessage 42 (* The door is now closed. *)
  430. TurnFlagOFF 2 (* Turn Flag # 2 OFF *)
  431. DoneWithTurn
  432. END_COMMAND
  433.  
  434. COMMAND CLOSE DOOR
  435. AtLocation 3 (* Player is in North basement *)
  436. NOT FlagON 2 (* Flag # 2 is NOT ON *)
  437. PrintMessage 36 (* It is already closed. *)
  438. DoneWithTurn
  439. END_COMMAND
  440.  
  441. COMMAND CLOSE DOOR
  442. PrintMessage 4 (* You can't reach that from here. *)
  443. DoneWithTurn
  444. END_COMMAND
  445.  
  446. COMMAND CLOSE CAR
  447. AtLocation 17 (* Player is in Garage *)
  448. FlagON 3 (* Flag # 3 is ON *)
  449. PrintMessage 42 (* The door is now closed. *)
  450. TurnFlagOFF 3 (* Turn Flag # 3 OFF *)
  451. DoneWithTurn
  452. END_COMMAND
  453.  
  454. COMMAND CLOSE CAR
  455. AtLocation 17 (* Player is in Garage *)
  456. NOT FlagON 3 (* Flag # 3 is NOT ON *)
  457. PrintMessage 36 (* It is already closed. *)
  458. DoneWithTurn
  459. END_COMMAND
  460.  
  461. COMMAND CLOSE CAR
  462. PrintMessage 4 (* You can't reach that from here. *)
  463. DoneWithTurn
  464. END_COMMAND
  465.  
  466. COMMAND CLOSE CHEST
  467. NOUNPresent (* NOUN is present *)
  468. FlagON 5 (* Flag # 5 is ON *)
  469. PrintMessage 49 (* It is now closed. *)
  470. TurnFlagOFF 5 (* Turn Flag # 5 OFF *)
  471. DoneWithTurn
  472. END_COMMAND
  473.  
  474. COMMAND CLOSE CHEST
  475. NOUNPresent (* NOUN is present *)
  476. NOT FlagON 5 (* Flag # 5 is NOT ON *)
  477. PrintMessage 36 (* It is already closed. *)
  478. DoneWithTurn
  479. END_COMMAND
  480.  
  481. COMMAND CLOSE CHEST
  482. PrintMessage 3 (* I don't see any  *)
  483. DoneWithTurn
  484. END_COMMAND
  485.  
  486. COMMAND CLOSE CABINET
  487. NOT NOUNPresent (* NOUN is NOT present *)
  488. PrintMessage 3 (* I don't see any  *)
  489. DoneWithTurn
  490. END_COMMAND
  491.  
  492. COMMAND CLOSE CABINET
  493. NOT FlagON 7 (* Flag # 7 is NOT ON *)
  494. PrintMessage 36 (* It is already closed. *)
  495. DoneWithTurn
  496. END_COMMAND
  497.  
  498. COMMAND CLOSE CABINET
  499. TurnFlagOFF 7 (* Turn Flag # 7 OFF *)
  500. PrintMessage 49 (* It is now closed. *)
  501. InRoom 202 (* Earrings is in current Room *)
  502. Destroy 202 (* Move Earrings to room Zero *)
  503. DoneWithTurn
  504. END_COMMAND
  505.  
  506. COMMAND CLOSE WINDOW
  507. NOT AtLocation 23 (* Player is NOT in Rec room *)
  508. PrintMessage 8 (* No. *)
  509. DoneWithTurn
  510. END_COMMAND
  511.  
  512. COMMAND CLOSE WINDOW
  513. NOT FlagON 8 (* Flag # 8 is NOT ON *)
  514. PrintMessage 36 (* It is already closed. *)
  515. DoneWithTurn
  516. END_COMMAND
  517.  
  518. COMMAND CLOSE WINDOW
  519. TurnFlagOFF 8 (* Turn Flag # 8 OFF *)
  520. PrintMessage 49 (* It is now closed. *)
  521. END_COMMAND
  522.  
  523. COMMAND CLOSE DRAWER
  524. NOT NOUNPresent (* NOUN is NOT present *)
  525. PrintMessage 3 (* I don't see any  *)
  526. DoneWithTurn
  527. END_COMMAND
  528.  
  529. COMMAND CLOSE DRAWER
  530. NOT FlagON 9 (* Flag # 9 is NOT ON *)
  531. PrintMessage 36 (* It is already closed. *)
  532. DoneWithTurn
  533. END_COMMAND
  534.  
  535. COMMAND CLOSE DRAWER
  536. PrintMessage 49 (* It is now closed. *)
  537. TurnFlagOFF 9 (* Turn Flag # 9 OFF *)
  538. DoneWithTurn
  539. END_COMMAND
  540.  
  541. COMMAND GO DOOR
  542. AtLocation 3 (* Player is in North basement *)
  543. FlagON 2 (* Flag # 2 is ON *)
  544. GoToRoom 5 (* Move Player to Under the porch *)
  545. DoneWithTurn
  546. END_COMMAND
  547.  
  548. COMMAND GO DOOR
  549. AtLocation 5 (* Player is in Under the porch *)
  550. GoToRoom 3 (* Move Player to North basement *)
  551. DoneWithTurn
  552. END_COMMAND
  553.  
  554. COMMAND GO DOOR
  555. AtLocation 3 (* Player is in North basement *)
  556. PrintMessage 51 (* It is closed. *)
  557. DoneWithTurn
  558. END_COMMAND
  559.  
  560. COMMAND GO DOOR
  561. PrintMessage 3 (* I don't see any  *)
  562. DoneWithTurn
  563. END_COMMAND
  564.  
  565. COMMAND GO CAR
  566. AtLocation 17 (* Player is in Garage *)
  567. FlagON 3 (* Flag # 3 is ON *)
  568. GoToRoom 18 (* Move Player to Car *)
  569. DoneWithTurn
  570. END_COMMAND
  571.  
  572. COMMAND GO CAR
  573. AtLocation 18 (* Player is in Car *)
  574. PrintMessage 5 (* You are already there. *)
  575. DoneWithTurn
  576. END_COMMAND
  577.  
  578. COMMAND GO CAR
  579. AtLocation 17 (* Player is in Garage *)
  580. PrintMessage 51 (* It is closed. *)
  581. DoneWithTurn
  582. END_COMMAND
  583.  
  584. COMMAND GO CAR
  585. PrintMessage 3 (* I don't see any  *)
  586. DoneWithTurn
  587. END_COMMAND
  588.  
  589. COMMAND GO WINDOW
  590. NOT AtLocation 23 (* Player is NOT in Rec room *)
  591. PrintMessage 8 (* No. *)
  592. DoneWithTurn
  593. END_COMMAND
  594.  
  595. COMMAND GO WINDOW
  596. NOT FlagON 8 (* Flag # 8 is NOT ON *)
  597. PrintMessage 51 (* It is closed. *)
  598. DoneWithTurn
  599. END_COMMAND
  600.  
  601. COMMAND GO WINDOW
  602. GoToRoom 24 (* Move Player to Porch roof *)
  603. DoneWithTurn
  604. END_COMMAND
  605.  
  606. COMMAND UNLOCK CHEST
  607. Present 235 (* Player is carrying Chest *)
  608. IsCarrying 214 (* Player is carrying Key *)
  609. NOT FlagON 4 (* Flag # 4 is NOT ON *)
  610. PrintMessage 43 (* The chest is unlocked. *)
  611. TurnFlagON 4 (* Turn Flag # 4 ON *)
  612. DoneWithTurn
  613. END_COMMAND
  614.  
  615. COMMAND UNLOCK CHEST
  616. Present 235 (* Player is carrying Chest *)
  617. FlagON 4 (* Flag # 4 is ON *)
  618. PrintMessage 44 (* The chest is locked. *)
  619. DoneWithTurn
  620. END_COMMAND
  621.  
  622. COMMAND UNLOCK CHEST
  623. Present 235 (* Player is carrying Chest *)
  624. PrintMessage 46 (* You don't have the key. *)
  625. DoneWithTurn
  626. END_COMMAND
  627.  
  628. COMMAND UNLOCK CHEST
  629. PrintMessage 6 (* You don't have the  *)
  630. DoneWithTurn
  631. END_COMMAND
  632.  
  633. COMMAND LOCK CHEST
  634. NOUNPresent (* NOUN is present *)
  635. FlagON 4 (* Flag # 4 is ON *)
  636. IsCarrying 214 (* Player is carrying Key *)
  637. PrintMessage 44 (* The chest is locked. *)
  638. TurnFlagOFF 4 (* Turn Flag # 4 OFF *)
  639. TurnFlagOFF 5 (* Turn Flag # 5 OFF *)
  640. DoneWithTurn
  641. END_COMMAND
  642.  
  643. COMMAND LOCK CHEST
  644. NOUNPresent (* NOUN is present *)
  645. PrintMessage 46 (* You don't have the key. *)
  646. DoneWithTurn
  647. END_COMMAND
  648.  
  649. COMMAND LOCK CHEST
  650. PrintMessage 3 (* I don't see any  *)
  651. DoneWithTurn
  652. END_COMMAND
  653.  
  654. COMMAND GET PAPERS
  655. NOUNPresent (* NOUN is present *)
  656. PrintMessage 7 (* OK *)
  657. GetIt 219 (* Move NOUN to  Player *)
  658. IsLocated 207  0 (* Lipstick is in its starting room *)
  659. PrintMessage 47 (* There was lipstick under the papers. *)
  660. SendToRoom 207  5 (* Move Lipstick to Under the porch *)
  661. DoneWithTurn
  662. END_COMMAND
  663.  
  664. COMMAND GET KEY
  665. NOUNPresent (* NOUN is present *)
  666. PrintMessage 7 (* OK *)
  667. GetIt 214 (* Move NOUN to Player *)
  668. DoneWithTurn
  669. END_COMMAND
  670.  
  671. COMMAND GET KEY
  672. IsLocated 214  0 (* Key is in its starting room *)
  673. AtLocation 7 (* Player is in Foyer *)
  674. IsCarrying 232 (* Player is carrying Hook *)
  675. PrintMessage 38 (* The key disappears in the hole and you hear it fall on  *)
  676. SendNOUNToRoom 4 (* Move NOUN to Southeast basement *)
  677. DoneWithTurn
  678. END_COMMAND
  679.  
  680. COMMAND GET KEY
  681. IsLocated 214  0 (* Key is in its starting room *)
  682. AtLocation 7 (* Player is in Foyer *)
  683. PrintMessage 4 (* You can't reach that from here. *)
  684. DoneWithTurn
  685. END_COMMAND
  686.  
  687. COMMAND GET KEY
  688. PrintMessage 3 (* I don't see any  *)
  689. DoneWithTurn
  690. END_COMMAND
  691.  
  692. COMMAND CLIMB LADDER
  693. NOT NOUNInRoom (* NOUN is NOT in current room *)
  694. PrintMessage 3 (* I don't see any  *)
  695. DoneWithTurn
  696. END_COMMAND
  697.  
  698. COMMAND CLIMB LADDER
  699. NOT AtLocation 24 (* Player is NOT in Porch roof *)
  700. PrintMessage 18 (* It doesn't get you anywhere. *)
  701. DoneWithTurn
  702. END_COMMAND
  703.  
  704. COMMAND CLIMB LADDER
  705. GoToRoom 26 (* Move Player to Roof *)
  706. DoneWithTurn
  707. END_COMMAND
  708.  
  709. COMMAND JUMP ANY
  710. AtLocation 24 (* Player is in Porch roof *)
  711. PrintMessage 16 (* Wheeeeooooo! *)
  712. GoToRoom 6 (* Move Player to Front porch *)
  713. DoneWithTurn
  714. END_COMMAND
  715.  
  716. COMMAND JUMP ANY
  717. NOT AtLocation 26 (* Player is NOT in Roof *)
  718. PrintMessage 16 (* Wheeeeooooo! *)
  719. DoneWithTurn
  720. END_COMMAND
  721.  
  722. COMMAND JUMP ANY
  723. PrintMessage 16 (* Wheeeeooooo! *)
  724. Delay 1 (* Wait 1 seconds *)
  725. PrintMessage 15 (* ....WHOMP!  You hit the porch with a thud.  Your face l *)
  726. MinusScore 50 (* Subtract 50 from score *)
  727. GoToRoom 6 (* Move Player to Front porch *)
  728. END_COMMAND
  729.  
  730. COMMAND EAT FOOD
  731. NOUNPresent (* NOUN is present *)
  732. PrintMessage 52 (* Yummy!  Dried up pizza! *)
  733. DestroyNOUN (* Move NOUN to Room Zero*)
  734. DoneWithTurn
  735. END_COMMAND
  736.  
  737. COMMAND EAT FOOD
  738. PrintMessage 3 (* I don't see any  *)
  739. DoneWithTurn
  740. END_COMMAND
  741.  
  742. COMMAND EAT ANY
  743. PrintMessage 12 (* Don't be ridiculous! *)
  744. DoneWithTurn
  745. END_COMMAND
  746.  
  747. COMMAND DRINK WINE
  748. NOT NOUNPresent (* NOUN is NOT present *)
  749. PrintMessage 3 (* I don't see any  *)
  750. DoneWithTurn
  751. END_COMMAND
  752.  
  753. COMMAND DRINK WINE
  754. PrintMessage 53 (* You fool, you know you can't hold your liquor.  Especia *)
  755. MinusScore 30 (* Subtract 30 from score *)
  756. EndGame (* End Game *)
  757. DoneWithTurn
  758. END_COMMAND
  759.  
  760. COMMAND DRINK WATER
  761. NOUNPresent (* NOUN is present *)
  762. PrintMessage 10 (* Glug! *)
  763. SendNOUNToItem 239 (* Send NOUN to location of Glass *)
  764. PutInCurrentRoom 239 (* Now, move Glass to current room *)
  765. DoneWithTurn
  766. END_COMMAND
  767.  
  768. COMMAND DRINK WATER
  769. PrintMessage 3 (* I don't see any  *)
  770. DoneWithTurn
  771. END_COMMAND
  772.  
  773. COMMAND DRINK ANY
  774. PrintMessage 12 (* Don't be ridiculous! *)
  775. DoneWithTurn
  776. END_COMMAND
  777.  
  778. COMMAND DRIVE CAR
  779. NOT AtLocation 18 (* Player is NOT in Car *)
  780. PrintMessage 55 (* You aren't in the CAR. *)
  781. DoneWithTurn
  782. END_COMMAND
  783.  
  784. COMMAND DRIVE CAR
  785. PrintMessage 54 (* You start up the engine, drive to Phoenix, and wind up  *)
  786. DoneWithTurn
  787. END_COMMAND
  788.  
  789. COMMAND DRIVE ANY
  790. PrintMessage 12 (* Don't be ridiculous! *)
  791. END_COMMAND
  792.  
  793. COMMAND READ MESSAGE
  794. NOUNPresent (* NOUN is present *)
  795. PrintMessage 56 (* The message says: COME BACK HERE WITH ALL YOUR GOODIES *)
  796. DoneWithTurn
  797. END_COMMAND
  798.  
  799. COMMAND READ MESSAGE
  800. PrintMessage 3 (* I don't see any  *)
  801. DoneWithTurn
  802. END_COMMAND
  803.  
  804.