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