home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / ai_tower.scp < prev    next >
Text File  |  1995-01-18  |  3KB  |  347 lines
  1.  
  2.  
  3.  
  4. { TTBATZA
  5. ^î₧ = 0
  6. }
  7. { TTBATZB
  8. ^î₧ = 0
  9. }
  10. { TTBAT1
  11. ^î₧ = 1
  12. }
  13. { TTBAT2
  14. ^î₧ = 2
  15. }
  16. { TTBAT3
  17. ^î₧ = 3
  18. }
  19. { TTBAT4
  20. ^î₧ = 4
  21. }
  22. { TTBAT4B
  23. ^î₧ = 4
  24. }
  25. { TTBAT5
  26. ^î₧ = 5
  27. }
  28. { TTBAT5A
  29. ^î₧ = 5
  30. }
  31. { TTBAT6A
  32. ^î₧ = 6
  33. }
  34. { TTBAT6B
  35. ^î₧ = 6
  36. }
  37. { TTBAT7A
  38. ^î₧ = 7
  39. }
  40. { TTBAT7B
  41. ^î₧ = 7
  42. }
  43. { TTBAT8
  44. ^î₧ = 8
  45. }
  46. { TTBAT9
  47. ^î₧ = 9
  48. }
  49. { TTBAT10
  50. ^î₧ = 10
  51. }
  52.  
  53.  
  54. { READY_TOWERBOTS
  55. I ^ç╖ THEN
  56. {
  57. I @Ç¢ TOWBOT1 THEN K 
  58. I @Ç¢ TOWBOT2 THEN K 
  59. I @Ç¢ TOWBOT3 THEN K 
  60. I @Ç¢ TOWBOT4 THEN K 
  61. I @Ç¢ TOWBOT5 THEN K 
  62. I @Ç¢ TOWBOT6 THEN K 
  63. ^= $üé 
  64. ^îá = $üé 
  65. ^îí = $üé 
  66. ^îó = $üé 
  67. ^îú = $üé 
  68. ^îñ = $üé 
  69. é 
  70. }
  71. I ^= $üâ THEN
  72. @Çì READY_TBOT1
  73. I ^îá = $üâ THEN
  74. @Çì READY_TBOT2
  75. I ^îí = $üâ THEN
  76. @Çì READY_TBOT3
  77. I ^îó = $üâ THEN
  78. @Çì READY_TBOT4
  79. I ^îú = $üâ THEN
  80. @Çì READY_TBOT5
  81. I ^îñ = $üâ THEN
  82. @Çì READY_TBOT6
  83. }
  84. { READY_A_TOWBOT
  85. Z CURFIG OFF
  86. r CURFIG OFF
  87. è ON
  88. A OFF
  89. ï PLAYER
  90. }
  91. { READY_TBOT1
  92. I @Ç¢ TOWBOT1 = $üé THEN
  93. {
  94.  
  95. é 
  96. }
  97. @Ç¥ READY_A_TOWBOT
  98. Y TWR3 TWR4 TWR5 TWR6 TWR7 ELT1 ELT2
  99. ö TOWBOT1
  100. G TWBOT1
  101. £ TWBFACE
  102. ª TWBOT1
  103. M ATK_STAND CONTINUE
  104. A ON
  105. }
  106. { READY_TBOT2
  107. I @Ç¢ TOWBOT2 = $üé THEN
  108. {
  109.  
  110. é 
  111. }
  112. @Ç¥ READY_A_TOWBOT
  113. Y TWR3 TWR4 TWR5 TWR6 TWR7 ELT1 ELT2
  114. ö TOWBOT2
  115. G TWBOT2
  116. £ TWBFACE
  117. ª TWBOT2
  118. q ATK_STAND 6
  119. A ON
  120. }
  121. { READY_TBOT3
  122. I @Ç¢ TOWBOT3 = $üé THEN
  123. {
  124.  
  125. é 
  126. }
  127. @Ç¥ READY_A_TOWBOT
  128. Y TWR3 TWR4 TWR5 TWR6 TWR7
  129. ö TOWBOT3
  130. G TWBOT3
  131. £ 180
  132. ª TWBOT3
  133. M ATK_STAND CONTINUE
  134. A ON
  135. }
  136. { READY_TBOT4
  137. I @Ç¢ TOWBOT4 = $üé THEN
  138. {
  139.  
  140. é 
  141. }
  142. @Ç¥ READY_A_TOWBOT
  143. Y TWR3 TWR4 TWR5 TWR6 TWR7
  144. ö TOWBOT4
  145. G TWBOT4
  146. £ 0
  147. ª TWBOT4
  148. q ATK_STAND 6
  149. A ON
  150. }
  151. { READY_TBOT5
  152. I @Ç¢ TOWBOT5 = $üé THEN
  153. {
  154.  
  155. é 
  156. }
  157. @Ç¥ READY_A_TOWBOT
  158. Y TWR1 TWR2 TWR3 TWR4 TWR5 TWR6 TWR7
  159. ö TOWBOT5
  160. G TWBOT5
  161. £ 180
  162. ª TWBOT5
  163. M ATK_STAND CONTINUE
  164. A ON
  165. }
  166. { READY_TBOT6
  167. I @Ç¢ TOWBOT6 = $üé THEN
  168. {
  169.  
  170. é 
  171. }
  172. @Ç¥ READY_A_TOWBOT
  173. Y TWR1 TWR2 TWR3 TWR4 TWR5 TWR6 TWR7
  174. ö TOWBOT6
  175. G TWBOT6
  176. £ 180
  177. ª TWBOT6
  178. M ATK_STAND CONTINUE
  179. A ON
  180. }
  181. { TOWBOT1_FIRE
  182. @Ç¥ TOWERBOT_FIRE
  183. }
  184. { TOWBOT2_FIRE
  185. @Ç¥ TOWERBOT_FIRE
  186. }
  187. { TOWBOT3_FIRE
  188. @Ç¥ TOWERBOT_FIRE
  189. }
  190. { TOWBOT4_FIRE
  191. @Ç¥ TOWERBOT_FIRE
  192. }
  193. { TOWBOT5_FIRE
  194. @Ç¥ TOWERBOT_FIRE
  195. }
  196. { TOWBOT6_FIRE
  197. @Ç¥ TOWERBOT_FIRE
  198. }
  199. { TOWERBOT_FIRE
  200.  
  201. I @Çí LEX ELT AND ^ä¡ = $ââ THEN é 
  202.  
  203. Ü 10 0 0 1 
  204.  @Ç╣ NRLASER GUN 5 60 0 0 0 
  205. }
  206. { TOWBOT1_AI
  207. :TOP
  208. â 
  209. I ^= $üé THEN
  210. é 
  211. I ^î₧ = 0 THEN
  212. J #Çá
  213. I ^î₧ = 2 THEN
  214. J #Çá
  215. I ^î₧ > 7 THEN
  216. J #Çá
  217. p 
  218. M FIRE CONTINUE
  219. W 30
  220. p 
  221. W 30
  222. J #Çá
  223. }
  224. { TOWBOT2_AI
  225. :TOP
  226. â 
  227. I ^îá = $üé THEN
  228. é 
  229. I ^î₧ < 2 THEN
  230. J #Çó
  231. I ^î₧ > 7 THEN
  232. J #Çó
  233. p 
  234. M FIRE CONTINUE
  235. W 30
  236. p 
  237. W 30
  238. J #Çó
  239. }
  240. { TOWBOT3_AI
  241. :TOP
  242. â 
  243. I ^îí = $üé THEN
  244. é 
  245. I ^î₧ < 5 THEN
  246. J #Çñ
  247. I ^î₧ > 7 THEN
  248. J #Çñ
  249. p 
  250. M FIRE CONTINUE
  251. W 30
  252. p 
  253. W 30
  254. J #Çñ
  255. }
  256. { TOWBOT4_AI
  257. :TOP
  258. â 
  259. I ^îó = $üé THEN
  260. é 
  261. I ^î₧ < 5 THEN
  262. J #Ǫ
  263. I ^î₧ > 7 THEN
  264. J #Ǫ
  265. p 
  266. M FIRE CONTINUE
  267. W 30
  268. p 
  269. W 30
  270. J #Ǫ
  271. }
  272. { TOWBOT5_AI
  273. :TOP
  274. â 
  275. I ^î₧ = 6 THEN
  276. J #Ç⌐ 
  277. I ^î₧ = 9 THEN
  278. J #Ç⌐ 
  279. J #Ç¿
  280. :GOOD
  281. p 
  282. M FIRE CONTINUE
  283. W 30
  284. p 
  285. W 30
  286. J #Ç¿
  287. }
  288. { TOWBOT6_AI
  289. :TOP
  290. â 
  291. I ^î₧ = 7 THEN
  292. J #Ǽ 
  293. I ^î₧ = 8 THEN
  294. J #Ǽ 
  295. J #ǽ
  296. :GOOD
  297. p 
  298. M FIRE CONTINUE
  299. W 30
  300. p 
  301. W 30
  302. J #ǽ
  303. }
  304. { TOWERBOT_STIMULUS _DAMAGE 
  305. :ENERGY_DAMAGE
  306. A OFF
  307. M RECOIL_TL
  308. A ON
  309. }
  310. { TOWBOT_DEATH
  311. ñ CURFIG
  312. M EXPLODE
  313. Ü 20 20 20 1 
  314. @Çå `ǽ 
  315. ú BOOM WHITE CURFIG 
  316. K CURFIG
  317. l CURFIG CONTINUE
  318. }
  319. { TOWBOT1_DEATH
  320. ^= $üé 
  321. @Ç¥ TOWBOT_DEATH
  322. }
  323. { TOWBOT2_DEATH
  324. ^îá = $üé 
  325. @Ç¥ TOWBOT_DEATH
  326. }
  327. { TOWBOT3_DEATH
  328. ^îí = $üé 
  329. @Ç¥ TOWBOT_DEATH
  330. }
  331. { TOWBOT4_DEATH
  332. ^îó = $üé 
  333. @Ç¥ TOWBOT_DEATH
  334. }
  335. { TOWBOT5_DEATH
  336. ^îú = $üé 
  337. @Ç¥ TOWBOT_DEATH
  338. }
  339. { TOWBOT6_DEATH
  340. ^îñ = $üé 
  341. @Ç¥ TOWBOT_DEATH
  342. }
  343.  
  344.  
  345.  
  346. //$ 26 - version number
  347.