home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / elevator.scp < prev    next >
Text File  |  1995-02-21  |  9KB  |  862 lines

  1.  
  2. { SWITCHTOTOWERLEVEL
  3. @Çå `Çì 150 -3072 
  4. I ^åû == $âå THEN
  5. {
  6.  
  7.  
  8. @Ç¥ ELEVATOR_DOOR_OPEN
  9. ^ä¡ = $âé 
  10. é 
  11. }
  12. ^Ç╢ ++
  13.  
  14. I ^åû = $âç OR ^åû = $âå THEN
  15. ^ä¡ = $ââ 
  16. ^ä« = $ââ 
  17. ^çç = 1
  18. @Ç¥ ELEVATOR_DOOR_CLOSE
  19. @Ç¥ ELEVATOR_ENERGY_WARNING
  20.  
  21. â 
  22. @Ç¥ ELEVATOR_ANIM $âå 
  23. W 5
  24.  
  25. ^å» = 0
  26.  @Çî ^ê▒ 100 0 30 
  27.  
  28. I ^ï┤ THEN é 
  29. A OFF
  30. @Ç¥ EXITMONITOR
  31. â 
  32. N ^åû 
  33. {
  34. U $âç 
  35.  
  36. I @Ç¢ HALMECHO THEN
  37. A OFF
  38. @Ç¢ PLAYER 
  39.  
  40. â 
  41.  
  42. I ^ï┤ THEN é 
  43. S TOWER ELH ELT ^ê▒ 
  44.  
  45.  
  46. X ÇÇ 
  47. U $âê 
  48. @Ç¢ PLAYER 
  49.  
  50. â 
  51.  
  52. I ^ï┤ THEN é 
  53. I @Çó ^êÅ THEN
  54. {
  55.  ^êÅ 
  56.  ^êÉ 
  57.  ^êæ 
  58. C RTR6
  59. â 
  60. @Ç¥ SHUT_DOWN_LOSE
  61. é 
  62. }
  63. S TOWER ELC ELT ^ê▒ 
  64.  
  65.  
  66. X ÇÇ 
  67. U $âë 
  68. @Ç¢ PLAYER 
  69.  
  70. â 
  71.  
  72. I ^ï┤ THEN é 
  73. S TOWER ELV ELT ^ê▒ 
  74.  
  75.  
  76. X ÇÇ 
  77. }
  78.  
  79.  
  80. â 
  81. â 
  82. @Ç¥ EXITSTASIS
  83.  ^ê▒ 
  84.  
  85. @Ç¥ ELEVATOR_TOWER_DEST
  86. â 
  87.  
  88. @Ç¥ ELEVATOR_DOOR_OPEN
  89. â 
  90. ^ä¡ = $âé 
  91. @Çì TOWERAUTOELEVATORCLOSE
  92. ^çç = 0
  93. ^Ç╢ --
  94. }
  95. { SWITCHTOCHAOSLEVEL
  96. @Çå `Çì 150 -3072 
  97. I ^åû == $âç THEN
  98. {
  99.  
  100.  
  101. @Ç¥ ELEVATOR_DOOR_OPEN
  102. ^ä¡ = $âé 
  103. é 
  104. }
  105. ^Ç╢ ++
  106.  
  107. I ^åû = $âç OR ^åû = $âå THEN
  108. ^ä¡ = $ââ 
  109. ^ä« = $ââ 
  110. ^çç = 1
  111. @Ç¥ ELEVATOR_DOOR_CLOSE
  112. @Ç¥ ELEVATOR_ENERGY_WARNING
  113. I ^éï = 17 THEN
  114. @Ç¥ ELEVATOR_WINDOW_RESET
  115. @Ç¥ ELEVATOR_ANIM $âç 
  116.  
  117.  
  118.  @Çî ^ê▒ 100 0 30 
  119.  
  120. I ^ï┤ THEN é 
  121. A OFF
  122. @Ç¥ EXITMONITOR
  123. â 
  124. N ^åû 
  125. {
  126. U $âå 
  127. @Ç¢ PLAYER 
  128.  
  129. â 
  130.  
  131. I ^ï┤ THEN é 
  132. S CHAOS ELT ELH ^ê▒ 
  133.  
  134.  
  135. @Ç¢ HALMECHO 
  136. A ON
  137. @Ç¢ PLAYER 
  138. X Çü 
  139. U $âê 
  140. @Ç¢ PLAYER 
  141.  
  142. â 
  143.  
  144. I ^ï┤ THEN é 
  145. I @Çó ^êÅ THEN
  146. {
  147.  ^êÅ 
  148.  ^êÉ 
  149.  ^êæ 
  150. C RTR6
  151. â 
  152. @Ç¥ SHUT_DOWN_LOSE
  153. é 
  154. }
  155. S CHAOS ELC ELH ^ê▒ 
  156.  
  157.  
  158. @Ç¢ HALMECHO 
  159. A ON
  160. @Ç¢ PLAYER 
  161. X Çü 
  162. U $âë 
  163. @Ç¢ PLAYER 
  164.  
  165. â 
  166.  
  167. I ^ï┤ THEN é 
  168. S CHAOS ELV ELH ^ê▒ 
  169.  
  170.  
  171. @Ç¢ HALMECHO 
  172. A ON
  173. @Ç¢ PLAYER 
  174. X Çü 
  175. }
  176.  
  177.  
  178. â 
  179. â 
  180. @Ç¥ EXITSTASIS
  181.  
  182.  ^ê▒ 
  183.  
  184. @Ç¥ ELEVATOR_DOOR_OPEN
  185. ^ä¡ = $âé 
  186. @Çì CHAOSAUTOELEVATORCLOSE
  187. ^çç = 0
  188. ^Ç╢ --
  189. }
  190. { SWITCHTOCONTROLLEVEL
  191. @Çå `Çì 150 -3072 
  192. I ^åû == $âê THEN
  193. {
  194.  
  195.  
  196. @Ç¥ ELEVATOR_DOOR_OPEN
  197. ^ä« = $âé 
  198. O $Çû 
  199. é 
  200. }
  201. ^Ç╢ ++
  202.  
  203. I ^åû = $âç OR ^åû = $âå THEN
  204. ^ä¡ = $ââ 
  205. ^ä« = $ââ 
  206. ^çç = 1
  207. @Ç¥ ELEVATOR_DOOR_CLOSE
  208. @Ç¥ ELEVATOR_ENERGY_WARNING
  209. I ^éï = 17 THEN
  210. @Ç¥ ELEVATOR_WINDOW_RESET
  211. @Ç¥ ELEVATOR_ANIM $âê 
  212.  
  213.  
  214.  @Çî ^ê▒ 100 0 30 
  215.  
  216. I ^ï┤ THEN é 
  217. A OFF
  218. @Ç¥ EXITMONITOR
  219. â 
  220. N ^åû 
  221. {
  222. U $âå 
  223. @Ç¢ PLAYER 
  224.  
  225. â 
  226.  
  227. I ^ï┤ THEN é 
  228. S CONTROL ELT ELC ^ê▒ 
  229.  
  230.  
  231. X Çé 
  232. U $âç 
  233. I @Ç¢ HALMECHO THEN
  234. A OFF
  235. @Ç¢ PLAYER 
  236.  
  237. â 
  238.  
  239. I ^ï┤ THEN é 
  240. S CONTROL ELH ELC ^ê▒ 
  241.  
  242.  
  243. X Çé 
  244. U $âë 
  245. @Ç¢ PLAYER 
  246.  
  247. â 
  248.  
  249. I ^ï┤ THEN é 
  250. S CONTROL ELV ELC ^ê▒ 
  251.  
  252.  
  253. X Çé 
  254. }
  255.  
  256.  
  257. â 
  258. â 
  259. @Ç¥ EXITSTASIS
  260.  
  261.  ^ê▒ 
  262.  
  263. @Ç¥ ELEVATOR_DOOR_OPEN
  264. ^ä« = $âé 
  265. @Çì CONTROLAUTOELEVATORCLOSE
  266. ^çç = 0
  267. ^Ç╢ --
  268. }
  269. { SWITCHTOLANDINGLEVEL
  270. @Çå `Çì 150 -3072 
  271. I ^åû == $âë THEN
  272. {
  273. é 
  274. }
  275. ^Ç╢ ++
  276.  
  277. I ^åû = $âç OR ^åû = $âå THEN
  278. ^ä¡ = $ââ 
  279. ^ä« = $ââ 
  280. ^嬠= 1
  281. ^çç = 1
  282. @Ç¥ ELEVATOR_DOOR_CLOSE
  283. @Ç¥ ELEVATOR_ENERGY_WARNING
  284. I ^éï == 17 THEN
  285. {
  286. @Ç¥ ELEVATOR_WINDOW_RESET
  287. }
  288. @Ç¥ ELEVATOR_ANIM $âë 
  289.  
  290.  
  291.  @Çî ^ê▒ 100 0 30 
  292.  
  293. I ^ï┤ THEN é 
  294. A OFF
  295. @Ç¥ EXITMONITOR
  296. â 
  297. N ^åû 
  298. {
  299. U $âå 
  300. @Ç¢ PLAYER 
  301.  
  302. â 
  303.  
  304. I ^ï┤ THEN é 
  305. S LANDPAD ELT ELV ^ê▒ 
  306.  
  307.  
  308. X Çâ 
  309. U $âç 
  310. I @Ç¢ HALMECHO THEN
  311. A OFF
  312. @Ç¢ PLAYER 
  313.  
  314. â 
  315.  
  316. I ^ï┤ THEN é 
  317. S LANDPAD ELH ELV ^ê▒ 
  318.  
  319.  
  320. X Çâ 
  321. U $âê 
  322. @Ç¢ PLAYER 
  323.  
  324. â 
  325.  
  326. I ^ï┤ THEN é 
  327. I @Çó ^êÅ THEN
  328. {
  329.  ^êÅ 
  330.  ^êÉ 
  331.  ^êæ 
  332. C RTR6
  333. â 
  334. @Ç¥ SHUT_DOWN_LOSE
  335. é 
  336. }
  337. S LANDPAD ELC ELV ^ê▒ 
  338.  
  339.  
  340. X Çâ 
  341. }
  342.  
  343.  
  344. â 
  345. â 
  346. @Ç¥ EXITSTASIS
  347.  ^ê▒ 
  348.  
  349. :OPENTHEDOOR
  350. @Ç¥ ELEVATOR_DOOR_OPEN
  351. ^ä« = $âé 
  352. ^çç = 0
  353. @Çì LANDINGAUTOELEVATORCLOSE
  354. ^Ç╢ --
  355. }
  356. { TOWERAUTOELEVATORCLOSE
  357.  
  358.  
  359.  
  360. :TOP
  361. â 
  362.  
  363.  
  364. I ^çå THEN J #Çå
  365.  
  366. I ^ä¡ = $ââ THEN é 
  367. I ^åû != $âå THEN é 
  368. I @Çí CURFIG ELT OR @Ǽ CURFIG DR7 < 450 THEN J #Çå
  369.  
  370. @Çì ELEVATOR_DOOR_CLOSE
  371. ^ä¡ = $ââ 
  372. }
  373. { CHAOSAUTOELEVATORCLOSE
  374. :TOP
  375. â 
  376. I ^çå THEN J #Çê
  377. I ^ä¡ = $ââ THEN é 
  378. I ^åû != $âç THEN é 
  379. I @Ç¡ CURFIG ELH OR @Ǽ CURFIG DR7 < 550 THEN J #Çê
  380. @Çì ELEVATOR_DOOR_CLOSE
  381. ^ä¡ = $ââ 
  382. }
  383. { CONTROLAUTOELEVATORCLOSE
  384. :TOP
  385. â 
  386. I ^çå THEN J #Çè
  387. I ^ä« = $ââ THEN é 
  388. I ^åû != $âê THEN é 
  389. I @Ç¡ CURFIG ELC OR @Ǽ CURFIG DR9 < 550 THEN J #Çè
  390. @Çì ELEVATOR_DOOR_CLOSE
  391. ^ä« = $ââ 
  392. }
  393. { LANDINGAUTOELEVATORCLOSE
  394. :TOP
  395. â 
  396. I ^çå THEN J #Çî
  397. I ^ä« = $ââ THEN é 
  398. I ^åû != $âë THEN é 
  399. I @Ç¡ CURFIG ELV OR @Ǽ CURFIG DR9 < 550 THEN J #Çî
  400. @Çì ELEVATOR_DOOR_CLOSE
  401. ^ä« = $ââ 
  402. }
  403. [ ELEVATOR_WINDOW_RESET
  404. 00:00 ^éï = 17
  405. 00:03 ^éï = 16
  406. 00:06 ^éï = 15
  407. 00:09 ^éï = 14
  408. ^éè = 6
  409. 00:12 ^éï = 13
  410. ^éè = 5
  411. 00:15 ^éï = 12
  412. ^éè = 4
  413. 00:18 ^éï = 11
  414. ^éè = 3
  415. 00:21 ^éï = 10
  416. ^éè = 2
  417. 00:24 ^éï = 9
  418. ^éè = 1
  419. ]
  420. [ ELEVATOR_TOWER_DEST
  421. 00:00 ^éï = 9
  422. ^éè = 1
  423. 00:03 ^éï = 10
  424. ^éè = 2
  425. 00:06 ^éï = 11
  426. ^éè = 3
  427. 00:09 ^éï = 12
  428. ^éè = 4
  429. 00:12 ^éï = 13
  430. ^éè = 5
  431. 00:15 ^éï = 14
  432. ^éè = 6
  433. 00:18 ^éï = 15
  434. 00:21 ^éï = 16
  435. 00:24 ^éï = 17
  436. ]
  437. [ ELEVATOR_ANIM _LEVEL
  438. ^ê▒ = @Çç `ÇÆ 100 
  439.  
  440. I ~ÇÇ < ^åû THEN
  441. {
  442.  
  443. 00:00 ^éè = 1 
  444. ^éï = 1
  445. 00:03 ^éè = 2
  446. ^éï = 2
  447. 00:06 ^éè = 3
  448. ^éï = 3
  449. 00:09 ^éè = 4
  450. ^éï = 4
  451. 00:12 ^éè = 5
  452. ^éï = 5
  453. 00:15 ^éè = 6
  454. ^éï = 6
  455. 00:18 ^éè = 1
  456. ^éï = 7
  457. 00:21 ^éè = 2
  458. ^éï = 8
  459. 00:24 ^éè = 3
  460. ^éï = 1
  461. 00:27 ^éè = 4
  462. ^éï = 2
  463. 01:00 ^éè = 5
  464. ^éï = 3
  465. 01:03 ^éè = 6
  466. ^éï = 4
  467. 01:06 ^éè = 1
  468. ^éï = 5
  469. 01:09 ^éè = 2
  470. ^éï = 6
  471. 01:12 ^éè = 3
  472. ^éï = 7
  473. 01:15 ^éè = 4
  474. ^éï = 8
  475. 01:18 ^éè = 5
  476. ^éï = 1
  477. 01:21 ^éè = 6
  478. ^éï = 2
  479. 01:24 ^éè = 1
  480. ^éï = 3
  481. 01:27 ^éè = 2
  482. ^éï = 4
  483. 02:00 ^éè = 3
  484. ^éï = 5
  485. 02:03 ^éè = 4
  486. ^éï = 6
  487. 02:06 ^éè = 5
  488. ^éï = 7
  489. 02:09 ^éè = 6
  490. ^éï = 8
  491. 02:12 ^éè = 1
  492. ^éï = 1
  493. 02:15 ^éè = 2
  494. ^éï = 2
  495. 02:18 ^éè = 3
  496. ^éï = 3
  497. 02:21 ^éè = 4
  498. ^éï = 4
  499. 02:24 ^éè = 5
  500. ^éï = 5
  501. 02:27 ^éè = 6
  502. ^éï = 6
  503. 03:00 ^éè = 1
  504. ^éï = 7
  505. 03:03 ^éè = 2
  506. ^éï = 8
  507. 03:06 ^éè = 3
  508. ^éï = 1
  509. 03:09 ^éè = 4
  510. ^éï = 2
  511. 03:12 ^éè = 5
  512. ^éï = 3
  513. 03:15 ^éè = 6
  514. ^éï = 4
  515. 03:18 ^éè = 1
  516. ^éï = 5
  517. 03:21 ^éè = 2
  518. ^éï = 6
  519. 03:24 ^éè = 3
  520. ^éï = 7
  521. 03:27 ^éè = 4
  522. ^éï = 8
  523. 04:00 ^éè = 5
  524. ^éï = 1
  525. 04:03 ^éè = 6
  526. ^éï = 2
  527. 04:06 ^éè = 1
  528. ^éï = 3
  529. 04:09 ^éè = 2
  530. ^éï = 4
  531. 04:12 ^éè = 3
  532. ^éï = 5
  533. 04:15 ^éè = 4
  534. ^éï = 6
  535. 04:18 ^éè = 5
  536. ^éï = 7
  537. 04:21 ^éè = 6
  538. ^éï = 8
  539. }
  540.  
  541. I ~ÇÇ > ^åû THEN
  542. {
  543. 00:00 ^éè = 6
  544. ^éï = 8
  545. 00:03 ^éè = 5
  546. ^éï = 7
  547. 00:06 ^éè = 4
  548. ^éï = 6
  549. 00:09 ^éè = 3
  550. ^éï = 5
  551. 00:12 ^éè = 2
  552. ^éï = 4
  553. 00:15 ^éè = 1
  554. ^éï = 3
  555. 00:18 ^éè = 6
  556. ^éï = 2
  557. 00:21 ^éè = 5
  558. ^éï = 1
  559. 00:24 ^éè = 4
  560. ^éï = 8
  561. 00:27 ^éè = 3
  562. ^éï = 7
  563. 01:00 ^éè = 2
  564. ^éï = 6
  565. 01:03 ^éè = 1
  566. ^éï = 5
  567. 01:06 ^éè = 6
  568. ^éï = 4
  569. 01:09 ^éè = 5
  570. ^éï = 3
  571. 01:12 ^éè = 4
  572. ^éï = 2
  573. 01:15 ^éè = 3
  574. ^éï = 1
  575. 01:18 ^éè = 2
  576. ^éï = 8
  577. 01:21 ^éè = 1
  578. ^éï = 7
  579. 01:24 ^éè = 6
  580. ^éï = 6
  581. 01:27 ^éè = 5
  582. ^éï = 5
  583. 02:00 ^éè = 4
  584. ^éï = 4
  585. 02:03 ^éè = 3
  586. ^éï = 3
  587. 02:06 ^éè = 2
  588. ^éï = 2
  589. 02:09 ^éè = 1
  590. ^éï = 1
  591. 02:12 ^éè = 6
  592. ^éï = 8
  593. 02:15 ^éè = 5
  594. ^éï = 7
  595. 02:18 ^éè = 4
  596. ^éï = 6
  597. 02:21 ^éè = 3
  598. ^éï = 5
  599. 02:24 ^éè = 2
  600. ^éï = 4
  601. 02:27 ^éè = 1
  602. ^éï = 3
  603. 03:00 ^éè = 6
  604. ^éï = 2
  605. 03:03 ^éè = 5
  606. ^éï = 1
  607. 03:06 ^éè = 4
  608. ^éï = 8
  609. 03:09 ^éè = 3
  610. ^éï = 7
  611. 03:12 ^éè = 2
  612. ^éï = 6
  613. 03:15 ^éè = 1
  614. ^éï = 5
  615. 03:18 ^éè = 6
  616. ^éï = 4
  617. 03:21 ^éè = 5
  618. ^éï = 3
  619. 03:24 ^éè = 4
  620. ^éï = 2
  621. 03:27 ^éè = 3
  622. ^éï = 1
  623. 04:00 ^éè = 2
  624. ^éï = 8
  625. 04:03 ^éè = 1
  626. ^éï = 7
  627. 04:06 ^éè = 6
  628. ^éï = 6
  629. 04:09 ^éè = 5
  630. ^éï = 5
  631. 04:12 ^éè = 4
  632. ^éï = 4
  633. 04:15 ^éè = 3
  634. ^éï = 3
  635. 04:18 ^éè = 2
  636. ^éï = 2
  637. 04:21 ^éè = 1
  638. ^éï = 1
  639. }
  640. ]
  641.  
  642.  
  643.  
  644.  
  645. - IN ALL LEVELS MODULE
  646. { ELEVATOR_MONITOR
  647. P ~ÇÇ 
  648. I @Çú THEN é 
  649. @Ç¢ PLAYER
  650. I @Ç¡ CURFIG DR7 OR @Ç¡ CURFIG DR9 THEN é 
  651. ~ÇÇ = ^åû 
  652. ^å░ = 0
  653.  "ELMN"
  654.  "TOWB" $Ç│ "/! " 
  655.  "KAOB" $Ç│ "/! " 
  656.  "CONB" $Ç│ "/! " 
  657.  "AIRB" $Ç│ "/! " 
  658.  "LV5B" $Ç│ "/! " 
  659.  "LV6B" $Ç│ "/! " 
  660. N ~ÇÇ 
  661. {
  662. U $âå 
  663.  "TOWB" $Ç┤ 
  664. X Çä 
  665. U $âç 
  666.  "KAOB" $Ç┤ 
  667. X Çä 
  668. U $âê 
  669.  "CONB" $Ç┤ 
  670. X Çä 
  671.  
  672.  "AIRB" $Ç┤ 
  673. X Çä 
  674. }
  675. @Çì ELEVATOR_MONITOR_LOOP
  676. N ~ÇÇ 
  677. {
  678. U $âå 
  679.  "NUML" $Ç│ "/!1" 
  680. X Çà 
  681. U $âç 
  682.  "NUML" $Ç│ "/!2" 
  683. X Çà 
  684. U $âê 
  685.  "NUML" $Ç│ "/!3" 
  686. X Çà 
  687. U $âë 
  688.  "NUML" $Ç│ "/!4" 
  689. X Çà 
  690. }
  691.  "CARA" ~ÇÇ 
  692. :LOOP
  693. â 
  694. J #Çæ 
  695. :TOWB_BUTTON
  696. @Çå `üÉ 
  697. ~ÇÇ = $âå 
  698. J #Çÿ 
  699. :KAOB_BUTTON
  700. @Çå `üÉ 
  701. ~ÇÇ = $âç 
  702. J #Çÿ 
  703. :CONB_BUTTON
  704. @Çå `üÉ 
  705. ~ÇÇ = $âê 
  706. J #Çÿ 
  707. :AIRB_BUTTON
  708. @Çå `üÉ 
  709. ~ÇÇ = $âë 
  710. J #Çÿ 
  711. :LV5B_BUTTON
  712. I @Çó ^çÉ THEN J #Çæ 
  713. @Çå `ä¡ 
  714. ^çÉ = @Çì LEVELINACCESSIBLE
  715. J #Çæ 
  716. :LV6B_BUTTON
  717. I @Çó ^çÉ THEN J #Çæ 
  718. @Çå `ä¡ 
  719. ^çÉ = @Çì LEVELINACCESSIBLE
  720. J #Çæ 
  721.  
  722. :CHANGE_LEVEL
  723. ^ê▒ = @Çç `ÇÆ 100 
  724. ^å░ = 1
  725.  "CARA" ~ÇÇ 
  726. N ~ÇÇ 
  727. {
  728. U $âå 
  729.  "NUML" "/!1" 
  730. X Çå 
  731. U $âç 
  732.  "NUML" "/!2" 
  733. X Çå 
  734. U $âê 
  735.  "NUML" "/!3" 
  736. X Çå 
  737. U $âë 
  738.  "NUML" "/!4" 
  739. X Çå 
  740. }
  741. â 
  742. â 
  743. â 
  744. N ~ÇÇ 
  745. {
  746. U $âå 
  747. @Çì SWITCHTOTOWERLEVEL
  748. X Çç 
  749. U $âç 
  750. @Çì SWITCHTOCHAOSLEVEL
  751. X Çç 
  752. U $âê 
  753. @Çì SWITCHTOCONTROLLEVEL
  754. X Çç 
  755. U $âë 
  756. @Çì SWITCHTOLANDINGLEVEL
  757. X Çç 
  758. }
  759. J #Ç¢ 
  760. :ESCAPE_BUTTON
  761. @Çå PIM_BEEP_6 
  762. :DO_NOT_CHANGE_LEVELS
  763. ^å░ = 1
  764. :DONE
  765. }
  766. [ LEVELINACCESSIBLE
  767. W 5
  768. @üì `ÇÖ $üê "COMPUTER: This level is inaccessible./FOn ne peut accéder à ce niveau./GDiese Ebene ist nicht zugänglich."
  769. i LEX ELEV
  770. ]
  771. { ELEVATOR_MONITOR_LOOP
  772. :LOOP
  773. I ^å░ > 0 THEN J #ǃ 
  774.  "FSHA" 0 
  775. â 
  776. â 
  777. I ^å░ > 0 THEN J #ǃ 
  778.  "FSHA" 1 
  779. â 
  780. â 
  781. I ^å░ > 0 THEN J #ǃ 
  782.  "FSHA" 2 
  783. â 
  784. â 
  785. I ^å░ > 0 THEN J #ǃ 
  786.  "FSHA" 1 
  787. â 
  788. â 
  789. J #Ç₧ 
  790. :DONE
  791. }
  792.  
  793.  
  794. { EXITSTASIS
  795. @Ç¢ PLAYER
  796. :STILL_IN_STASIS
  797. I @Ç╛ = 0 THEN
  798. {
  799. A ON
  800. J #Çí 
  801. }
  802. }
  803.  
  804.  
  805. [ ELEVATOR_DOOR_OPEN
  806. 00:00 ^çå = 1
  807. I ^Ǽ != 1 THEN é 
  808. @Çå `ÇÅ 
  809. ^Ǽ = 1
  810. 00:07 ^Ǽ = 2
  811. 00:13 ^Ǽ = 3
  812. 00:17 ^Ǽ = 4
  813. 00:23 ^Ǽ = 5
  814. 00:28 ^Ǽ = 6
  815. 01:04 ^Ǽ = 7
  816. 01:08 ^Ǽ = 8
  817.  ^ê¿ 50 
  818.  
  819.  
  820. 01:10 ^çå = 0
  821. ]
  822. [ ELEVATOR_ENERGY_WARNING
  823. I ^ü▓ = 1 THEN é 
  824. I @Çæ RTHAND BLASTER OR @Çæ RTHAND TONFA THEN
  825. {
  826. 00:00 ^çÜ = 
  827. @Ç║ `ä« $üê "COMPUTER: Please secure all sidearms./FVeuillez fixer solidement votre arme./GBitte sichern Sie Ihre Waffen."
  828. 03:00 ^çÜ = 
  829. @Ç║ `ä» $üê "Energy discharges in this chamber~are extremely hazardous./FLes décharges d'énergie dans cette pièce~sont extrêmement dangereuses./GEnergieentladungen in diesem Raum~sind sehr gefährlich."
  830. }
  831. ]
  832. [ ELEVATOR_DOOR_CLOSE
  833.  
  834. 00:00 I ^Ǽ != 8 THEN é 
  835. ^çå = 1
  836. @Çå `ÇÉ DR7 
  837. 00:11 ^Ǽ = 8
  838. 00:17 ^Ǽ = 7
  839. 00:23 ^Ǽ = 6
  840. 00:28 ^Ǽ = 5
  841. 01:03 ^Ǽ = 4
  842. 01:08 ^Ǽ = 3
  843. 01:13 ^Ǽ = 2
  844. 01:18 ^Ǽ = 1
  845. ^ê¿ = @Çê 
  846.  ^ê¿ 0 
  847.  
  848.  
  849. ^çå = 0
  850. ]
  851.  
  852.  
  853. //$ 26 - version number
  854.