home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / chaoscry.scp < prev    next >
Text File  |  1995-02-27  |  7KB  |  660 lines

  1.  
  2. { FIDO_WAKENS
  3. ^è╣ = 1
  4. ^ïü = 1
  5. ^ïé = 0
  6. ^ïâ = 0
  7. ^è┐ = ^è╜ 
  8. ^ïÇ = ^è╛ 
  9.  
  10. W 10 SECONDS
  11. :LOOP90
  12. I ^ïü <= 90 THEN
  13. {
  14. W 2
  15. ^ïé = ^ïü 
  16. ^ïé /= 10
  17. ^ïâ = ^ïé * 10
  18. I ^ïü == ^ïâ AND ^ïé != 9 THEN
  19. {
  20. ^è╖ ++
  21. ^è┐ = ^è┐ + 10
  22. ^ïÇ = ^ïÇ - 10
  23. ^è╕ ++
  24. I ^ïä == $üâ AND ^è╢ == 1 THEN
  25. {
  26. s "tbrs" ^è┐ 2
  27. s "fbrs" ^ïÇ 2
  28. }
  29. }
  30. {
  31. I ^ïü == ^ïâ AND ^ïé == 9 THEN
  32. {
  33. ^è╖ ++
  34. ^è┐ = ^è┐ + 10
  35. ^ïÇ = ^ïÇ - 10
  36. I ^ïä == $üâ AND ^è╢ == 1 THEN
  37. {
  38. s "tbrs" ^è┐ 2
  39. s "fbrs" ^ïÇ 2
  40. }
  41. }
  42. }
  43. I ^è╗ == $üâ THEN
  44. {
  45. I ^è╢ == 1 THEN
  46. {
  47. N ^è╖ 
  48. {
  49. U 0
  50.  "tpvl" "/!  73 K"
  51. X ÇÇ 
  52. U 1
  53.  "tpvl" "/!  82 K"
  54. X ÇÇ 
  55. U 2
  56.  "tpvl" "/!  89 K"
  57. X ÇÇ 
  58. U 3
  59.  "tpvl" "/! 103 K"
  60. X ÇÇ 
  61. U 4
  62.  "tpvl" "/! 112 K"
  63. X ÇÇ 
  64. U 5
  65.  "tpvl" "/! 125 K"
  66. X ÇÇ 
  67. U 6
  68.  "tpvl" "/! 129 K"
  69. X ÇÇ 
  70. U 7
  71.  "tpvl" "/! 143 K"
  72. X ÇÇ 
  73. U 8
  74.  "tpvl" "/! 159 K"
  75. X ÇÇ 
  76. U 9
  77.  "tpvl" $Ç┤ "/! 173 K"
  78. â 
  79. X ÇÇ 
  80.  "tpvl" "FAIL-WAKEN/FRATE-WAKEN/GFAIL-WAKEN"
  81.  
  82. N ^è╕ 
  83. {
  84. U 0
  85.  "bpml" "/!  0 BPM"
  86. X Çü 
  87. U 1
  88.  "bpml" "/! 48 BPM"
  89. X Çü 
  90. U 2
  91.  "bpml" "/! 62 BPM"
  92. X Çü 
  93. U 3
  94.  "bpml" "/! 74 BPM"
  95. X Çü 
  96. U 4
  97.  "bpml" "/! 78 BPM"
  98. X Çü 
  99. U 5
  100.  "bpml" "/! 82 BPM"
  101. X Çü 
  102. U 6
  103.  "bpml" "/! 86 BPM"
  104. X Çü 
  105. U 7
  106.  "bpml" "/! 94 BPM"
  107. X Çü 
  108. U 8
  109.  "bpml" "/!109 BPM"
  110. X Çü 
  111. U 9
  112.  "bpml" "/!118 BPM"
  113. X Çü 
  114.  "bpml" "FAIL/FRATE/GFAIL"
  115. }
  116.  
  117. }
  118.  
  119. ^ïü ++
  120. ^ïé = 0
  121. J #Çü 
  122. }
  123. ^è╡ = 0
  124. ^è║ = 1
  125. ^è╣ = 2
  126. I ^è╗ == $üâ THEN
  127. {
  128.  ^ïê 
  129.  ^ïë 
  130. }
  131. â 
  132. W 5
  133. @Çì FRZR_DOR
  134. }
  135.  
  136. { CRY_LOAD
  137. O $ÇÇ 
  138. O $Çá 
  139. I @Çû ^å│ = $üé AND ^à« = 1 THEN
  140. ^å│ = @Çç `Çù 85 
  141. I @Ç¢ FIDO THEN
  142. ┬ 
  143. }
  144. { CRY1_LOAD _RELOAD
  145. I ^à« THEN
  146. {
  147. I @Çû ^å│ THEN
  148.  ^å│ 85 
  149. ^å│ = @Çç `Çù 85 
  150. }
  151. }
  152. { CRY2_LOAD _RELOAD
  153. I ^à« THEN
  154. {
  155. I @Çû ^å│ THEN
  156.  ^å│ 85 
  157. ^å│ = @Çç `Çù 85 
  158. }
  159. }
  160. { CRY3_LOAD _RELOAD
  161. I ^à« THEN
  162. {
  163. I @Çû ^å│ THEN
  164.  ^å│ 85 
  165. ^å│ = @Çç `Çù 85 
  166. }
  167. }
  168. { CRY4_LOAD _RELOAD
  169. I ^à« THEN
  170. {
  171. I @Çû ^å│ THEN
  172.  ^å│ 220 
  173. ^å│ = @Çç `Çù 220 
  174. }
  175. }
  176. { CRY5_LOAD _RELOAD
  177. I ^à« THEN
  178. {
  179. I @Çû ^å│ THEN
  180.  ^å│ 220 
  181. ^å│ = @Çç `Çù 220 
  182. }
  183.  
  184. }
  185. [ CRYO_IRIS_OPEN
  186. 00:03 ^Çà = 2
  187. ^Çå = 2
  188. 00:05 ^Çà = 3
  189. ^Çå = 3
  190. 00:08 ^Çà = 4
  191. ^Çå = 4
  192. 00:10 ^Çà = 5
  193. ^Çå = 5
  194. 00:13 ^Çà = 6
  195. ^Çå = 6
  196. 00:16 ^Çà = 7
  197. ^Çå = 7
  198. 00:18 ^Çà = 8
  199. ^Çå = 8
  200. 00:21 ^Çà = 9
  201. ^Çå = 9
  202. 00:23 ^Çà = 10
  203. ^Çå = 10
  204. 00:26 ^Çà = 11
  205. ^Çå = 11
  206. 00:29 ^Çà = 12
  207. ^Çå = 12
  208. 01:01 ^Çà = 13
  209. ^Çå = 13
  210. 01:04 ^Çà = 14
  211. ^Çå = 14
  212. 01:07 ^Çà = 15
  213. ^Çå = 15
  214. 01:09 ^Çà = 16
  215. ^Çå = 16
  216. 01:12 ^Çà = 17
  217. ^Çå = 17
  218. 01:14 ^Çà = 18
  219. ^Çå = 18
  220. 01:17 ^Çà = 19
  221. ^Çå = 19
  222. 01:20 ^Çà = 20
  223. ^Çå = 20
  224. 01:22 ^Çà = 21
  225. ^Çå = 21
  226. 01:22 ^Çç = 1
  227. ^Çê = 0
  228. ^Çç = 1
  229. ^à» = 0
  230. ]
  231. [ CRYO_IRIS_CLOSE
  232. 00:00 ^Çç = 0
  233. 00:03 ^Çà = 20
  234. ^Çå = 20
  235. 00:05 ^Çà = 19
  236. ^Çå = 19
  237. 00:08 ^Çà = 18
  238. ^Çå = 18
  239. 00:10 ^Çà = 17
  240. ^Çå = 17
  241. 00:13 ^Çà = 16
  242. ^Çå = 16
  243. 00:16 ^Çà = 15
  244. ^Çå = 15
  245. 00:18 ^Çà = 14
  246. ^Çå = 14
  247. 00:21 ^Çà = 13
  248. ^Çå = 13
  249. 00:23 ^Çà = 12
  250. ^Çå = 12
  251. 00:26 ^Çà = 11
  252. ^Çå = 11
  253. 00:29 ^Çà = 10
  254. ^Çå = 10
  255. 01:01 ^Çà = 9
  256. ^Çå = 9
  257. 01:04 ^Çà = 8
  258. ^Çå = 8
  259. 01:07 ^Çà = 7
  260. ^Çå = 7
  261. 01:09 ^Çà = 6
  262. ^Çå = 6
  263. 01:12 ^Çà = 5
  264. ^Çå = 5
  265. 01:14 ^Çà = 4
  266. ^Çå = 4
  267. 01:17 ^Çà = 3
  268. ^Çå = 3
  269. 01:20 ^Çà = 2
  270. ^Çå = 2
  271. 01:22 ^Çà = 1
  272. ^Çå = 1
  273. ^Çê = 1
  274. ^à» = 0
  275. ]
  276. { KILL_CURFIG
  277. }
  278.  
  279. { CRYO_BTN_USE
  280. P ~ÇÇ 
  281. I @Çä NOTIN 55 130 THEN é 
  282. A OFF
  283. M PUSH_BUTTON CONTINUE
  284. W 15
  285. @Çå `Çì 125 -2048 
  286. A ON
  287. I @Ç¢ FIDO = $üâ THEN
  288. {
  289. I ^îù = $üé AND @Ç▒ CURFIG AVD_IRIS < 225 THEN
  290. {
  291. @üì `襠$üê "COMPUTER: Error! Movement detected~on iris hatch./FErreur ! Mouvement détecté~sur la surface de la porte iris./GFehler! Bewegung auf der Abdeckung entdeckt." 
  292. é 
  293. }
  294. }
  295. @Ç¢ PLAYER 
  296. I ^à« = 1 THEN
  297. {
  298. @üì `èæ $üê "COMPUTER: Iris hatch cannot be operated~while CryoHydrant in use/GIristür kann nicht benutzt werden,~solange Kryohydrant aktiv ist./FLa porte Iris est inutilisable tant~que la prise Cryo est en service." 
  299. é 
  300. }
  301. I ^à» = 1 THEN é 
  302. I ^à¡ = 0 THEN J #Çî 
  303. I ^à¡ = 1 THEN J #Çì 
  304. :OPEN_IRIS
  305. @Çå `Çû 150 2048 
  306. I @Ç¢ FIDO = $üâ THEN
  307. {
  308. I ^îò <= ^îÖ THEN
  309. {
  310. I ^= 0 THEN 
  311. {
  312. ¥ AVD_IRIS 225
  313. ^= 1
  314. }
  315. }
  316. }
  317. ^à» = 1
  318.  
  319. @Çì CRYO_IRIS_OPEN
  320.  
  321.  
  322. I ^îù = $üâ THEN
  323. @Çì FIDO_BITES_IT
  324. W 20
  325.  
  326. ^Çæ = $âé 
  327. ^ÇÆ = $âé 
  328. ^Çô = $âé 
  329. ^Çö = $âé 
  330. ^Çò = $âé 
  331. ^à¡ = 1
  332. é 
  333. :CLOSE_IRIS
  334. @Çå `ïì 150 2048 
  335. ^à» = 1
  336. ^Çç = 21
  337. @Çì CRYO_IRIS_CLOSE
  338. W 20
  339. ^Çæ = $âä 
  340. ^ÇÆ = $âä 
  341. ^Çô = $âä 
  342. ^Çö = $âä 
  343. ^Çò = $âä 
  344. ^à¡ = 0
  345. I @Ç¢ FIDO = $üâ THEN
  346. I ^THEN 
  347. {
  348. ₧ AVD_IRIS
  349. ^= 0
  350. }
  351. }
  352. { DOCRYOWARNING
  353. ó CRY1 CRY2 CRY3 CRY4 CRY5
  354. W 5 SECONDS
  355. :WAIT
  356.  @Ç║ `è₧ $üê "COMPUTER: Warning! Cryo fluids low.~Situation critical./FAlerte : Niveau des liquides Cryo insuffisant.~Situation critique./GWarnung: Kryoflüssigkeitsstand niedrig.~Situation kritisch." 
  357. @Ç║ `胠$üê "Conditions in chamber #1 are destabilizing.~Please correct./FConditions en salle #1 déstabilisantes.~Veuillez les rectifier./GBedingungen in Kammer 1 instabil.~Bitte eingreifen." 
  358. W 20 SECONDS
  359. J #ÇÅ 
  360. }
  361.  
  362. { TRN_VLV_USE
  363.  
  364. I @Çä NOTIN 70 110 THEN é 
  365.  
  366. I ^à¡ = 0 THEN
  367. {
  368.  
  369. G -57 -292 -21
  370. M VALVE_TURN CONTINUE
  371. @üì `èÆ $üê "COMPUTER: CryoHydrant cannot be operated~while iris hatch is closed/GKryohydrant kann nicht benutzt werden,~wenn Iristür geschlossen ist./FLa PriseCryo est inutilisable~tant que la porte Iris est fermée." 
  372. é 
  373. }
  374. I ^à« = 0 THEN J #Çæ 
  375. I ^à« = 1 THEN J #ÇÆ 
  376. é 
  377. :STRT_POUR
  378. ^ǃ = 1
  379. ^à« = 2
  380. G -57 -292 -21
  381. M VALVE_TURN CONTINUE
  382. â 
  383. W 15
  384. @Çå `Ç┤ 
  385. W 20
  386. ^å│ = @Çç `Çù 
  387. @Ç¥ START_POUR
  388.  
  389.  
  390.  
  391.  
  392. ^à░ = 0
  393. ^à« = 1
  394. I ^è╣ = 0 AND ^ǃ = 1 THEN
  395. I @Çó ^Ç₧ = $üé THEN
  396. ^Ç₧ = @Çì DOCRYOWARNING
  397. ^Çä = @Çì POUR_LOOP
  398. @Çì NZL_FRZ
  399. I ^îû == 1 AND ^å╢ == 0 THEN
  400. {
  401.  
  402. @Çå `䃠200 
  403. ^å╢ = 1
  404. ^Ç│ = 1
  405. ^Ç┤ = 1
  406. }
  407. é 
  408. :STOP_POUR
  409. ^à« = 2
  410. ^å¿ = @Çà 1 8 
  411. I ^å¿ = 1 THEN @Çå `Ç┤ 255 -2048 
  412. I ^å¿ = 2 THEN @Çå `Ç┤ 255 2048 
  413. @Çå `Ç┤ 255 0 
  414. M VALVE_TURN CONTINUE
  415. â 
  416. W 20
  417.  `䃠
  418. ^à░ = 1
  419.  ^Çä 
  420. @Ç¥ QUIT_POUR
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  ^å│ 
  432. ^Çë = 0
  433. ^à« = 0
  434. }
  435.  
  436. { FRZR_DOR
  437. I ^༠= 1 THEN é 
  438.  
  439. @Ç¢ LEX 
  440.  
  441. A OFF
  442.  
  443. C CRY3
  444. @Çå `Ç░ 
  445. W 45
  446. @Çå `ǽ 
  447. O $Çå 
  448. :CRYO_DR_LOOP
  449. ^éÇ ++
  450. â 
  451. I ^éÇ = 6 THEN @Çå `Ç▓ 
  452. I ^éÇ < 16 THEN J #Çö 
  453. ^éÇ = 0
  454. ^éâ = 1
  455. ^éà = 0
  456. ^éä = 1
  457. ^ÇÄ = $ââ 
  458. ^ÇÅ = $ââ 
  459. ^ÇÉ = $ââ 
  460.  
  461.  
  462. ^à▓ = 0
  463. ^༠= 1
  464. A ON
  465. @Çå `Ç▒ 
  466.  
  467. @Ç¥ JUMPFIDOOUT
  468. }
  469. { JUMPFIDOOUT
  470. I @Ç¢ FIDO = $üé THEN
  471. {
  472. ! "Can't find FIDO!"
  473. é 
  474. }
  475.  
  476. I @Çó ^Ç₧ THEN
  477. {
  478.  ^Ç₧ 
  479. ^Ç₧ = $âà 
  480. }
  481. A OFF
  482. Y CRY1 CRY2 CRY3 CRY4 CRY5
  483. ^Çì = $âä 
  484. £ 180
  485. G FOR_TREX
  486. â 
  487. M JUMP_OUT
  488. ^Çì = $ââ 
  489. C UNLOCK
  490. M ROAR
  491. ï PLAYER
  492. è ON
  493. ┬ 
  494. A ON
  495. ^è╣ = 3
  496. I ^= 0 THEN 
  497. {
  498. ¥ AVD_HTCH 225
  499. ^= 0
  500. }
  501. }
  502.  
  503. [ ANIMCRYO
  504. ó CRY1 CRY2 CRY3 CRY4 CRY5
  505. :CRYOLOOP
  506. 00:00 ^éÉ = 1
  507. 00:02 ^éÉ = 2
  508. 00:04 ^éÉ = 3
  509. 00:06 ^éÉ = 4
  510. 00:08 ^éÉ = 5
  511. 00:08 ò 
  512. J #Çù 
  513. ]
  514. [ START_POUR
  515. 00:00 ^Çë = 1
  516. 00:02 ^Çë = 2
  517. ]
  518. [ QUIT_POUR
  519. 00:00 ^Çë = 15
  520. 00:02 ^Çë = 16
  521. 00:04 ^Çë = 17
  522. 00:06 ^Çë = 18
  523. 00:08 ^Çë = 19
  524. 00:19 ^Çë = 0
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531.  
  532.  
  533.  
  534.  
  535. ]
  536.  
  537. [ POUR_LOOP
  538.  
  539. :LOOP_POUR
  540. I ^à░ = 1 THEN 
  541. {
  542. ^Çë = 0 
  543. é 
  544. }
  545. 00:00 ^Çë = 3
  546. 00:02 ^Çë = 4
  547. 00:04 ^Çë = 5
  548. 00:06 ^Çë = 6
  549. 00:08 ^Çë = 7
  550. 00:10 ^Çë = 8
  551. 00:12 ^Çë = 9
  552. 00:14 ^Çë = 10
  553. 00:16 ^Çë = 11
  554. 00:18 ^Çë = 12
  555. 00:20 ^Çë = 13
  556. 00:22 ^Çë = 14
  557. 00:22 ò 
  558. J #Ç¢ 
  559. ]
  560.  
  561. [ NZL_FRZ
  562. I ^ü╡ == 29 THEN é 
  563. ^ü╡ = 19
  564. ^Çï = 0
  565. 00:00 ^ü╡ = 20
  566. ^Çï = 1
  567. 00:05 ^ü╡ = 21
  568. ^Çï = 2
  569. 00:10 ^ü╡ = 22
  570. ^Çï = 3
  571. 00:15 ^ü╡ = 23
  572. ^Çï = 4
  573. 00:20 ^ü╡ = 24
  574. ^Çï = 5
  575. 00:25 ^ü╡ = 25
  576. ^Çï = 6
  577. 01:00 ^ü╡ = 26
  578. ^Çï = 7
  579. 01:05 ^ü╡ = 27
  580. ^Çï = 8
  581. 01:10 ^ü╡ = 28
  582. ^Çï = 9
  583. 01:15 ^ü╡ = 29
  584. ^Çï = 10
  585. ^Çè = 1
  586. ]
  587.  
  588. { FLATLINE
  589. ^ïà = 1
  590. :FLAT_LOOP
  591. I ^è╗ == $üâ THEN
  592. {
  593.  
  594. I ^ïà >= 31 THEN
  595. ^ïà = 1
  596.  
  597. I ^ïä == $üâ THEN
  598. {
  599.  
  600. I ^è║ == 1 THEN
  601. {
  602.  "hbra" 1
  603.  "ftla" ^ïà 
  604. }
  605. }
  606. }
  607. W 7
  608. ^ïà ++
  609. J #Ç₧ 
  610. }
  611. { BEATLINE
  612. ^ïå = 1
  613. ^ïç = 10
  614. :BEAT_LOOP
  615. I ^è╗ == $üâ THEN
  616. {
  617.  
  618. I ^ïå >= 31 THEN
  619. ^ïå = 1
  620.  
  621. I ^ïä == $üâ THEN
  622. {
  623.  
  624. I ^è║ == 0 THEN
  625. {
  626.  "hbra" 1
  627.  "beta" ^ïå 
  628. ^ïç = 10 - ^è╕ 
  629. }
  630. }
  631. }
  632. I ^ïç <= 2 THEN
  633. {
  634. ^ïç = 2
  635. }
  636. W ^ïç 
  637. ^ïå ++
  638. I ^ïå = 6 OR ^ïå = 14 OR ^ïå = 21 THEN @Çå `éé 
  639. I ^ïå = 8 OR ^ïå = 16 OR ^ïå = 23 THEN @Çå `éé 255 -1024 
  640. â 
  641. J #Çá 
  642. }
  643.  
  644.  
  645. //$ 26 - version number
  646.