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

  1.  
  2.  
  3. { LEX_LOAD
  4.  
  5. @Çì LEX_WOUNDS
  6. ^îÇ = 0
  7.  
  8. }
  9. { HARD_LOAD
  10.  
  11. @Çì LEX_WOUNDS
  12. ^îÇ = 0
  13.  
  14. }
  15. { LEX_BLINKY
  16. :TOP
  17. W 3 SECONDS
  18. I @Ç⌐ LEX THEN
  19. @Ç¥ BLINK
  20. J #Çâ
  21. }
  22. { KILLLEX
  23. I ^ï┤ THEN 
  24. é 
  25. ^ï┤ = 1
  26. .ÇâÇÇ = 0
  27.  
  28.  
  29. Æ 
  30.  
  31. @Ç¥ EXITMONITOR 
  32.  
  33.  
  34.  
  35.  
  36. I ^ï┐ THEN
  37. W ^ï┐ SECONDS
  38. ^ï┐ = 2 
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49. w CURFIG RESTORE ALL
  50.  
  51.  
  52. Ü 0 0 0 999 
  53.  
  54. ì 0
  55. ì MOVE 0 0 0 0
  56.  
  57.  
  58. ^îÇ = 1
  59. C SHOW STITLE
  60.  
  61. }
  62. { DAMAGE_LEX_IMPACT _AMOUNT
  63. @Ç¢ PLAYER
  64. I .ÇâÇÇ <= 0 THEN
  65. é 
  66. D ~ÇÇ IMPACT
  67. I .ÇâÇÇ <= 0 THEN
  68. {
  69.  
  70. ^ï┐ = 7
  71.  
  72. ║ ON
  73. @Çì KILLLEX
  74. }
  75. }
  76. { DAMAGE_LEX_ENERGY _AMOUNT
  77. @Ç¢ PLAYER
  78. I .ÇâÇÇ <= 0 THEN
  79. é 
  80. D ~ÇÇ ENERGY
  81. I .ÇâÇÇ <= 0 THEN
  82. {
  83.  
  84. ^ï┐ = 7
  85.  
  86. ║ ON
  87. @Çì KILLLEX
  88. }
  89. }
  90. { LEX_DEATH
  91. @Ç¥ EXITMONITOR 
  92. â 
  93. A OFF
  94.  
  95.  
  96. ║ ON
  97. M DIE
  98.  
  99. ^ï┐ = 7
  100. @Ç¥ KILLLEX
  101. }
  102.  
  103. { LEX_STAND
  104. I @ÇÄ ZEG THEN
  105. {
  106. M FLOAT
  107. é 
  108. }
  109. :TOP
  110. M STAND CONTINUE
  111. W @Çà 2 14 SECONDS
  112. I ^Ç╡ == 0 THEN
  113. {
  114. I @ÇÆ RTHAND THEN
  115. {
  116.  
  117. I @Çà 10 20 < 15 THEN
  118. M STAND_3
  119. M STAND_4
  120. }
  121. {
  122. N @Çà 2 4 
  123. {
  124. U 2 
  125. M STAND_1
  126. X ÇÇ 
  127. U 3 
  128. M STAND_2
  129. X ÇÇ 
  130. U 4 
  131. I @Çà 10 20 < 15 THEN
  132. M STAND_3
  133. M STAND_4
  134. X ÇÇ 
  135. }
  136. }
  137. }
  138. J #Çë
  139. }
  140. { LEX_WALK
  141. I .ÇéÇÇ < 33 THEN
  142. M WALK_DMG2
  143. E I .ÇéÇÇ < 66 THEN
  144. M WALK_DMG1
  145. M WALK
  146. }
  147. { LEX_RUN
  148. I .ÇéÇÇ < 33 THEN
  149. {
  150. M RUN CONTINUE
  151. W 10
  152. A OFF
  153. M RUN_N_FALL
  154. M GET_UP_FORWARD
  155. A ON
  156. }
  157. M RUN
  158. }
  159. { LEX_WALK_BACK
  160. I .ÇéÇÇ < 33 THEN
  161. M LIMP_BACK
  162. M WALK_BACK
  163. }
  164. { LEX_ATK_SHOOT
  165. I @Çæ RTHAND GRENADE THEN
  166. M GRENADE_TOSS
  167.  
  168. E I ^ﺠ= 1 OR ^üÇ THEN
  169. {
  170. ^ﺠ= 0
  171.  @Çì FIRE_PFD
  172.  
  173.  
  174.  
  175. I ^üÇ = 0 THEN
  176. {
  177. W 3 SECONDS
  178. i LEX PFDONCE
  179. }
  180. }
  181. E I @Çæ RTHAND BLASTER = $üâ OR @Çæ RTHAND TONFA = $üâ THEN
  182. {
  183. I @Ç⌐ LEXMIR THEN
  184. {
  185. M ATK_SHOOT_FAIL CONTINUE
  186. @Çå `à╝ 
  187. W 2 SECONDS
  188. @Çì ADDLOGWEAPONSFAIL
  189. é 
  190. }
  191. M ATK_SHOOT
  192. }
  193. }
  194. { FIRE_PFD
  195. M PFD_SHOOT_1 FREEZE
  196.  
  197.  
  198. @Ç¥ STARTPFDBLAST
  199. @Ç╣ BOLTPFD LTLOWARM 6 15 0 0 0 
  200. @Çì STOPPFDBLAST
  201. M PFD_SHOOT_2
  202. }
  203. { STARTPFDBLAST
  204. e PFDBLST
  205. f LTLOWARM
  206.  
  207. v CURITEM PDFFR0 ON RESET 0
  208. v CURITEM PDFSD0 ON RESET 0
  209.  
  210. v CURITEM PDFFR0 ON INCREMENT 4
  211. v CURITEM PDFSD0 ON INCREMENT 4
  212. â 
  213. â 
  214. â 
  215. }
  216. { STOPPFDBLAST
  217. â 
  218. â 
  219. â 
  220. â 
  221. â 
  222. @ÇÜ PFDBLST
  223. ┤ 
  224. }
  225. { LEX_SHOOT
  226. I @Çæ RTHAND GRENADE THEN
  227. M GRENADE_TOSS
  228.  
  229. E I ^ﺠ= 1 OR ^üÇ THEN
  230. {
  231. ^ﺠ= 0
  232.  @Çì FIRE_PFD
  233.  
  234.  
  235.  
  236. I ^üÇ = 0 THEN
  237. {
  238. W 3 SECONDS
  239. i LEX PFDONCE
  240. }
  241. }
  242. E I @Çæ RTHAND BLASTER = $üâ OR @Çæ RTHAND TONFA = $üâ THEN
  243. {
  244. I @Ç⌐ LEXMIR THEN
  245. {
  246. M SHOOT_FAIL CONTINUE
  247. @Çå `à╝ 
  248. W 2 SECONDS
  249. @Çì ADDLOGWEAPONSFAIL
  250. é 
  251. }
  252. M SHOOT
  253. }
  254. }
  255. { ADDLOGWEAPONSFAIL
  256. W 2 SECONDS
  257. i LEX WEAPONSFAIL
  258. }
  259. { LEX_ENTER_COMBAT
  260. I @Ç⌐ HARD THEN
  261. @Ç¥ HARD_ENTER_COMBAT 
  262. {
  263. M ENTER_COMBAT
  264. w CURFIG CLEAR MDHNRR1 PICTURE 2
  265. w CURFIG CLEAR MDHNRF1 PICTURE 3
  266. w CURFIG CLEAR MDHNLL1 PICTURE 4
  267. w CURFIG CLEAR MDHNLF3 PICTURE 5
  268. }
  269. }
  270. { LEX_LEAVE_COMBAT
  271. I @Ç⌐ HARD THEN @Ç¥ HARD_LEAVE_COMBAT 
  272. {
  273. w CURFIG RESTORE MDHNRR1
  274. w CURFIG RESTORE MDHNRF1
  275. w CURFIG RESTORE MDHNLL1
  276. w CURFIG RESTORE MDHNLF3
  277. }
  278. }
  279. { LEX_STIMULUS _DAMAGE 
  280. P ~Çü 
  281. :GOT_HIT
  282. I @Çó ^îà == $üâ THEN
  283. {
  284.  ^îå 
  285. }
  286. é 
  287. }
  288. { LEX_BAT_100_TAKE
  289. @üì `몠$üë "a battery/GEine Batterie/FUne batterie !" 
  290. }
  291. { LEX_BAT_150_TAKE
  292. @üì `몠$üë "a battery/GEine Batterie/FUne batterie !" 
  293. }
  294. { LEX_ABAT_500_TAKE
  295. @üì `뺠$üë "an alien battery/GEine außerirdische Batterie/FUne batterie d'extra-terrestre !" 
  296. }
  297. { LEX_BLASTER_TAKE
  298. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  299. }
  300. { LEX_BLASTER2_TAKE
  301. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  302. }
  303. { LEX_BLASTERM2_TAKE
  304. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  305. }
  306. { LEX_BLASTERM3B_TAKE
  307. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !"
  308. }
  309. { LEX_BLASTERM5_TAKE
  310. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !"
  311. }
  312. { LEX_BLOCK_TAKE
  313. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres !"
  314. W 5 SECONDS
  315. i LEX ARTIFACT
  316. }
  317. { LEX_BOMB_TAKE
  318. I @Çí CURFIG FIREBTN2 THEN
  319. {
  320. ^àÿ = 500
  321. @Çì BLAST_LEX
  322. é 
  323. }
  324. @üì `묠$üë "a bomb!/GEine Bombe!/FUne bombe !"
  325. }
  326. { LEX_CAYARM_TAKE
  327. @üì `ë½ $üë "a severed arm/GEin abgetrennter Arm/FUn bras tranché..." 
  328. W 3 SECONDS
  329. i LEX ARMOFF
  330. }
  331. { LEX_CAYLOG_TAKE
  332. I ^ÇÑ THEN
  333. {
  334. I ^Ǫ THEN
  335. @üì `ë¼ $üë "Caynan's logbook/GCaynans Logbuch/FLe livre de bord de Caynan" 
  336. @üì `ë¡ $üë "Caynan's logbook?/GCaynans Logbuch?/FLe livre de bord de Caynan ?" 
  337. }
  338. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  339. }
  340. { LEX_DANELOG_TAKE
  341. I ^ÇÑ THEN
  342. @üì `ë» $üë "Dane's logbook/GDanes Logbuch/FLe livre de bord de Dane" 
  343. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  344. }
  345. { LEX_ESCHERLOG_TAKE
  346.  
  347. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  348. }
  349. { LEX_FLUTE_TAKE
  350. @üì `ë░ $üë "a flute/GEine Flöte/FUne flûte" 
  351. }
  352. { LEX_FORK_TAKE
  353. @üì `ë▒ $üë "a fork/GEine Gabel/FUne fourchette" 
  354. ^îæ = $üâ 
  355. W 3 SECONDS
  356. i LEX FINDFORK
  357. }
  358. { LEX_FORK_DROP
  359. ^îæ = $üé 
  360. }
  361. { LEX_GRENADE_TAKE
  362. @üì `ë▓ $üë "a grenade!/GEine Granate!/FUne grenade !" 
  363. }
  364. { LEX_KEY_TAKE
  365. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres..." 
  366. }
  367.  
  368. { LEX_KEYDVICE_TAKE
  369. @üì `ë│ $üë "a device with a button/GEin Gerät mit einem Knopf/FUn appareil avec un bouton" 
  370. }
  371. { LEX_LEXLOG_TAKE
  372. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  373. }
  374. { LEX_LOGA_TAKE
  375. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  376. }
  377. { LEX_LOGB_TAKE
  378. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  379. }
  380. { LEX_MEAT_TAKE
  381. @üì `ë╡ $üë "a hunk of meat/GEin Fleischklumpen/FUn morceau de viande" 
  382. }
  383. { LEX_MEDICAID_TAKE
  384. @üì `ë╢ $üë "a medical device/GEin medizinisches Gerät/FUn appareil médical" 
  385. }
  386. { LEX_ZEDICAID_TAKE
  387. @Ç¥ LEX_MEDICAID_TAKE
  388. }
  389. { LEX_PHOTO_TAKE
  390. @üì `ë╖ $üë "a photograph/GEin Foto/FUne photographie" 
  391. }
  392. { LEX_REFLECT_TAKE
  393. @üì `ë╕ $üë "a shimmering cube/GEin schimmernder Würfel/FUn cube miroitant" 
  394. }
  395. { LEX_REFLECT_DROP
  396. P ~ÇÇ 
  397. ~ÇÇ = 0
  398.  
  399. I @Ç⌐ LEXMIR != 1 THEN é 
  400.  
  401. I @Ç¡ CURFIG PLTDOOR THEN é 
  402. I @Çó ^àï THEN
  403.  ^àï 
  404. ^ÇÜ = $ââ 
  405. @Çå `éÆ 
  406. ù LEX 
  407. @Ç¥ LEX_WOUNDS
  408. I @ÇÄ BCH || @ÇÄ PAD THEN ~ÇÇ = 1
  409. I @ÇÄ TMP || @ÇÄ LND THEN ~ÇÇ = 1
  410. I @ÇÄ BTN THEN ~ÇÇ = 1
  411. I ~ÇÇ THEN
  412. {
  413. M CHOKE
  414. @Ç¥ KILLLEX
  415. é 
  416. }
  417. }
  418. { LEX_SCANNER_TAKE
  419. @üì `ë╣ $üë "a scanning device/GEin Scanner/FUn scanner" 
  420. }
  421. { LEX_TONFA_TAKE
  422. @üì `ë║ $üë "a big gun/GEin Gewehr/FUne grosse arme"
  423. W 10 SECONDS
  424. i LEX TONFA
  425. }
  426. { LEX_WTALKY_TAKE
  427. @üì `ë╗ $üë "a damaged walky-talky/GEin beschädigtes Funkgerät/FUn talkie-walkie endommagé" 
  428. }
  429. { LEX_LOG_ADDED
  430. @Ç¢ PLAYER
  431. @Çå `äñ 
  432. v CURFIG LEXPIM ON INCREMENT 60
  433. }
  434. { LEX_LOG_SEEN
  435. @Ç¢ PLAYER
  436. v CURFIG LEXPIM OFF
  437. w CURFIG RESTORE LEXPIM
  438. }
  439.  
  440.  
  441. //$ 26 - version number
  442.