home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / ai_beast.scp < prev    next >
Text File  |  1995-02-23  |  4KB  |  357 lines
  1. { READY_ACID
  2. I @Ç¢ ACIDD = $üé THEN
  3. {
  4. ! "Can't find acid beast!!" 
  5. é 
  6. }
  7. Z CURFIG OFF
  8. u CURFIG OFF
  9. Y BCHG BCHH BCHJ BCHK BCHZ BCHM BCHR
  10. ¥ NO_BEAST 300
  11.  
  12. I ^àá == 0 THEN
  13. {
  14. G -4935 -4215 -100
  15. £ 180
  16. W 10
  17. C BCHR
  18. @Çì RIPPLE
  19. ^ê¡ = @Çå `ǃ 150 3072 
  20. M RISE CONTINUE
  21. W 2 SECONDS
  22. @Çå `袠
  23. ^àá = 1
  24. W 4 SECONDS
  25. C UNLOCK
  26.  ^ê¡ 
  27. }
  28.  
  29. G BEAST_1
  30. £ -90
  31. ï PLAYER
  32. @ÇÜ CLAW
  33. f RFINGER2
  34. @Çì FLUFFYSTAND
  35. v CURFIG ACID0 ON INCREMENT YOYO 5
  36. }
  37. { FLUFFYSTAND
  38. ó BCHG BCHH BCHJ BCHK BCHZ BCHM BCHR
  39. M STAND CONTINUE
  40. :LOOP
  41. I ^àƒ == 1 THEN é 
  42. W @Çà 3 7 SECONDS
  43. @Çå `üô 
  44. J #Çé 
  45. }
  46. { GIVEMEABREAK
  47.  
  48.  
  49. I @Ç¢ ACIDD != 1 THEN
  50. {
  51. ! "Can't find Fluffy!" CONTINUE 
  52. é 
  53. }
  54. I @Çü CURFIG < -4450 THEN
  55. @Çì MISSILEGOBOOM
  56. E 
  57. @Çì MISSILEGOBOOM2
  58. }
  59. { DISTFROMFLUFF
  60. @Ç¢ ACIDD
  61. Q "Dist from Fluffy: %d" @Çò 
  62. }
  63. { HIT_LEX
  64. P ~ÇÇ 
  65. P ~Çü 
  66. @Ç¢ ACIDD
  67. I ^àƒ == 1 || @Çô STAND != 1 THEN é 
  68. :ATTACK
  69. ~Çü = 30
  70. @Ç¢ ACIDD
  71. I @Çò > 750 THEN
  72. ~ÇÇ = @ÇÖ + 07
  73. E 
  74. ~ÇÇ = @ÇÖ + 15
  75.  
  76. T ~ÇÇ 
  77. M GRAB CONTINUE
  78. :TOP
  79. â 
  80. â 
  81. ~Çü -= 2
  82. I ~Çü <= 0 THEN J #Çê 
  83. @Ç¢ PLAYER
  84. @ÇÜ CLAW
  85.  
  86. I @üÇ < 130 && ^àî == 0 THEN
  87. {
  88.  
  89. I @Çæ RTHAND BOMB THEN @Çì KILLWARHEAD
  90. C BCHK
  91. u CURFIG OFF
  92. @Ç¢ ACIDD
  93. o 
  94. @Ç║ `ëú $üë "Noooooo...!/FNoonn... !" 
  95. ░ PLAYER RFINGER1
  96.  
  97. @Ç║ `ëÑ $üë 150 "Ahhhhhh...!/FAhhhhhh... !" 
  98. M SWALLOW CONTINUE
  99. W 3 SECONDS
  100. ╡ RFINGER1
  101. @Ç¢ PLAYER
  102. A OFF
  103. @Çì DAMAGE_LEX_IMPACT 666
  104. G 6666 6666 6666
  105. W 1 SECOND
  106. @Çå `è╕ 
  107. C UNLOCK
  108. é 
  109. }
  110. J #Çç
  111. :MISS
  112. @Ç¢ ACIDD
  113. @Çå `è╡ 
  114.  
  115. I @ÇÄ BCHK THEN J #Çå 
  116. }
  117. { HIT_LEX_OLD
  118. P ~ÇÇ 
  119. P ~Çü 
  120. P ~Çé 
  121. P ~Çâ 
  122. ~Çâ = 1
  123. @Ç¢ ACIDD
  124. I ^àƒ == 1 || @Çô STAND != 1 THEN é 
  125. :ATTACK
  126. @Ç¢ PLAYER
  127. ~ÇÇ = @Çü CURFIG
  128. ~Çü = @Çé CURFIG
  129. @Ç¢ ACIDD
  130. T @ÇÖ 
  131. M GRAB
  132. @Ç¢ PLAYER
  133. ~Çé = @üå CURFIG ~ÇÇ ~Çü 
  134. I ~Çé < 150 && ^àî == 0 THEN
  135. {
  136.  
  137. C BCHK
  138. @Ç¢ PLAYER
  139. u CURFIG OFF
  140. @Ç¢ ACIDD
  141. @Ç║ `ëú $üë "Noooooo...!" 
  142. ░ PLAYER LFINGER1
  143. M SWALLOW CONTINUE
  144. W 1 SECOND
  145. ╡ LFINGER1
  146.  
  147. @Ç║ `ëÑ $üë 150 "Ahhhhhh...!" 
  148. @Ç¢ PLAYER
  149. A OFF
  150. @Çì DAMAGE_LEX_IMPACT 666
  151. ~Çâ = 0
  152. G 6666 6666 6666
  153. W 3 SECONDS
  154. @Çå `è╕ 
  155. C UNLOCK
  156. é 
  157. }
  158. E 
  159. {
  160. @Ç¢ ACIDD
  161. M GRAB_MISS
  162. @Çå `è╡ 
  163. }
  164. W 1 SECOND
  165. @Ç¢ ACIDD
  166. I @Çò < 800 && ~Çâ == 1 THEN J #Çè 
  167. }
  168. { MISSILEGOBOOM
  169. I ^àƒ == 1 THEN é 
  170. I @Ç¢ ACIDD != 1 THEN
  171. {
  172. ! "Can't find Fluffy!" CONTINUE 
  173. é 
  174. }
  175. G BEAST_2 WALK 100
  176. G BEAST_3 WALK 100
  177.  
  178. @Çì SHOW_STATIC2 120 8
  179. G BEAST_5 WALK 100
  180.  
  181. :TOP
  182. â 
  183. I @Çô WALK THEN J #Çî
  184.  
  185. G BEAST_5
  186. £ 68
  187. M STAND CONTINUE
  188. W 1 SECOND
  189. o 
  190. ^àí = @Çì FLUFFYLOOKSUP
  191. }
  192. { FLUFFYLOOKSUP
  193.  
  194. I @Ç¢ ACIDD != 1 THEN
  195. {
  196. ! "Can't find Fluffy!" CONTINUE 
  197. é 
  198. }
  199. M HEAD_RAISE01
  200. M HEAD_RAISE02 CONTINUE
  201. I ^Åú == 0 THEN W 14 SECONDS
  202. I ^Åú == 1 THEN W 10 SECONDS
  203. I ^Åú == 2 THEN W 08 SECONDS
  204. I ^àƒ == 0 THEN ^àó = @Çì FLUFFYGOBACK
  205. }
  206. { FLUFFYGOBACK
  207.  
  208. @Ç¢ ACIDD
  209.  
  210. o 
  211. M LOWER_HEAD
  212.  
  213. @Çì SHOW_STATIC2 190 8
  214. G BEAST_2 WALK 100
  215.  
  216. :TOP2
  217. â 
  218. I @Çô WALK THEN J #ÇÅ 
  219.  
  220. G BEAST_2
  221. G BEAST_1 WALK 100
  222. :TOP3
  223. â 
  224. I @Çô WALK THEN J #ÇÉ 
  225.  
  226. G BEAST_1
  227. T @ÇÖ 
  228. M STAND CONTINUE
  229. @Ç¢ PLAYER
  230. I @Çí CURFIG HIT_LEX THEN @Çì HIT_LEX
  231. }
  232. { ACIDRISE
  233. I ^àá == 1 THEN é 
  234. @Ç¢ PLAYER
  235. A OFF
  236. @Ç¥ READY_ACID
  237. @Ç¢ PLAYER
  238. A ON
  239. }
  240. { FLUFFLOG
  241. i LEX FLUFFY
  242. I @Çó ^ࢠTHEN
  243. {
  244.  
  245. I @Ç¢ ACIDD THEN @Çì REMOVEBEAST
  246.  ^ࢠ
  247. }
  248. }
  249. { KILLFLUFFY
  250. @ÇÜ CLAW
  251. ┤ 
  252. @Ç¢ ACIDD
  253.  
  254. @Çå `è│ 255 2048 
  255. @Ç¥ KILLFLUFFYSFX
  256.  
  257. @Çì REMOVEHEAD
  258. £ -90 GRADUAL
  259. M DIE CONTINUE
  260. W 45
  261.  
  262. @Çì SHOW_STATIC2 2 2
  263. W 15
  264. @Çì SHOW_STATIC2 2 2
  265. W 25
  266. @Çì SHOW_STATIC2 2 2
  267. W 30
  268. @Çì SHOW_STATIC2 2 1
  269. W 30
  270. @Çì SHOW_STATIC2 2 3
  271. W 100
  272. @Çì SHOW_STATIC2 1 2
  273. W 10
  274. @Çì SHOW_STATIC2 1 1
  275. @Çì SPLASH
  276. @Çå `Ç¢ 150 2048 
  277. W 25
  278. @Ç¥ REMOVEBEAST
  279. }
  280. { KILLFLUFFYSFX
  281. I @Çó ^࣠THEN  ^࣠
  282. I @Çó ^ॠTHEN  ^ॠ
  283. I @Çó ^à₧ THEN  ^à₧ 
  284. }
  285. { REMOVEBEAST
  286.  
  287. ^àƒ = 3
  288.  
  289. @Ç¥ KILLFLUFFYSFX
  290. @Ç¢ ACIDD
  291. K 
  292. W 15
  293.  
  294. ^äù = 1
  295. W 2 SECONDS
  296.  
  297. I @ÇÄ BCHM THEN
  298. {
  299.  ^ê▒ 150 
  300. ^àÜ = @Çì SHOW_STATIC
  301. }
  302.  
  303. ^é¼ = $ââ 
  304. ^àƒ = $üâ 
  305. }
  306. { REMOVEHEAD
  307. w CURFIG CLEAR ACJWL
  308. w CURFIG CLEAR ACJWR
  309. w CURFIG CLEAR ACHDF
  310. w CURFIG CLEAR ACJWB
  311. w CURFIG CLEAR ACJWF
  312. }
  313. { SHOW_STATIC2 _DELAY _THREE_TICKS
  314. I @Çú = $üé THEN é 
  315. I ~ÇÇ > 1 THEN W ~ÇÇ 
  316.  
  317. I @ÇÄ BCHM THEN  ^ê▒ 150 
  318. :ANIM
  319. I @Çú = $üé THEN é 
  320.  "STAA" 1
  321. â 
  322.  "STAA" 2
  323. â 
  324.  "STAA" 3
  325. â 
  326. L #Çÿ ~Çü 
  327.  ^ê▒ 0 
  328.  "STAA" 0
  329. }
  330. { LASER_HIT_ACIDD
  331. @Çå `åû 150 1024 
  332. ú BOOM PING CURITEM 
  333. @Çå `Çá 
  334. }
  335. { LEX_IN_TRIGGER
  336. @Ç¢ PLAYER
  337. I @Çí CURFIG HIT_LEX THEN é 1
  338. }
  339. { SPLASH
  340. :ANIM
  341. ^é⌐ ++
  342. â 
  343. L #Ç£ 50
  344. ^é⌐ = 0
  345. }
  346. [ RIPPLE
  347.  
  348. :TOP
  349. 00:02 ^éú ++
  350. ò 
  351. I ^éú > 13 THEN ^éú = 1
  352. I @ÇÄ BCHR THEN J #Ç₧
  353. ]
  354.  
  355.  
  356. //$ 26 - version number
  357.