home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / tunroom.scp < prev    next >
Text File  |  1995-02-23  |  4KB  |  398 lines
  1.  
  2. { TUNROOM_LOAD
  3. ^åû = $âè 
  4.  
  5.  
  6. @Ç¢ PLAYER
  7. I @Ç⌐ LEXMIR THEN
  8. {
  9. ^àï = @Çì REFLECTBATTDRAIN
  10. }
  11.  
  12. I ^ï¿ = 1 THEN
  13. ^Åì = @Çì BIOREPAIR
  14.  
  15. ^ï║ = 0
  16. ^ï╜ = 0
  17.  
  18.  
  19. I ^ì╖ THEN
  20. {
  21. I @Ç¢ TMP_MAR_1 THEN
  22. {
  23. I .ÇéÇÇ > 0 THEN
  24. {
  25. o 
  26. G WANDER11
  27. :STILL_IN_STASIS_MAR1
  28. A ON
  29. I @Ç╛ = 0 THEN
  30. J #Çü 
  31. M STAND CONTINUE
  32. }
  33. }
  34. I @Ç¢ TMP_MAR_2 THEN
  35. {
  36. I .ÇéÇÇ > 0 THEN
  37. {
  38. o 
  39. G WANDER21
  40. :STILL_IN_STASIS_MAR2
  41. A ON
  42. I @Ç╛ = 0 THEN
  43. J #Çé 
  44. M STAND CONTINUE
  45. }
  46. }
  47. I @ÇÜ GRENADE THEN
  48. ┤ 
  49. ^ì« = 0
  50. ^ì» = 0
  51. ^ì╡ = 0
  52. ^ì¼ = 0
  53. ^ì┤ = 0
  54. I ^쬠== 2 THEN
  55. ^쬠= 1
  56.  
  57.  
  58. I ^ìú == $âô THEN 
  59. {
  60. ^ì½ = $üé 
  61. ^ì¿ = 1
  62. ^ìñ = 0
  63. I ^쪠!= $ââ THEN ^쪠= $ââ 
  64. I ^캠!= $âä THEN ^캠= $âä 
  65. }
  66. E I ^ìú >= 22 THEN 
  67. {
  68. ^ì½ = $üâ 
  69. I ^쪠!= $âä THEN ^쪠= $âä 
  70. I ^캠!= $âé THEN ^캠= $âé 
  71. }
  72.  
  73.  
  74. E I ^ìÑ THEN
  75. {
  76. ^ì½ = $üâ 
  77. I ^쪠!= $âä THEN ^쪠= $âä 
  78. I ^캠!= $âé THEN ^캠= $âé 
  79. }
  80. E 
  81. {
  82. ^ì½ = $üé 
  83. ^ì¿ = 1
  84. ^ìñ = 0
  85. I ^쪠!= $ââ THEN ^쪠= $ââ 
  86. I ^캠!= $âä THEN ^캠= $âä 
  87. }
  88. }
  89. @Çì REREADY_SHRIMP3 
  90. @Çì ZEROG_ROOM
  91. @Çì ZEROG_GRAVITY
  92. @Çì ZEROG_TURNING
  93. @Çì TEMPLE_TUBE_ANI
  94. @Çì BOBINGLIGHTS
  95. I ^ìÑ != 0 THEN
  96. ^ìÑ = @Çì LIGHT_ANIM
  97. I ^å« = 1 THEN
  98. {
  99. G TO_DIGS
  100. }
  101. I ^å« = 2 THEN
  102. {
  103. G ZERO_G2
  104. C ZEG3
  105. }
  106. I ^ïÅ = 0 THEN
  107. {
  108. O $Çê 
  109. ^ïÅ = 1
  110. }
  111. ^ê╣ = 100
  112. }
  113. { TUN_LOAD
  114.  
  115. M STAND CONTINUE
  116. }
  117.  
  118. { TO_DIGS_USE
  119. I @ÇÅ ^é░ 4 != 1 THEN
  120. é 
  121. ║ ON
  122. A OFF
  123. è OFF
  124. I @Ç╗ CURFIG DIG_PT > $⢠THEN
  125. {
  126. G DIG_PT WALK $⢠
  127. G DIG_PT 
  128. }
  129. E 
  130. G DIG_PT 
  131. £ DIG_FACE GRADUAL
  132. £ DIG_FACE
  133. @Ç¥ LEAVETUBEROOM
  134. ^å¡ = 2
  135. ║ OFF
  136. A ON
  137. S DIGSITE DTUBE_PT
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144. }
  145. { TO_0G_USE
  146. P ~ÇÇ 
  147. I @ÇÅ ^é░ 2 != 1 THEN
  148. é 
  149. ║ ON
  150. A OFF
  151. I @Ç╗ CURFIG ZG_PT > $⢠THEN
  152. {
  153. G ZG_PT WALK $⢠
  154. G ZG_PT 
  155. }
  156. E 
  157. G ZG_PT
  158.  
  159. C TUN2
  160. £ ZG_FACE GRADUAL
  161. £ ZG_FACE
  162. @Ç¥ LEAVETUBEROOM
  163. A ON
  164.  
  165.  
  166. Z CURFIG OFF
  167. u CURFIG OFF
  168. o 
  169. G GFROMTUN
  170. u CURFIG ON 
  171. £ 85
  172. r CURFIG ON
  173.  
  174. R CURFIG 0 -4
  175. è OFF
  176. ║ OFF
  177. æ ZEROG_KEYBOARD
  178. }
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185. { TO_GRAV_USE
  186. I @ÇÅ ^é░ 3 != 1 THEN
  187. é 
  188. ║ ON
  189. A OFF
  190. I @Ç╗ CURFIG GRV_PT > $⢠THEN
  191. {
  192. G GRV_PT WALK $⢠
  193. G GRV_PT 
  194. }
  195. E 
  196. G GRV_PT
  197. £ GRV_FACE GRADUAL
  198. £ GRV_FACE
  199. @Ç¥ LEAVETUBEROOM
  200. A ON
  201. G FROM_TUN
  202. ║ OFF
  203. }
  204. { TO_TMPL_USE
  205. I @ÇÅ ^é░ 1 != 1 OR ^쪠= $ââ THEN
  206. é 
  207. ║ ON
  208. A OFF
  209. I @Ç╗ CURFIG TMP_PT > $⢠THEN
  210. {
  211. G TMP_PT WALK $⢠
  212. G TMP_PT
  213. }
  214. E 
  215. G TMP_PT
  216. £ TMP_FACE GRADUAL
  217. £ TMP_FACE
  218.  
  219. I @Ç¢ TMP_MAR_1 THEN
  220. {
  221. I .ÇéÇÇ > 0 THEN
  222. {
  223. @Ç¢ PLAYER
  224. @Ç¥ TUBETOTMPVSGRENADE
  225.  
  226. }
  227. E 
  228. {
  229. I @Ç¢ TMP_MAR_2 THEN
  230. {
  231. I .ÇéÇÇ > 0 THEN
  232. {
  233. @Ç¢ PLAYER
  234. @Ç¥ TUBETOTMPVSGRENADE
  235.  
  236. }
  237. E 
  238. {
  239. @Ç¢ PLAYER
  240. @Ç¥ LEAVETUBEROOM
  241. }
  242. }
  243.  
  244.  
  245. }
  246. }
  247.  
  248.  
  249. @Ç¢ PLAYER
  250.  
  251. Z CURFIG OFF
  252. G TO_TEMP
  253. ║ OFF
  254. Z CURFIG ON
  255.  
  256. I @Ç⌐ LEXMIR = $üé THEN
  257. {
  258. A OFF
  259. ║ ON
  260. W 20
  261. M CHOKE
  262. o 
  263. W 1 SECOND
  264. @Ç¥ KILLLEX
  265. é 
  266. }
  267. A ON
  268. ^쪠= $âä 
  269. }
  270.  
  271. { TO_TMPL_GRENADE_USE
  272. M GRENADE_TOSS
  273. }
  274. { TO_GRAV_GRENADE_USE
  275. M GRENADE_TOSS
  276. }
  277. { TO_0G_GRENADE_USE
  278. M GRENADE_TOSS
  279. }
  280. { TO_DIGS_GRENADE_USE
  281. M GRENADE_TOSS
  282. }
  283.  
  284. { TO_TUN
  285.  ^äë 
  286. ñ CURFIG
  287. @Ç¥ ENTERTUBEROOM 1
  288. G TO_GRAV
  289. A ON
  290. }
  291. { TO_BCH
  292.  
  293. ^å¼ = 0
  294. S BEACH FROM_TPL
  295.  
  296. }
  297.  
  298. [ TEMPLE_TUBE_ANI
  299. ó TUN1 TUN2
  300. :TOP
  301. I @ÇÅ ^é░ 1 THEN
  302. {
  303. I ^쪠= $âä THEN
  304. {
  305. ^é▒ = 1
  306. ^é╗ = 1
  307. }
  308. E 
  309. {
  310. 00:10 ^é▒ = 0
  311. ^é╗ = 0
  312. 00:20 ^é▒ = 1
  313. ^é╗ = 1
  314. @Çå `èÇ 100 -2048 
  315. }
  316. }
  317. E 
  318. {
  319. ^é▒ = 0
  320. ^é╗ = 0
  321. }
  322. 00:20 ò 
  323. J #ÇÅ
  324. ]
  325. [ BOBINGLIGHTS
  326. ó TUN1 TUN2
  327. :TOP
  328. 00:00 ^âà = 1
  329. ^âå = 1
  330. 00:02 ^âà = 2
  331. ^âå = 2
  332. 00:04 ^âà = 3
  333. ^âå = 3
  334. 00:06 ^âà = 4
  335. ^âå = 4
  336. 00:08 ^âà = 5
  337. ^âå = 5
  338. 00:10 ^âà = 6
  339. ^âå = 6
  340. 00:12 ^âà = 7
  341. ^âå = 7
  342. 00:14 ^âà = 8
  343. ^âå = 8
  344. 00:16 ^âà = 9
  345. ^âå = 9
  346. 00:18 ^âà = 10
  347. ^âå = 10
  348. 00:20 ^âà = 11
  349. ^âå = 11
  350. 00:22 ^âà = 12
  351. ^âå = 12
  352. 00:24 ^âà = 13
  353. ^âå = 13
  354. 00:26 ^âà = 14
  355. ^âå = 14
  356. 00:28 ^âà = 15
  357. ^âå = 15
  358. 01:00 ^âà = 16
  359. ^âå = 16
  360. 01:02 ^âà = 17
  361. ^âå = 17
  362. 01:04 ^âà = 18
  363. ^âå = 18
  364. 01:06 ^âà = 19
  365. ^âå = 19
  366. 01:08 ^âà = 20
  367. ^âå = 20
  368. 01:10 ^âà = 21
  369. ^âå = 21
  370. 01:12 ^âà = 22
  371. ^âå = 22
  372. 01:14 ^âà = 23
  373. ^âå = 23
  374. 01:16 ^âà = 24
  375. ^âå = 24
  376. 01:18 ^âà = 25
  377. ^âå = 25
  378. 01:20 ^âà = 26
  379. ^âå = 26
  380. 01:22 ^âà = 27
  381. ^âå = 27
  382. 01:24 ^âà = 28
  383. ^âå = 28
  384. 01:26 ^âà = 29
  385. ^âå = 29
  386. 01:28 ^âà = 30
  387. ^âå = 30
  388. 02:00 ò 
  389. J #Çæ
  390. ]
  391. { GETACLUE
  392. W 10 SECONDS
  393. i LEX STATUE
  394. }
  395.  
  396.  
  397. //$ 26 - version number
  398.