home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / ai_drog2.scp < prev    next >
Text File  |  1995-02-24  |  5KB  |  378 lines

  1. { TDROGG2A
  2.  
  3.  
  4. I ^ìü = $üé THEN
  5. é 
  6. I ^ìâ THEN
  7. {
  8. I @Ç¢ DROGG2 = $üé THEN
  9. {
  10. ! "CAN'T FIND Drogg2 !!" 
  11. é 
  12. }
  13. ┬ 
  14. é 
  15. }
  16. @Çå `â╜ 
  17. }
  18. { TDROGG2B
  19. @Ç¥ ACTIVATE_DROGG2
  20. }
  21. { READY_DROGG2
  22. I ^ìü = $üé THEN
  23. é 
  24. I @Ç¢ DROGG2 = $üé THEN
  25. {
  26. ! "CAN'T FIND Drogg2 !!" 
  27. é 
  28. }
  29. I ^ìâ THEN
  30. {
  31. G HACK_666
  32. £ -90
  33. M STAND CONTINUE
  34. é 
  35. }
  36.  
  37. ^ìä = 0
  38. è ON
  39. ï PLAYER
  40. u CURFIG OFF
  41. Z CURFIG OFF
  42. G DROGJUMP
  43. £ -90
  44. Y TMB1 TMB2 ALC1 ALC2 ALC3
  45. M STAND CONTINUE
  46. }
  47. { ACTIVATE_DROGG2
  48. I ^ìü = $üé THEN
  49. é 
  50. I @Ç¢ DROGG2 = $üé THEN
  51. {
  52. ! "CAN'T FIND Drogg2 !!" 
  53. é 
  54. }
  55. I ^ìâ THEN
  56. {
  57. ┬ 
  58. é 
  59. }
  60. ^ìâ = $üâ 
  61. ┬ 
  62. C TMB2
  63. @Çì CHECK_FOR_SUSPENSION
  64. @Çå `â╜ 
  65. W 20
  66. D IMPACT 250
  67. @Çì ROCK_BUSTER 
  68. }
  69. { CHECK_FOR_SUSPENSION 
  70. P ~ÇÇ 
  71. ~ÇÇ = 0
  72. @Ç¢ PLAYER 
  73. :WAIT
  74. â 
  75. I ^ìé THEN
  76. J #Çç 
  77. I @Çí CURFIG TDROGG2A THEN
  78. {
  79. ~ÇÇ = 1
  80. A OFF
  81. J #Çå 
  82. }
  83. J #Çà 
  84. :SUSPENDED
  85. â 
  86. I ^ìé THEN
  87. J #Çç 
  88. J #Çå 
  89. :FINISH
  90. I ~ÇÇ THEN
  91. A ON
  92. }
  93. [ ROCK_BUSTER
  94. 00:00 M BREAK_OUT CONTINUE
  95. @Çè ^⢠+1 1 37 2 
  96. ^ä╖ = $âé 
  97. ^ä╕ = $âé 
  98. O $Çé 
  99. 00:01 @Çå `ǽ 255 1024
  100.  
  101. 03:00 @Çì DROGG_JUMP_FROM_HOLE
  102. ]
  103. { DROGG_JUMP_FROM_HOLE
  104. @Çå `Çò 100 
  105. @Ç¢ DROGG2 
  106.  
  107. M JUMP_DOWN CONTINUE
  108. u CURFIG OFF
  109. Z CURFIG ON
  110. T -3
  111. R CURFIG 7 -17
  112.  
  113. :WAIT_TO_LEAVE_WALL
  114. â 
  115.  
  116. I @Çü CURFIG < 230 THEN J #Çè 
  117. u CURFIG ON
  118.  
  119.  
  120. » CURFIG @üé CURFIG @üâ CURFIG -512
  121. :BRAP
  122. â 
  123. I @üä CURFIG THEN
  124. J #Çï 
  125. ^îé = @Ç║ `äò $üê "The alien lets forth~a bone-chilling wail./FL'extra-terrestre pousse un cri~qui vous glace des pieds à la tête./GDer Außerirdische stößt~einen schrecklichen Schrei aus."
  126. ^îü = @Çÿ `äò 
  127. W 30
  128. ^ìé = $üâ 
  129. C UNLOCK
  130. }
  131. { DROGG2_AI
  132. P ~ÇÇ 
  133. ^îç = 0
  134.  
  135. :TOP
  136. â 
  137. I ^ìé = $üé THEN
  138. J #Çì
  139.  
  140. I .ÇéÇâ != $üö THEN
  141. J #Çì
  142. I @ÇÄ TMB1 = $üé AND @ÇÄ TMB2 = $üé THEN
  143. @Ç¥ RUN_TO_CORNER
  144. I ^âÆ THEN
  145. @Ç¥ RUN_TO_HACK
  146. ~ÇÇ = @Ç¥ MONSTER_MOVE 10
  147. I ~ÇÇ > 0 THEN
  148. {
  149. N ~ÇÇ 
  150. {
  151. U 1
  152. I @Çô "atk_m1" != $üâ THEN
  153. M ATK_M1 CONTINUE
  154. X ÇÇ 
  155. U 2
  156. I @Çô "atk_m2" != $üâ THEN
  157. M ATK_M2 CONTINUE
  158. X ÇÇ 
  159. U 3
  160. I @Çô "atk_m3" != $üâ THEN
  161. M ATK_M3 CONTINUE
  162. X ÇÇ 
  163. U 4
  164. U 6
  165. ┴ 
  166. X ÇÇ 
  167. U 7
  168. I @Çô "atk_m7" != $üâ THEN
  169. M ATK_M7 CONTINUE
  170. X ÇÇ 
  171. U 8
  172. I @Çô "atk_m8" != $üâ THEN
  173. M ATK_M8 CONTINUE
  174. X ÇÇ 
  175. U 9
  176. I @Çô "atk_m9" != $üâ THEN
  177. M ATK_M9 CONTINUE
  178. X ÇÇ 
  179. U 10
  180. I @Çô "atk_m10" != $üâ THEN
  181. M "atk_m10" CONTINUE
  182. X ÇÇ 
  183. }
  184. }
  185. {
  186.  @Çì DROGG2_ATTACK
  187. }
  188. J #Çì
  189. }
  190. { RUN_TO_CORNER
  191. ║ ON
  192. G DROGG1 RUN 30
  193. ┴ 
  194. :WAIT
  195. â 
  196. I @ÇÄ TMB1 == 0 THEN
  197. J #ÇÅ 
  198. ║ OFF
  199. }
  200. { RUN_TO_HACK
  201. ║ ON
  202. G HACK_666 WALK 20
  203. ┴ 
  204. :WAIT
  205. â 
  206. I ^âÆ THEN
  207. J #Çæ 
  208. ║ OFF
  209. }
  210. { DROGG2_ATTACK
  211. N @Çà 0 5 
  212. {
  213. U 0
  214. M ATK_H7
  215. X Çü 
  216. U 1
  217. M ATK_H8
  218. X Çü 
  219. U 2
  220. M ATK_H9
  221. X Çü 
  222. U 3
  223. M SPEC_ATK1
  224. X Çü 
  225. U 4
  226. M SPEC_ATK2
  227. X Çü 
  228. U 5
  229. M SPEC_ATK3
  230. X Çü 
  231. }
  232. }
  233. { DROGG2_STIMULUS _DAMAGE 
  234. P ~Çü 
  235. :GOT_HIT
  236. I @Çó ^îé == $üâ THEN
  237.  ^îü 
  238. ^ìä ++
  239.  
  240.  
  241.  
  242. é 
  243. :SUPER_RECOIL
  244. ^îç ++
  245. @Ç¢ PLAYER 
  246. I ^îç = 2 THEN
  247. {
  248. ^îà = @Ç║ `笠$üë "Are you what Mastaba thought to make of me?/FEst-ce que Mastaba~voulait me créer à ton image ?/GWollte Mastaba~mich zu so etwas machen?"
  249. ^îå = @Çÿ `笠
  250. }
  251. I ^îç = 4 THEN
  252. {
  253. ^îà = @Ç║ `ç⌐ $üë "What foul manner of creature are you!/FQuelle sorte de créature es-tu !/GWas für eine Monstrosität~bist du denn?"
  254. ^îå = @Çÿ `ç⌐ 
  255. }
  256. I ^îç = 7 THEN
  257. {
  258. ^îà = @Ç║ `ç¼ $üë "When will you die, damn you!?/FEst-ce que tu vas mourir, oui ou non !/GVerdammt!~Wann stirbst du endlich?"
  259. ^îå = @Çÿ `ç¼ 
  260. }
  261. I ^îç = 9 THEN 
  262. ^îç = 0
  263. é 
  264. :PLAYER_SUPER_RECOILED
  265. A OFF
  266. I ^ìä < 22 THEN
  267. {
  268. ^îé = @Ç║ `äû $üê "The alien's battle cry echos all about you./FLe cri de bataille de l'extra-terrestre~reflète tout ce que tu es./GDer Schlachtruf des Außerirdischen ertönt."
  269. ^îü = @Çÿ `äû 
  270. M ATK_M2 CONTINUE
  271. W 20
  272. M ATK_STAND CONTINUE
  273. @Ç¥ PAUSE_FOR_SUBTITLE
  274. A ON
  275. }
  276. @Çì DROGG2_ESCAPE
  277. é 
  278. :KILLED_PLAYER
  279. I ^ìü = $üé THEN
  280. é 
  281. A OFF
  282. ┴ 
  283. M ATK_STAND CONTINUE
  284. W 1 SECONDS
  285. M TAUNT3 CONTINUE
  286.  @Ç║ `äù $üê "The sound of the alien's victory~cry is the last sound you ever hear./FLe cri de victoire de l'extra-terrestre est~le dernier son que vous entendrez./GDer Siegesschrei des~Außerirdischen~ist das letzte, was Sie je hören."
  287. â 
  288. è OFF
  289. M STAND CONTINUE
  290. é 
  291. }
  292. { LASER_HIT_DROGG2
  293. @Çå `Çí 
  294. ú BOOM PING CURITEM 
  295. M RECOIL
  296. ^ìä ++
  297.  
  298.  
  299.  
  300. }
  301. { TNFABOLT_HIT_DROGG2
  302. @Çå `Çí 
  303. ú BOOM REDB CURITEM 
  304. M RECOIL
  305. ^ìä += 2
  306.  
  307.  
  308.  
  309. }
  310. { DROGG2_DEATH
  311. ! "ERROR: Drogg2 should not die!"
  312. }
  313. { DROGG2_ESCAPE
  314. ^ìà = $üâ 
  315. ║ ON
  316. Y TMB1 TMB2 ALC1 ALC2 ALC3 ALC4 DGS1 DGS2 DGS3
  317. G RUNDRG1 RUN 30
  318. @Çì MAKELEXPAUSE
  319. G RUNDRG2 RUN 40
  320. G RUNDRG3 RUN 40
  321. :WAIT
  322. â 
  323. I @ÇÄ DGS = $üé THEN
  324. {
  325. G RUNDRG3
  326. J #Ç£ 
  327. }
  328. @Ç¢ PLAYER 
  329. I @Ç╛ THEN
  330. A OFF
  331. C DGS1
  332. @Ç¢ DROGG2 
  333. G BLINK RUN 40
  334.  
  335.  
  336. M USE_KEY1
  337. ^é┤ = 1
  338. ^é╛ = 1
  339. ^â« = 1
  340. ^â» = 1
  341. ^â¼ = 2
  342. W 2
  343. M USE_KEY2
  344. G DTUBE_PT WALK $âÜ 
  345. £ DTUBEFAC GRADUAL
  346. u CURFIG OFF
  347. M ENTER_GRAV
  348. W 1 SECOND
  349. ^â« = 0
  350. ^â» = 0
  351. ^â¼ = 1
  352. W 15
  353. C UNLOCK
  354. ║ OFF
  355. K DROGG2
  356.  
  357. ^ìü = $üé 
  358. @Ç¢ PLAYER 
  359. A ON
  360. W 5 SECONDS
  361. i LEX DROGGONE
  362. }
  363. { MAKELEXPAUSE
  364. :WAIT
  365. â 
  366. I @ÇÄ DGS = $üé THEN
  367. J #Ç₧ 
  368. @Ç¢ PLAYER 
  369. I @Ç╛ THEN
  370. A OFF
  371. }
  372.  
  373.  
  374.  
  375. //$ 26 - version number
  376.