home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / bioforge / script / tubes.scp < prev    next >
Encoding:
Text File  |  1995-02-20  |  3.0 KB  |  293 lines
  1. { LEAVETUBEROOM
  2. P ~ÇÇ 
  3. B `Ç▓ 
  4.  
  5.  
  6.  
  7.  
  8. u CURFIG OFF
  9. M ENTER_GRAV FREEZE
  10.  
  11.  
  12.  
  13.  
  14. ~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
  15.  
  16.  
  17. C TUB1
  18.  
  19. G TUBE_WP1
  20. £ TUBE_WP3
  21.  
  22.  
  23. @Ç╢ ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG 
  24. :SFX1
  25. â 
  26. I @Ç▒ CURFIG TUBE_WP2 <= 150 THEN @Çå `Ç▓ 200 2048 
  27. E J #Çü 
  28. W 10
  29.  
  30.  
  31. C TUB2
  32. G TUBE_WP2
  33. £ TUBE_WP4
  34.  
  35. @Çå `Ç▓ 200 2048 
  36.  @Ç╢ ZIPPY TUBE_WP2 TUBE_WP4 20 0 0 0 CARRY CURFIG
  37. u CURFIG ON
  38.  ~ÇÇ 
  39. C UNLOCK
  40. A ON
  41. }
  42. { GRENADELEAVETUBEROOM
  43. P ~ÇÇ 
  44. P ~Çü 
  45. A OFF
  46. B `Ç▓ 
  47.  
  48. u CURITEM OFF
  49.  
  50.  
  51.  
  52. ~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
  53.  
  54. C TUB1
  55. f WAYPT TUBE_WP1
  56.  
  57. ~Çü = @Ç╢ ZIPPY GREN_WP1 GREN_WP3 20 0 0 0 CARRY CURITEM
  58.  
  59.  
  60. ÿ ^ì» 
  61. W 2 SECONDS
  62.  
  63. Ö ^ì» 
  64.  
  65. :SFX1
  66. â 
  67.  
  68. I @Çó ^ì» = $üé THEN J #Çä 
  69. I @Ç▒ CURITEM GREN_WP3 <= 100 THEN @Çå `Ç▓ 255 -1024 
  70. E J #Çâ 
  71. :SKIP_SFX
  72.  
  73.  ~Çü 
  74.  
  75. I @ÇÜ GRENADE = $üé THEN
  76. J #Çå 
  77.  
  78. C TUB2
  79. f WAYPT GREN_WP2
  80. ~Çü = @Ç╢ ZIPPY GREN_WP2 GREN_WP4 20 0 0 0 CARRY CURITEM
  81. ÿ ^ì» 
  82. W 10
  83. Ö ^ì» 
  84.  
  85.  
  86. W 1 SECOND
  87.  ^ì» 
  88. :SFX2
  89. â 
  90. I @Ç▒ CURITEM GREN_WP4 <= 100 THEN @Çå `Ç▓ 255 -1024 
  91. E J #Çà 
  92.  ~Çü 
  93. I @ÇÜ GRENADE THEN
  94. u CURITEM ON
  95. :LEAVE
  96.  ~ÇÇ 
  97. C UNLOCK
  98. A ON
  99. }
  100. { TUBETOTMPVSGRENADE
  101. P ~ÇÇ 
  102. P ~Çü 
  103. P ~Çé 
  104. P ~Çâ 
  105. A OFF
  106. B `Ç▓ 
  107.  
  108. u CURFIG OFF
  109. M ENTER_GRAV FREEZE
  110.  
  111. I @ÇÜ GRENADE = $üé THEN
  112. e GRENADE
  113. E 
  114.  ^ì» 
  115.  
  116.  ^ì▓ 
  117.  
  118. C TMP1
  119. I @Ç¢ TMP_MAR_2 = $üé THEN
  120. {
  121. ! "Can't find Tmp_Mar_2!" 
  122. é 
  123. }
  124. A OFF
  125. o 
  126. £ TUBE
  127. M REMOVE_BATT
  128. ñ CURITEM
  129. u CURITEM ON
  130. f RTHAND
  131.  
  132. M GRENADE_TOSS
  133. ~Çé = @üé CURITEM 
  134. ~Çâ = @üâ CURITEM 
  135.  
  136. :TOP
  137. â 
  138. I @üé CURITEM == ~Çé AND @üâ CURITEM == ~Çâ THEN
  139. J #Çê
  140. ñ CURITEM
  141. @Ç¢ PLAYER
  142. u CURITEM OFF
  143.  
  144.  
  145.  
  146. ~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
  147.  
  148. C TUB1
  149. G TUBE_WP1
  150. £ TUBE_WP3
  151.  
  152.  
  153. ~Çü = @Ç╢ ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
  154. :SFX1
  155. â 
  156. I @Ç▒ CURFIG TUBE_WP3 <= 200 THEN @Çå `Ç▓ 200 2048 
  157. E J #Çë 
  158.  ~Çü 
  159.  
  160. @Ç¢ PLAYER
  161. G TO_TMPL
  162. ║ OFF
  163.  
  164.  ~ÇÇ 
  165. ~ÇÇ = @Çì GLOTWORDTUBEROOM
  166. C TUB2
  167. f WAYPT GREN_WP4
  168.  
  169.  
  170. @Ç╢ ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
  171. :SFX2
  172. â 
  173. I @Ç▒ CURITEM GREN_WP2 <= 200 THEN @Çå `Ç▓ 255 -1024 
  174. E J #Çè 
  175.  
  176.  
  177.  
  178. d 
  179. @Çå `Çó 
  180. Ü 10 10 10 5
  181. â 
  182. Ü 20 20 20 5
  183. â 
  184. Ü 30 30 30 5
  185. â 
  186. @Çå `ÇÑ 
  187. Ü 40 40 40 5
  188. â 
  189. Ü 50 50 50 5
  190. â 
  191. Ü 60 60 60 5
  192. â 
  193. Ü 64 64 64 5
  194.  
  195.  
  196.  
  197. @Ç¥ KILLLEX
  198. }
  199. { ENTERTUBEROOM _NO_ENTER_MOTION
  200. P ~Çü 
  201.  
  202.  
  203.  
  204. ~Çü = @Çì GLOTWORDTUBEROOM
  205. C TUB2
  206.  
  207. B `Ç▓ 
  208.  
  209. u CURFIG OFF
  210. o 
  211. I ~ÇÇ THEN
  212. {
  213. M ENTER_GRAV FREEZE SNAP_TO CONTINUE
  214. }
  215. E 
  216. {
  217. â 
  218. M ENTER_GRAV FREEZE
  219. }
  220.  
  221.  
  222.  
  223.  
  224.  
  225. G TUBE_WP4
  226. £ TUBE_WP2
  227.  
  228.  
  229. @Ç╢ ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURFIG
  230. :SFX1
  231. â 
  232. I @Ç▒ CURFIG TUBE_WP2 <= 200 THEN @Çå `Ç▓ 200 2048 
  233. E J #Çî 
  234.  
  235.  
  236. C TUB1
  237. G TUBE_WP3
  238. £ TUBE_WP1
  239. @Çå `Ç▓ 200 2048 
  240.  @Ç╢ ZIPPY TUBE_WP3 TUBE_WP1 20 0 0 0 CARRY CURFIG
  241. u CURFIG ON
  242.  ~Çü 
  243. C UNLOCK
  244. }
  245. { GRENADEENTERTUBEROOM
  246. P ~ÇÇ 
  247.  
  248. u CURITEM OFF
  249. B `Ç▓ 
  250.  
  251.  
  252.  
  253. ~ÇÇ = @Çì GLOTWORDTUBEROOM
  254.  
  255. C TUB2
  256. f WAYPT GREN_WP4
  257.  
  258. @Ç╢ ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
  259. :SFX1
  260. â 
  261. I @Ç▒ CURITEM GREN_WP2 <= 200 THEN @Çå `Ç▓ 255 -1024 
  262. E J #ÇÄ 
  263.  
  264. C TUB1
  265. f WAYPT GREN_WP3
  266. @Çå `Ç▓ 255 -1024 
  267.  @Ç╢ ZIPPY GREN_WP3 GREN_WP1 20 0 0 0 CARRY CURITEM
  268. u CURITEM ON
  269.  ~ÇÇ 
  270. C UNLOCK
  271. }
  272. { GLOTWORDTUBEROOM
  273. ^âç = $⥠
  274. :LOOP
  275. W 05
  276. ^âç --
  277. I ^âç < 0 THEN
  278. ^âç = $⥠
  279. J #ÇÉ 
  280. }
  281. { GLOAWAYFROMTUBEROOM
  282. ^âç = 0
  283. :LOOP
  284. W 05
  285. ^âç ++
  286. I ^âç > $⥠THEN
  287. ^âç = 0
  288. J #ÇÆ 
  289. }
  290.  
  291.  
  292. //$ 26 - version number
  293.