home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / concntrl.scp < prev    next >
Text File  |  1995-02-23  |  8KB  |  762 lines

  1.  
  2. { CNT_BTN3_USE
  3. @Ç¢ PLAYER 
  4. I @Çä NOTIN -115 -45 THEN é 
  5.  
  6. M PUSH_BUTTON CONTINUE
  7. W 15
  8.  
  9.  
  10.  
  11. I ^Ç┐ = $üé THEN
  12. {
  13. @Ç║ `Çç $üê "COMPUTER: This is a restricted area./FZone interdite aux~personnes non autorisées./GZugang verboten" 
  14. é 
  15. }
  16. I ^çè OR ^Ç┐ != 1 THEN
  17. {
  18. @Çå `ÇÄ 
  19. é 
  20. }
  21. @Çå `Çì 150 -2048 
  22. I ^ä▓ = $ââ THEN J #Çü 
  23. I ^ä▓ = $âé THEN J #Çâ 
  24. :OPEN_DR4
  25. @Çì CNT_DOOR_OPEN
  26.  
  27. :TOP
  28. â 
  29.  
  30.  
  31. I @Ǽ CURFIG DR14 < 300 THEN J #Çé
  32.  
  33. :CLOSE_DR4
  34.  
  35. @Çì CNT_DOOR_CLOSE
  36.  
  37.  
  38. }
  39.  
  40. { OPENCNT_CR_BOT
  41. @Ç¥ OPENCNT
  42. }
  43.  
  44. { OPENCNT
  45. I ^ä▓ = $ââ THEN
  46. {
  47.  
  48. @Çì CNT_DOOR_OPEN
  49. :POT
  50. â 
  51. I @Ǽ CURFIG DR14 < 350 THEN J #Çå 
  52. {
  53.  
  54. @Çì CNT_DOOR_CLOSE
  55.  
  56.  
  57. }
  58. }
  59. }
  60.  
  61. { SUITTEST
  62. {
  63. I ^üè = 1 THEN
  64. {
  65. ^üè = 0
  66. @Çì HARDSUITMACHINE
  67. }
  68.  
  69.  
  70. : TEST
  71. â 
  72. I @Çá CURFIG SUITTEST < 300 THEN
  73. {
  74. J #Çê 
  75. }
  76.  
  77. ^üè = 1
  78. }
  79. }
  80.  
  81. { HARDSUITMACHINE
  82.  
  83. I @Ç¢ PLAYER THEN
  84. {
  85. A OFF
  86. }
  87.  
  88. E ! "Can't find Lex" 
  89.  
  90. @Ç¥ HARD_SUIT_CLOSE_CON
  91.  
  92. I @Ç⌐ LEX OR @Ç⌐ LEXMIR THEN
  93. {
  94. ù HARD
  95. .ÇéÇç = 100 
  96. ^ï╡ = 0 
  97. i LEX HARDSUIT
  98. @Ç¥ LEX_WOUNDS
  99. }
  100. {
  101. ù LEX
  102. @Ç¥ LEX_WOUNDS
  103. }
  104. @Ç¥ HARD_SUIT_OPEN_CON
  105.  
  106.  
  107. I @Ç¢ PLAYER THEN
  108. {
  109. A ON
  110. }
  111.  
  112. E ! "Can't find Lex." 
  113. }
  114.  
  115. { CR_REACTORMONITOR
  116.  "rtrc"
  117.  "bkga" 1
  118.  "rhdl" "REACTOR MONITOR/FCONTROLE REACTEUR/GREAKTOR MONITOR" 
  119.  "rsub" ""
  120.  "rsdb" ""
  121.  "rpdb" ""
  122.  "rpub" ""
  123.  "xitb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  124. I ^êÇ THEN
  125. ê "rtrt" "react2"
  126.  
  127. j "rtrt" "reacto"
  128. :CONTROL_MONITOR_LOOP
  129. â 
  130. J #Çï 
  131. :RPUB_REPEAT
  132. :RPUB_BUTTON
  133. @Çå `ü« 255 -1024 
  134. k "rtrt" $Ç║ 
  135.  
  136. J #Çï 
  137. :RPDB_REPEAT
  138. :RPDB_BUTTON
  139. @Çå `ü« 255 -1024 
  140. k "rtrt" $Ç╗ 
  141.  
  142. J #Çï 
  143. :RSUB_REPEAT
  144. :RSUB_BUTTON
  145. @Çå `ü« 255 -1024 
  146. k "rtrt" $Ç╛ 
  147.  
  148. J #Çï 
  149. :RSDB_REPEAT
  150. :RSDB_BUTTON
  151. @Çå `ü« 255 -1024 
  152. k "rtrt" $Ç┐ 
  153.  
  154. J #Çï 
  155. :XITB_BUTTON
  156. :ESCAPE_BUTTON
  157. @Çå `ü▓ 
  158. }
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166. { CR_HANGERMONITOR
  167. P ~ÇÇ 
  168. P ~Çü 
  169. P ~Çé 
  170. ~ÇÇ = 0
  171. ~Çé = 0
  172. ~Çü = 0
  173.  "hngr"
  174. :HANGER_ATTRACT
  175.  
  176.  "arga" 1
  177.  "hadl" $Ç│ "HANGAR DATA FILES/FFICHIER DATAS DU HANGAR/GFLUGDATEN"
  178.  "aidb" "ICARUS DATA/FDATAS ICARE/GICARUSDATEN"
  179.  "aiab" "ICARUS ACCESS/FACCES ICARE/GICARUS ZUTRITT"
  180.  "adlb" "HANGAR LOGS/FJOURNAL HANGAR/GFLUGLOGBUCH"
  181.  "axtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  182.  
  183. â 
  184. :HANGER_LOOP
  185. â 
  186. J #Çÿ 
  187. :HANGER_LOGS
  188.  "hadl" "ICARUS FLIGHT LOGS/FCARNET DE BORD ICARE/GICARUS FLUGLOGBUCH"
  189. ê "hltt" "biketf" 60 80 110
  190.  "supb" ""
  191.  "sdnb" ""
  192.  "pupb" ""
  193.  "pdnb" ""
  194.  "hxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  195.  
  196. â 
  197. ~Çé = 1
  198. ^üì = $üâ 
  199.  
  200. J #Çÿ 
  201. :HANGER_DATA
  202.  "ibsa" 1
  203. ê "istt" "bikesc" 60 80 110
  204. ~ÇÇ = @Çì FLASHING_BIKE
  205.  
  206.  "isub" ""
  207.  "isdb" ""
  208.  "ipub" ""
  209.  "ipdb" ""
  210.  "ixtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  211.  
  212. â 
  213.  
  214. J #Çÿ 
  215. :AIDB_BUTTON 
  216. @Çå `ü¡ 
  217. J #ÇÜ 
  218. :AIAB_BUTTON 
  219. @Çå `ü« 
  220.  
  221. ~Çü = 1
  222. J #Ç▒ 
  223. :ADLB_BUTTON 
  224. @Çå `ü» 
  225. J #ÇÖ 
  226. :SUPB_REPEAT
  227. :SUPB_BUTTON
  228. @Çå `ü░ 
  229. k "hltt" $Ç╛ 
  230. J #Çÿ 
  231. :SDNB_REPEAT
  232. :SDNB_BUTTON
  233. @Çå `ü░ 
  234. k "hltt" $Ç┐ 
  235. J #Çÿ 
  236. :PUPB_REPEAT
  237. :PUPB_BUTTON
  238. @Çå `ü░ 255 1024 
  239. k "hltt" $Ç║ 
  240. J #Çÿ 
  241. :PDNB_REPEAT
  242. :PDNB_BUTTON
  243. @Çå `ü░ 255 1024 
  244. k "hltt" $Ç╗ 
  245. J #Çÿ 
  246. :HXTB_BUTTON
  247. @Çå `ü¡ 
  248. J #Çù 
  249. :ISUB_REPEAT
  250. :ISUB_BUTTON
  251. @Çå `ü░ 
  252. k "istt" $Ç╛ 
  253. J #Çÿ 
  254. :ISDB_REPEAT
  255. :ISDB_BUTTON
  256. @Çå `ü░ 
  257. k "istt" $Ç┐ 
  258. J #Çÿ 
  259. :IPUB_REPEAT
  260. :IPUB_BUTTON
  261. @Çå `ü░ 255 1024 
  262. k "istt" $Ç║ 
  263. J #Çÿ 
  264. :IPDB_REPEAT
  265. :IPDB_BUTTON
  266. @Çå `ü░ 255 1024 
  267. k "istt" $Ç╗ 
  268. J #Çÿ 
  269. :IXTB_BUTTON
  270. @Çå `ü▓ 
  271.  ~ÇÇ 
  272. ~ÇÇ = 0
  273. J #Çù 
  274. :AXTB_BUTTON 
  275. @Çå `ü░ 
  276. :ESCAPE_BUTTON
  277. @Çå `ü▒ 
  278. I ~Çé = 1 THEN
  279. i LEX BIKEMON
  280.  ~ÇÇ 
  281. I ~Çü = 1 THEN
  282. {
  283.  
  284. @Ç¢ PLAYER
  285. A OFF
  286. W 20
  287. M WALK_BACK CONTINUE
  288. W 20
  289.  
  290. @Ç¥ LOWER_GARAGE_ELEVATOR
  291. }
  292. }
  293.  
  294. { CR_SATTELITE_MONITOR
  295.  
  296.  
  297.  "hngr"
  298.  
  299. ─ 329 219 
  300.  
  301.  
  302.  
  303.  "sbka" 1
  304.  "sadl" $Ç│ "MSS SATTELITE VIEW/FVUE SATELLITE MSS /GMSS SATELLITENKAMERA"
  305.  "sesl" "EXCAVATION SITE/FZONE DE FOUILLES/GAUSGRABUNG"
  306.  "sd1l" "DAEDALUS/FDAEDALUS/GDAEDALUS"
  307.  "sd2l" "BASE/FBASE/GSTÜTZPUNKT"
  308.  "spgl" "PASSAGE/FPASSAGE/GEINGANG"
  309.  "srtl" "RESTRICTED/FINTERDIT/GVERBOTEN"
  310. :SATTELITE_LOOP
  311. â 
  312. J #Ç│ 
  313. :ESCAPE_BUTTON
  314. @Çå `ü▓ 
  315. }
  316.  
  317.  
  318. [ FLASHING_BIKE
  319.  
  320.  
  321. :LOOP
  322. 00:00  "issa" 1
  323. 00:25  "issa" 2
  324. 00:27  "issa" 3
  325. 01:22  "issa" 2
  326. 01:24 ò 
  327. J #Ç╢ 
  328.  
  329.  
  330. ]
  331.  
  332.  
  333.  
  334.  
  335. { CR_MONITOR _CALLING_AREA
  336. P ~Çü 
  337. ~Çü = 0
  338.  
  339.  "conm"
  340.  
  341. I @Ç⌐ HARD THEN
  342.  "hrda" 1
  343.  "csub" ""
  344.  "csdb" ""
  345.  "cpdb" ""
  346.  "cpub" ""
  347.  "cxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  348. N ~ÇÇ 
  349. {
  350. U $âÅ 
  351. {
  352. ~Çü = 1
  353. ê "cont" "parag"
  354. X ÇÇ 
  355. }
  356. U $âÉ 
  357. {
  358. ~Çü = 2
  359. ê "cont" "evac"
  360. X ÇÇ 
  361. }
  362. U $âæ 
  363. {
  364. ê "cont" "hist"
  365. X ÇÇ 
  366. }
  367. U $âÆ 
  368. {
  369. ê "cont" "arch"
  370. X ÇÇ 
  371. }
  372.  
  373. }
  374. :CONTROL_MONITOR_LOOP
  375. â 
  376. J #Ç╕ 
  377. :CPUB_REPEAT
  378. :CPUB_BUTTON
  379. @Çå `ü▒ 
  380. k "cont" $Ç║ 
  381.  
  382. J #Ç╕ 
  383. :CPDB_REPEAT
  384. :CPDB_BUTTON
  385. @Çå `ü▒ 
  386. k "cont" $Ç╗ 
  387.  
  388. J #Ç╕ 
  389. :CSUB_REPEAT
  390. :CSUB_BUTTON
  391. @Çå `ü░ 
  392. k "cont" $Ç╛ 
  393.  
  394. J #Ç╕ 
  395. :CSDB_REPEAT
  396. :CSDB_BUTTON
  397. @Çå `ü░ 
  398. k "cont" $Ç┐ 
  399.  
  400. J #Ç╕ 
  401. :CXTB_BUTTON
  402. @Çå `ü▒ 
  403.  
  404. :ESCAPE_BUTTON
  405. @Çå `ü▓ 
  406. I ~Çü = 1 THEN
  407. i LEX PARGON
  408. I ~Çü = 2 THEN
  409. i LEX EVAC
  410. }
  411.  
  412. [ HARD_SUIT_CLOSE_CON
  413. 00:00 ^éö = 1
  414. ^éò = 1
  415. @Çå `â¿ 
  416. ^Ç╝ = 1
  417. 00:04 ^éö = 2
  418. ^éò = 2
  419. 00:08 ^éö = 3
  420. ^éò = 3
  421. 00:12 ^éö = 4
  422. ^éò = 4
  423. 00:16 ^éö = 5
  424. ^éò = 5
  425. 00:20 ^éö = 6
  426. ^éò = 6
  427. 00:24 ^éö = 7
  428. ^éò = 7
  429. 00:28 ^éö = 8
  430. ^éò = 8
  431. 01:02 ^éö = 9
  432. ^éò = 9
  433. 01:06 ^éö = 10
  434. ^éò = 10
  435. 01:10 ^éö = 11
  436. ^éò = 11
  437. 01:14 ^éö = 12
  438. ^éò = 12
  439. 01:18 ^éö = 13
  440. ^éò = 13
  441. 01:22 ^éö = 14
  442. ^éò = 14
  443. 01:26 ^éö = 15
  444. ^éò = 15
  445. 02:00 ^éö = 16
  446. ^éò = 16
  447. 02:04 ^éö = 17
  448. ^éò = 17
  449. 02:08 ^éö = 18
  450. ^éò = 18
  451. 02:10 ^éö = 19
  452. ^éò = 19
  453. 02:12 ^éö = 20
  454. ^éò = 20
  455. 02:14 ^éö = 21
  456. ^éò = 21
  457. 02:16 ^éö = 22
  458. ^éò = 22
  459. 02:18 ^éö = 23
  460. ^éò = 23
  461. 02:20 ^éö = 24
  462. ^éò = 24
  463. 02:22 ^éö = 25
  464. ^éò = 25
  465. 02:24 ^éö = 26
  466. ^éò = 26
  467. 02:26 ^éö = 27
  468. ^éò = 27
  469. 02:28 ^éö = 28
  470. ^éò = 28
  471.  
  472. [ HARD_SUIT_OPEN_CON
  473.  
  474. 00:00 ^éö = 28
  475. ^éò = 28
  476. @Çå `â¿ 
  477. 00:04 ^éö = 27
  478. ^éò = 27
  479. 00:08 ^éö = 26
  480. ^éò = 26
  481. 00:12 ^éö = 25
  482. ^éò = 25
  483. 00:16 ^éö = 24
  484. ^éò = 24
  485. 00:20 ^éö = 23
  486. ^éò = 23
  487. 00:24 ^éö = 22
  488. ^éò = 22
  489. 00:28 ^éö = 21
  490. ^éò = 21
  491. 01:02 ^éö = 20
  492. ^éò = 20
  493. 01:06 ^éö = 19
  494. ^éò = 19
  495. 01:10 ^éö = 18
  496. ^éò = 18
  497. 01:14 ^éö = 17
  498. ^éò = 17
  499. 01:18 ^éö = 16
  500. ^éò = 16
  501. 01:22 ^éö = 15
  502. ^éò = 15
  503. 01:26 ^éö = 14
  504. ^éò = 14
  505. 02:00 ^éö = 13
  506. ^éò = 13
  507. 02:04 ^éö = 12
  508. ^éò = 12
  509. 02:08 ^éö = 11
  510. ^éò = 11
  511. 02:12 ^éö = 10
  512. ^éò = 10
  513. 02:16 ^éö = 9 
  514. ^éò = 9 
  515. 02:18 ^éö = 8 
  516. ^éò = 8
  517. 02:20 ^éö = 7 
  518. ^éò = 7 
  519. 02:22 ^éö = 6
  520. ^éò = 6 
  521. 02:24 ^éö = 5 
  522. ^éò = 5 
  523. 02:26 ^éö = 4 
  524. ^éò = 4 
  525. 02:28 ^éö = 3 
  526. ^éò = 3 
  527. 03:00 ^éö = 2 
  528. ^éò = 2 
  529. 03:02 ^éö = 1 
  530. ^éò = 1 
  531. ^Ç╝ = 0
  532. ]
  533. [ CNT_DOOR_OPEN
  534. ^çè = 1
  535. @Çå `üé 
  536. 00:00 ^Ç╕ = 1
  537. 00:02 ^Ç╕ = 2
  538. 00:04 ^Ç╕ = 3
  539. 00:06 ^Ç╕ = 4
  540. 00:09 ^Ç╕ = 5
  541. 00:11 ^Ç╕ = 6
  542. 00:13 ^Ç╕ = 7
  543. 00:15 ^Ç╕ = 8
  544. 00:17 ^Ç╕ = 9
  545. 00:19 ^Ç╕ = 10
  546. 00:21 ^Ç╕ = 11
  547. 00:22 ^Ç╕ = 12
  548. 00:24 ^Ç╕ = 13
  549. 00:26 ^Ç╕ = 14
  550. 00:28 ^Ç╕ = 15
  551. 01:00 ^Ç╕ = 16
  552. 01:02 ^Ç╕ = 0
  553. ^çè = 0
  554. ^ä▓ = $âé 
  555. ]
  556. [ CNT_DOOR_CLOSE
  557. ^çè = 1
  558. @Çå `üé 
  559. 00:00 ^Ç╕ = 0
  560. 00:02 ^Ç╕ = 16
  561. 00:04 ^Ç╕ = 15
  562. 00:06 ^Ç╕ = 14
  563. 00:08 ^Ç╕ = 13
  564. 00:10 ^Ç╕ = 12
  565. 00:12 ^Ç╕ = 11
  566. 00:14 ^Ç╕ = 10
  567. 00:16 ^Ç╕ = 9
  568. 00:18 ^Ç╕ = 8
  569. 00:20 ^Ç╕ = 7
  570. 00:22 ^Ç╕ = 6
  571. 00:24 ^Ç╕ = 5
  572. 00:26 ^Ç╕ = 4
  573. 00:28 ^Ç╕ = 3
  574. 01:00 ^Ç╕ = 2
  575. 01:02 ^Ç╕ = 1
  576. 01:04 @Çå `üà 
  577. ^çè = 0
  578. ^ä▓ = $ââ 
  579. ]
  580. { HANGRMON_USE
  581.  
  582. I @Çä IN -125 135 THEN
  583. é 
  584. ^Ç╢ ++
  585.  
  586.  
  587. M LOOK_CONSOLE FREEZE
  588. @Ç¥ CR_HANGERMONITOR
  589. M STAND CONTINUE
  590. ^Ç╢ --
  591. }
  592. { SATMON1_USE
  593. I @Çä IN -135 135 THEN
  594. é 
  595. ^Ç╢ ++
  596.  
  597. £ SATLOC1 GRADUAL
  598. M LOOK_CONSOLE FREEZE
  599. @Ç¥ CR_SATTELITE_MONITOR
  600. M STAND CONTINUE
  601. ^Ç╢ --
  602. }
  603. { SATMON2_USE
  604. I @Çä IN -135 135 THEN
  605. é 
  606. ^Ç╢ ++
  607.  
  608. £ SATLOC2 GRADUAL
  609. M LOOK_CONSOLE FREEZE
  610. @Ç¥ CR_SATTELITE_MONITOR
  611. M STAND CONTINUE
  612. ^Ç╢ --
  613. }
  614. { ARCHLMON_USE
  615. I @Çä IN -90 180 THEN
  616. é 
  617. ^Ç╢ ++
  618.  
  619. £ ARCHLOC GRADUAL
  620. M LOOK_CONSOLE FREEZE
  621. @Ç¥ CR_MONITOR $âÆ 
  622. M STAND CONTINUE
  623. ^Ç╢ --
  624. }
  625.  
  626. { EVACMON1_USE
  627. ^Ç╢ ++
  628. I @Çä IN -150 -30 THEN
  629. {
  630. £ EVACLOC1 GRADUAL
  631. M LOOK_CONSOLE FREEZE
  632. @Ç¥ CR_MONITOR $âÉ 
  633. M STAND CONTINUE
  634. }
  635. ^Ç╢ --
  636. }
  637. { EVACMON2_USE
  638. ^Ç╢ ++
  639. I @Çä IN -150 -30 THEN
  640. {
  641. £ EVACLOC2 GRADUAL
  642. M LOOK_CONSOLE FREEZE
  643. @Ç¥ CR_MONITOR $âÉ 
  644. M STAND CONTINUE
  645. }
  646. ^Ç╢ --
  647. }
  648.  
  649. { EVCMON1_USE
  650. ^Ç╢ ++
  651. I @Çä IN -60 60 THEN
  652. {
  653. £ EVCLOC1 GRADUAL
  654. M LOOK_CONSOLE FREEZE
  655. @Ç¥ CR_MONITOR $âÉ 
  656. M STAND CONTINUE
  657. }
  658. ^Ç╢ --
  659. }
  660. { EVCMON2_USE
  661. ^Ç╢ ++
  662. I @Çä IN -60 60 THEN
  663. {
  664. £ EVCLOC2 GRADUAL
  665. M LOOK_CONSOLE FREEZE
  666. @Ç¥ CR_MONITOR $âÉ 
  667. M STAND CONTINUE
  668. }
  669. ^Ç╢ --
  670. }
  671. { HISTORYMON
  672. M LOOK_CONSOLE FREEZE
  673. @Ç¥ CR_MONITOR $âæ 
  674. M STAND CONTINUE
  675. ^Ç╢ --
  676. }
  677. { HISTMON1_USE
  678. I @Çä IN -135 135 THEN
  679. é 
  680. ^Ç╢ ++
  681. £ HISTLOC1 GRADUAL
  682. @Çì HISTORYMON
  683. }
  684. { HISTMON2_USE
  685. I @Çä IN -135 135 THEN
  686. é 
  687. ^Ç╢ ++
  688. £ HISTLOC2 GRADUAL
  689. @Çì HISTORYMON
  690. }
  691. { HISTMON3_USE
  692. I @Çä IN -135 135 THEN
  693. é 
  694. ^Ç╢ ++
  695. £ HISTLOC3 GRADUAL
  696. @Çì HISTORYMON
  697. }
  698. { PARAGMON_USE
  699. ^Ç╢ ++
  700. I @Çä IN -150 -30 THEN
  701. {
  702.  
  703. £ PARAGLOC GRADUAL
  704. M LOOK_CONSOLE FREEZE
  705. @Ç¥ CR_MONITOR $âÅ 
  706. M STAND CONTINUE
  707. }
  708. ^Ç╢ --
  709. }
  710.  
  711.  
  712. { MAINTMON_USE
  713. ^Ç╢ ++
  714. I @Çä IN -60 60 THEN
  715. {
  716.  
  717.  
  718.  
  719. £ MAINTLOC GRADUAL
  720. M LOOK_AT_MON FREEZE
  721.  
  722. @Ç¥ GR_MAINTENANCELOG
  723. M STAND CONTINUE
  724. }
  725. ^Ç╢ --
  726. }
  727. { REACTMON_USE
  728. ^Ç╢ ++
  729. I @Çä IN -60 60 THEN
  730. {
  731.  
  732. £ REACTLOC GRADUAL
  733. M LOOK_AT_MON FREEZE
  734. @Ç¥ CR_REACTORMONITOR
  735. M STAND CONTINUE
  736. }
  737. ^Ç╢ --
  738. }
  739.  
  740.  
  741. //$ 26 - version number
  742.