home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / agt3.zip / PARANOIA.CMD < prev    next >
OS/2 REXX Batch file  |  1988-02-28  |  19KB  |  875 lines
  1.  
  2.  
  3. ===============================================================================
  4. l                       PARANOIA -- Flags and variables                       l
  5. l                                                                             l
  6. l  FLAGS:                                                                     l
  7. l    Flag 1 (* first turn of game if OFF *)                                   l
  8. l    Flag 2 (* computer_request has been made if ON *)                        l
  9. l    Flag 3 (* ultra_violet "lie" if ON *)                                    l
  10. l    Flag 4 (* action_doll has been encountered if ON *)                      l
  11. l    Flag 5 (* has read_letter in ON *)                                       l
  12. l    Flag 6 (* blast_door entered if ON *)                                    l
  13. l    Flag 7 (* need to activate new clone if ON *)                            l
  14. l    Flag 8 (* temporary flag used for "complex" commands *)                  l
  15. l    Flag 9 (* temporary flag used for "complex" commands *)                  l
  16. l                                                                             l
  17. l  VARIABLES:                                                                 l
  18. l    VariableTo 1 (* maxkill = 7 initially *)                                 l
  19. l    VariableTo 2 (* hit_points = 10 initially *)                             l
  20. l    VariableTo 3 (* clone number = 1 initially *)                            l
  21. l    VariableTo 4 (* plato_clone = 3 initially *)                             l
  22. l    VariableTo 5 (* killer_count = 0 initially *)                            l
  23. l    VariableTo 6 (* credits = 160 initially *)                               l
  24. l                                                                             l
  25. ===============================================================================
  26.  
  27.  
  28. REM: Status Command
  29.  
  30. COMMAND S
  31. PrintMessage 1 (* Show status of Clone #VAR 3# *)
  32. DoneWithTurn
  33. END_COMMAND
  34.  
  35. COMMAND INVENTORY
  36. PrintMessage 1 (* Show status of Clone #VAR 3# *)
  37. DoneWithTurn
  38. END_COMMAND
  39.  
  40.  
  41. REM: Room 58 Commands -- Starting Room
  42.  
  43. COMMAND ANY
  44. AtLocation 58
  45. GoToRoom 57
  46. DoneWithTurn
  47. END_COMMAND
  48.  
  49. REM: Room 2 Commands
  50.  
  51. COMMAND ANY
  52. AtLocation 2
  53. TurnFlagON 7 (* need a new clone *)
  54. FlagON 2 (* computer request has been made *)
  55. GoToRoom 45
  56. END_COMMAND
  57.  
  58. COMMAND ANY
  59. AtLocation 2
  60. GoToRoom 32 (* Only if computer request has NOT been made *)
  61. END_COMMAND
  62.  
  63. REM: Room 3 Commands
  64.  
  65. COMMAND 1
  66. AtLocation 3
  67. GoToRoom 4 (* 1 - You give your correct clearance *)
  68. DoneWithTurn
  69. END_COMMAND
  70.  
  71. COMMAND 2
  72. AtLocation 3
  73. FlagOFF 3 (* You have not previously claimed ultraviolet status *)
  74. GoToRoom 5 (* 2 - You lie and claim Ultraviolet clearance *)
  75. TurnFlagON 3
  76. DoneWithTurn
  77. END_COMMAND
  78.  
  79. COMMAND 2
  80. AtLocation 3
  81. GoToRoom 8 (* 2 - You have already lied at least once before *)
  82. DoneWithTurn
  83. END_COMMAND
  84.  
  85. REM: Room 4 Commands
  86.  
  87. COMMAND ANY
  88. AtLocation 4
  89. GoToRoom 9 (* Go to this Room regardless of input *)
  90. DoneWithTurn
  91. END_COMMAND
  92.  
  93. REM: Room 5 Commands
  94.  
  95. COMMAND 1
  96. AtLocation 5
  97. GoToRoom 6 (* 1 - You open the package and put on the uniform *)
  98. DoneWithTurn
  99. END_COMMAND
  100.  
  101. COMMAND 2
  102. AtLocation 5
  103. GoToRoom 7 (* 2 - You finally come to your senses and run for it *)
  104. DoneWithTurn
  105. END_COMMAND
  106.  
  107. REM: Room 6 Commands
  108.  
  109. COMMAND ANY
  110. AtLocation 6
  111. TurnFlagON 3 (* lied about ultra_violet clearance *)
  112. GoToRoom 8 (* Go to this Room regardless of input *)
  113. DoneWithTurn
  114. END_COMMAND
  115.  
  116. REM: Room 7 Commands
  117.  
  118. COMMAND ANY
  119. AtLocation 7
  120. TurnFlagON 3 (* lied about ultra_violet clearance *)
  121. GoToRoom 8 (* Go to this Room regardless of input *)
  122. DoneWithTurn
  123. END_COMMAND
  124.  
  125. REM: Room 8 Commands
  126.  
  127. COMMAND ANY
  128. AtLocation 8
  129. GoToRoom 10 (* Go to this Room regardless of input *)
  130. DoneWithTurn
  131. END_COMMAND
  132.  
  133. REM: Room 9 Commands
  134.  
  135. COMMAND 1
  136. AtLocation 9
  137. TurnFlagON 2 (* computer request has been made *)
  138. GoToRoom 2 (* 1 - You decide to stop here and chat *)
  139. DoneWithTurn
  140. END_COMMAND
  141.  
  142. COMMAND 2
  143. AtLocation 9
  144. GoToRoom 10 (* 2 - You just continue blithely on past *)
  145. DoneWithTurn
  146. END_COMMAND
  147.  
  148. REM: Room 10 Commands
  149.  
  150. COMMAND 1
  151. AtLocation 10 (* 1 - You decide to ask The Computer about Christmas *)
  152. FlagOFF 3 (* has NOT lied about ultra_violet clearance *)
  153. GoToRoom 3
  154. DoneWithTurn
  155. END_COMMAND
  156.  
  157. COMMAND 1
  158. AtLocation 10 (* 1 - You decide to ask The Computer about Christmas *)
  159. PrintMessage 4 (* You change your mind *)
  160. PrintMessage 5 (* and decide to take a tubecar *)
  161. Chance 65 (* 65% chance of this branch *)
  162. PrintMessage 6 (* You catch a purple line car tubecar *)
  163. GoToRoom 13
  164. DoneWithTurn
  165. END_COMMAND
  166.  
  167. COMMAND 1
  168. AtLocation 10 (* 1 - You decide to ask The Computer about Christmas *)
  169. PrintMessage 7 (* You catch a brown line car tubecar *)
  170. GoToRoom 48
  171. DoneWithTurn
  172. END_COMMAND
  173.  
  174. COMMAND 2
  175. AtLocation 10 (* 2 - You decide to take a tubecar *)
  176. PrintMessage 5 (* and decide to take a tubecar *)
  177. Chance 65 (* 65% chance of this branch *)
  178. PrintMessage 6 (* You catch a purple line car tubecar *)
  179. GoToRoom 13
  180. DoneWithTurn
  181. END_COMMAND
  182.  
  183. COMMAND 2
  184. AtLocation 10 (* 2 - You decide to take a tubecar *)
  185. PrintMessage 7 (* You catch a brown line car tubecar *)
  186. GoToRoom 48
  187. DoneWithTurn
  188. END_COMMAND
  189.  
  190. REM: Room 11 Commands
  191.  
  192. COMMAND 1
  193. AtLocation 11
  194. GoToRoom 3 (* 1 - Ask The Computer for more information about Christmas *)
  195. DoneWithTurn
  196. END_COMMAND
  197.  
  198. COMMAND 2
  199. AtLocation 11
  200. GoToRoom 10 (* 2 - Go directly to Goods Distribution Hall 7-beta *)
  201. DoneWithTurn
  202. END_COMMAND
  203.  
  204. REM: Room 12 Commands
  205.  
  206. COMMAND 1
  207. AtLocation 12
  208. GoToRoom 11 (* 1 - Sit down at the table and read the Orange packet *)
  209. DoneWithTurn
  210. END_COMMAND
  211.  
  212. COMMAND 2
  213. AtLocation 12
  214. GoToRoom 57 (* 2 - You stare around the room some more *)
  215. DoneWithTurn
  216. END_COMMAND
  217.  
  218. REM: Room 13 Commands
  219.  
  220. COMMAND ANY
  221. AtLocation 13
  222. GoToRoom 14 (* Go to this Room regardless of input *)
  223. DoneWithTurn
  224. END_COMMAND
  225.  
  226. REM: Room 14 Commands
  227.  
  228. COMMAND ANY
  229. AtLocation 14
  230. GoToRoom 22 (* Go to this Room regardless of input *)
  231. DoneWithTurn
  232. END_COMMAND
  233.  
  234. REM: Room 15 Commands
  235.  
  236. COMMAND 1
  237. AtLocation 15
  238. GoToRoom 16 (* 1 - You decide to buy the doll. *)
  239. DoneWithTurn
  240. END_COMMAND
  241.  
  242. COMMAND 2
  243. AtLocation 15
  244. GoToRoom 17 (* 2 - You shoot the robot. *)
  245. DoneWithTurn
  246. END_COMMAND
  247.  
  248. COMMAND 3
  249. AtLocation 15
  250. GoToRoom 22 (* 3 - You ignore the robot and keep searching the hall. *)
  251. DoneWithTurn
  252. END_COMMAND
  253.  
  254. REM: Room 16 Commands
  255.  
  256. COMMAND ANY
  257. AtLocation 16
  258. TurnFlagON 4 (* Has now encountered doll *)
  259. SubtractFromVariable 6 50 (* dolls costs 50 credits *)
  260. GoToRoom 22 (* Go to this Room regardless of input *)
  261. DoneWithTurn
  262. END_COMMAND
  263.  
  264. REM: Room 17 Commands
  265.  
  266. COMMAND ANY
  267. AtLocation 17 (* first deal with robots damage to you *)
  268. TurnFlagOFF 8 (* Set Temp flag to OFF *)
  269. Chance 25 (* 25 % chance of getting hit *)
  270. TurnFlagON 8 (* Temp flag to indicate he hit you *)
  271. PrintMessage 8 (* You have been hit *)
  272. Chance 40 (* 40 % chance of getting killed *)
  273. TurnFlagON 7 (* Dead - so you need new clone *)
  274. GoToRoom 45 (* Go to new clone Room *)
  275. END_COMMAND
  276.  
  277. COMMAND ANY
  278. AtLocation 17 (* first deal with robots damage to you *)
  279. FlagOFF 7 (* You are still alive *)
  280. FlagOFF 8 (* You didn't even get hit *)
  281. PrintMessage 9 (* It missed you *)
  282. END_COMMAND
  283.  
  284. COMMAND ANY
  285. AtLocation 17 (* now deal with your damage to robot *)
  286. FlagOFF 7 (* You are still alive and able to attempt to kill robot *)
  287. TurnFlagOFF 8 (* Set Temp flag to OFF *)
  288. TurnFlagOFF 9 (* Set Temp flag to OFF *)
  289. Chance 40 (* 40 % chance of hitting it *)
  290. TurnFlagON 8 (* Temp flag to indicate you hit it *)
  291. PrintMessage 10 (* You zapped the little bastard! *)
  292. Chance 20 (* 20 % chance of killed it *)
  293. PrintMessage 11 (* You wasted it! *)
  294. TurnFlagON 9 (* Temp flag -- It is dead - so you are done here *)
  295. END_COMMAND
  296.  
  297. COMMAND ANY
  298. AtLocation 17 (* dealing with your damage to robot *)
  299. FlagOFF 7 (* You are still alive and able to attempt to kill robot *)
  300. FlagOFF 9 (* It is still alive *)
  301. FlagOFF 8 (* It didn't even get hit *)
  302. PrintMessage 14 (* It missed you *)
  303. PrintMessage 10 (* You zapped the little bastard! *)
  304. PrintMessage 11 (* You wasted it! *)
  305. TurnFlagON 9 (* Temp flag -- It is dead - so you are done here *)
  306. END_COMMAND
  307.  
  308. COMMAND ANY
  309. AtLocation 17 (* dealing with your possible victory *)
  310. FlagOFF 7 (* You are still alive *)
  311. FlagON 9 (* Robot is dead *)
  312. TurnFlagOFF 9 (* Set Temp flag to OFF *)
  313. GoToRoom 22 (* After winning battle -- Go to Room 22 *)
  314. PrintMessage 12 (* You go off to search further *)
  315. Chance 50 (* 50% chance of needing medical attention *)
  316. PrintMessage 13 (* You need to get medibot to patch you up *)
  317. DoneWithTurn (* All done with this round, you kill the little bugger *)
  318. END_COMMAND
  319.  
  320. REM: Room 18 Commands
  321.  
  322. COMMAND ANY
  323. AtLocation 18
  324. Chance 75 (* 75 % of going to room 19 *)
  325. GoToRoom 19
  326. DoneWithTurn
  327. END_COMMAND
  328.  
  329. COMMAND ANY
  330. AtLocation 18
  331. GoToRoom 20 (* 25 % chance of going to room 20 *)
  332. DoneWithTurn
  333. END_COMMAND
  334.  
  335. REM: Room 19 Commands
  336.  
  337. COMMAND ANY
  338. AtLocation 19
  339. AddToVariable 5 1 (* Increment count of number killed *)
  340. VariableGT 5 2 (* Penalize player for killing too many *)
  341. GoToRoom 21
  342. DoneWithTurn
  343. END_COMMAND
  344.  
  345. COMMAND ANY
  346. AtLocation 19
  347. FlagON 5 (* Has read letter *)
  348. GoToRoom 22
  349. DoneWithTurn
  350. END_COMMAND
  351.  
  352. COMMAND 1
  353. AtLocation 19
  354. GoToRoom 34 (* 1 - You search the body *)
  355. TurnFlagON 5 (* Has now read letter *)
  356. DoneWithTurn
  357. END_COMMAND
  358.  
  359. COMMAND 2
  360. AtLocation 19
  361. GoToRoom 22 (* 2 - You run away like the cowardly dog you are *)
  362. DoneWithTurn
  363. END_COMMAND
  364.  
  365. REM: Room 20 Commands
  366.  
  367. COMMAND ANY
  368. AtLocation 20
  369. GoToRoom 22 (* Regardless *)
  370. DoneWithTurn
  371. END_COMMAND
  372.  
  373. REM: Room 21 Commands
  374.  
  375. COMMAND ANY
  376. AtLocation 21
  377. TurnFlagON 7 (* need a new clone *)
  378. GoToRoom 45
  379. END_COMMAND
  380.  
  381. REM: Room 22 Commands
  382.  
  383. COMMAND ANY
  384. AtLocation 22
  385. Chance 25 (* 25 % chance of going to room 18 *)
  386. GoToRoom 18
  387. DoneWithTurn
  388. END_COMMAND
  389.  
  390. COMMAND ANY
  391. AtLocation 22
  392. Chance 33 (* 25 % chance of going to room 15 *)
  393. GoToRoom 15
  394. DoneWithTurn
  395. END_COMMAND
  396.  
  397. COMMAND ANY
  398. AtLocation 22
  399. Chance 50 (* 25 % chance of going to room 18 *)
  400. GoToRoom 18
  401. DoneWithTurn
  402. END_COMMAND
  403.  
  404. COMMAND ANY
  405. AtLocation 22
  406. GoToRoom 29 (* 25 % chance *)
  407. DoneWithTurn
  408. END_COMMAND
  409.  
  410. REM: Room 23 Commands
  411.  
  412. COMMAND 1
  413. AtLocation 23
  414. GoToRoom 28 (* 1 - You tell them that it was really only a bad joke *)
  415. DoneWithTurn
  416. END_COMMAND
  417.  
  418. COMMAND 2
  419. AtLocation 23
  420. GoToRoom 24 (* 2 - You want to fight it out, one against twelve *)
  421. DoneWithTurn
  422. END_COMMAND
  423.  
  424. REM: Room 24 Commands
  425.  
  426. COMMAND 1
  427. AtLocation 24
  428. GoToRoom 28 (* 1 - You change your mind and tell them it was only a bad joke *)
  429. DoneWithTurn
  430. END_COMMAND
  431.  
  432. COMMAND 2
  433. AtLocation 24
  434. GoToRoom 25 (* 2 - You REALLY want to fight it out *)
  435. DoneWithTurn
  436. END_COMMAND
  437.  
  438. REM: Room 25 Commands
  439.  
  440. COMMAND 1
  441. AtLocation 25
  442. GoToRoom 28 (* 1 - You tell them that it was really only a bad joke *)
  443. DoneWithTurn
  444. END_COMMAND
  445.  
  446. COMMAND 2
  447. AtLocation 25
  448. GoToRoom 26 (* 2 - You are going to shot *)
  449. DoneWithTurn
  450. END_COMMAND
  451.  
  452. REM: Room 26 Commands
  453.  
  454. COMMAND ANY
  455. AtLocation 26
  456. TurnFlagON 7 (* need a new clone *)
  457. GoToRoom 32
  458. END_COMMAND
  459.  
  460. REM: Room 27 No Commands for this room -- Game Ends here
  461.  
  462. REM: Room 28 Commands
  463.  
  464. COMMAND ANY
  465. AtLocation 28
  466. GoToRoom 26 (* Regardless *)
  467. END_COMMAND
  468.  
  469. REM: Room 29 Commands
  470.  
  471. COMMAND 1
  472. AtLocation 29
  473. SubtractFromVariable 6 30 (* You pay 30 credits for info *)
  474. GoToRoom 30 (* 1 - You pay the 30 credits for the info *)
  475. DoneWithTurn
  476. END_COMMAND
  477.  
  478. COMMAND 2
  479. AtLocation 29
  480. GoToRoom 31 (* 2 - You would rather threaten him for the information *)
  481. DoneWithTurn
  482. END_COMMAND
  483.  
  484. COMMAND 3
  485. AtLocation 29
  486. GoToRoom 22 (* 3 - You ignore him and walk away *)
  487. DoneWithTurn
  488. END_COMMAND
  489.  
  490. REM: Room 30 Commands
  491.  
  492. COMMAND 1
  493. AtLocation 30
  494. GoToRoom 56 (* 1 - You use your mutant power on opening the door *)
  495. DoneWithTurn
  496. END_COMMAND
  497.  
  498. COMMAND 2
  499. AtLocation 30
  500. GoToRoom 33 (*  2 - You just go through the door anyway *)
  501. DoneWithTurn
  502. END_COMMAND
  503.  
  504. COMMAND 3
  505. AtLocation 30
  506. GoToRoom 22 (* 3 - You decide it's too dangerous and walk away *)
  507. DoneWithTurn
  508. END_COMMAND
  509.  
  510. REM: Room 31 Commands
  511.  
  512. COMMAND 1
  513. AtLocation 31
  514. SubtractFromVariable 6 30 (* You pay 30 credits for info *)
  515. GoToRoom 30 (* 1 - You pay the 30 credits for the info *)
  516. DoneWithTurn
  517. END_COMMAND
  518.  
  519. COMMAND 2
  520. AtLocation 31
  521. GoToRoom 22 (* 2 - You pssfft go away stupid *)
  522. DoneWithTurn
  523. END_COMMAND
  524.  
  525. REM: Room 32 Commands
  526.  
  527. COMMAND ANY
  528. AtLocation 32
  529. FlagOFF 7 (* new clone -- already activated *)
  530. GoToRoom 22 (* Regardless *)
  531. DoneWithTurn
  532. END_COMMAND
  533.  
  534. REM: Room 33 Commands
  535.  
  536. COMMAND ANY
  537. AtLocation 33
  538. TurnFlagON 6 (* by blast door *)
  539. FlagON 3 (* Lied about Ultra-violet status *)
  540. GoToRoom 35 (* If Ultra-Violet status *)
  541. DoneWithTurn
  542. END_COMMAND
  543.  
  544. COMMAND ANY
  545. AtLocation 33
  546. GoToRoom 36 (* If NOT Ultra-Violet *)
  547. DoneWithTurn
  548. END_COMMAND
  549.  
  550. REM: Room 34 Commands
  551.  
  552. COMMAND 1
  553. AtLocation 34
  554. TurnFlagON 5 (* has read letter *)
  555. GoToRoom 46 (* 1 - You go to the computer terminal to expose the commies *)
  556. DoneWithTurn
  557. END_COMMAND
  558.  
  559. COMMAND 2
  560. AtLocation 34
  561. GoToRoom 22 (* 2 - You wander off *)
  562. DoneWithTurn
  563. END_COMMAND
  564.  
  565. REM: Room 35 Commands
  566.  
  567. COMMAND ANY
  568. AtLocation 35
  569. TurnFlagON 7 (* need a new clone *)
  570. GoToRoom 32
  571. END_COMMAND
  572.  
  573. REM: Room 36 Commands
  574.  
  575. COMMAND 1
  576. AtLocation 36  (* 1 - You voice an objection *)
  577. TurnFlagON 7 (* need a new clone *)
  578. GoToRoom 32
  579. END_COMMAND
  580.  
  581. COMMAND 2
  582. AtLocation 36
  583. GoToRoom 23 (* 2 - You register as a mutant *)
  584. DoneWithTurn
  585. END_COMMAND
  586.  
  587. COMMAND 3
  588. AtLocation 36
  589. GoToRoom 37 (* 3 - You go to the seminar *)
  590. DoneWithTurn
  591. END_COMMAND
  592.  
  593. REM: Room 37 Commands
  594.  
  595. COMMAND ANY
  596. AtLocation 37
  597. GoToRoom 38 (* Regardless *)
  598. DoneWithTurn
  599. END_COMMAND
  600.  
  601. REM: Room 38 Commands
  602.  
  603. COMMAND 1
  604. AtLocation 38  (* 1 - You volunteer *)
  605. GoToRoom 39
  606. DoneWithTurn
  607. END_COMMAND
  608.  
  609. COMMAND 2
  610. AtLocation 38
  611. GoToRoom 40 (* 2 - You try to hide *)
  612. DoneWithTurn
  613. END_COMMAND
  614.  
  615. REM: Room 39 Commands
  616.  
  617. COMMAND ANY
  618. AtLocation 39
  619. GoToRoom 41 (* Regardless *)
  620. DoneWithTurn
  621. END_COMMAND
  622.  
  623. REM: Room 40 Commands
  624.  
  625. COMMAND ANY
  626. AtLocation 40 (* first deal with his damage to you *)
  627. Chance 30 (* 25 % chance of getting hit *)
  628. PrintMessage 15 (* You have been hit and are numb all over *)
  629. GoToRoom 49 (* Go to new Room *)
  630. DoneWithTurn
  631. END_COMMAND
  632.  
  633. COMMAND ANY
  634. AtLocation 40 (* dealing with his damage to you *)
  635. PrintMessage 16 (* He missed you *)
  636. END_COMMAND
  637.  
  638. COMMAND ANY
  639. AtLocation 40 (* now deal with your damage to him *)
  640. Chance 40 (* 40 % chance of your hitting him *)
  641. PrintMessage 17 (* You blow his head off! *)
  642. GoToRoom 50 (* Go to new Room *)
  643. DoneWithTurn
  644. END_COMMAND
  645.  
  646. COMMAND ANY
  647. AtLocation 40 (* dealing with your damage to robot *)
  648. PrintMessage 18 (* You missed him *)
  649. PrintMessage 20 (* A - Continue the game *)
  650. DoneWithTurn (* All done with this round, you are both still alive *)
  651. END_COMMAND
  652.  
  653. REM: Room 41 Commands
  654.  
  655. COMMAND 1
  656. AtLocation 41  (* 1 - You give the code *)
  657. GoToRoom 42
  658. DoneWithTurn
  659. END_COMMAND
  660.  
  661. COMMAND 2
  662. AtLocation 41
  663. GoToRoom 43 (* 2 - You ignore the secret contact *)
  664. DoneWithTurn
  665. END_COMMAND
  666.  
  667. REM: Room 42 Commands
  668.  
  669. COMMAND 1
  670. AtLocation 42  (* 1 - You run for it *)
  671. GoToRoom 51
  672. DoneWithTurn
  673. END_COMMAND
  674.  
  675. COMMAND 2
  676. AtLocation 42
  677. GoToRoom 52 (* 2 - You wait for the guard *)
  678. DoneWithTurn
  679. END_COMMAND
  680.  
  681. REM: Room 43 Commands
  682.  
  683. COMMAND 1
  684. AtLocation 43  (* 1 - You look for a computer terminal *)
  685. GoToRoom 44
  686. DoneWithTurn
  687. END_COMMAND
  688.  
  689. COMMAND 2
  690. AtLocation 43
  691. GoToRoom 55 (* 2 - You go to the ceremony *)
  692. DoneWithTurn
  693. END_COMMAND
  694.  
  695. REM: Room 44 Commands
  696.  
  697. COMMAND 1
  698. AtLocation 44  (* 1 - You register as a mutant *)
  699. GoToRoom 23
  700. DoneWithTurn
  701. END_COMMAND
  702.  
  703. COMMAND 2
  704. AtLocation 44
  705. GoToRoom 46 (* 2 - You chat about the commies *)
  706. DoneWithTurn
  707. END_COMMAND
  708.  
  709. COMMAND 3
  710. AtLocation 44  (* 3 - You go to the ceremony after all *)
  711. GoToRoom 55
  712. DoneWithTurn
  713. END_COMMAND
  714.  
  715. REM: Room 45 Commands
  716.  
  717. COMMAND ANY
  718. AtLocation 45
  719. FlagOFF 7 (* new clone -- already activated *)
  720. GoToRoom 10 (* Regardless *)
  721. DoneWithTurn
  722. END_COMMAND
  723.  
  724. REM: Room 46 Commands
  725.  
  726. COMMAND 1
  727. AtLocation 46  (* 1 - You insist in talking about the commies *)
  728. GoToRoom 53
  729. DoneWithTurn
  730. END_COMMAND
  731.  
  732. COMMAND 2
  733. AtLocation 46
  734. GoToRoom 54 (* 2 - You change the subject *)
  735. DoneWithTurn
  736. END_COMMAND
  737.  
  738. REM: No Room 47 Commands -- Game ends here
  739.  
  740. REM: Room 48 Commands
  741.  
  742. COMMAND ANY
  743. AtLocation 48
  744. TurnFlagON 7 (* need a new clone *)
  745. GoToRoom 45
  746. END_COMMAND
  747.  
  748. REM: Room 49 Commands
  749.  
  750. COMMAND ANY
  751. AtLocation 49
  752. TurnFlagON 7 (* need a new clone *)
  753. GoToRoom 32
  754. END_COMMAND
  755.  
  756. REM: Room 50 Commands
  757.  
  758. COMMAND ANY
  759. AtLocation 50
  760. GoToRoom 41 (* Regardless *)
  761. DoneWithTurn
  762. END_COMMAND
  763.  
  764. REM: Room 51 Commands
  765.  
  766. COMMAND ANY
  767. AtLocation 51
  768. TurnFlagON 7 (* need a new clone *)
  769. GoToRoom 32
  770. END_COMMAND
  771.  
  772. REM: Room 52 Commands
  773.  
  774. COMMAND ANY
  775. AtLocation 52
  776. GoToRoom 2 (* Regardless *)
  777. DoneWithTurn
  778. END_COMMAND
  779.  
  780. REM: Room 53 Commands
  781.  
  782. COMMAND 1
  783. AtLocation 53  (* 1 - You tell about the commies *)
  784. GoToRoom 47
  785. DoneWithTurn
  786. END_COMMAND
  787.  
  788. COMMAND 2
  789. AtLocation 53
  790. GoToRoom 54 (* 2 - You talk about something less dangerous *)
  791. DoneWithTurn
  792. END_COMMAND
  793.  
  794. REM: Room 54 Commands
  795.  
  796. COMMAND ANY
  797. AtLocation 54
  798. TurnFlagON 7 (* need a new clone *)
  799. FlagOFF 6 (* Has gone through blast door *)
  800. GoToRoom 45
  801. END_COMMAND
  802.  
  803. COMMAND ANY
  804. AtLocation 54
  805. GoToRoom 32 (* Has NOT gone through blast door *)
  806. END_COMMAND
  807.  
  808. REM: No Room 55 Commands -- Game ends here
  809.  
  810. REM: Room 56 Commands
  811.  
  812. COMMAND 1
  813. AtLocation 56  (* 1 - You open the door and step through *)
  814. GoToRoom 33
  815. DoneWithTurn
  816. END_COMMAND
  817.  
  818. COMMAND 2
  819. AtLocation 56
  820. GoToRoom 22 (* 2 - You go looking for more information *)
  821. DoneWithTurn
  822. END_COMMAND
  823.  
  824. REM: Room 57 Commands
  825.  
  826. COMMAND 1
  827. AtLocation 57  (* 1 - You sit down to read the folder *)
  828. GoToRoom 11
  829. DoneWithTurn
  830. END_COMMAND
  831.  
  832. COMMAND 2
  833. AtLocation 57
  834. GoToRoom 12 (* 2 - You leave the room *)
  835. DoneWithTurn
  836. END_COMMAND
  837.  
  838.  
  839. REM: General ANY commands
  840.  
  841. COMMAND ANY
  842. FlagOFF 1 (* First turn of game - initilize values *)
  843. SetVariableTo 3 1 (* clone number *)
  844. SetVariableTo 5 0 (* killer_count *)
  845. SetVariableTo 6 160 (* credits *)
  846. TurnFlagON 1 (* no longer first turn of game *)
  847. END_COMMAND
  848.  
  849. REM: ANY commands necessary to create new clone
  850. REM: Will only be acted upon if Flag 7 has been turned ON in a prior command
  851.  
  852. COMMAND ANY
  853. FlagON 7 (* Need to activate new clone *)
  854. PrintMessage 2 (* Clone #VAR 3# has just died. *)
  855. AddToVariable 3 1 (* increment clone number *)
  856. MinusScore 10 (* Subtract 10 points for dying *)
  857. VariableGT 3 6 (* Exceeds max of 6 clones *)
  858. GoToRoom 27 (* Loser's Hall of Shame *)
  859. TurnFlagOFF 7 (* no longer need to activate a clone *)
  860. LookAtRoom (* Describe room *)
  861. DoneWithTurn
  862. END_COMMAND
  863.  
  864. COMMAND ANY
  865. FlagON 7 (* Need to activate new clone *)
  866. SetVariableTo 5 0 (* killer_count *)
  867. SetVariableTo 2 10 (* hit_points *)
  868. PrintMessage 3 (* Clone #VAR 3# has just been activated. *)
  869. TurnFlagOFF 7 (* no longer need to activate a clone *)
  870. LookAtRoom (* Describe room *)
  871. DoneWithTurn
  872. END_COMMAND
  873.  
  874.  
  875.