home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.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" $Ç│ "COMMAND
  710.                                        /FCOMMANDE
  711.                                        /GKOMMANDO"
  712.  "scib" $Ç│ "SCIENTIFIC
  713.                                        /FSCIENTIFIQUE
  714.                                        /GWISSENSCHAFT"
  715.  "secb" $Ç│ "SECURITY
  716.                                        /FSECURITE
  717.                                        /GSICHERHEIT"
  718.  "accb" $Ç│ "ACCESS
  719.                                        /FACCES
  720.                                        /GZUTRITT"
  721.  
  722.  "axtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  723.  "mrgl" $Ç│ "EMERGENCY /FALERTE /GNOTFALL"
  724. J #Ç╖ 
  725. :COMB_BUTTON
  726. @Çå `ü¡ 
  727. J #üå 
  728. :SCIB_BUTTON
  729. @Çå `ü¡ 
  730. J #üç 
  731. :SECB_BUTTON
  732. @Çå `ü¡ 
  733. J #üê 
  734.  
  735. :RADB_BUTTON
  736. @Çå `ü¡ 
  737.  
  738.  
  739.  
  740. m 
  741. ê "mlgt" "EVAC" 
  742.  "mfrl" "FUSION REACTOR/FFUSION REACTEUR /GFUSIONSREAKTOR" 
  743.  "mpsl" "EMERGENCY PROCEDURE/FPROCEDURE D'ALERTE/GNOTFALL" 
  744.  
  745.  "mSUB" "/! " 
  746.  "mSDB" "/! " 
  747.  "mPUB" "/! " 
  748.  "mPDB" "/! " 
  749.  "mxtb" "EXIT/FSORTIE/GZURÜCK" $Ç┤ 
  750. J #Ç╖ 
  751. :MSUB_REPEAT
  752. :MSUB_BUTTON
  753. @Çå `ü« 
  754. k "MLGT" $Ç╛ 
  755. J #Ç╖ 
  756. :MSDB_REPEAT
  757. :MSDB_BUTTON
  758. @Çå `ü« 
  759. k "MLGT" $Ç┐ 
  760. J #Ç╖ 
  761. :MPDB_REPEAT
  762. :MPDB_BUTTON
  763. @Çå `ü» 
  764. k "MLGT" $Ç╗ 
  765. J #Ç╖ 
  766. :MPUB_REPEAT
  767. :MPUB_BUTTON
  768. @Çå `ü» 
  769. k "MLGT" $Ç║ 
  770. J #Ç╖ 
  771. :MXTB_BUTTON
  772. @Çå `üÉ 150 -1024 
  773.  
  774. J #Ç╕ 
  775. :ENTER_COMMAND_LOG
  776. m 
  777.  
  778.  "bkga" $Ç│ 
  779.  "logl" "COMMAND/FCOMMANDE/GKOMMANDOZENTRALE" 
  780. ê "LOGT" "GSECCOM" 120 190 195 
  781. J #üë 
  782. :ENTER_SCIENTIFIC_LOG
  783. m 
  784.  
  785.  "bkga" $Ç│ 
  786.  "logl" "SCIENTIFIC/FSCIENTIFIQUE/GWISSENSCHAFT"
  787. ê "LOGT" "GSECSCI" 120 150 200 
  788. J #üë 
  789. :ENTER_SECURITY_LOG
  790. m 
  791.  
  792.  "bkga" $Ç│ 
  793.  "logl" "SECURITY/FSECURITE/GSICHERHEITSDIENST"
  794. ê "LOGT" "GSECSEC" 120 150 200 
  795. J #üë 
  796.  
  797. :COMMON_LOG_BUTTONS
  798.  
  799.  "lpub" $Ç│ "/! "
  800.  "lpdb" $Ç│ "/! "
  801.  "lsub" $Ç│ "/! "
  802.  "lsdb" $Ç│ "/! "
  803.  
  804.  "xitb" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  805. J #Ç╖ 
  806. :LPDB_REPEAT
  807. :LPDB_BUTTON
  808. @Çå `ü« 
  809. k "LOGT" $Ç╗ 
  810. J #Ç╖ 
  811. :LPUB_REPEAT
  812. :LPUB_BUTTON
  813. @Çå `ü« 
  814. k "LOGT" $Ç║ 
  815. J #Ç╖ 
  816. :LSDB_REPEAT
  817. :LSDB_BUTTON
  818. @Çå `ü» 
  819. k "LOGT" $Ç┐ 
  820. J #Ç╖ 
  821. :LSUB_REPEAT
  822. :LSUB_BUTTON
  823. @Çå `ü» 
  824. k "LOGT" $Ç╛ 
  825. J #Ç╖ 
  826. :ACCB_BUTTON
  827. @Çå `ü░ 
  828. J #üô 
  829.  
  830.  
  831. :ENTER_ACCESS
  832. m 
  833.  
  834.  "nfda" $Ç│ 
  835.  
  836.  "xitb" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  837.  "clrb" $Ç│ "CLEAR/FEFFACER/GABBRUCH" 
  838.  "kn0b" $Ç│ "/!0  "
  839.  "kn1b" $Ç│ "/!1  "
  840.  "kn2b" $Ç│ "/!2  "
  841.  "kn3b" $Ç│ "/!3  "
  842.  "kn4b" $Ç│ "/!4  "
  843.  "kn5b" $Ç│ "/!5  "
  844.  "kn6b" $Ç│ "/!6  "
  845.  "kn7b" $Ç│ "/!7  "
  846.  "kn8b" $Ç│ "/!8  "
  847.  "kn9b" $Ç│ "/!9  "
  848. ê "UIFT" "GSECINST"
  849.  
  850.  
  851. :ACCESS_INIT
  852.  "sacl" "SECURITY ACCESS
  853.                             /FACCES SECURITE
  854.                             /GSICHERHEITSZUGANG" 
  855.  
  856. ^êí = 11
  857.  "nf1a" ^êí 
  858.  "nf2a" ^êí 
  859.  "nf3a" ^êí 
  860.  "nf4a" ^êí 
  861.  "nf5a" ^êí 
  862. ^êó = 1
  863. ^êá = 0
  864. ^êû = -1
  865. ^êù = -1
  866. ^êÿ = -1
  867. ^êÖ = -1
  868. ^êÜ = -1
  869. J #Ç╖ 
  870.  
  871. :CHECK_ACCESS_ID
  872.  
  873. I ^êû != ^ꢠTHEN
  874. {
  875. J #üû 
  876. }
  877. E 
  878. {
  879. I ^êù != ^꣠THEN
  880. {
  881. J #üû 
  882. }
  883. E 
  884. {
  885. I ^êÿ != ^ꥠTHEN
  886. {
  887. J #üû 
  888. }
  889. E 
  890. {
  891. I ^êÖ != ^ê₧ THEN
  892. {
  893. J #üû 
  894. }
  895. E 
  896. {
  897. I ^êÜ != ^ꃠTHEN
  898. {
  899. J #üû 
  900. }
  901. }
  902. }
  903. }
  904. }
  905.  
  906.  
  907.  
  908. @Ç¢ USE_BOT 
  909. @ÇÜ CAYARM CLOSEST 
  910. I @Çí CURITEM ARMHERE1 THEN
  911. {
  912.  
  913. ^ï₧ = 1
  914. ê "UIFT" "GSECPASS"
  915. @Çå `ä¼ 
  916. }
  917. E 
  918. {
  919. i LEX NEEDHAND
  920.  
  921. ê "UIFT" "GSECNOHN"
  922. ^êó = 0
  923. @Çå `ä¡ 
  924. W 65
  925.  
  926. ê "UIFT" "GSECINST"
  927. J #üö 
  928. }
  929.  
  930. J #Ç╖ 
  931. :INVALID_ACCESS_ID
  932.  
  933. ê "UIFT" "GSECFAIL"
  934. ^êó = 0
  935. W 65
  936. ê "UIFT" "GSECINST"
  937. J #üö 
  938. :CLRB_BUTTON
  939. @Çå `ü» 
  940. J #üö 
  941. :KN0B_BUTTON
  942. @Çå `ü░ 
  943. ^êá = 0
  944. J #üó 
  945. :KN1B_BUTTON
  946. @Çå `ü░ 
  947. ^êá = 1
  948. J #üó 
  949. :KN2B_BUTTON
  950. @Çå `ü░ 
  951. ^êá = 2
  952. J #üó 
  953. :KN3B_BUTTON
  954. @Çå `ü░ 
  955. ^êá = 3
  956. J #üó 
  957. :KN4B_BUTTON
  958. @Çå `ü░ 
  959. ^êá = 4
  960. J #üó 
  961. :KN5B_BUTTON
  962. @Çå `ü░ 
  963. ^êá = 5
  964. J #üó 
  965. :KN6B_BUTTON
  966. @Çå `ü░ 
  967. ^êá = 6
  968. J #üó 
  969. :KN7B_BUTTON
  970. @Çå `ü░ 
  971. ^êá = 7
  972. J #üó 
  973. :KN8B_BUTTON
  974. @Çå `ü░ 
  975. ^êá = 8
  976. J #üó 
  977. :KN9B_BUTTON
  978. @Çå `ü░ 
  979. ^êá = 9
  980. J #üó 
  981. :VAL_ASSIGN
  982.  
  983. I ^êó != 1 THEN
  984. J #Ç╖ 
  985. ^êí = ^êá + 1
  986. I ^êû == -1 THEN
  987. {
  988.  "nf1a" ^êí 
  989. ^êû = ^êá 
  990. }
  991. E 
  992. {
  993. I ^êù == -1 THEN
  994. {
  995.  "nf2a" ^êí 
  996. ^êù = ^êá 
  997.  
  998. }
  999. E 
  1000. {
  1001. I ^êÿ == -1 THEN
  1002. {
  1003.  "nf3a" ^êí 
  1004. ^êÿ = ^êá 
  1005.  
  1006. }
  1007. E 
  1008. {
  1009. I ^êÖ == -1 THEN
  1010. {
  1011.  "nf4a" ^êí 
  1012. ^êÖ = ^êá 
  1013.  
  1014. }
  1015. E 
  1016. {
  1017. I ^êÜ == -1 THEN
  1018. {
  1019.  "nf5a" ^êí 
  1020. ^êÜ = ^êá 
  1021. J #üò 
  1022. }
  1023. }
  1024. }
  1025. }
  1026. }
  1027. J #Ç╖ 
  1028.  
  1029.  
  1030. :XITB_BUTTON
  1031. @Çå `ü▓ 
  1032. J #Ç╕ 
  1033. :ESCAPE_BUTTON
  1034. :AXTB_BUTTON
  1035. @Çå `ü▓ 200 -2048 
  1036.  
  1037. }
  1038.  
  1039. { CR_FREEZERMONITOR
  1040.  
  1041.  
  1042. P ~ÇÇ 
  1043. P ~Çü 
  1044. ~ÇÇ = 0
  1045. ~Çü = 1
  1046. I @Çú THEN é 
  1047.  "crym"
  1048. ^è╗ = $üâ 
  1049. ^è╡ = 0
  1050. ^è╖ = 0
  1051. ^è╕ = 1
  1052. ^è╜ = 10
  1053. ^è║ = 0
  1054. ^ïå = 0
  1055. ^ïà = 0
  1056. :ATTRACT
  1057. ^è╢ = 0
  1058.  ^ïê 
  1059.  ^ïë 
  1060. m 
  1061.  
  1062. ^ïä = $üé 
  1063.  "axtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  1064.  "ch1b" "CHAMBER 1/FCHAMBRE 1/GKAMMER 1" 
  1065.  "ch2b" "CHAMBER 2/FCHAMBRE 2/GKAMMER 2"
  1066.  "ch3b" "CHAMBER 3/FCHAMBRE 3/GKAMMER 3"
  1067.  "ch4b" "CHAMBER 4/FCHAMBRE 4/GKAMMER 4"
  1068.  "rnga" 1
  1069.  "radb" $Ç│ "EMERGENCY/FALERTE/GNOTFALL" 
  1070.  "hedl" "CRYOGENICS SYSTEM
  1071.                             /FSYSTEME CRYO
  1072.                             /GKRYOGENIKSYSTEM" 
  1073. J #ü¿ 
  1074.  
  1075. :CRYO_LOOP
  1076.  
  1077. â 
  1078. J #ü¿ 
  1079. :CH1B_BUTTON
  1080. @Çå `üÉ 150 -2048 
  1081.  
  1082. ^è╢ = 1
  1083.  
  1084. I ^è╣ = 0 AND ^ǃ = 1 THEN
  1085. {
  1086. ~Çü = 0
  1087. ^è╡ = 1
  1088. ^è╖ = 0
  1089. ^è╕ = 1
  1090. ^è╛ = 89
  1091. ^è║ = 0
  1092. ^è╜ = 7
  1093. ~ÇÇ = @Çì FIDO_WAKENS
  1094. }
  1095. E 
  1096. {
  1097. I ^è╣ >= 2 THEN
  1098. {
  1099. ^è╖ = 9
  1100. ^è║ = 1
  1101. ^è╡ = 0
  1102. ^è╛ = 5
  1103. ^è╜ = 98
  1104. ^è╕ = 0
  1105. }
  1106. E 
  1107. {
  1108. I ^è╣ = 0 THEN
  1109. {
  1110. ^è╡ = 1
  1111. ^è╖ = 0
  1112. ^è╕ = 1
  1113. ^è╛ = 89
  1114. ^è║ = 0
  1115. ^è╜ = 7
  1116. }
  1117. }
  1118. }
  1119. :AROUND_FIDO
  1120. J #éä 
  1121. :CH2B_BUTTON
  1122. @Çå `üÉ 150 -2048 
  1123.  
  1124. ^è╢ = 2
  1125. ^è╖ = 1
  1126. ^è╡ = 1
  1127. ^è╛ = 74
  1128. ^è╜ = 7
  1129. ^è║ = 0
  1130. ^è╕ = 1
  1131. J #éä 
  1132. :CH3B_BUTTON
  1133. @Çå `üÉ 150 -2048 
  1134.  
  1135. ^è╢ = 3
  1136. ^è╖ = 9
  1137. ^è╡ = 0
  1138. ^è╛ = 3
  1139. ^è╜ = 100
  1140. ^è╕ = 0
  1141. ^è║ = 1
  1142. J #éä 
  1143. :CH4B_BUTTON
  1144. @Çå `üÉ 150 -2048 
  1145.  
  1146. ^è╢ = 4
  1147. ^è╖ = 0
  1148. ^è╡ = 1
  1149. ^è╛ = 84
  1150. ^è╜ = 10
  1151. ^è║ = 0
  1152. ^è╕ = 1
  1153. J #éä 
  1154. :CPUB_REPEAT
  1155. :CPUB_BUTTON
  1156. @Çå `ü« 100 2048 
  1157. k "ctxt" $Ç║ 
  1158. J #ü¿ 
  1159. :CPDB_REPEAT
  1160. :CPDB_BUTTON
  1161. @Çå `ü« 100 2048 
  1162. k "ctxt" $Ç╗ 
  1163. J #ü¿ 
  1164. :CSUB_REPEAT
  1165. :CSUB_BUTTON
  1166. @Çå `ü« 100 2048 
  1167. k "ctxt" $Ç╛ 
  1168. J #ü¿ 
  1169. :CSDB_REPEAT
  1170. :CSDB_BUTTON
  1171. @Çå `ü« 100 2048 
  1172. k "ctxt" $Ç┐ 
  1173. J #ü¿ 
  1174. :NXTB_BUTTON
  1175. @Çå `üÉ 150 -1024 
  1176.  
  1177. J #üº 
  1178. :AXTB_BUTTON
  1179. @Çå `üÉ 150 
  1180.  
  1181. J #éâ 
  1182. :RADB_BUTTON
  1183. @Çå `üÉ 150 -2048 
  1184.  
  1185.  
  1186.  
  1187. m 
  1188. ê "mlgt" "EVAC" 
  1189.  "mfrl" "FUSION REACTOR/FFUSION REACTEUR /GFUSIONSREAKTOR" 
  1190.  "mpsl" "EMERGENCY PROCEDURE/FPROCEDURE D'ALERTE/GNOTFALL" 
  1191.  
  1192.  "mSUB" "/! " 
  1193.  "mSDB" "/! " 
  1194.  "mPUB" "/! " 
  1195.  "mPDB" "/! " 
  1196.  "mxtb" "EXIT/FSORTIE/GZURÜCK" $Ç┤ 
  1197. J #ü¿ 
  1198. :MSUB_REPEAT
  1199. :MSUB_BUTTON
  1200. @Çå `ü« 
  1201. k "MLGT" $Ç╛ 
  1202. J #ü¿ 
  1203. :MSDB_REPEAT
  1204. :MSDB_BUTTON
  1205. @Çå `ü« 
  1206. k "MLGT" $Ç┐ 
  1207. J #ü¿ 
  1208. :MPDB_REPEAT
  1209. :MPDB_BUTTON
  1210. @Çå `ü» 
  1211. k "MLGT" $Ç╗ 
  1212. J #ü¿ 
  1213. :MPUB_REPEAT
  1214. :MPUB_BUTTON
  1215. @Çå `ü» 
  1216. k "MLGT" $Ç║ 
  1217. J #ü¿ 
  1218. :MXTB_BUTTON
  1219. @Çå `üÉ 150 -1024 
  1220.  
  1221. J #üº 
  1222.  
  1223. :ESCAPE_BUTTON
  1224. @Çå `ü▓ 150 
  1225. :STOP_CRYM
  1226. ^è╗ = $üé 
  1227.  
  1228.  ^ïê 
  1229.  
  1230.  ^ïë 
  1231. I ~Çü = 0 THEN
  1232. {
  1233.  ~ÇÇ 
  1234. @Çì EXITING_AWAKENS
  1235. }
  1236.  
  1237. é 
  1238. :NOTES_CRYO_MONITOR
  1239.  
  1240. m 
  1241.  ^ïê 
  1242.  ^ïë 
  1243. ^ïä = $üâ 
  1244.  
  1245.  "cmbl" "CHAMBER/FCHAMBRE/GKAMMER" 
  1246.  "tmpl" "TEMPERATURE/FTEMPERATURE/GTEMP."
  1247.  "fldl" "FLUID LEVELS/FFLUIDE/GFLÜSSIGKEIT"
  1248.  "htrl" "HEART RATE/FPULSATIONS/GPULS" 
  1249.  "cpub" "/! "
  1250.  "cpdb" "/! "
  1251.  "csub" "/! "
  1252.  "csdb" "/! "
  1253. N ^è╢ 
  1254. {
  1255. U 1
  1256.  "cbnl" "1"
  1257. j "ctxt" "freezer1"
  1258. X Çä 
  1259. U 2
  1260.  "cbnl" "2"
  1261. j "ctxt" "freezer2"
  1262. X Çä 
  1263. U 3
  1264.  "cbnl" "3"
  1265. j "ctxt" "freezer3"
  1266. X Çä 
  1267. U 4
  1268.  "cbnl" "4"
  1269. j "ctxt" "freezer4"
  1270. X Çä 
  1271.  
  1272. U 0
  1273. J #ü╖ 
  1274. X Çä 
  1275. }
  1276.  
  1277. I ^è╡ == 0 THEN
  1278. {
  1279.  "flvl" $Ç┤ "CRITICAL/FCRITIQUE/GKRITISCH" 
  1280. }
  1281. E 
  1282. {
  1283.  "flvl" $Ç│ " NOMINAL/FNORMAL/GNORMAL" 
  1284. }
  1285.  
  1286. N ^è╖ 
  1287. {
  1288. U 0
  1289.  "tpvl" "/!  73 K"
  1290. X Çà 
  1291. U 1
  1292.  "tpvl" "/!  82 K"
  1293. X Çà 
  1294. U 2
  1295.  "tpvl" "/!  89 K"
  1296. X Çà 
  1297. U 3
  1298.  "tpvl" "/! 103 K"
  1299. X Çà 
  1300. U 4
  1301.  "tpvl" "/! 112 K"
  1302. X Çà 
  1303. U 5
  1304.  "tpvl" "/! 125 K"
  1305. X Çà 
  1306. U 6
  1307.  "tpvl" "/! 129 K"
  1308. X Çà 
  1309. U 7
  1310.  "tpvl" "/! 143 K"
  1311. X Çà 
  1312. U 8
  1313.  "tpvl" "/! 159 K"
  1314. X Çà 
  1315. U 9
  1316.  "tpvl" $Ç┤ "/! 173 K"
  1317. â 
  1318. X Çà 
  1319. V 
  1320.  "tpvl" "FAIL/FECHEC/GAUSFALL" 
  1321.  
  1322. }
  1323.  
  1324. N ^è╕ 
  1325. {
  1326. U 0
  1327.  "bpml" "/!  0 BPM"
  1328. X Çå 
  1329. U 1
  1330.  "bpml" "/! 48 BPM"
  1331. X Çå 
  1332. U 2
  1333.  "bpml" "/! 62 BPM"
  1334. X Çå 
  1335. U 3
  1336.  "bpml" "/! 74 BPM"
  1337. X Çå 
  1338. U 4
  1339.  "bpml" "/! 78 BPM"
  1340. X Çå 
  1341. U 5
  1342.  "bpml" "/! 82 BPM"
  1343. X Çå 
  1344. U 6
  1345.  "bpml" "/! 86 BPM"
  1346. X Çå 
  1347. U 7
  1348.  "bpml" "/! 94 BPM"
  1349. X Çå 
  1350. U 8
  1351.  "bpml" "/!109 BPM"
  1352. X Çå 
  1353. U 9
  1354.  "bpml" "/!118 BPM"
  1355. X Çå 
  1356. V 
  1357.  "bpml" "FAIL/FRATE/GFAIL"
  1358. }
  1359.  
  1360.  
  1361. s "tbrs" 100 1
  1362. s "tbrs" ^è╜ 2
  1363. s "fbrs" 100 1
  1364. s "fbrs" ^è╛ 2
  1365.  "nxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  1366.  
  1367.  
  1368. I ^è║ == 0 THEN
  1369. {
  1370. ^ïë = @Çì BEATLINE
  1371. }
  1372. E 
  1373. {
  1374. ^ïê = @Çì FLATLINE
  1375. }
  1376. J #ü¿ 
  1377. }
  1378. { EXITING_AWAKENS
  1379. W 1 SECONDS
  1380. @Çì FRZR_DOR
  1381. }
  1382.  
  1383. { SCANFAILLOG
  1384. W 4 SECONDS
  1385. i LEX SCANFAIL
  1386. }
  1387.  
  1388.  
  1389. //$ 26 - version number
  1390.