home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / bioforge / script / ai_marin.scp < prev    next >
Encoding:
Text File  |  1995-01-18  |  1.9 KB  |  143 lines
  1. { MARINE_ENTER_COMBAT
  2. w CURFIG CLEAR MR-HLS PICTURE 1 MARINE
  3. w CURFIG CLEAR MR-LHND PICTURE 2 MARINE
  4. w CURFIG CLEAR MR-HRS PICTURE 3 MARINE
  5. w CURFIG CLEAR MR-RHND PICTURE 4 MARINE
  6. }
  7. { MARINE_LEAVE_COMBAT
  8. w CURFIG RESTORE MR-HLS X MARINE
  9. w CURFIG RESTORE MR-LHND X MARINE
  10. w CURFIG RESTORE MR-HRS X MARINE
  11. w CURFIG RESTORE MR-RHND X MARINE
  12. }
  13. { MARINE1_WOUNDS
  14. @Ç¢ MARINE1 
  15. @Ç¥ MARINE_WOUNDS
  16. }
  17. { MARINE1_ENTER_COMBAT
  18. @Ç¢ MARINE1 
  19. @Ç¥ MARINE_ENTER_COMBAT
  20. }
  21. { MARINE1_LEAVE_COMBAT
  22. @Ç¢ MARINE1 
  23. @Ç¥ MARINE_LEAVE_COMBAT
  24. }
  25. { MARINE2_WOUNDS
  26. @Ç¢ MARINE2 
  27. @Ç¥ MARINE_WOUNDS
  28. }
  29. { MARINE2_ENTER_COMBAT
  30. @Ç¢ MARINE2 
  31. @Ç¥ MARINE_ENTER_COMBAT
  32. }
  33. { MARINE2_LEAVE_COMBAT
  34. @Ç¢ MARINE2 
  35. @Ç¥ MARINE_LEAVE_COMBAT
  36. }
  37. { MARINE3_WOUNDS
  38. @Ç¢ MARINE3 
  39. @Ç¥ MARINE_WOUNDS
  40. }
  41. { MARINE3_ENTER_COMBAT
  42. @Ç¢ MARINE3 
  43. @Ç¥ MARINE_ENTER_COMBAT
  44. }
  45. { MARINE3_LEAVE_COMBAT
  46. @Ç¢ MARINE3 
  47. @Ç¥ MARINE_LEAVE_COMBAT
  48. }
  49. { MARINE4_WOUNDS
  50. @Ç¢ MARINE4 
  51. @Ç¥ MARINE_WOUNDS
  52. }
  53. { MARINE4_ENTER_COMBAT
  54. @Ç¢ MARINE4 
  55. @Ç¥ MARINE_ENTER_COMBAT
  56. }
  57. { MARINE4_LEAVE_COMBAT
  58. @Ç¢ MARINE4 
  59. @Ç¥ MARINE_LEAVE_COMBAT
  60. }
  61. { MARINE5_WOUNDS
  62. @Ç¢ MARINE5 
  63. @Ç¥ MARINE_WOUNDS
  64. }
  65. { MARINE5_ENTER_COMBAT
  66. @Ç¢ MARINE5 
  67. @Ç¥ MARINE_ENTER_COMBAT
  68. }
  69. { MARINE5_LEAVE_COMBAT
  70. @Ç¢ MARINE5 
  71. @Ç¥ MARINE_LEAVE_COMBAT
  72. }
  73. { TUMOLT_WOUNDS
  74. @Ç¢ TUMOLT 
  75. @Ç¥ MARINE_WOUNDS
  76. }
  77. { TUMOLT_ENTER_COMBAT
  78. @Ç¢ TUMOLT 
  79. @Ç¥ MARINE_ENTER_COMBAT
  80. }
  81. { TUMOLT_LEAVE_COMBAT
  82. @Ç¢ TUMOLT 
  83. @Ç¥ MARINE_LEAVE_COMBAT
  84. }
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99. { MARINE_WOUNDS
  100. P ~ÇÇ 
  101. P ~Çü 
  102. P ~Çé 
  103. P ~Çâ 
  104. P ~Çä 
  105. P ~Çà 
  106.  
  107.  
  108.  
  109. ~Çä = .ÇéÇä 
  110. ~ÇÇ = @Ç» ~Çä 1 3 
  111.  
  112. ~Çà = .ÇéÇà / 4
  113. ~Çü = .ÇéÇÇ / ~Çà 
  114. I ~Çü < 1 THEN ~Çü = 0
  115. I ~Çü > 3 THEN ~Çü = 3
  116. ~Çü = 3 - ~Çü 
  117.  
  118.  
  119.  
  120. I ~ÇÇ < ~Çü THEN
  121.  
  122. {
  123.  
  124. :TOP
  125. ~Çâ = @Çà 1 3 
  126.  
  127. I @ÇÅ ~Çä ~Çâ = 1 THEN 
  128. J #Çò
  129. E 
  130. I ~Çâ = 1 THEN w CURFIG DRAWONLY MN-CHS1 PICTURE 5 MARINE
  131. I ~Çâ = 2 THEN w CURFIG DRAWONLY MN-CHS1 PICTURE 6 MARINE
  132. I ~Çâ = 3 THEN w CURFIG DRAWONLY MR-BCK PICTURE 7 MARINE
  133. a ~Çä ~Çâ 
  134. ~ÇÇ += 1
  135. }
  136. .ÇéÇä = ~Çä 
  137.  
  138. }
  139.  
  140.  
  141.  
  142. //$ 26 - version number
  143.