home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / shutdown.scp < prev    next >
Text File  |  1995-02-23  |  5KB  |  431 lines
  1. { RTR_MON_USE
  2. ^Ç╢ ++
  3. I @Çä IN -60 60 THEN
  4. {
  5. £ RTRMNLOC GRADUAL
  6. M LOOK_CONSOLE
  7. @Ç¥ RR_CENTRALCONTROLPANEL
  8. â 
  9. M STAND CONTINUE
  10. }
  11. ^Ç╢ --
  12. }
  13.  
  14. { RR_CENTRALCONTROLPANEL
  15. P ~ÇÇ 
  16. ~ÇÇ = 0
  17. ^êÆ = 0
  18.  
  19.  RTRM
  20.  
  21. m 
  22.  
  23. I ^êÇ = 1 THEN
  24. {
  25.  "1psa" ^êè 
  26.  "2psa" ^êï 
  27.  "3Psa" ^êî 
  28.  "4psa" ^êì 
  29. }
  30.  
  31. I ^åâ = 0 THEN
  32. {
  33. ^êç = 1
  34. }
  35. E 
  36. {
  37. ^êç = 0
  38.  LPEA 1
  39.  LPEL "DISENGAGED/GABGESCHALTET/FDEGAGE" 
  40. }
  41.  
  42. I ^åä = 0 THEN
  43. {
  44. ^êê = 1
  45. }
  46. E 
  47. {
  48. ^êê = 0
  49.  RPEA 1
  50.  RPEL "DISENGAGED/GABGESCHALTET/FDEGAGE" 
  51. }
  52. I ^êç = 1 OR ^êê = 1 THEN
  53. {
  54. I ^êë = 0 THEN
  55. ^êÆ = @Çì PYLON_STROBE
  56. }
  57.  "CD1B" $Ç│ "1" $Ç╕ 
  58.  "CD2B" $Ç│ "2" $Ç╕ 
  59.  "CD3B" $Ç│ "3" $Ç╕ 
  60.  "CD4B" $Ç│ "4" $Ç╕ 
  61.  "CD5B" $Ç│ "5" $Ç╕ 
  62.  LPTL "LEFT POWER TRANSFER PYLON/GLINKER ENERGIE-PYLON/FPYLONE DE TRANSFERT GAUCHE"
  63.  RPTL "RIGHT POWER TRANSFER PYLON/GRECHTER ENERGIE-PYLON/FPYLONE DE TRANSFERT DROIT" 
  64. :SHOW_PDB
  65. I ^ï│ = 1 THEN
  66. {
  67.  PRDB $Ç╣ 
  68.  PRCL $Ç╣ "POWER/GENERGIE/FENERGIE" 
  69.  PDNL $Ç╣ "DOWN/GAUS/FBAS" 
  70. }
  71. E 
  72. {
  73.  PRDB $Ç╖ 
  74.  PRCL $Ç╖ "POWER/GENERGIE/FENERGIE"
  75.  PDNL $Ç╖ "DOWN/GAUS/FBAS" 
  76. }
  77. :MAIN
  78. â 
  79.  
  80. J #Çâ 
  81. :PRDB_BUTTON
  82. @Çå `ä¼ 
  83.  
  84. I ^êÇ = 1 THEN
  85. {
  86. @Ç║ `âÆ $üê "COMPUTER: Immediate critical situation nullified./GKritische Situation abgewendet./FSituation critique annulée." 
  87. J #Çì 
  88. }
  89.  
  90. I ^åä = 1 AND ^åâ = 1 THEN
  91. {
  92.  
  93.  ^êÅ 
  94.  ^êÉ 
  95.  ^êæ 
  96. ^êÇ = 1
  97. I ^êÆ != 0 THEN
  98.  ^êÆ 
  99.  
  100.  
  101.  
  102.  
  103. @Ç¢ PLAYER
  104. A OFF
  105. ║ ON
  106. ^êë = 0
  107. C RTR6
  108. â 
  109. @Çì SHUT_DOWN_WIN 
  110. J #Çì 
  111. }
  112. J #Çâ 
  113.  
  114. :ACCESS_INIT
  115. ^êó = 1
  116. ^êá = 0
  117. ^êû = -1
  118. ^êù = -1
  119. ^êÿ = -1
  120. ^êÖ = -1
  121. ^êÜ = -1
  122. J #Çâ 
  123.  
  124. :SCLB_BUTTON
  125. @Çå `ü» 
  126. J #Çà 
  127. :CD1B_BUTTON
  128. @Çå `ü░ 
  129. c ~ÇÇ 1
  130. J #Çî 
  131. :CD2B_BUTTON
  132. @Çå `ü░ 
  133. c ~ÇÇ 2
  134. J #Çî 
  135. :CD3B_BUTTON
  136. @Çå `ü░ 
  137. c ~ÇÇ 3
  138. J #Çî 
  139. :CD4B_BUTTON
  140. @Çå `ü░ 
  141. c ~ÇÇ 4
  142. J #Çî 
  143. :CD5B_BUTTON
  144. @Çå `ü░ 
  145. c ~ÇÇ 5
  146. J #Çî 
  147.  
  148. :CHECK_ACCESS_CODE
  149.  
  150. I ~ÇÇ == ^ï▒ THEN
  151. {
  152.  
  153. ^ï│ = 1
  154. }
  155. E 
  156.  
  157. ^ï│ = 0
  158. J #Çé 
  159.  
  160. :ESCAPE_BUTTON
  161. @Çå `ü▓ 
  162. I ^êÆ != 0 THEN
  163.  ^êÆ 
  164. ^êÆ = 0
  165. ^êë = 0
  166.  
  167. }
  168. { REACTORDETONATIONTIMER
  169. ^êÅ = @Çì RDTDIGIT1N2
  170. ^êÉ = @Çì RDTDIGIT3
  171. ^êæ = @Çì RDTDIGIT4
  172. B `âå 
  173.  
  174. B `âê `âë 
  175. B `âè `âï 
  176. B `âî `âì 
  177. B `âÄ `âÅ 
  178. B `âÉ 
  179. :LOOP
  180.  
  181.  "1psa" ^êè 
  182.  "2psa" ^êï 
  183.  "3psa" ^êî 
  184.  "4psa" ^êì 
  185. â 
  186. I ^êä = 3 THEN
  187. {
  188.  
  189.  ^êÅ 
  190.  ^êÉ 
  191.  ^êæ 
  192. I ^êÆ != 0 THEN
  193.  ^êÆ 
  194.  
  195. ^êë = 0
  196. C RTR6
  197. â 
  198. A OFF
  199. @Ç¥ EXITMONITOR
  200.  @Çì SHUT_DOWN_LOSE 
  201. é 
  202. }
  203. J #ÇÅ 
  204. }
  205.  
  206. [ RDTDIGIT1N2
  207. P ~ÇÇ 
  208. ^êè = 10 
  209. :LOOP
  210. 00:00 ^êï = 10
  211.  
  212. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  213. {
  214. I @ÇÄ RTR OR @ÇÄ AIR THEN
  215. {
  216. @Ç║ `âê $üê "COMPUTER: 9/F9" 
  217. 00:05 @Çå `âê 100 
  218. }
  219. }
  220. 01:00 ^êï = 9
  221. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  222. {
  223. I @ÇÄ RTR OR @ÇÄ AIR THEN
  224. {
  225. @Ç║ `âë $üê "/!8"
  226. 01:05 @Çå `âë 100 
  227. }
  228. }
  229. 02:00 ^êï = 8
  230. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  231. {
  232. I @ÇÄ RTR OR @ÇÄ AIR THEN
  233. {
  234. @Ç║ `âè $üê "/!7"
  235. 02:05 @Çå `âè 100 
  236. }
  237. }
  238. 03:00 ^êï = 7
  239. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  240. {
  241. I @ÇÄ RTR OR @ÇÄ AIR THEN
  242. {
  243. @Ç║ `âï $üê "/!6"
  244. 03:05 @Çå `âï 100 
  245. }
  246. }
  247. 04:00 ^êï = 6
  248. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  249. {
  250. I @ÇÄ RTR OR @ÇÄ AIR THEN
  251. {
  252. @Ç║ `âî $üê "/!5"
  253. 04:05 @Çå `âî 100 
  254. }
  255. }
  256. I ^êè = 2 THEN
  257. {
  258.  
  259.  
  260. }
  261. 05:00 ^êï = 5
  262. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  263. {
  264. I @ÇÄ RTR OR @ÇÄ AIR THEN
  265. {
  266. @Ç║ `âì $üê "/!4"
  267. 05:05 @Çå `âì 100 
  268. }
  269. }
  270. 06:00 ^êï = 4
  271. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  272. {
  273. I @ÇÄ RTR OR @ÇÄ AIR THEN
  274. {
  275. @Ç║ `âÄ $üê "/!3"
  276. 06:05 @Çå `âÄ 100 
  277. }
  278. }
  279. 07:00 ^êï = 3
  280. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  281. {
  282. I @ÇÄ RTR OR @ÇÄ AIR THEN
  283. {
  284. @Ç║ `âÅ $üê "/!2"
  285. 07:05 @Çå `âÅ 100 
  286. }
  287. }
  288. 08:00 ^êï = 2
  289. I ^êè = 1 AND @Çó ~ÇÇ = $üé THEN
  290. {
  291. I @ÇÄ RTR OR @ÇÄ AIR THEN
  292. {
  293. @Ç║ `âÉ $üê "/!1"
  294. 08:05 @Çå `âÉ 100 
  295. }
  296. }
  297. 09:00 ^êï = 1
  298. 10:00 I ^êè == 1 THEN J #ÇÆ 
  299.  
  300.  
  301. I ^êè == 4 THEN
  302. {
  303. I @ÇÄ RTR OR @ÇÄ AIR THEN
  304. {
  305. @Ç║ `âå $üê "Warning: Reactor will achieve critical state in ~30 seconds!/GWarnung: Reaktor erreicht in 30 Sekunden~kritischen Zustand!/FALERTE ! Réacteur atteindra le~point critique dans 30 secondes !" 
  306. 10:05 @Çå `âå 100 
  307. }
  308. }
  309. ^êè --
  310. ò 
  311. J #Çæ 
  312. :DETONATE
  313. ^êä = 1
  314. é 
  315. ]
  316.  
  317. [ RDTDIGIT3
  318.  
  319. :LOOP
  320. 00:00 ^êî = 10
  321. @Çå `ü¡ CL1 
  322. 00:01 @Çå `è░ 150 
  323. 00:03 ^êî = 9
  324. 00:06 ^êî = 8
  325. 00:09 ^êî = 7
  326. @Çå `è░ 75 
  327. 00:12 ^êî = 6
  328. 00:15 ^êî = 5
  329. 00:18 ^êî = 4
  330. 00:21 ^êî = 3
  331. 00:24 ^êî = 2
  332. 00:27 ^êî = 1
  333. 01:00 I ^êä = 1 THEN
  334. ^êä = 2
  335. E 
  336. {
  337. ò 
  338. J #Çö 
  339. }
  340. ]
  341.  
  342.  
  343. { RDTDIGIT4
  344.  
  345. :LOOP
  346. I ^êä != 2 THEN
  347. {
  348. ^êì = @Çà 1 10 
  349. â 
  350. J #Çû 
  351. }
  352. E 
  353. {
  354. ^êì = 1
  355. ^êä = 3
  356. }
  357. }
  358. { PYLON_STROBE
  359. P ~ÇÇ 
  360. P ~Çü 
  361. ~ÇÇ = 1
  362. ~Çü = 1
  363. ^êë = 1
  364. :PYLON_TOP
  365. I ^êç = 1 THEN
  366. {
  367.  LPEA ~ÇÇ 
  368.  LPEL "ENGAGED/GAN/FAMORCE" 
  369. }
  370. I ^êê = 1 THEN
  371. {
  372.  RPEA ~Çü 
  373.  RPEL "ENGAGED/GAN/FAMORCE" 
  374. }
  375.  
  376. â 
  377. ~ÇÇ ++
  378. ~Çü ++
  379. I ~ÇÇ = 5 THEN ~ÇÇ = 1
  380. I ~Çü = 5 THEN ~Çü = 1
  381. J #Çÿ 
  382. }
  383.  
  384.  
  385. [ SHUT_DOWN_WIN
  386. P ~ÇÇ 
  387. P ~Çü 
  388. P ~Çé 
  389. 00:00 @Çè ^êâ +1 0 30 5 
  390. @Ç¢ PLAYER
  391.  
  392.  
  393. 00:15 ~ÇÇ = @Çå `à╡ 
  394. 01:00 ~Çü = @Çå `à╡ 255 -1024 
  395. 01:25  ~ÇÇ 
  396. 02:00  ~Çü 
  397. 02:10 ~Çé = @Çå `ü╡ 
  398. @Çï ~Çé 10000 60 
  399. 04:10  ~Çé 
  400. 05:05 C UNLOCK
  401. 05:15 @Ç║ `âÆ $üê "COMPUTER: Immediate critical situation nullified./GKritische Situation abgewendet./FSituation critique annulée." 
  402. A ON
  403. ║ OFF 
  404. 05:20 @Çå `âÆ 200 
  405. 10:00 i LEX REACTOL
  406. ]
  407. [ SHUT_DOWN_LOSE
  408. P ~ÇÇ 
  409. P ~Çü 
  410.  
  411. 00:00 @Çè ^êâ +1 0 20 5 
  412. ^ê¿ = @Çê 
  413.  ^ê¿ 255 
  414. @Çï ^ê¿ 10000 105 
  415. @Ç¢ PLAYER
  416. A OFF 
  417. 00:15 ~ÇÇ = @Çå `à╡ 
  418. 01:00 ~Çü = @Çå `à╡ 255 -1024 
  419. 01:25  ~ÇÇ 
  420. 02:00  ~Çü 
  421. 03:15 @Çå `ǽ 255 2048 
  422. ^ê¿ = @Çê 
  423.  ^ê¿ 0 
  424. 03:25 Ü 63 63 63 100
  425. C SHOW RTRW
  426. 03:26 @Çì KILLLEX
  427. ]
  428.  
  429.  
  430. //$ 26 - version number
  431.