home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / landbots.scp < prev    next >
Text File  |  1995-02-21  |  5KB  |  411 lines
  1.  
  2.  
  3.  
  4. { READY_LANDBOTS
  5.  
  6. I ^ëÇ = $üâ THEN
  7. @Çì READY_LDGBOT1
  8. I ^ëü = $üâ THEN
  9. @Çì READY_LDGBOT2
  10. I ^ëé = $üâ THEN
  11. @Çì READY_LDGBOT3
  12.  
  13. I ^ëâ = $üâ THEN
  14. @Çì READY_LANDBOT1
  15. I ^ëä = $üâ THEN
  16. @Çì READY_LANDBOT2
  17. I ^ëà = $üâ THEN
  18. @Çì READY_LANDBOT3
  19. I ^ëå = $üâ THEN
  20. @Çì READY_LANDBOT4
  21. }
  22. { READY_A_LANDBOT
  23. Z CURFIG OFF
  24. r CURFIG OFF
  25. è ON
  26. A OFF
  27. ï PLAYER
  28. }
  29. { READY_LDGBOT1
  30. I @Ç¢ LDGBOT1 = $üé THEN
  31. {
  32. ! "Cannot find Ldgbot1!!" 
  33. é 
  34. }
  35. @Ç¥ READY_A_LANDBOT
  36. Y PAD1 PAD2 PAD3 PAD4
  37. ö LDGBOT1
  38. G LDGBOT_1
  39. £ -90
  40. ª LDGBOT_1
  41. M ATK_STAND CONTINUE
  42. A ON
  43. }
  44. { READY_LDGBOT2
  45. I @Ç¢ LDGBOT2 = $üé THEN
  46. {
  47. ! "Cannot find Ldgbot2!!" 
  48. é 
  49. }
  50. @Ç¥ READY_A_LANDBOT
  51. Y PAD1 PAD2 PAD3 PAD4
  52. ö LDGBOT2
  53. G LDGBOT_2
  54. £ -90
  55. ª LDGBOT_2
  56. M ATK_STAND CONTINUE
  57. A ON
  58. }
  59. { READY_LDGBOT3
  60. I @Ç¢ LDGBOT3 = $üé THEN
  61. {
  62. ! "Cannot find Ldgbot3!!" 
  63. é 
  64. }
  65. @Ç¥ READY_A_LANDBOT
  66. Y PAD1 PAD2 PAD3 PAD4
  67. ö LDGBOT3
  68. G LDGBOT_3
  69. £ -90
  70. ª LDGBOT_3
  71. M ATK_STAND CONTINUE
  72. A ON
  73. }
  74. { READY_LANDBOT1
  75. I @Ç¢ LANBOT1 = $üé THEN
  76. {
  77. ! "Cannot find Lanbot1!!" 
  78. é 
  79. }
  80. @Ç¥ READY_A_LANDBOT
  81. Y PAD1
  82. ö LANBOT1
  83. G LANBOT_1
  84. £ -90
  85. ª LANBOT_1
  86. M ATK_STAND CONTINUE
  87. A ON
  88. }
  89. { READY_LANDBOT2
  90. I @Ç¢ LANBOT2 = $üé THEN
  91. {
  92. ! "Cannot find Lanbot2!!" 
  93. é 
  94. }
  95. @Ç¥ READY_A_LANDBOT
  96. Y PAD1
  97. ö LANBOT2
  98. G LANBOT_2
  99. £ -90
  100. ª LANBOT_2
  101. M ATK_STAND CONTINUE
  102. A ON
  103. }
  104. { READY_LANDBOT3
  105. I @Ç¢ LANBOT3 = $üé THEN
  106. {
  107. ! "Cannot find Lanbot3!!" 
  108. é 
  109. }
  110. @Ç¥ READY_A_LANDBOT
  111. Y PAD1
  112. ö LANBOT3
  113. G LANBOT_3
  114. £ -90
  115. ª LANBOT_3
  116. M ATK_STAND CONTINUE
  117. A ON
  118. }
  119. { READY_LANDBOT4
  120. I @Ç¢ LANBOT4 = $üé THEN
  121. {
  122. ! "Cannot find Lanbot4!!" 
  123. é 
  124. }
  125. @Ç¥ READY_A_LANDBOT
  126. Y PAD1
  127. ö LANBOT4
  128. G LANBOT_4
  129. £ -90
  130. ª LANBOT_4
  131. M ATK_STAND CONTINUE
  132. A ON
  133. }
  134. { LDGBOT1_FIRE
  135. @Ç¥ LANDBOT_FIRE
  136. }
  137. { LDGBOT2_FIRE
  138. @Ç¥ LANDBOT_FIRE
  139. }
  140. { LDGBOT3_FIRE
  141. @Ç¥ LANDBOT_FIRE
  142. }
  143. { LANBOT1_FIRE
  144. @Ç¥ LANDBOT_FIRE
  145. i LEX PLATBOTS
  146. }
  147. { LANBOT2_FIRE
  148. @Ç¥ LANDBOT_FIRE
  149. }
  150. { LANBOT3_FIRE
  151. @Ç¥ LANDBOT_FIRE
  152. }
  153. { LANBOT4_FIRE
  154. @Ç¥ LANDBOT_FIRE
  155. }
  156. { LANDBOT_FIRE
  157.  
  158. Ü 10 0 0 1 
  159.  @Ç╣ NRLASER GUN 5 60 0 0 0 
  160. }
  161. { LBOTAI_1
  162. @Ç¥ LDGBOTAI
  163. }
  164. { LBOTAI_2
  165. @Ç¥ LDGBOTAI
  166. }
  167. { LDGBOTAI
  168. I ^ëê = 1 THEN ^ëê = 0
  169. E ^ëê = 1
  170. }
  171. { LANDBOTS
  172. I ^ê┐ = $üâ AND ^ç╖ = $üé THEN
  173. {
  174. i LEX PLATBOTS
  175. }
  176. I ^ëç = 1 THEN ^ëç = 0
  177. E ^ëç = 1
  178. }
  179. { LDGBOT1_AI
  180. ó PAD2 PAD3 PAD4
  181. :TOP
  182. â 
  183. @Ç¢ PLAYER
  184. I @Ç╛ == 0 THEN J #Çû
  185. @Ç¢ LDGBOT1
  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. { LDGBOT2_AI
  203. ó PAD2 PAD3 PAD4
  204. :TOP
  205. â 
  206. @Ç¢ PLAYER
  207. I @Ç╛ == 0 THEN J #Çÿ
  208. @Ç¢ LDGBOT2
  209. I ^ëü = $üé THEN
  210. é 
  211.  
  212.  
  213.  
  214. I ^Åú == 0 THEN W ^ï╢ 
  215. I ^Åú == 1 THEN W ^ï╖ 
  216. I ^Åú == 2 THEN W ^ï╕ 
  217. p 
  218. M FIRE CONTINUE
  219. p 
  220. I ^Åú == 0 THEN W ^ï╢ 
  221. I ^Åú == 1 THEN W ^ï╖ 
  222. I ^Åú == 2 THEN W ^ï╕ 
  223. J #Çÿ
  224. }
  225. { LDGBOT3_AI
  226. ó PAD2 PAD3 PAD4
  227. :TOP
  228. â 
  229. @Ç¢ PLAYER
  230. I @Ç╛ == 0 THEN J #ÇÜ
  231. @Ç¢ LDGBOT3
  232. I ^ëé = $üé THEN
  233. é 
  234.  
  235.  
  236.  
  237. I ^Åú == 0 THEN W ^ï╢ 
  238. I ^Åú == 1 THEN W ^ï╖ 
  239. I ^Åú == 2 THEN W ^ï╕ 
  240. p 
  241. M FIRE CONTINUE
  242. p 
  243. I ^Åú == 0 THEN W ^ï╢ 
  244. I ^Åú == 1 THEN W ^ï╖ 
  245. I ^Åú == 2 THEN W ^ï╕ 
  246. J #ÇÜ
  247. }
  248. { LANBOT1_AI
  249. ó PAD1
  250. :TOP
  251. â 
  252. I ^ëâ = $üé THEN
  253. é 
  254.  
  255.  
  256.  
  257. I ^Åú == 0 THEN W ^ï╢ 
  258. I ^Åú == 1 THEN W ^ï╖ 
  259. I ^Åú == 2 THEN W ^ï╕ 
  260. p 
  261. M FIRE CONTINUE
  262. p 
  263. I ^Åú == 0 THEN W ^ï╢ 
  264. I ^Åú == 1 THEN W ^ï╖ 
  265. I ^Åú == 2 THEN W ^ï╕ 
  266. J #Ç£
  267. }
  268. { LANBOT2_AI
  269. ó PAD1
  270. :TOP
  271. â 
  272. I ^ëä = $üé THEN
  273. é 
  274.  
  275.  
  276.  
  277. I ^Åú == 0 THEN W ^ï╢ 
  278. I ^Åú == 1 THEN W ^ï╖ 
  279. I ^Åú == 2 THEN W ^ï╕ 
  280. p 
  281. M FIRE CONTINUE
  282. p 
  283. I ^Åú == 0 THEN W ^ï╢ 
  284. I ^Åú == 1 THEN W ^ï╖ 
  285. I ^Åú == 2 THEN W ^ï╕ 
  286. J #Ç₧
  287. }
  288. { LANBOT3_AI
  289. ó PAD1
  290. :TOP
  291. â 
  292. I ^ëà = $üé THEN
  293. é 
  294.  
  295.  
  296.  
  297. I ^Åú == 0 THEN W ^ï╢ 
  298. I ^Åú == 1 THEN W ^ï╖ 
  299. I ^Åú == 2 THEN W ^ï╕ 
  300. p 
  301. M FIRE CONTINUE
  302. p 
  303. I ^Åú == 0 THEN W ^ï╢ 
  304. I ^Åú == 1 THEN W ^ï╖ 
  305. I ^Åú == 2 THEN W ^ï╕ 
  306. J #Çá
  307. }
  308. { LANBOT4_AI
  309. ó PAD1
  310. :TOP
  311. â 
  312. I ^ëå = $üé THEN
  313. é 
  314.  
  315.  
  316.  
  317. I ^Åú == 0 THEN W ^ï╢ 
  318. I ^Åú == 1 THEN W ^ï╖ 
  319. I ^Åú == 2 THEN W ^ï╕ 
  320. p 
  321. M FIRE CONTINUE
  322. p 
  323. I ^Åú == 0 THEN W ^ï╢ 
  324. I ^Åú == 1 THEN W ^ï╖ 
  325. I ^Åú == 2 THEN W ^ï╕ 
  326. J #Çó
  327. }
  328. { LDGBOT1_STIMULUS _DAMAGE 
  329. @Ç¥ LANDBOT_DAMAGE
  330. }
  331. { LDGBOT2_STIMULUS _DAMAGE 
  332. @Ç¥ LANDBOT_DAMAGE
  333. }
  334. { LDGBOT3_STIMULUS _DAMAGE 
  335. @Ç¥ LANDBOT_DAMAGE
  336. }
  337. { LANBOT1_STIMULUS _DAMAGE 
  338. @Ç¥ LANDBOT_DAMAGE
  339. }
  340. { LANBOT2_STIMULUS _DAMAGE 
  341. @Ç¥ LANDBOT_DAMAGE
  342. }
  343. { LANBOT3_STIMULUS _DAMAGE 
  344. @Ç¥ LANDBOT_DAMAGE
  345. }
  346. { LANBOT4_STIMULUS _DAMAGE 
  347. @Ç¥ LANDBOT_DAMAGE
  348. }
  349. { LANDBOT_DAMAGE
  350. :ENERGY_DAMAGE
  351. A OFF
  352. M RECOIL_TL
  353. A ON
  354. }
  355. { LDGBOT1_DEATH
  356. ^ëÇ = $üé 
  357. @Ç¥ LANBOT_DEATH
  358. }
  359. { LDGBOT2_DEATH
  360. ^ëü = $üé 
  361. @Ç¥ LANBOT_DEATH
  362. }
  363. { LDGBOT3_DEATH
  364. ^ëé = $üé 
  365. @Ç¥ LANBOT_DEATH
  366. }
  367. { LANBOT1_DEATH
  368. ^ëâ = $üé 
  369. @Ç¥ LANBOT_DEATH
  370. }
  371. { LANBOT2_DEATH
  372. ^ëä = $üé 
  373. @Ç¥ LANBOT_DEATH
  374. }
  375. { LANBOT3_DEATH
  376. ^ëà = $üé 
  377. @Ç¥ LANBOT_DEATH
  378. }
  379. { LANBOT4_DEATH
  380. ^ëå = $üé 
  381. @Ç¥ LANBOT_DEATH
  382. }
  383. { LANBOT_DEATH
  384. ñ CURFIG
  385. M EXPLODE
  386. @Çå `ǽ 255 
  387. Ü 20 20 20 1 
  388. ú BOOM WHITE CURFIG 
  389. K CURFIG
  390. l CURFIG CONTINUE
  391. }
  392. { KILL_LANDBOTS
  393. I @Ç¢ LDGBOT1 THEN
  394. K 
  395. I @Ç¢ LDGBOT2 THEN
  396. K 
  397. I @Ç¢ LDGBOT3 THEN
  398. K 
  399. I @Ç¢ LANBOT1 THEN
  400. K 
  401. I @Ç¢ LANBOT2 THEN
  402. K 
  403. I @Ç¢ LANBOT3 THEN
  404. K 
  405. I @Ç¢ LANBOT4 THEN
  406. K 
  407. }
  408.  
  409.  
  410. //$ 26 - version number
  411.