home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / ai_drog1.scp < prev    next >
Text File  |  1995-03-01  |  6KB  |  503 lines

  1. { CONLOC6
  2. ^îÑ = 6
  3. I ^î╣ THEN
  4. é 
  5. ^î╕ = $üé 
  6.  
  7. I ^êÄ = 0 AND ^êÇ = 0 THEN
  8. @Çì WAIT4TIMER
  9. }
  10. { WAIT4TIMER
  11. W 40 SECONDS
  12. I ^êÄ = 0 AND ^êÇ = 0 THEN
  13. ^êÄ = @Çì REACTORDETONATIONTIMER
  14. }
  15. { CONLOC7
  16. ^îÑ = 7
  17. I ^î╣ THEN
  18. é 
  19. @Ç¥ ACTIVATE_DROGG1
  20. }
  21. { CONLOC8
  22. ^îÑ = 8
  23. I ^î╗ THEN 
  24. I @Ç¢ DROGG1 THEN
  25. {
  26. I ^î┤ = $üé THEN
  27. é 
  28. G ZRUN
  29. £ FRCTBUT
  30. @Çì THREE_BILLY_GOAT_GRUFF
  31. }
  32. }
  33. { CONLOC9
  34. ^îÑ = 9
  35. }
  36. { CONLOC10
  37. ^îÑ = 10
  38.  
  39. I ^êÄ THEN
  40. {
  41. I ^êè > 5 THEN
  42. ^êè = 5
  43. }
  44. {
  45. ^êÄ = @Çì REACTORDETONATIONTIMER
  46. }
  47. }
  48. { CONLOC6_DROGG1
  49. ^î╖ = 6
  50. }
  51. { CONLOC7_DROGG1
  52. ^î╖ = 7
  53. }
  54. { CONLOC8_DROGG1
  55. ^î╖ = 8
  56.  
  57. I ^î╣ THEN
  58. é 
  59. I ^î╕ = $üé AND ^î╢ < ^î║ THEN
  60. I @Ç¢ DROGG1 THEN
  61. {
  62. ^î╕ = $üâ 
  63. A OFF
  64. ║ ON
  65. G DCENTER 20 RUN
  66. G PDROGG1 20 RUN
  67. G PDROGG1
  68. ┴ 
  69. ║ OFF
  70. A ON
  71. }
  72. }
  73. { CONLOC9_DROGG1
  74. ^î╖ = 9
  75. }
  76. { CONLOC10_DROGG1
  77. ^î╖ = 10
  78. I @Ç¢ DROGG1 = $üé THEN
  79. é 
  80.  
  81. I ^î╣ = $üé THEN
  82. {
  83. A OFF
  84. ^î╗ = $üâ 
  85. ║ ON
  86. G PART2 30 RUN
  87. ║ OFF
  88. ¥ POSRBOT 100 
  89. A ON
  90. }
  91. }
  92. { RFALLEN
  93. C RTR2
  94. A OFF
  95.  
  96. @Ç║ `ëá $üë "Nooo...!/GNeiiin...!/FNooonnn !!!"
  97. W 2 SECONDS
  98. @Ç¥ DAMAGE_LEX_IMPACT 1000
  99. }
  100. { RFALLEN_DROGG1
  101. C RTR2
  102. ^î┤ = $üé 
  103. A OFF
  104.  
  105. @Ç║ `äò $üè "The alien screams as he falls.../FLe monstre crie en tombant.../GDer Außerirdische schreit im Fallen..."
  106. W 2 SECONDS
  107. C UNLOCK
  108. }
  109. { READY_DROGG1
  110.  
  111. I ^î⌐ THEN
  112. é 
  113. I ^î┤ = $üé THEN
  114. é 
  115. I @Ç¢ DROGG1 = $üé THEN
  116. {
  117. ! "&&& CAN'T FIND Drogg1 &&&" 
  118. é 
  119. }
  120. ^î╖ = 6
  121. ^î╜ = 0
  122. ^î╕ = $üâ 
  123. è ON
  124. ï PLAYER
  125. Y RTR1 RTR2 RTR3 RTR4 RTR5 RTR6
  126. ö DROGG1
  127. G PDROGG1
  128. £ POSRBOT
  129. ^î╢ = 0
  130. Z CURFIG ON
  131. M STAND CONTINUE
  132. }
  133. { ACTIVATE_DROGG1
  134.  
  135. I ^î⌐ THEN
  136. é 
  137. I ^î┤ = $üé THEN
  138. é 
  139. I ^î╡ THEN
  140. é 
  141. I @Ç¢ DROGG1 = $üé THEN
  142. {
  143. ! "&&& CAN'T FIND Drogg1 &&&" 
  144. é 
  145. }
  146. ┬ 
  147. ┴ 
  148. M STAND CONTINUE
  149. ^î╡ = $üâ 
  150. }
  151. { DROGG1_AI
  152. P ~ÇÇ 
  153. P ~Çü 
  154. ~Çü = 0
  155. ^îç = 0
  156.  
  157. :TOP
  158. â 
  159. I ~Çü == 0 THEN
  160. {
  161. @Ç¢ PLAYER 
  162. I @Çô "shoot" OR @Çô "atk_shoot" THEN
  163. {
  164. @Ç¢ DROGG1 
  165. M DUCK
  166. M DUCK_LOOP CONTINUE
  167. ~Çü = 1
  168. }
  169. @Ç¢ DROGG1 
  170. }
  171. I ^î╕ THEN
  172. J #ÇÉ
  173. I ^îÑ > 6 THEN
  174. {
  175. I ^î╢ < ^î║ THEN
  176. {
  177. ┴ 
  178. J #ÇÉ
  179. }
  180. {
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192. }
  193. }
  194.  
  195.  
  196. I ^î╣ = $üâ THEN
  197. {
  198.  
  199.  
  200.  
  201. J #ÇÉ
  202. }
  203.  
  204. I .ÇéÇâ != $üö THEN
  205. J #ÇÉ
  206. ~ÇÇ = @Ç¥ MONSTER_MOVE 10
  207. I ~ÇÇ > 0 THEN
  208. {
  209. N ~ÇÇ 
  210. {
  211. U 2
  212. I @Çô "atk_m2" != $üâ THEN
  213. M ATK_M2 CONTINUE
  214. X ÇÇ 
  215. U 1
  216. U 3
  217. U 4
  218. U 6
  219. U 7
  220. U 9
  221. ┴ 
  222. X ÇÇ 
  223. U 8
  224. I @Çô "atk_m8" != $üâ THEN
  225. M ATK_M8 CONTINUE
  226. X ÇÇ 
  227. U 10
  228.  
  229.  
  230. I ^îÑ > 6 AND @Çé CURFIG < -541 THEN
  231. {
  232. ║ ON
  233. G DCENTER RUN
  234. G DCENTER2 RUN
  235. ║ OFF
  236. }
  237. I @Çô "atk_m10" != $üâ THEN
  238. M "atk_m10" CONTINUE
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249. X ÇÇ 
  250. }
  251. }
  252. {
  253. I ^î╝ = $üâ THEN
  254. {
  255. M SPEC_ATK1
  256. }
  257. {
  258. N @Çà 0 5 
  259. {
  260. U 0
  261. M ATK_H7
  262. X Çü 
  263. U 1
  264. M ATK_H8
  265. X Çü 
  266. U 2
  267. M ATK_H9
  268. X Çü 
  269. U 3
  270. M SPEC_ATK1
  271. X Çü 
  272. U 4
  273. M SPEC_ATK2
  274. X Çü 
  275. U 5
  276. M SPEC_ATK3
  277. X Çü 
  278. }
  279. }
  280. }
  281. J #ÇÉ
  282. }
  283. { DROGG1_STIMULUS _DAMAGE 
  284. P ~Çü 
  285. :GOT_HIT
  286. I @Çó ^îé == $üâ THEN
  287.  ^îü 
  288. é 
  289. :HIT_PLAYER
  290. I ^î╝ THEN
  291. @Ç¥ ABORTPULL
  292. é 
  293. :SUPER_RECOIL
  294. ^î╢ ++
  295.  
  296. I ^î╢ = ^î║ THEN
  297. D IMPACT 250
  298. ^îç ++
  299. @Ç¢ PLAYER 
  300. I ^îç = 1 THEN
  301. {
  302.  
  303. ^îà = @Ç║ `ç⌐ $üë "What foul manner of creature are you!?/FMais quelle sorte de créature es-tu !/GWas für eine Monstrosität~bist du denn?"
  304. ^îå = @Çÿ `ç⌐ 
  305. }
  306. I ^îç = 4 THEN
  307. {
  308.  
  309. ^îà = @Ç║ `笠$üë "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?"
  310. ^îå = @Çÿ `笠
  311. }
  312. I ^îç = 7 THEN
  313. {
  314.  
  315. ^îà = @Ç║ `ç¼ $üë "When will you die, damn you!?/FEst-ce que tu vas mourir,~oui ou non !?/GVerdammt!~Wann stirbst du endlich?"
  316. ^îå = @Çÿ `ç¼ 
  317. }
  318. I ^îç = 9 THEN
  319. ^îç = 0
  320. é 
  321. :PLAYER_SUPER_RECOILED
  322. A OFF
  323. M C_TAUNT2 CONTINUE
  324. ^îé = @Ç║ `äû $üê "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."
  325. ^îü = @Çÿ `äû 
  326. @Ç¥ PAUSE_FOR_SUBTITLE
  327. A ON
  328. é 
  329. :KILLED_PLAYER
  330. I ^î┤ = $üé THEN
  331. é 
  332. A OFF
  333. ┴ 
  334. M ATK_STAND CONTINUE
  335. W 1 SECONDS
  336. M TAUNT3 CONTINUE 
  337.  @Ç║ `äù $üê "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."
  338. â 
  339. è OFF
  340. M STAND CONTINUE
  341. é 
  342. }
  343. { LASER_HIT_DROGG1
  344. @Çå `Çí 
  345. ú BOOM PING CURITEM 
  346. ^î╢ ++
  347. I ^Åú < 2 THEN ^î╢ ++
  348. I ^Åú < 1 THEN ^î╢ ++
  349.  
  350. I ^î╢ = ^î║ THEN
  351. D IMPACT 250
  352. A OFF
  353. M RECOIL
  354. A ON
  355. }
  356. { DROGG1_DEATH
  357. ! "&&& ERROR: Drogg1 should not die! &&&"
  358. }
  359. { DROGG1_RUNFORIT
  360. I ^î╣ = $üâ THEN
  361. é 
  362. I ^î╗ THEN 
  363. é 
  364. I @Ç¢ DROGG1 = $üé THEN
  365. é 
  366. ^î╣ = $üâ 
  367. A OFF
  368. ║ ON
  369. G DCENTER 25 RUN
  370.  
  371. G GOZMID 25 RUN
  372. G ZRUN
  373. £ FRCTBUT
  374. ║ OFF
  375. A ON
  376. @Çì THREE_BILLY_GOAT_GRUFF
  377. }
  378. { THREE_BILLY_GOAT_GRUFF
  379. I @Ç¢ DROGG1 = $üé THEN
  380. é 
  381. I ^î┤ = $üé THEN
  382. é 
  383. ║ ON
  384. :LOOP
  385. â 
  386. I ^îÑ = 10 THEN
  387. {
  388. ║ OFF
  389. é 
  390. }
  391. I ^îÑ < 6 THEN
  392. {
  393. ║ OFF
  394. é 
  395. }
  396. I ^îÑ = 9 THEN
  397. {
  398. A OFF
  399. @Ç¥ BRDG_BUT_USE
  400. M STAND CONTINUE
  401.  @Ç║ `äù $üê "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"
  402. W 10 SECONDS
  403. }
  404. {
  405. G ZRUN
  406. £ FRCTBUT
  407. J #Ç¢ 
  408. }
  409. }
  410. { LFT_LEV_USE
  411. I ^åâ = 1 THEN
  412. é 
  413. I ^î╝ = $üâ THEN
  414. é 
  415.  
  416. I ^åä = 1 THEN
  417. @Çì DROGG1_RUNFORIT
  418. ^î╝ = $üâ 
  419. ^î╜ = 0
  420. £ FLFTLVR
  421. ^îä = @Çì PULLLEFTLEVER
  422. }
  423. [ PULLLEFTLEVER
  424. 00:00 A OFF
  425. M REACTOR_PULL 140 CONTINUE SNAP_TO
  426. 00:25 ^î╜ = @Çè ^ü┐ 1 2 12 10 
  427. 01:00 @Çå `üç 
  428. 03:25 ^åâ = 1
  429. A ON
  430. ^î╝ = $üé 
  431. 04:15 @Çå `à┤ 
  432. 05:10 @Ç║ `âæ $üê "COMPUTER: Power conductor disengaged./FConducteur d'alimentation déclenché./GEnergieleiter abgeschaltet." 
  433. 05:15 @Çå `âæ 100 
  434. ]
  435. { RGT_LEV_USE
  436. I ^åä = 1 THEN
  437. é 
  438. I ^î╝ = $üâ THEN
  439. é 
  440.  
  441. I ^åâ = 1 THEN
  442. @Çì DROGG1_RUNFORIT
  443. ^î╝ = $üâ 
  444. ^î╜ = 0
  445. £ FRGTLVR GRADUAL
  446. ^îä = @Çì PULLRIGHTLEVER
  447. }
  448. [ PULLRIGHTLEVER
  449. 00:00 A OFF
  450. M REACTOR_PULL 140 CONTINUE SNAP_TO
  451. 00:25 ^î╜ = @Çè ^ü╛ 1 2 12 10 
  452. 01:00 @Çå `üç 
  453. 03:25 ^åä = 1
  454. A ON
  455. ^î╝ = $üé 
  456. 04:15 @Çå `à┤ 
  457. 05:10 @Ç║ `âæ $üê "COMPUTER: Power conductor disengaged./FConducteur d'alimentation déclenché./GEnergieleiter abgeschaltet." 
  458. 05:15 @Çå `âæ 100 
  459. ]
  460. { ABORTPULL
  461. @Ç¢ PLAYER 
  462. I @Çí CURFIG "LFT_LEV" THEN
  463. {
  464. I ^åâ = 0 THEN
  465. @Çì ABORTLEFTLEVER
  466. }
  467. {
  468. I ^åä = 0 THEN
  469. @Çì ABORTRIGHTLEVER
  470. }
  471. }
  472. { ABORTLEFTLEVER
  473. A ON
  474.  ^îä 
  475. I ^î╜ THEN
  476. {
  477.  ^î╜ 
  478. ^î╜ = 0
  479.  @Çè ^ü┐ -1 ^ü┐ 1 5 
  480. }
  481. ^î╝ = $üé 
  482. }
  483. { ABORTRIGHTLEVER
  484.  ^îä 
  485. I ^î╜ THEN
  486. {
  487.  ^î╜ 
  488. ^î╜ = 0
  489.  @Çè ^ü╛ -1 ^ü╛ 1 5 
  490. }
  491. ^î╝ = $üé 
  492. }
  493.  
  494.  
  495. //$ 26 - version number
  496.