home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / beachbot.scp < prev    next >
Text File  |  1995-01-24  |  3KB  |  245 lines
  1.  
  2. { PICKENEMY
  3. :TOP_PICKENEMY
  4. I ^ຠ== 0 && ^à¿ == 0 && ^à⌐ == 0 THEN é 
  5. I @Ç¢ PLAYER == 0 THEN é 
  6.  
  7. I @ÇÄ BCH = $üé THEN
  8. {
  9. â 
  10. J #Çü 
  11. }
  12. I ^ຠTHEN
  13. {
  14. ï BCHBOT1
  15. I @ÇÖ IN -20 20 THEN
  16. {
  17. @Ç¢ BCHBOT1
  18. ┬ 
  19. J #Çé 
  20. }
  21. }
  22. I ^à¿ THEN
  23. {
  24. ï BCHBOT2
  25. I @ÇÖ IN -20 20 THEN
  26. {
  27. @Ç¢ BCHBOT2
  28. ┬ 
  29. J #Çé 
  30. }
  31. }
  32. I ^à⌐ THEN
  33. {
  34. ï BCHBOT3
  35. I @ÇÖ IN -20 20 THEN
  36. {
  37. @Ç¢ BCHBOT3
  38. ┬ 
  39. }
  40. }
  41. :BOTTOM
  42. â 
  43. â 
  44. J #Çü 
  45. }
  46.  
  47.  
  48. { READY_BEACHBOTS
  49. @Çì PICKENEMY
  50. I ^ຠ= $üâ THEN
  51. @Çì READY_BBOT1
  52. I ^à¿ = $üâ THEN
  53. @Çì READY_BBOT2
  54. I ^à⌐ = $üâ THEN
  55. @Çì READY_BBOT3
  56. }
  57. { READY_A_BEACHBOT
  58. Z CURFIG OFF
  59. r CURFIG OFF
  60. è ON
  61. A OFF
  62. ┬ 
  63.  
  64. }
  65. { READY_BBOT1
  66. I @Ç¢ BCHBOT1 = $üé THEN
  67. {
  68. ! "CAN'T FIND BEACHBOT1 !!" 
  69. é 
  70. }
  71. @Ç¥ READY_A_BEACHBOT
  72. Y BCHA BCHB BCHC BCH9 BCHD
  73. ö BCHBOT1
  74. G B_BOT1
  75. £ -90
  76. ª B_BOT1
  77. M ATK_STAND CONTINUE
  78. A ON
  79. }
  80. { READY_BBOT2
  81. I @Ç¢ BCHBOT2 = $üé THEN
  82. {
  83. ! "CAN'T FIND BEACHBOT2 !!" 
  84. é 
  85. }
  86. @Ç¥ READY_A_BEACHBOT
  87. Y BCHA BCHB BCHC BCH9 BCHD
  88. ö BCHBOT2
  89. G B_BOT2
  90. £ -90
  91. ª B_BOT2
  92. M ATK_STAND CONTINUE
  93. A ON
  94. }
  95. { READY_BBOT3
  96. I @Ç¢ BCHBOT3 = $üé THEN
  97. {
  98. ! "CAN'T FIND BEACHBOT3 !!" 
  99. é 
  100. }
  101. @Ç¥ READY_A_BEACHBOT
  102. Y BCHA BCHB BCHC BCH9 BCHD
  103. ö BCHBOT3
  104. G B_BOT3
  105. £ -90
  106. ª B_BOT3
  107. M ATK_STAND CONTINUE
  108. A ON
  109. }
  110. { BCHBOT1_FIRE
  111. @Ç¥ BEACHBOT_FIRE
  112. }
  113. { BCHBOT2_FIRE
  114. @Ç¥ BEACHBOT_FIRE
  115. }
  116. { BCHBOT3_FIRE
  117. @Ç¥ BEACHBOT_FIRE
  118. }
  119. { BEACHBOT_FIRE
  120.  
  121. Ü 10 0 0 1 
  122.  
  123.  @Ç╣ NRLASER GUN 5 60 0 0 0 
  124. }
  125. { BOT_AI_1
  126. i LEX BSNBOTS
  127. I ^ઠ= 1 THEN ^ઠ= 0
  128. E ^ઠ= 1
  129. }
  130. { BOT_AI_2
  131. I ^ઠ= 1 THEN ^ઠ= 0
  132. E ^ઠ= 1
  133. }
  134. { BOT_AI_3
  135. I ^ઠ= 1 THEN ^ઠ= 0
  136. E ^ઠ= 1
  137. }
  138. { BOT_AI_4
  139. I ^ઠ= 1 THEN ^ઠ= 0
  140. E ^ઠ= 1
  141. }
  142. { BCHBOT1_AI
  143. ó BCHA BCHB BCHC BCH9
  144. :TOP
  145. â 
  146. I ^ຠ= $üé THEN
  147. é 
  148.  
  149.  
  150.  
  151. I ^Åú == 0 THEN W ^ï╢ 
  152. I ^Åú == 1 THEN W ^ï╖ 
  153. I ^Åú == 2 THEN W ^ï╕ 
  154. p 
  155. M FIRE CONTINUE
  156. p 
  157. I ^Åú == 0 THEN W ^ï╢ 
  158. I ^Åú == 1 THEN W ^ï╖ 
  159. I ^Åú == 2 THEN W ^ï╕ 
  160. J #Çæ
  161. }
  162. { BCHBOT2_AI
  163. ó BCHA BCHB BCHC BCH9
  164. :TOP
  165. â 
  166. I ^à¿ = $üé THEN
  167. é 
  168.  
  169.  
  170.  
  171. I ^Åú == 0 THEN W ^ï╢ 
  172. I ^Åú == 1 THEN W ^ï╖ 
  173. I ^Åú == 2 THEN W ^ï╕ 
  174. p 
  175. M FIRE CONTINUE
  176. p 
  177. I ^Åú == 0 THEN W ^ï╢ 
  178. I ^Åú == 1 THEN W ^ï╖ 
  179. I ^Åú == 2 THEN W ^ï╕ 
  180. J #Çô
  181. }
  182. { BCHBOT3_AI
  183. ó BCHA BCHB BCHC BCH9
  184. :TOP
  185. â 
  186. I ^à⌐ = $üé THEN
  187. é 
  188.  
  189.  
  190.  
  191. I ^Åú == 0 THEN W ^ï╢ 
  192. I ^Åú == 1 THEN W ^ï╖ 
  193. I ^Åú == 2 THEN W ^ï╕ 
  194. p 
  195. M FIRE CONTINUE
  196. p 
  197. I ^Åú == 0 THEN W ^ï╢ 
  198. I ^Åú == 1 THEN W ^ï╖ 
  199. I ^Åú == 2 THEN W ^ï╕ 
  200. J #Çò
  201. }
  202. { BEACHBOT_STIMULUS _DAMAGE 
  203. :ENERGY_DAMAGE
  204. A OFF
  205. M RECOIL_TL
  206. A ON
  207. }
  208. { BCHBOT1_DEATH
  209. I @Ç¢ BCHBOT1 != 1 THEN é 
  210. ^ຠ= $üé 
  211. @Ç¥ BCHBOT_DEATH
  212. }
  213. { BCHBOT2_DEATH
  214. I @Ç¢ BCHBOT2 != 1 THEN é 
  215. ^à¿ = $üé 
  216. @Ç¥ BCHBOT_DEATH
  217. }
  218. { BCHBOT3_DEATH
  219. I @Ç¢ BCHBOT3 != 1 THEN é 
  220. ^à⌐ = $üé 
  221. @Ç¥ BCHBOT_DEATH
  222. }
  223. { BCHBOT_DEATH
  224. ñ CURFIG
  225.  
  226. o 
  227. M EXPLODE
  228. @Çå `ǽ 255 
  229. Ü 20 20 20 1 
  230. ú BOOM WHITE CURFIG 
  231. K CURFIG
  232. l CURFIG CONTINUE
  233. }
  234. { KILL_BEACHBOTS
  235. I @Ç¢ BCHBOT1 THEN
  236. K 
  237. I @Ç¢ BCHBOT2 THEN
  238. K 
  239. I @Ç¢ BCHBOT3 THEN
  240. K 
  241. }
  242.  
  243.  
  244. //$ 26 - version number
  245.