home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / ai_shrmp.scp < prev    next >
Text File  |  1995-02-08  |  7KB  |  594 lines
  1. { TSHR2
  2. @Ç¥ ACTIVATE_SHRIMP2
  3. }
  4. { READY_SHRIMP1
  5. ^ìç = $üé 
  6. I ^ìå = $üé THEN
  7. é 
  8. I @Ç¢ SHRIMP1 = $üé THEN
  9. {
  10. ! "CAN'T FIND Shrimp1 !!" 
  11. é 
  12. }
  13. ¥ AVDHALL 400
  14. è ON
  15. ï PLAYER
  16. Y DGS1 DGS2 DGS3 DGS4 ALC4 ALC1
  17. ö SHRIMP1
  18. G PSHRIMP1
  19. £ FSHRIMP1
  20. ª PSHRIMP1
  21. Z CURFIG OFF
  22. M FEED CONTINUE
  23. ^ê▓ = @Çç `⪠SHRIMP 
  24. @Çï ^ê▓ 2000 11025 30 
  25. }
  26. { READY_SHRIMP2
  27. I ^ç╖ = $üé THEN
  28. é 
  29. I ^ìê = $üé THEN
  30. é 
  31. I @Ç¢ SHRIMP2 = $üé THEN
  32. {
  33. ! "CAN'T FIND Shrimp2 !!" 
  34. é 
  35. }
  36. ¥ AVDHALL 400
  37. è ON
  38. ï PLAYER
  39. Y DGS1 DGS2 DGS3 DGS4 ALC4 ALC1
  40. ö SHRIMP2
  41. G PSHRIMP2
  42. £ FSHRIMP1
  43. ª PSHRIMP2
  44. Z CURFIG OFF
  45. M FEED CONTINUE
  46. ^ê▓ = @Çç `⪠SHRIMP 
  47. @Çï ^ê▓ 2000 11025 30 
  48. }
  49. { REREADY_SHRIMP3
  50. I ^ìè = $üé THEN
  51. é 
  52. I @Ç¢ SHRIMP3 = $üé THEN
  53. {
  54. ! "CAN'T FIND Shrimp3 !!" 
  55. é 
  56. }
  57. K 
  58. ^ìï = $üé 
  59. ^ìè = $üé 
  60. W 20 SECONDS
  61. @Çì CHECKACTIVATESHRIMP
  62. }
  63. { READY_SHRIMP3 _POSITION
  64. I ^ìè = $üé THEN
  65. é 
  66. I @Ç¢ SHRIMP3 = $üé THEN
  67. {
  68. ! "CAN'T FIND Shrimp3 !!" 
  69. é 
  70. }
  71. è ON
  72. ï PLAYER
  73. Y TUN1 TUN2
  74. ö SHRIMP3
  75. I ~ÇÇ = 1 THEN
  76. G PS1
  77. E I ~ÇÇ = 2 THEN
  78. G PS2
  79. E I ~ÇÇ = 3 THEN
  80. G PS3
  81. E 
  82. G PS4
  83. £ PIL_BASE
  84. I ~ÇÇ = 1 THEN
  85. ª PS1
  86. E I ~ÇÇ = 2 THEN
  87. ª PS2
  88. E I ~ÇÇ = 3 THEN
  89. ª PS3
  90. E 
  91. ª PS4
  92. Z CURFIG OFF
  93. M ATK_STAND CONTINUE
  94. ^ê┤ = @Çç `⪠SHRIMP 
  95. @Çï ^ê┤ 2000 11025 30 
  96. }
  97. { ACTIVATE_SHRIMP1
  98. I ^ìå = $üé THEN
  99. é 
  100. I ^ìç THEN
  101. é 
  102. I @Ç¢ SHRIMP1 = $üé THEN
  103. {
  104. ! "CAN'T FIND Shrimp1 !!" 
  105. é 
  106. }
  107. ┬ 
  108. ║ ON
  109. ^⪠= $üâ 
  110. W 30 
  111. M RISE_FROM_FEED CONTINUE
  112.  ^⺠
  113. @Çï ^ê▓ 11025 13000 30 
  114. :WAIT
  115. â 
  116. I @Çô RISE_FROM_FEED THEN
  117. J #Çå 
  118. M ATK_STAND CONTINUE
  119. W 1 SECOND
  120. ┴ 
  121.  
  122. ^îé = @Ç║ `ïæ $üê "The alien creature shrieks at you.../FL'étrange créature vous surpasse.../GDas außerirdische Wesen schreit..."
  123. ^îü = @Çÿ `ïæ 
  124. ║ OFF
  125. ^⪠= $üé 
  126. ^ìç = $üâ 
  127. }
  128. { ACTIVATE_SHRIMP2
  129. I ^ç╖ = $üé THEN
  130. é 
  131. I ^ìê = $üé THEN
  132. é 
  133. I ^ìë THEN
  134. é 
  135. I @Ç¢ SHRIMP2 = $üé THEN
  136. {
  137. ! "CAN'T FIND Shrimp2 !!" 
  138. é 
  139. }
  140. W 3 SECONDS
  141. ┬ 
  142. ║ ON
  143.  
  144. ^îé = @Ç║ `ïÆ $üê "You hear an alien shriek from above.../FOn entend un cri de victoire étrange./GDu hörst über dir~den Schrei eines Außerirdischen."
  145. ^îü = @Çÿ `ïÆ 
  146. @Çï ^ê▓ 11025 13000 30 
  147. â 
  148. â 
  149. â 
  150. M DROP_DOWN CONTINUE
  151. :WAIT
  152. â 
  153. I @Çô DROP_DOWN THEN
  154. J #Çê 
  155. M ATK_STAND CONTINUE
  156. W 1 SECOND
  157. ┴ 
  158. ║ OFF
  159. ^ìë = $üâ 
  160. }
  161. { ACTIVATE_SHRIMP3
  162. I ^ìè = $üé THEN
  163. é 
  164. I ^ìï THEN
  165. é 
  166. I @Ç¢ SHRIMP3 = $üé THEN
  167. {
  168. ! "CAN'T FIND Shrimp3 !!" 
  169. é 
  170. }
  171. ┬ 
  172. ║ ON
  173.  
  174. ^îé = @Ç║ `ïÆ $üê "You hear an alien shriek from above.../FOn entend un cri de victoire étrange./GDu hörst über dir~den Schrei eines Außerirdischen."
  175. ^îü = @Çÿ `ïÆ 
  176. M DESCEND
  177. M DESCEND
  178. M DESCEND CONTINUE
  179. @Çï ^ê▓ 11025 13000 30 
  180. :WAIT
  181. â 
  182. I @Çô DESCEND THEN
  183. J #Çè 
  184. M ATK_STAND CONTINUE
  185. W 1 SECOND
  186. ┴ 
  187. ║ OFF
  188. ^ìï = $üâ 
  189. }
  190. { SHRIMP1_AI
  191. P ~ÇÇ 
  192. ^îç = 0 
  193. :TOP
  194. â 
  195. I ^ìç = $üé THEN
  196. J #Çî
  197.  
  198. I .ÇéÇâ != $üö THEN
  199. J #Çî
  200. I @ÇÄ ALC4 THEN
  201. {
  202. £ RUNDRG3 GRADUAL
  203. M ATK_M8 CONTINUE
  204. :WAIT
  205. â 
  206. I @ÇÄ ALC4 THEN
  207. J #Çì 
  208. }
  209.  
  210. @Ç¢ PLAYER 
  211. I @Çô "shoot" OR @Çô "atk_shoot" THEN
  212. {
  213. @Ç¢ SHRIMP1 
  214. N @Çà 0 1 
  215. {
  216. U 0
  217. M ATK_M1 CONTINUE
  218. X ÇÇ 
  219. U 1
  220. M ATK_M3 CONTINUE
  221. X ÇÇ 
  222. }
  223. W 45
  224. J #Çî
  225. }
  226.  
  227. @Ç¢ SHRIMP1 
  228. ~ÇÇ = @Ç¥ MONSTER_MOVE 8
  229. I ~ÇÇ > 0 THEN
  230. {
  231. N ~ÇÇ 
  232. {
  233. U 1
  234. I @Çô "atk_m1" != $üâ THEN
  235. M ATK_M1 CONTINUE
  236. X Çü 
  237. U 2
  238. I @Çô "atk_m2" != $üâ THEN
  239. M ATK_M2 CONTINUE
  240. X Çü 
  241. U 3
  242. I @Çô "atk_m3" != $üâ THEN
  243. M ATK_M3 CONTINUE
  244. X Çü 
  245. U 4
  246. U 6
  247. ┴ 
  248. X Çü 
  249. U 7
  250. I @Çô "atk_m7" != $üâ THEN
  251. M ATK_M7 CONTINUE
  252. X Çü 
  253. U 8
  254. I @Çô "atk_m8" != $üâ THEN
  255. M ATK_M8 CONTINUE
  256. X Çü 
  257. U 9
  258. I @Çô "atk_m9" != $üâ THEN
  259. M ATK_M9 CONTINUE
  260. X Çü 
  261. U 10
  262. I @Çô "atk_m10" != $üâ THEN
  263. M ATK_M10 CONTINUE
  264. X Çü 
  265. }
  266. }
  267. E 
  268. {
  269. M ATTACK_MINOR
  270. }
  271. â 
  272. J #Çî
  273. }
  274. { SHRIMP2_AI
  275. P ~ÇÇ 
  276. ^îç = 0 
  277. :TOP
  278. â 
  279. I ^ìë = $üé THEN
  280. J #ÇÅ
  281.  
  282. I .ÇéÇâ != $üö THEN
  283. J #ÇÅ
  284. I @ÇÄ ALC4 THEN
  285. {
  286. £ RUNDRG3 GRADUAL
  287. M ATK_M8 CONTINUE
  288. :WAIT
  289. â 
  290. I @ÇÄ ALC4 THEN
  291. J #ÇÉ 
  292. }
  293.  
  294. @Ç¢ PLAYER 
  295. I @Çô "shoot" OR @Çô "atk_shoot" THEN
  296. {
  297. @Ç¢ SHRIMP2 
  298. N @Çà 0 1 
  299. {
  300. U 0
  301. M ATK_M1 CONTINUE
  302. X Çé 
  303. U 1
  304. M ATK_M3 CONTINUE
  305. X Çé 
  306. }
  307. W 45
  308. J #ÇÅ
  309. }
  310.  
  311. @Ç¢ SHRIMP2 
  312. ~ÇÇ = @Ç¥ MONSTER_MOVE 8
  313. I ~ÇÇ > 0 THEN
  314. {
  315. N ~ÇÇ 
  316. {
  317. U 1
  318. I @Çô "atk_m1" != $üâ THEN
  319. M ATK_M1 CONTINUE
  320. X Çâ 
  321. U 2
  322. I @Çô "atk_m2" != $üâ THEN
  323. M ATK_M2 CONTINUE
  324. X Çâ 
  325. U 3
  326. I @Çô "atk_m3" != $üâ THEN
  327. M ATK_M3 CONTINUE
  328. X Çâ 
  329. U 4
  330. U 6
  331. ┴ 
  332. X Çâ 
  333. U 7
  334. I @Çô "atk_m7" != $üâ THEN
  335. M ATK_M7 CONTINUE
  336. X Çâ 
  337. U 8
  338. I @Çô "atk_m8" != $üâ THEN
  339. M ATK_M8 CONTINUE
  340. X Çâ 
  341. U 9
  342. I @Çô "atk_m9" != $üâ THEN
  343. M ATK_M9 CONTINUE
  344. X Çâ 
  345. U 10
  346. I @Çô "atk_m10" != $üâ THEN
  347. M ATK_M10 CONTINUE
  348. X Çâ 
  349. }
  350. }
  351. E 
  352. {
  353. M ATTACK_MINOR
  354. }
  355. â 
  356. J #ÇÅ
  357. }
  358. { SHRIMP3_AI
  359. P ~ÇÇ 
  360. ^îç = 0 
  361. :TOP
  362. â 
  363. I ^ìï = $üé THEN
  364. J #ÇÆ
  365.  
  366. I .ÇéÇâ != $üö THEN
  367. J #ÇÆ
  368.  
  369. @Ç¢ PLAYER 
  370. I @Çô "shoot" OR @Çô "atk_shoot" THEN
  371. {
  372. @Ç¢ SHRIMP3 
  373. N @Çà 0 1 
  374. {
  375. U 0
  376. M ATK_M1 CONTINUE
  377. X Çä 
  378. U 1
  379. M ATK_M3 CONTINUE
  380. X Çä 
  381. }
  382. W 45
  383. J #ÇÆ
  384. }
  385.  
  386. @Ç¢ SHRIMP3 
  387. ~ÇÇ = @Ç¥ MONSTER_MOVE 8
  388. I ~ÇÇ > 0 THEN
  389. {
  390. N ~ÇÇ 
  391. {
  392. U 1
  393. I @Çô "atk_m1" != $üâ THEN
  394. M ATK_M1 CONTINUE
  395. X Çà 
  396. U 2
  397. I @Çô "atk_m2" != $üâ THEN
  398. M ATK_M2 CONTINUE
  399. X Çà 
  400. U 3
  401. I @Çô "atk_m3" != $üâ THEN
  402. M ATK_M3 CONTINUE
  403. X Çà 
  404. U 4
  405. U 6
  406. ┴ 
  407. X Çà 
  408. U 7
  409. I @Çô "atk_m7" != $üâ THEN
  410. M ATK_M7 CONTINUE
  411. X Çà 
  412. U 8
  413. I @Çô "atk_m8" != $üâ THEN
  414. M ATK_M8 CONTINUE
  415. X Çà 
  416. U 9
  417. I @Çô "atk_m9" != $üâ THEN
  418. M ATK_M9 CONTINUE
  419. X Çà 
  420. U 10
  421. I @Çô "atk_m10" != $üâ THEN
  422. M ATK_M10 CONTINUE
  423. X Çà 
  424. }
  425. }
  426. E 
  427. {
  428. M ATTACK_MINOR
  429. }
  430. â 
  431. J #ÇÆ
  432. }
  433. { SHRIMP1_ATK_STAND
  434. I .ÇéÇâ == $üû THEN
  435. M FLOAT_RECOIL CONTINUE
  436. E 
  437. M ATK_STAND CONTINUE
  438. }
  439. { SHRIMP2_ATK_STAND
  440. I .ÇéÇâ == $üû THEN
  441. M FLOAT_RECOIL CONTINUE
  442. E 
  443. M ATK_STAND CONTINUE
  444. }
  445. { SHRIMP3_ATK_STAND
  446. I .ÇéÇâ == $üû THEN
  447. M FLOAT_RECOIL CONTINUE
  448. E 
  449. M ATK_STAND CONTINUE
  450. }
  451. { SHRIMP_DEFEND
  452. I .ÇéÇâ = $üû THEN
  453. é 
  454. A OFF
  455. .ÇéÇâ = $üû 
  456. M START_RECOIL
  457. r CURFIG ON
  458. M FLOAT_RECOIL CONTINUE
  459. W 5 SECONDS
  460. r CURFIG OFF
  461. ñ CURFIG
  462. M BACK_FROM_RECOIL
  463. .ÇéÇâ = $üö 
  464. A ON
  465. }
  466. { SHRIMP_STIMULUS _DAMAGE 
  467. P ~Çü 
  468. :GOT_HIT
  469. I @Çó ^îé THEN
  470.  ^îü 
  471.  
  472. I .ÇéÇâ == $üû THEN
  473. {
  474. @Çå `äÿ 200
  475. .ÇéÇÇ += ~ÇÇ 
  476. é 
  477. }
  478. E 
  479. @Çì SHRIMP_DEFEND
  480. é 
  481. :PLAYER_SUPER_RECOILED
  482. A OFF
  483. ^îé = @Ç║ `ïô $üê "The alien shrieks triumphantly./FL'étrange créature triomphe royalement./GDer Außerirdische stößt~einen Triumphschrei aus."
  484. ^îü = @Çÿ `ïô 
  485. M ATK_M2 CONTINUE
  486. W 20
  487. M ATK_STAND CONTINUE
  488. @Ç¥ PAUSE_FOR_SUBTITLE
  489. A ON
  490. é 
  491. :KILLED_PLAYER
  492. A OFF
  493. ┴ 
  494. M ATK_STAND CONTINUE
  495. W 1 SECONDS
  496. @Ç║ `ïö $üê "The alien utters a victory cry~in preparation for its feast./FLa créature pousse un cri de victoire~en attendant son festin./GDer Außerirdische stößt seinen~Siegesschrei aus und bereitet~sich aufs Fressen vor."
  497. é 
  498. }
  499. { BLOW_SHRIMP
  500. @Çå `ǽ 
  501.  ^ê▓ 
  502.  ^ê│ 
  503.  ^ê┤ 
  504. Ü 20 20 20 1 
  505. ú BOOM BLUEC CURFIG 
  506. K CURFIG
  507. l CURFIG
  508. }
  509. { SHRIMP1_DEATH
  510. @Çì BLOW_SHRIMP
  511. ^⪠= $üâ 
  512. I @Çó ^⺠THEN  ^⺠
  513. @Ç¢ PLAYER 
  514. A OFF
  515. M ATK_M2 CONTINUE
  516. W 20
  517. I @Çò > 30 THEN
  518. ┴ 
  519. è OFF
  520. M STAND CONTINUE
  521. W 1 SECONDS
  522. M TAUNT2 CONTINUE
  523. W 1 SECONDS
  524. @Çì GROWL 5
  525.  
  526.  @Ç║ `ç╢ $üë "What a disgusting smell./FQuelle odeur infecte !/GWas stinkt denn hier so?"
  527. M STAND CONTINUE
  528. â 
  529. A ON
  530. ^ìå = $üé 
  531. ^⪠= $üé 
  532. W 5 SECONDS
  533. i LEX SHRIMP
  534. }
  535. { SHRIMP2_DEATH
  536. @Çì BLOW_SHRIMP
  537. @Ç¢ PLAYER 
  538. A OFF
  539. M ATK_M2 CONTINUE
  540. W 20
  541. ┴ 
  542. è OFF
  543. M STAND CONTINUE
  544. W 1 SECONDS
  545. M TAUNT2 CONTINUE
  546. W 1 SECONDS
  547. @Çì GROWL 5
  548.  
  549.  @Ç║ `ç╖ $üë "Little alien intestines everywhere. Lovely./FDes boyaux de petits extra-terrestres~partout... Ravissant./GÜberall Gedärme von Außerirdischen.~Wie hübsch!"
  550. M STAND CONTINUE
  551. â 
  552. A ON
  553. ^ìê = $üé 
  554. W 5 SECONDS
  555. i LEX SHRIMP
  556. }
  557. { SHRIMP3_DEATH
  558. ^ìè = $üé 
  559. ^ìï = $üé 
  560. @Çì BLOW_SHRIMP
  561. @Ç¢ PLAYER 
  562. A OFF
  563. M ATK_M2 CONTINUE
  564. W 20
  565. ┴ 
  566. è OFF
  567. M STAND CONTINUE
  568. W 1 SECONDS
  569. M TAUNT2 CONTINUE
  570. W 1 SECONDS
  571. @Çì GROWL 5
  572.  
  573.  @Ç║ `ç╕ $üë "I hope you were the last one./FJ'espère que tu étais le dernier./GIch hoffe, daß du der letzte warst."
  574. M STAND CONTINUE
  575. â 
  576. A ON
  577. W 5 SECONDS
  578. i LEX SHRIMP
  579. W 15 SECONDS
  580. @Çì CHECKACTIVATESHRIMP
  581. }
  582. { SHRIMP_WOUNDS
  583. P ~ÇÇ 
  584. @Ç¢ SHRIMP 
  585. ~ÇÇ = .ÇéÇÇ 
  586. I ~ÇÇ < 50 THEN
  587. {
  588. w CURFIG DRAWONLY SHRIMP1 PICTURE 1
  589. }
  590. }
  591.  
  592.  
  593. //$ 26 - version number
  594.