home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / pork2 / pork2.cmd < prev    next >
OS/2 REXX Batch file  |  1989-01-23  |  8KB  |  524 lines
  1. REM Flags: Flag 2 turned on when smoke filled room cleared
  2. REM Flags: Flag 3 turned on when Biker "cleaned up"
  3. REM Flags: Flag 4 Turned on when Biker following
  4. REM Flags: Flag 5 Turned on when Gizzard is cooked
  5. REM Flags: Flag 8 turned on when Lewd mode asked for
  6. REM Flags: Flag 9 turned on if IN Lewd mode
  7. REM Flags: Flag 7 turned on after first time in Biker's Back Room
  8. REM Flags: Flag 10 turned on if GRANITE
  9. REM Flags: Flag 11 turned on if GREASY
  10. REM Flags: Flag 12 turned on if GRAPE
  11. REM Flags: Flag 13 turned on if GERONOMO
  12. REM Flags: Flag 6 turned on if in nasties room-stops Gizzard
  13.  
  14. COMMAND ANY
  15. FlagON 10
  16.  OR
  17. FlagON 11
  18.  OR
  19. FlagON 12
  20.  OR
  21. FlagON 13
  22. SubtractFromVariable 5 1
  23. END_COMMAND
  24.  
  25. COMMAND NORTH
  26. AtLocation 28
  27. TurnFlagON 6
  28. END_COMMAND
  29.  
  30. COMMAND NORTH
  31. AtLocation 19
  32. TurnFlagON 6
  33. END_COMMAND
  34.  
  35. COMMAND SOUTH
  36. AtLocation 19
  37. TurnFlagOFF 6
  38. END_COMMAND
  39.  
  40. COMMAND DOWN
  41. AtLocation 28
  42. TurnFlagOFF 6
  43. END_COMMAND
  44.  
  45.  
  46. COMMAND ANY
  47. FlagON 10
  48.  OR
  49. FlagON 11
  50. VariableEquals 5 0
  51. TurnFlagOFF 10
  52. TurnFlagOFF 11
  53. TurnFlagOFF 12
  54. TurnFlagOFF 13
  55. PrintMessage 26
  56. DoneWithTurn
  57. END_COMMAND
  58.  
  59. COMMAND ANY
  60. FlagON 12
  61.  OR
  62. FlagON 13
  63. VariableEquals 5 0
  64. TurnFlagOFF 10
  65. TurnFlagOFF 11
  66. TurnFlagOFF 12
  67. TurnFlagOFF 13
  68. PrintMessage 26
  69. DoneWithTurn
  70. END_COMMAND
  71.  
  72. COMMAND ANY
  73. FlagON 10
  74. VerbIsDirection
  75. PrintMessage 20
  76. DoneWithTurn
  77. END_COMMAND
  78.  
  79. COMMAND ANY
  80. FlagON 11
  81. VerbIsDirection
  82. PrintMessage 21
  83. DoneWithTurn
  84. END_COMMAND
  85.  
  86. COMMAND ANY
  87. FlagON 12
  88. VerbIsDirection
  89. PrintMessage 22
  90. DoneWithTurn
  91. END_COMMAND
  92.  
  93. COMMAND ANY
  94. FlagON 13
  95. VerbIsDirection
  96. PrintMessage 23
  97. DoneWithTurn
  98. END_COMMAND
  99.  
  100. COMMAND ANY
  101. NOT AtLocation 38
  102. FlagOFF 4
  103. FlagOFF 5
  104. FlagOFF 6
  105. FlagOFF 10
  106. FlagOFF 11
  107. FlagOFF 12
  108. FlagOFF 13
  109. Chance 10
  110. PrintMessage 24
  111. END_COMMAND
  112.  
  113. COMMAND ANY
  114. NOT AtLocation 38
  115. FlagOFF 6
  116. FlagOFF 4
  117. FlagOFF 5
  118. FlagOFF 10
  119. FlagOFF 11
  120. FlagOFF 12
  121. FlagOFF 13
  122. Chance 3
  123. TurnFlagON 10
  124. SetVariableTo 5 5
  125. PrintMessage 30
  126. DoneWithTurn
  127. END_COMMAND
  128.  
  129. COMMAND ANY
  130. NOT AtLocation 38
  131. FlagOFF 4
  132. FlagOFF 5
  133. FlagOFF 6
  134. FlagOFF 10
  135. FlagOFF 11
  136. FlagOFF 12
  137. FlagOFF 13
  138. Chance 3
  139. TurnFlagON 11
  140. SetVariableTo 5 5
  141. PrintMessage 31
  142. DoneWithTurn
  143. END_COMMAND
  144.  
  145. COMMAND ANY
  146. NOT AtLocation 38
  147. FlagOFF 4
  148. FlagOFF 5
  149. FlagOFF 6
  150. FlagOFF 10
  151. FlagOFF 11
  152. FlagOFF 12
  153. FlagOFF 13
  154. Chance 3
  155. TurnFlagON 12
  156. SetVariableTo 5 5
  157. PrintMessage 32
  158. DoneWithTurn
  159. END_COMMAND
  160.  
  161. COMMAND ANY
  162. NOT AtLocation 38
  163. FlagOFF 4
  164. FlagOFF 5
  165. FlagOFF 6
  166. FlagOFF 10
  167. FlagOFF 11
  168. FlagOFF 12
  169. FlagOFF 13
  170. Chance 3
  171. TurnFlagON 13
  172. SetVariableTo 5 5
  173. PrintMessage 33
  174. DoneWithTurn
  175. END_COMMAND
  176.  
  177. COMMAND TAME
  178. TurnFlagOFF 8
  179. TurnFlagOFF 9
  180. PrintMessage 18
  181. DoneWithTurn
  182. END_COMMAND
  183.  
  184. COMMAND DEBUG
  185. ToggleFlag 0
  186. DoneWithTurn
  187. END_COMMAND
  188.  
  189. COMMAND LEWD
  190. FlagON 9
  191. PrintMessage 8
  192. DoneWithTurn
  193. END_COMMAND
  194.  
  195. COMMAND LEWD
  196. TurnFlagON 8
  197. PrintMessage 9
  198. DoneWithTurn
  199. END_COMMAND
  200.  
  201. COMMAND DRAFT BEER
  202. FlagON 8
  203. PrintMessage 10 (*OK, you're in Lewd Mode *)
  204. TurnFlagON 9
  205. TurnFlagOFF 8
  206. DoneWithTurn
  207. END_COMMAND
  208.  
  209. COMMAND EAST
  210. AtLocation 23   (* to smoke-filled room *)
  211. FlagON 2
  212. PrintMessage 3
  213. END_COMMAND
  214.  
  215. COMMAND SOUTH
  216. AtLocation 33
  217. FlagON 2         (*has ventilated*)
  218. PrintMessage 3
  219. END_COMMAND
  220.  
  221. COMMAND SOUTH
  222. AtLocation 33
  223. FlagOFF 2         (*has NOT ventilated*)
  224. PrintMessage 2
  225. END_COMMAND
  226.  
  227. COMMAND SOUTHWEST
  228. AtLocation 37
  229. FlagON 2         (*has ventilated*)
  230. PrintMessage 3
  231. END_COMMAND
  232.  
  233. COMMAND SOUTHWEST
  234. AtLocation 37
  235. FlagOFF 2         (*has NOT ventilated*)
  236. PrintMessage 2
  237. END_COMMAND
  238.  
  239. COMMAND NORTHWEST
  240. AtLocation 36
  241. FlagON 2         (*has ventilated*)
  242. PrintMessage 3
  243. END_COMMAND
  244.  
  245. COMMAND NORTHWEST
  246. AtLocation 36
  247. FlagOFF 2         (*has NOT ventilated*)
  248. PrintMessage 2
  249. END_COMMAND
  250.  
  251. COMMAND NORTH
  252. AtLocation 35
  253. FlagON 2         (*has ventilated*)
  254. PrintMessage 3
  255. END_COMMAND
  256.  
  257. COMMAND NORTH
  258. AtLocation 35
  259. FlagOFF 2         (*has NOT ventilated*)
  260. PrintMessage 2
  261. END_COMMAND
  262.  
  263. COMMAND NORTHEAST
  264. AtLocation 34
  265. FlagON 2         (*has ventilated*)
  266. PrintMessage 3
  267. END_COMMAND
  268.  
  269. COMMAND NORTHEAST
  270. AtLocation 34
  271. FlagOFF 2         (*has NOT ventilated*)
  272. PrintMessage 2
  273. END_COMMAND
  274.  
  275. COMMAND SOUTHEAST
  276. AtLocation 32
  277. FlagON 2         (*has ventilated*)
  278. PrintMessage 3
  279. END_COMMAND
  280.  
  281. COMMAND SOUTHEAST
  282. AtLocation 32
  283. FlagOFF 2         (*has NOT ventilated*)
  284. PrintMessage 2
  285. END_COMMAND
  286.  
  287.  
  288. COMMAND WEST
  289. AtLocation 38
  290. FlagOFF 2    (*has NOT ventilated *)
  291. GoToRoom 11
  292. PrintMessage 2
  293. DoneWithTurn
  294. END_COMMAND
  295.  
  296. COMMAND WEST
  297. AtLocation 38
  298. FlagON 2    (*has ventilated *)
  299. GoToRoom 11
  300. PrintMessage 3
  301. DoneWithTurn
  302. END_COMMAND
  303.  
  304. COMMAND NORTH
  305. AtLocation 38
  306. GoToRoom 37
  307. DoneWithTurn
  308. END_COMMAND
  309.  
  310. COMMAND PUT GASOLINE IN CAN
  311. AtLocation 13
  312. IsCarrying 203
  313. SwapLocations 202 203
  314. DoneWithTurn
  315. END_COMMAND
  316.  
  317. COMMAND PUT GASOLINE IN ESCALATOR
  318. AtLocation 27
  319. IsCarrying 202
  320. InRoom 205  (*off escalator*)
  321. ChangePassageway 9 28
  322. SwapLocations 205 206
  323. SendToRoom 202 0
  324. PrintMessage 1 (*as you fill the tank, the escalator ... *)
  325. PlusScore 10
  326. DoneWithTurn
  327. END_COMMAND
  328.  
  329. COMMAND FILL ANY
  330. ReDirectTo PUT GASOLINE IN $NOUN$
  331. END_COMMAND
  332.  
  333. COMMAND ANY
  334. AtLocation 11
  335. FlagOFF 2
  336. VerbIsDirection
  337. GoToRandomRoom 32 38
  338. DoneWithTurn
  339. END_COMMAND
  340.  
  341. COMMAND FLIP SWITCH
  342. AtLocation 29
  343. TurnFlagON 2
  344. DoneWithTurn
  345. END_COMMAND
  346.  
  347. COMMAND PULL SWITCH
  348. ReDirectTo FLIP SWITCH
  349. END_COMMAND
  350.  
  351. COMMAND PUSH SWITCH
  352. ReDirectTo FLIP SWITCH
  353. END_COMMAND
  354.  
  355. COMMAND TURN SWITCH
  356. ReDirectTo FLIP SWITCH
  357. END_COMMAND
  358.  
  359. COMMAND WEST
  360. AtLocation 15
  361. FlagON 3
  362. GoToRoom 17
  363. LookAtRoom
  364. DoneWithTurn
  365. END_COMMAND
  366.  
  367. COMMAND ANY
  368. AtLocation 16
  369. FlagOFF 3
  370. FlagON 4  (*biker following *)
  371. PrintMessage 4
  372. TurnFlagON 3
  373. TurnFlagOFF 4
  374. RemoveFromGroup 301
  375. SendToRoom 301 0 (*get rid of biker *)
  376. PlusScore 10
  377. GoToRoom 17
  378. DoneWithTurn
  379. END_COMMAND
  380.  
  381. COMMAND ANY
  382. AtLocation 21 (*biker's club *)
  383. FlagOFF 4
  384. FlagOFF 3
  385. TurnFlagON 4
  386. AddToGroup 301 (*biker follows *)
  387. PrintMessage 5
  388. END_COMMAND
  389.  
  390. COMMAND EAST
  391. AtLocation 21 (*Biker's club *)
  392. FlagON 3 (*Got rid of Biker *)
  393. FlagOFF 7 (*only the first time *)
  394. FlagON 9 (*In lewd Mode *)
  395. PrintMessage 13 (*naked girl in room *)
  396. GoToRoom 20
  397. TurnFlagOn 7 (*only the first time in room *)
  398. DoneWithTurn
  399. END_COMMAND
  400.  
  401. COMMAND EAST
  402. AtLocation 21 (*Biker's club *)
  403. FlagON 3 (*got rid of biker *)
  404. FlagOFF 7 (*only the first time in room *)
  405. FlagOFF 9 (*In tame mode *)
  406. PrintMessage 14 (*sobbing girl in room *)
  407. GoToRoom 20
  408. TurnFlagON 7 (*only the first time in room *)
  409. DoneWithTurn
  410. END_COMMAND
  411.  
  412.  
  413. COMMAND SOUTH
  414. AtLocation 21
  415. GoToRoom 19
  416. DoneWithTurn
  417. END_COMMAND
  418.  
  419. COMMAND SOUTH
  420. AtLocation 19
  421. GoToRoom 15
  422. DoneWithTurn
  423. END_COMMAND
  424.  
  425. COMMAND WEST
  426. AtLocation 15
  427. GoToRoom 16
  428. DoneWithTurn
  429. END_COMMAND
  430.  
  431. COMMAND POLISH ROBOT
  432. AtLocation 29
  433. Present 209
  434. Present 302
  435. SendToRoom 302 0
  436. PrintMessage 6 (* you polish and polish the robot... *)
  437. PlusScore 10
  438. DoneWithTurn
  439. END_COMMAND
  440.  
  441. COMMAND ANY
  442. AtLocation 20
  443. Present 303
  444. FlagON 9 (*in LEWD MODE *)
  445. GoToRoom 6
  446. PrintMessage 7 (* the girl tosses you over her shoulder and ... *)
  447. SendToRoom 210 0 (*get rid of cycle *)
  448. SendToRoom 303 0 (* so long, Honey, it was a fun ride *)
  449. GetIt 211
  450. DoneWithTurn
  451. END_COMMAND
  452.  
  453. COMMAND ANY
  454. AtLocation 20
  455. Present 303
  456. FlagOFF 9 (*In TAME Mode *)
  457. GoToRoom 6
  458. PrintMessage 12
  459. SendToRoom 210 0 (*Get rid of Cycle *)
  460. SendToRoom 303 0 (*Girl leaves to go to her worried parents *)
  461. GetIt 211
  462. DoneWithTurn
  463. END_COMMAND
  464.  
  465. COMMAND LIGHT DYNAMITE
  466. IsCarrying 213
  467. IsCarrying 214
  468. PrintMessage 15
  469. KillPlayer
  470. DoneWithTurn
  471. END_COMMAND
  472.  
  473. COMMAND PLUG DAM
  474. IsCarrying 213
  475. AtLocation 18
  476. PrintMessage 16
  477. SendToRoom 213 0
  478. SwapLocations 215 216
  479. ChangePassageway 4 40
  480. DoneWithTurn
  481. END_COMMAND
  482.  
  483. COMMAND PUT STICK IN DAM
  484. ReDirectTo PLUG DAM
  485. END_COMMAND
  486.  
  487. COMMAND WEST
  488. AtLocation 40
  489. IsWearing 211
  490. GoToRoom 41
  491. DoneWithTurn
  492. END_COMMAND
  493.  
  494. COMMAND CAJUN FOOD
  495. AtLocation 36 (* Riddle Room *)
  496. Present 218
  497. SwapLocations 218 219
  498. ChangePassageway 3 27
  499. PrintMessage 17 (*the door opens *)
  500. DoneWithTurn
  501. END_COMMAND
  502.  
  503. COMMAND GIVE SKILLET TO COOK
  504. AtLocation 35
  505. IsCarrying 217
  506. SendToRoom 217 0
  507. FlagOFF 5
  508. TurnFlagON 5
  509. PrintMessage 19 (*she quickly captures and fries the Gizzard *)
  510. SendToRoom 305 0
  511. PlusScore 20
  512. DoneWithTurn
  513. END_COMMAND
  514.  
  515. COMMAND GIVE DEBUGGER PROGRAM TO PROGRAMMER
  516. AtLocation 51
  517. IsCarrying 201
  518. SendToRoom 201 0
  519. PlusScore 20
  520. SwapLocations 221 222
  521. ChangePassageway 2 52
  522. DoneWithTurn
  523. END_COMMAND
  524.