home *** CD-ROM | disk | FTP | other *** search
/ cyber.net 2 / cybernet2.ISO / bioforge / script / chaosmon.scp < prev    next >
Text File  |  1995-02-25  |  16KB  |  1,390 lines
  1.  
  2.  
  3.  
  4.  
  5. { ELEV2_H1_USE
  6. I ^çç = 1 THEN é 
  7. I @Çä NOTIN 50 130 THEN é 
  8. ^Ç╢ ++
  9. M PUSH_BUTTON CONTINUE
  10. W 5
  11. @Ç¥ ELEVATOR_MONITOR
  12. M STAND CONTINUE
  13. ^Ç╢ --
  14. }
  15. { ELEV2_H2_USE
  16. I ^çç = 1 THEN é 
  17. I @Çä NOTIN -115 -45 THEN é 
  18. ^Ç╢ ++
  19. M PUSH_BUTTON CONTINUE
  20. W 5
  21. @Ç¥ ELEVATOR_MONITOR
  22. M STAND CONTINUE
  23. ^Ç╢ --
  24. }
  25. { MANT_MON_USE
  26. ^Ç╢ ++
  27. I @Çä IN 110 162 THEN
  28. {
  29.  
  30. £ MAINTLOC GRADUAL
  31. M LOOK_CONSOLE FREEZE
  32. @Ç¥ GR_MAINTENANCELOG
  33. M STAND CONTINUE
  34. }
  35. ^Ç╢ --
  36. }
  37. { BOT_MON_USE
  38.  
  39. ^Ç╢ ++
  40.  
  41.  
  42. I @Çä NOTIN -90 135 THEN
  43. {
  44. £ BOTMNLOC GRADUAL
  45. M LOOK_CONSOLE FREEZE
  46. @Ç¥ GR_ROBOTCONTROLPANEL $âì 
  47. M STAND CONTINUE
  48. I @Ç¢ USE_BOT THEN
  49. ┬ 
  50. }
  51. ^Ç╢ --
  52. }
  53. { SEC_MON_USE
  54. ^Ç╢ ++
  55. I @Çä IN 45 135 THEN
  56. {
  57. £ SEC_LOC GRADUAL
  58. M LOOK_CONSOLE FREEZE
  59. @Ç¥ GR_SECURITYMONITOR
  60. M STAND CONTINUE
  61. }
  62. ^Ç╢ --
  63. }
  64. { CRYM_USE
  65. ^Ç╢ ++
  66. I @Çä IN -135 -45 THEN
  67. {
  68. £ CM_LOC GRADUAL
  69. M LOOK_AT_MON FREEZE
  70. @Ç¥ CR_FREEZERMONITOR
  71. M STAND CONTINUE
  72. }
  73. ^Ç╢ --
  74. }
  75.  
  76. { CC_CIRCUITBOARD
  77. P ~ÇÇ 
  78. P ~Çü 
  79. P ~Çé 
  80. P ~Çâ 
  81. P ~Çä 
  82. P ~Çà 
  83. I @Çú THEN é 
  84.  "clp2"
  85. m 
  86. I ^å╗ = 4 THEN
  87. J #Çæ
  88.  
  89.  "bt1b" $Ç│ 
  90.  "bt2b" $Ç│ 
  91.  "bt3b" $Ç│ 
  92.  "bt4b" $Ç│ 
  93.  
  94. å 360 1
  95.  
  96.  
  97. ç 10 5 10
  98. ~ÇÇ = 4
  99. ~Çü = 4
  100. ~Çé = 1
  101. ~Çâ = 2
  102. ~Çä = 0
  103. ~Çà = 1
  104.  "FN1A" 1 
  105.  "FN2A" 1 
  106.  "FN4A" 1 
  107.  "LCKL" "LOCKED/FVERROUILLEE/GZU"
  108. J #Çî 
  109.  
  110. :MAIN_LOOP
  111. â 
  112.  
  113.  "STTA" ~Çà 
  114.  "FN3A" ~Çà 
  115. ~Çä ++
  116. I ~Çä = 5 THEN
  117. {
  118. I ~Çà = 1 THEN
  119. ~Çà = 2
  120. E 
  121. ~Çà = 1
  122. ~Çä = 0
  123. }
  124. J #Çç 
  125.  
  126. :BT1B_BUTTON
  127. @Çå `ü¡ 
  128. ~ÇÇ ++
  129. I ~ÇÇ = 5 THEN ~ÇÇ = 1
  130. J #Çî 
  131.  
  132. :BT2B_BUTTON
  133. @Çå `ü¡ 
  134. ~Çü ++
  135. I ~Çü = 5 THEN ~Çü = 1
  136. J #Çî 
  137.  
  138. :BT3B_BUTTON
  139. @Çå `ü¡ 
  140. ~Çé ++
  141. I ~Çé = 5 THEN ~Çé = 1
  142. J #Çî 
  143.  
  144. :BT4B_BUTTON
  145. @Çå `ü¡ 
  146. ~Çâ ++
  147. I ~Çâ = 5 THEN ~Çâ = 1
  148. J #Çî 
  149.  
  150. :DRAW_BOARD
  151.  "RW1A" ~ÇÇ 
  152.  "RW2A" ~Çü 
  153.  "RW3A" ~Çé 
  154.  "RW4A" ~Çâ 
  155.  
  156. I ~ÇÇ = 1 AND ~Çü < 3 THEN
  157. J #Çì 
  158. I ~ÇÇ = 2 THEN
  159. I ~Çü = 2 OR ~Çü = 3 THEN
  160. J #Çì 
  161. J #Çç 
  162. :COLUMN3
  163. I ~Çé = 1 THEN
  164. I ~Çü = 1 OR ~Çü = 2 THEN
  165. J #ÇÄ 
  166. I ~Çé = 2 THEN
  167. I ~Çü = 2 OR ~Çü = 3 THEN
  168. J #ÇÄ 
  169. I ~Çé = 3 THEN
  170. I ~Çü = 3 OR ~Çü = 4 THEN
  171. J #ÇÄ 
  172. I ~Çé = 4 AND ~Çü = 1 THEN
  173. J #ÇÄ 
  174. J #Çç 
  175. :COLUMN4
  176. I ~Çâ = 1 THEN
  177. I ~Çé = 4 OR ~Çé = 1 THEN
  178. J #ÇÅ
  179. I ~Çâ = 2 THEN
  180. I ~Çé = 1 OR ~Çé = 2 THEN
  181. J #ÇÅ
  182. I ~Çâ = 3 THEN
  183. I ~Çé = 2 OR ~Çé = 3 THEN
  184. J #Çæ
  185. I ~Çâ = 4 THEN
  186. I ~Çé = 3 OR ~Çé = 4 THEN
  187. J #ÇÅ
  188. J #Çç 
  189.  
  190.  
  191. :ZAP
  192. :LOSE_LOOP
  193.  "STTA" 1 
  194. I ~Çâ = 1 THEN
  195.  "FN1A" 2 
  196. I ~Çâ = 2 THEN
  197.  "FN2A" 2 
  198. I ~Çâ = 4 THEN
  199.  "FN4A" 2 
  200.  "RW1A" ~ÇÇ 
  201.  "RW2A" ~Çü 
  202.  "RW3A" ~Çé 
  203.  "RW4A" ~Çâ 
  204. â 
  205. W 10
  206. @Çå `ü▓ 
  207.  "STTA" 0 
  208.  "FN1A" 1 
  209.  "FN2A" 1 
  210.  "FN4A" 1 
  211.  "RW1A" 0 
  212.  "RW2A" 0 
  213.  "RW3A" 0 
  214.  "RW4A" 0 
  215. @Çå `ü▓ 
  216. â 
  217. L #ÇÉ 4
  218.  
  219. @Çå `Çë 
  220. ^çà ++
  221.  
  222.  
  223. @Çì CELPAN_EXPLOSION
  224. M CELPAN_ZAP CONTINUE
  225. W 30
  226. M SUPER_REC_TL
  227. @Ç¢ PLAYER 
  228. @Ç¥ DAMAGE_LEX_ENERGY 5
  229. é 
  230.  
  231.  
  232. :WIN
  233.  "LCKL" "UNLOCKED/FOUVERTE/GOFFEN"
  234. :WIN_LOOP
  235.  "STTA" 1 
  236.  "FN3A" 1 
  237.  "RW1A" ~ÇÇ 
  238.  "RW2A" ~Çü 
  239.  "RW3A" ~Çé 
  240.  "RW4A" ~Çâ 
  241. @Çå `ü▓ 
  242. â 
  243. W 10
  244.  "STTA" 0 
  245.  "FN3A" 0 
  246.  "RW1A" 0 
  247.  "RW2A" 0 
  248.  "RW3A" 0 
  249.  "RW4A" 0 
  250. @Çå `ü▓ 
  251. â 
  252. L #ÇÆ 4
  253. ^å╗ = 4
  254. @Çå `ü▓ 
  255. â 
  256. W 30
  257.  
  258.  
  259. :ESCAPE_BUTTON
  260.  
  261. }
  262.  
  263. { MONCL1_USE
  264. ^Ç╢ ++
  265. I @Çä IN -135 -45 THEN
  266. {
  267.  
  268. £ C1MONLOC GRADUAL
  269. M LOOK_AT_MON FREEZE
  270. @Ç¥ GR_CELLMONITOR 1 ^åê 
  271. M STAND CONTINUE
  272. }
  273. ^Ç╢ --
  274. }
  275. { MONCL2_USE
  276. ^Ç╢ ++
  277. I @Çä IN -135 -45 THEN
  278. {
  279.  
  280. £ C2MONLOC GRADUAL
  281. M LOOK_AT_MON FREEZE
  282. @Ç¥ GR_CELLMONITOR 2 ^åë 
  283. M STAND CONTINUE
  284. }
  285. ^Ç╢ --
  286. }
  287. { MONCL3_USE
  288. ^Ç╢ ++
  289. I @Çä IN -135 -45 THEN
  290. {
  291.  
  292. £ C3MONLOC GRADUAL
  293. M LOOK_AT_MON FREEZE
  294. @Ç¥ GR_CELLMONITOR 3 ^åè 
  295. M STAND CONTINUE
  296. }
  297. ^Ç╢ --
  298. }
  299. { MONCL4_USE
  300. ^Ç╢ ++
  301. I @Çä IN -135 -45 THEN
  302. {
  303.  
  304. £ C4MONLOC GRADUAL
  305. M LOOK_AT_MON FREEZE
  306. @Ç¥ GR_CELLMONITOR 4 ^åï 
  307. M STAND CONTINUE
  308. }
  309. ^Ç╢ --
  310. }
  311. { DENYACCESS
  312. ^åà = 1
  313. :TELLDENIAL
  314.  
  315.  "FBRL" $Ç┤ "ACCESS DENIED /FACCES REFUSE /G ZUTRITT VERWEIGERT!" 
  316. @Çå `ä¡ 
  317. W 15
  318.  "FBRL" $Ç┤ "-------------"
  319. W 15
  320. L #ÇÖ 3
  321.  "FBRL" $Ç│ "FORCE BARS/FBARREAUX/GENERGIEGITTER" 
  322.  
  323. ^åà = 0
  324. }
  325. { CAM1BUTTON
  326.  "BT3b" "/!1" $Ç╡ 
  327.  "BT4b" "/!2" $Ç│ 
  328. }
  329. { CAM2BUTTON
  330.  "BT4b" "/!2" $Ç╡ 
  331.  "BT3b" "/!1" $Ç│ 
  332. }
  333.  
  334.  
  335.  
  336.  
  337.  
  338. { GR_CELLMONITOR _CELL_MONITOR _CELX_OFF
  339. I @Çú THEN é 
  340. ^å░ = 0
  341. ^çì = 1
  342.  "CELL"
  343.  "CMRL" "CAMERA/FCAMERA/GKAMERA" 
  344.  "fBRL" "FORCE BARS/FBARREAUX/GENERGIEGITTER" 
  345.  "CELL" "CELL/F  CELLULE/GZELLE" 
  346.  "CMAL" "CAM./FCAM./GKAM." 
  347. I ~Çü THEN
  348. {
  349.  "BT1b" "ON/FON/GAN" $Ç│ $Ç╕ 
  350.  "BT2b" "OFF/FOFF/GAUS" $Ç╡ $Ç╕ 
  351. }
  352. E 
  353. {
  354.  "BT1b" "ON/FON/GAN" $Ç╡ $Ç╕ 
  355.  "BT2b" "OFF/FOFF/GAUS" $Ç│ $Ç╕ 
  356. }
  357.  "BT3b" "/!1" $Ç╡ $Ç╕ 
  358.  "BT4b" "/!2" $Ç│ $Ç╕ 
  359.  "BT5b" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  360. :LOOP
  361. I ^çì = 1 THEN  "CMNL" "/!1" 
  362. I ^çì = 2 THEN  "CMNL" "/!2" 
  363. N ~ÇÇ 
  364. {
  365. U 1
  366. I ^çì = 1 THEN C CE11
  367. I ^çì = 2 THEN C CE12
  368. I ^çì = 1 THEN  "VEWV" "CE11" 
  369. I ^çì = 2 THEN  "VEWV" "CE12" 
  370.  "NUML" "/E1/F   1/G1" 
  371. X ÇÇ 
  372. U 2
  373. I ^!= 0 THEN
  374. {
  375. I ^çì = 1 THEN C CE23
  376. I ^çì = 2 THEN C CE24
  377. I ^çì = 1 THEN  "VEWV" "CE23" 
  378. I ^çì = 2 THEN  "VEWV" "CE24" 
  379. }
  380. E 
  381. {
  382. I ^çì = 1 THEN C CE21
  383. I ^çì = 2 THEN C CE22
  384. I ^çì = 1 THEN  "VEWV" "CE21" 
  385. I ^çì = 2 THEN  "VEWV" "CE22" 
  386. }
  387.  "NUML" "/E2/F   2/G2" 
  388. X ÇÇ 
  389. U 3
  390. I ^çì = 1 THEN C CE31
  391. I ^çì = 2 THEN C CE32
  392. I ^çì = 1 THEN  "VEWV" "CE31" 
  393. I ^çì = 2 THEN  "VEWV" "CE32" 
  394.  "NUML" "/E3/F   3/G3" 
  395. X ÇÇ 
  396. U 4
  397. I ^çì = 1 THEN C CE41
  398. I ^çì = 2 THEN C CE42
  399. I ^çì = 1 THEN  "VEWV" "CE41" 
  400. I ^çì = 2 THEN  "VEWV" "CE42" 
  401.  "NUML" "/E4/F   4/G4" 
  402. X ÇÇ 
  403. }
  404.  
  405. â 
  406. J #Ç¥ 
  407.  
  408. :BT3B_BUTTON
  409. @Çå `ü¡ 
  410.  
  411.  
  412.  
  413. @Ç¥ CAM1BUTTON
  414. ^çì = 1
  415. J #Ç¥ 
  416.  
  417. :BT4B_BUTTON
  418. @Çå `ü¡ 
  419.  
  420.  
  421.  
  422. @Ç¥ CAM2BUTTON
  423. ^çì = 2
  424. J #Ç¥ 
  425.  
  426. :BT1B_BUTTON
  427. @Çå `üÉ 
  428.  
  429. I ~ÇÇ == 2 THEN
  430. {
  431.  "BT1b" "ON/FON/GAN" $Ç╡ 
  432.  
  433. }
  434. E 
  435. {
  436.  "BT1b" "ON/FON/GAN" $Ç╡ 
  437.  "BT2b" "OFF/FOFF/GAUS" $Ç│ 
  438. }
  439. N ~ÇÇ 
  440. {
  441. U 1
  442. @Ç¥ SETCELLONEBARS 0 
  443. X Çü 
  444. U 2
  445. I ^åà == 0 THEN @Çì DENYACCESS
  446. X Çü 
  447. U 3
  448. @Ç¥ SETCELLTHREEBARS 0 
  449. X Çü 
  450. U 4
  451. @Ç¥ SETCELLFOURBARS 0 
  452. X Çü 
  453. }
  454. J #Ç¥ 
  455.  
  456. :BT2B_BUTTON
  457. @Çå `üÉ 
  458.  
  459. I ~ÇÇ == 2 THEN
  460. {
  461.  "BT2b" "OFF/FOFF/GAUS" $Ç│ 
  462.  
  463. }
  464. E 
  465. {
  466.  "BT1b" "ON/FON/GAN" $Ç│ 
  467.  "BT2b" "OFF/FOFF/GAUS" $Ç╡ 
  468. }
  469. N ~ÇÇ 
  470. {
  471. U 1
  472. @Ç¥ SETCELLONEBARS 1 
  473. X Çé 
  474. U 2
  475. I ^åà == 0 THEN @Çì DENYACCESS
  476. X Çé 
  477. U 3
  478. @Ç¥ SETCELLTHREEBARS 1 
  479. X Çé 
  480. U 4
  481. @Ç¥ SETCELLFOURBARS 1 
  482. X Çé 
  483. }
  484. J #Ç¥ 
  485. :BT5B_BUTTON
  486. @Çå `ü¡ 
  487.  
  488. :STOPIT
  489. :ESCAPE_BUTTON
  490. C UNLOCK
  491.  
  492. C UNLOCK
  493. }
  494.  
  495.  
  496. { GR_CELLBLOCKDATAMONITOR
  497. I @Çú THEN é 
  498.  "CLVL"
  499. ^ïÜ = $üé 
  500. :ATTRACT
  501. m 
  502.  
  503.  "bc1b" $Ç│ "/! " $Ç│ $Ç╣ 
  504.  "bc2b" $Ç│ "/! " $Ç│ $Ç╣ 
  505.  "bc3b" $Ç│ "/! " $Ç│ $Ç╣ 
  506.  "bc4b" $Ç│ "/! " $Ç│ $Ç╣ 
  507.  "blka" 1
  508.  "HEaL" "PRISONER INFORMATION
  509.                          /FINFORMATIONS PRISONNIER
  510.                          /GINFORMATION: INSASSE"
  511.  "UC1L" "/!C-1"
  512.  "LC1L" "/!BX-3497"
  513.  "UC2L" "/!C-2"
  514.  "LC2L" "CLASSIFIED
  515.                          /FCLASSEE
  516.                          /GGEHEIM"
  517.  "UC3L" "/!C-3"
  518.  "LC3L" "/!AP-127"
  519.  "UC4L" "/!C-4"
  520.  "LC4L" "/!AP-128"
  521.  "xikb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  522. ^ïÜ = $üâ 
  523. :CEL_MON1_LOOP
  524.  
  525. â 
  526. J #Ǻ 
  527. :BC1B_BUTTON
  528. @Çå `ü¼ 
  529. m 
  530.  "HEaL" "PRISONER INFORMATION 1
  531.                          /FINFORMATIONS PRISONNIER 1
  532.                          /GINFORMATION: INSASSE 1"
  533. j "inft" "cell1"
  534.  "xikb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  535. ^ïÜ = $üé 
  536. J #Ǻ 
  537. :BC2B_BUTTON
  538. @Çå `ü¼ 
  539. m 
  540.  "HEaL" "PRISONER INFORMATION 2
  541.                          /FINFORMATIONS PRISONNIER 2
  542.                          /GINFORMATION: INSASSE 2"
  543. j "inft" "cell2"
  544.  "xikb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  545. ^ïÜ = $üé 
  546. J #Ǻ 
  547. :BC3B_BUTTON
  548. @Çå `ü¼ 
  549. m 
  550.  "HEaL" "PRISONER INFORMATION 3
  551.                          /FINFORMATIONS PRISONNIER 3
  552.                          /GINFORMATION: INSASSE 3"
  553. j "inft" "cell3"
  554.  "xikb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  555. ^ïÜ = $üé 
  556. J #Ǻ 
  557. :BC4B_BUTTON
  558. @Çå `ü¼ 
  559. m 
  560.  "heal" "Prisoner INFORMATION 4
  561.                          /FINFORMATIONS PRISONNIER 4
  562.                          /GINFORMATION: INSASSE 4"
  563. j "inft" "cell4"
  564.  "xikb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  565. ^ïÜ = $üé 
  566. J #Ǻ 
  567. :XIKB_BUTTON
  568. I ^ïÜ == $üé THEN
  569. J #Ǫ 
  570. :ESCAPE_BUTTON
  571. @Çå `ü▓ 
  572.  
  573. }
  574.  
  575.  
  576. { OR_PALMREADER
  577. @Ç¥ PALMREADER 3 
  578. }
  579.  
  580. { CH_PALMREADER
  581. @Ç¥ PALMREADER 4 
  582. }
  583.  
  584. { GR_PALMREADER
  585. @Ç¥ PALMREADER 6 
  586. }
  587.  
  588. { PALMREADER _RDR_NO
  589. P ~Çü 
  590. I @Çú THEN é 
  591.  
  592. ~Çü = 0
  593. I ^ï₧ THEN
  594. {
  595. @ÇÜ CAYARM CLOSEST 
  596. I @Çæ RTHAND CAYARM THEN
  597.  
  598. ~Çü = 1
  599. }
  600.  "palm"
  601. m 
  602.  
  603. Å 0
  604.  
  605.  0
  606.  
  607. @ÇÜ CAYARM CLOSEST 
  608. I @Çæ RTHAND CAYARM THEN
  609.  "pcayhand" 0 
  610. E 
  611. {
  612.  
  613.  
  614.  
  615.  
  616. @Çì SCANFAILLOG
  617.  
  618. ^++
  619. I ^> 2 THEN
  620. i LEX SCANF2
  621. }
  622.  
  623.  
  624.  
  625. ─ 156 207
  626.  
  627. W 15
  628.  "endb" $Ç│ 
  629.  
  630. ╞ $é▒ 
  631.  1
  632.  
  633. â 
  634.  
  635. :LOOP
  636.  
  637. â 
  638. J #Ç▓ 
  639. :ENDB_HIGHLIGHT
  640.  
  641. I ~Çü = 1 THEN
  642. {
  643. @Çå `ä¼ 
  644.  "clra" 1
  645. }
  646. E 
  647. {
  648. @Çå `ä¡ 
  649.  "fala" 1
  650. }
  651. W 60
  652. J #Ç┤ 
  653. :ESCAPE_BUTTON
  654. @Çå `ü▓ 
  655.  
  656. I ~Çü = 1 THEN
  657. {
  658. N ~ÇÇ 
  659. {
  660. U 3
  661. @Ç¥ OPENDR6 
  662. X Çâ 
  663. U 4
  664. @Ç¥ OPENDR6 
  665. X Çâ 
  666. U 6
  667. @Ç¥ OPENDR6 
  668. X Çâ 
  669. V 
  670. }
  671. }
  672.  
  673. }
  674.  
  675. { CHANDQ
  676. I @Çú THEN é 
  677. I ^ï₧ THEN
  678. {
  679. @Ç¢ PLAYER
  680. I @Çæ RTHAND CAYARM THEN
  681. é 
  682. @ÇÜ CAYARM CLOSEST 
  683. I @Çí CURITEM ARMHERE1 THEN
  684. {
  685. @Ç¥ OPENDR6 
  686. }
  687. }
  688. }
  689.  
  690.  
  691. { GR_SECURITYMONITOR
  692. P ~ÇÇ 
  693. I @Çú THEN é 
  694.  "prsn"
  695. J #Ç╕ 
  696. :LOOP
  697.  
  698. â 
  699. J #Ç╖ 
  700.  
  701. :ENTER_PERSONNEL
  702. m 
  703.  
  704.  "rnga" 1
  705.  "radb" $Ç│ "EMERGENCY/FALERTE/GNOTFALL" 
  706.  
  707.  "hedl" "PERSONNEL/FPERSONNEL/GPERSONAL" 
  708.  
  709.  "comb" $Ç│ "