home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / bioforge / script / ai_fido.scp < prev    next >
Encoding:
Text File  |  1995-02-27  |  2.7 KB  |  316 lines
  1.  
  2. { FIDO_ENTER_COMBAT
  3. }
  4. { FIDO_REACTIVATE
  5. I ^îò > ^îÖ THEN 
  6. {
  7. I @Ç¢ FIDO = $üé THEN
  8. é 
  9. Z CURFIG ON
  10. ┬ 
  11. è ON
  12. ^îò = 0
  13. M ATK_STAND CONTINUE
  14. G FIDO1
  15. ^îù = $üé 
  16. ║ OFF
  17. :STILL_IN_STASIS
  18. I @Ç╛ == 0 THEN
  19. {
  20. A ON
  21. J #Çé 
  22. }
  23. }
  24. }
  25. { FIDO_AI
  26. P ~ÇÇ 
  27. :TOP
  28. â 
  29.  
  30. I .ÇéÇâ != $üö THEN
  31. J #Çä
  32. ~ÇÇ = @Ç¥ MONSTER_MOVE 15
  33. I ~ÇÇ > 0 THEN
  34. {
  35. N ~ÇÇ 
  36. {
  37. U 1
  38. I @Çô "atk_m1" != $üâ THEN
  39. M ATK_M1 CONTINUE
  40. X ÇÇ 
  41. U 2
  42. I @Çô "atk_m2" != $üâ THEN
  43. M ATK_M2 CONTINUE
  44. X ÇÇ 
  45. U 3
  46. I @Çô "atk_m3" != $üâ THEN
  47. M ATK_M3 CONTINUE
  48. X ÇÇ 
  49. U 4
  50. U 6
  51. ┴ 
  52. X ÇÇ 
  53. U 7
  54. I @Çô "atk_m7" != $üâ THEN
  55. M ATK_M7 CONTINUE
  56. X ÇÇ 
  57. U 8
  58. I @Çô "atk_m8" != $üâ THEN
  59. M ATK_M8 CONTINUE
  60. X ÇÇ 
  61. U 9
  62. I @Çô "atk_m9" != $üâ THEN
  63. M ATK_M9 CONTINUE
  64. X ÇÇ 
  65. U 10
  66. I @Çô "atk_m10" != $üâ THEN
  67. M ATK_M10 CONTINUE
  68. X ÇÇ 
  69. }
  70. }
  71. E 
  72. {
  73. I ^îö > 0 THEN
  74. {
  75. I ^îò > ^îÖ THEN
  76. @Çì FIDO_KO
  77. E 
  78. {
  79. M ATK_M2 CONTINUE
  80. W 45
  81. M ROAR
  82. ^îö = 0
  83. }
  84. }
  85. E 
  86. {
  87. N @Çà 1 6 
  88. {
  89. U 1
  90. M CLAW_LEFT
  91. X Çü 
  92. U 2
  93. M CLAW_RIGHT
  94. X Çü 
  95. U 3
  96. M TAIL_WHIP_LEFT
  97. X Çü 
  98. U 4
  99. M TAIL_WHIP_RIGHT
  100. X Çü 
  101. U 5
  102. M HEAD_CHOMP
  103. X Çü 
  104. U 6
  105. M ROAR
  106. X Çü 
  107. }
  108. }
  109. }
  110. â 
  111. J #Çä
  112. }
  113. { FIDO_STIMULUS _DAMAGE 
  114.  
  115. :GOT_HIT
  116. ^îö = 1
  117. ^îò = ^îò + 1
  118. é 
  119. :KILLED_PLAYER
  120. I ^îô = $üé THEN
  121. é 
  122. A OFF
  123. ┴ 
  124. M ATK_M2 CONTINUE
  125. W 45
  126. M ROAR
  127. â 
  128. M ATK_STAND CONTINUE
  129. }
  130.  
  131. { FIDO_KO
  132. P ~ÇÇ 
  133. P ~Çü 
  134. P ~Çé 
  135. A OFF
  136. ║ ON
  137. ^îÜ ++
  138. I ^îÜ = 2 THEN
  139. i LEX FIDOCLUE
  140. M ATK_M2 CONTINUE
  141. W 45
  142. M WOBBLE
  143. ~ÇÇ = @Ç▒ CURFIG FIDO1 
  144. ~Çü = @Ç▒ CURFIG AVD_IRIS 
  145. ^îù = $üé 
  146. ~Çé = $üé 
  147. I ^à¡ = 1 THEN
  148. G FIDO1 WALK
  149. E I ~ÇÇ < ~Çü THEN
  150. G FIDO1 WALK
  151. E 
  152. {
  153. Z CURFIG OFF
  154. G FIDO2 WALK 20
  155. G AVD_IRIS WALK 220
  156. £ AVD_IRIS
  157. T -15
  158. ~Çé = $üâ 
  159. }
  160. M WOBBLE
  161. I ^à¡ AND ~Çé THEN 
  162. {
  163. u CURFIG OFF
  164. M DIE_N_FALL
  165. @Çå `Çò 100 -2048 
  166. :STUPIDLOOP
  167. I ^à¡ THEN
  168. {
  169. @Çì TANK_BATTLE
  170.  
  171. M FALL_THROUGH_IRIS
  172. K 
  173. I @Çó ^Çä THEN
  174. {
  175. ^å╢ = 1
  176. ^Ç│ = 1
  177. ^Ç┤ = 1
  178. }
  179. é 
  180. }
  181. E 
  182. â 
  183. I ^à» = 1 THEN J #Çë 
  184. ^îù = $üâ 
  185. }
  186. E 
  187. {
  188. M DIE
  189. I ^à¡ AND ~Çé THEN
  190. {
  191. @Çì TANK_BATTLE
  192. M FALL_THROUGH_IRIS
  193. K 
  194. I @Çó ^Çä THEN
  195. {
  196. ^å╢ = 1
  197. ^Ç│ = 1
  198. ^Ç┤ = 1
  199. }
  200. é 
  201. }
  202. ^îù = ~Çé 
  203. }
  204. M STAY_DEAD CONTINUE
  205. W 15 SECONDS
  206. I ^îò = 1000 THEN 
  207. é 
  208. :PAUSE4IRIS
  209. â 
  210. I ^à» = 1 THEN J #Çè 
  211. ^îù = $üé 
  212. M WAKE_UP
  213. Z CURFIG ON
  214. I ^à¡ AND ^= 0 THEN 
  215. {
  216. ¥ AVD_IRIS 225
  217. ^= 1
  218. }
  219. ^îò = 0
  220. ║ OFF
  221. A ON
  222. }
  223. { FIDO_BITES_IT
  224. ^îò = 1000 
  225. @Ç¢ FIDO
  226. Z CURFIG OFF
  227. u CURFIG OFF
  228. A OFF
  229. W 20
  230. @Çå `Ç│ 100 1024 
  231. @Çì TANK_BATTLE
  232. ^îù = $üé 
  233. M FALL_THROUGH_IRIS
  234. K 
  235. }
  236. { TANK_BATTLE
  237. ^îû = 1
  238. W 10
  239.  
  240. @Çå `Çò 100 1024 
  241. W 10
  242. W 10
  243.  
  244. @Çå `Ç₧ 200 
  245. @Çå `Ç│ 200 
  246. W 1 SECOND
  247. @Çå `Çá 200 
  248. W 3 SECONDS
  249. @Çå `Çá 200 -2048 
  250. W 2 SECONDS
  251.  
  252. @Ç║ `䃠$üê "You hear fighting./FVous entendez une bagarre./GSie hören Kampfgeräusche." 
  253. W 2 SECONDS
  254. I @Çû ^å│ = $üâ THEN 
  255. {
  256.  `䃠
  257. é 
  258. }
  259. @Çå `䃠AVD_IRIS -1024 
  260. W 3 SECONDS
  261. I @Çû ^å│ = $üâ THEN 
  262. {
  263.  `䃠
  264. é 
  265. }
  266. @Çå `䃠AVD_IRIS 1024 
  267. W 1 SECONDS
  268. I @Çû ^å│ = $üâ THEN 
  269. {
  270.  `䃠
  271. é 
  272. }
  273. @Çå `䃠AVD_IRIS 
  274. W 3 SECONDS
  275. I @Çû `䃠= $üâ THEN 
  276. {
  277.  ^å│ 
  278. é 
  279. }
  280. @Çå `䃠AVD_IRIS -1024 
  281. O $Çä 
  282. }
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315. //$ 26 - version number
  316.