home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / tower.scp < prev    next >
Text File  |  1995-03-02  |  4KB  |  255 lines
  1.  
  2. { TOWER_LOAD
  3. ^åû = $âå 
  4. I @Ç¢ ROLAND THEN
  5. {
  6. I ^üº == 0 THEN
  7. {
  8. K 
  9.  
  10. ^ü¬ = 0
  11.  
  12.  
  13. }
  14. E 
  15. {
  16. Y TWR1 TWR2 LASER HIT
  17. I @Çô PLEAD = 0 THEN 
  18. è OFF
  19. E 
  20. M PLEAD CONTINUE
  21. ï PLAYER
  22. Z CURFIG ON
  23. u CURFIG ON
  24. I ^ü» THEN
  25. G BEGHERE
  26. E 
  27. G DEST
  28. }
  29. }
  30.  
  31.  
  32. @Ç¢ PLAYER
  33. I @Ç⌐ LEXMIR THEN
  34. {
  35. ^àï = @Çì REFLECTBATTDRAIN
  36. }
  37.  
  38. I ^ï¿ = 1 THEN
  39. ^Åì = @Çì BIOREPAIR
  40.  
  41. ^ï║ = 0
  42. ^ï╜ = 0
  43. I ^ä¡ = $âä THEN
  44. ^ä¡ = $ââ 
  45. @Çì LEVEL1TREMORS
  46. @Çì ESCHERS_PLEES_FOR_HELP
  47. @Çì STRAIN
  48. }
  49. { ELT_LOAD
  50. ƒ TWR5 OFF
  51. ƒ TWR6 OFF
  52. ƒ TWR7 OFF 
  53.  
  54. ^ê¿ = @Çë 
  55.  ^ê¿ 0 
  56. @Ç¥ READY_TOWERBOTS 
  57. ì 0
  58.  
  59. I ^ü¡ = 1 AND ^ü¬ = 1 THEN
  60. {
  61. I ^ü« THEN 
  62. é 
  63. E 
  64. {
  65. i LEX ROLLIVE
  66. ^ü« = 1
  67. }
  68. }
  69.  
  70. I ^ü▒ = $üâ THEN é 
  71. I ^üª = $üé THEN
  72. {
  73. I ^üº = $üé THEN
  74. {
  75. ^ü▒ = $üâ 
  76. ^ü▓ = 1
  77.  
  78.  @Ç║ `éè $üä "MASTABA: This is your doctor speaking./FC'est votre docteur qui vous parle./GHier spricht dein Doktor." 
  79.  @Ç║ `éï $üä "I know you are confused and disoriented,~but we are not your enemy./FJe sais que tu es troublé et désorienté,~mais nous ne sommes pas ton ennemi./GIch weiß, daß du verwirrt und verstört bist,~aber wir sind nicht deine Feinde." 
  80.  @Ç║ `éî $üä "You are one of us, a Mondite,~and we are in extreme danger./FTu es l'un des nôtres, un Mondite,~et nous sommes en grand danger./GDu bist einer von uns, ein Mondit,~und wir sind in großer Gefahr." 
  81.  @Ç║ `éì $üä "Doctor Escher has betrayed us all./FLe Docteur Escher nous a tous trahis./GDoktor Escher hat uns alle verraten." 
  82.  @Ç║ `éÄ $üä "She has brought a monster into our base./FElle a introduit un monstre dans notre base./GSie hat ein Monster in unsere Basis gebracht." 
  83.  @Ç║ `éÅ $üä "If we are to survive I need your help./FSi nous voulons survivre,~tu dois nous aider./GUm zu überleben brauchen wir deine Hilfe." 
  84. ^ü▓ = 0
  85. }
  86. }
  87. }
  88. { TWR_LOAD
  89. I ^å» = 0 THEN
  90. {
  91. ^å» = 1
  92. ^ê¿ = @Çê 
  93. I ^ïî = 0 THEN O $ÇÅ 
  94. N @Çà 1 8 
  95. {
  96. U 1
  97.  `Çö `Ç╗ 
  98. X ÇÇ 
  99. U 2
  100. U 3
  101.  `Çö `Ç╝ 
  102. X ÇÇ 
  103. U 4
  104.  `Çö `Ç╜ 
  105. X ÇÇ 
  106. U 5
  107. U 6
  108.  `Çö `Ç╛ 
  109. }
  110. }
  111.  
  112.  
  113.  
  114. I ^üñ < 1 THEN ^üñ = 1
  115. }
  116.  
  117. { TWR1_LOAD
  118. I @Ç¢ ROLAND THEN
  119. ┬ 
  120.  
  121. I ^üñ = 2 THEN
  122. {
  123.  
  124.  
  125. ^üñ = 3
  126. @Çì SHIPORCHESTRA
  127. }
  128.  
  129. @Çì MANAGEGUN
  130. I ^üñ >= 3 && ^üª = 1 THEN
  131. {
  132.  
  133. }
  134. }
  135. { TWR2_LOAD
  136. I @Ç¢ ROLAND THEN
  137. ┬ 
  138. }
  139. { SAYGUNISOFF
  140.  @Ç║ `饠$üç "TOWER: Tower to Control Room.~The main gun is off line./FTour à Salle de contrôle.~Le canon principal est déconnecté./GTurm an Kontrollraum:~Hauptgeschütz ist ausgeschaltet."
  141. W 2 SECONDS
  142. @Ç║ `饠$üç "TOWER: Tower to Control Room.~The main gun is off line./FTour à Salle de contrôle.~Le canon principal est déconnecté./GTurm an Kontrollraum:~Hauptgeschütz ist ausgeschaltet."
  143. }
  144. { TWR4_LOAD
  145.  
  146.  
  147. I ^üñ = 1 THEN
  148. {
  149. ^üñ = 2
  150. @Çì SAYGUNISOFF
  151. }
  152. ƒ TWR5 ON
  153. ƒ TWR6 ON
  154. ƒ TWR7 ON
  155. }
  156.  
  157. { TWR_LV1_USE
  158. I ^çç = 1 THEN é 
  159.  
  160. I @Çä NOTIN 50 130 THEN é 
  161. ^Ç╢ ++
  162. M PUSH_BUTTON CONTINUE
  163. W 15
  164. @Ç¥ ELEVATOR_MONITOR
  165. ^Ç╢ --
  166. }
  167. { TWR_LV2_USE
  168. I ^çç = 1 THEN é 
  169.  
  170. I @Çä NOTIN -115 -45 THEN é 
  171. ^Ç╢ ++
  172. M PUSH_BUTTON CONTINUE
  173. W 15
  174. @Ç¥ ELEVATOR_MONITOR
  175. ^Ç╢ --
  176. }
  177.  
  178. { TDR_BUT_USE
  179.  
  180. I ^üñ >= 3 && ^üñ < 5 THEN
  181. é 
  182. I @Çä NOTIN -130 -40 THEN
  183. é 
  184. M PUSH_BUTTON CONTINUE
  185. W 15
  186. I ^çå THEN
  187. {
  188.  
  189. @Çå `ä¡ 100 
  190. é 
  191. }
  192. E 
  193. @Çå `Çì 100 -2048 
  194. I ^ä¡ = $ââ THEN
  195. {
  196.  
  197. @Çì ELEVATOR_DOOR_OPEN
  198. ^ä¡ = $âé 
  199. @Çì TOWERAUTOELEVATORCLOSE
  200. }
  201. E 
  202. {
  203. @Çì ELEVATOR_DOOR_CLOSE
  204. ^ä¡ = $ââ 
  205. }
  206. }
  207. { MOVESCREEN
  208. P ~ÇÇ 
  209. I ^ü│ < 0 THEN
  210. {
  211. :MOVERIGHT
  212. ~ÇÇ = ^ü│ 
  213. ~ÇÇ *= ~ÇÇ 
  214. ~ÇÇ += 2
  215. W ~ÇÇ 
  216. ^ü│ += 1
  217. ì MOVE ^ü│ 0 ^ü│ 0
  218. I ^ü│ < 4 THEN J #Çï 
  219. }
  220. E 
  221. {
  222. :MOVELEFT
  223. ~ÇÇ = ^ü│ 
  224. ~ÇÇ *= ~ÇÇ 
  225. ~ÇÇ += 2
  226. W ~ÇÇ 
  227. ^ü│ -= 1
  228. ì MOVE ^ü│ 0 ^ü│ 0
  229. I ^ü│ > -4 THEN J #Çî 
  230. }
  231.  
  232. }
  233.  
  234. { STRAIN
  235. P ~ÇÇ 
  236. P ~Çü 
  237. P ~Çé 
  238.  
  239. ó TWR1 TWR2 TWR3 TWR4 TWR5
  240.  
  241. :LOOP
  242. ~ÇÇ = @Çà 5 20 
  243. ~Çü = @Çà 100 255 
  244. ~Çé = @Çà 0 5 * 1024
  245. W ~ÇÇ SECONDS
  246. @Çå `åö ~Çü ~Çé 
  247.  
  248.  
  249. â 
  250. J #ÇÄ 
  251. }
  252.  
  253.  
  254. //$ 26 - version number
  255.