home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 61 / CDPowerplay61Disc2.iso / data1.cab / hd0_scripts / Text / cleric4.baf < prev    next >
Encoding:
Text File  |  2000-10-12  |  3.5 KB  |  168 lines
  1. // * Date Created:Mar 22, 2000.
  2. // * Created by:Brent Knowles
  3. // * Purpose: A Druid summoner / defensive.  Will summons lots of creatures (up to the limit)
  4.  
  5. // *Defensive*
  6.  
  7. // * if see Vampires then protect self against energy draining.
  8.  
  9. // *protect companions
  10. IF
  11.     See([0.0.VAMPIRE])
  12.     !CombatCounter(0)
  13.     HaveSpell(CLERIC_NEGATIVE_PLANE_PROTECTION)
  14.     See([PC])
  15.     CheckStat(LastSeenBy(Myself),0,SCRIPTINGSTATE3)
  16. THEN
  17.     RESPONSE #100
  18.         Spell(LastSeenBy(Myself),CLERIC_NEGATIVE_PLANE_PROTECTION)
  19. END
  20. // * protect self
  21. IF
  22.     See([0.0.VAMPIRE])
  23.     !CombatCounter(0)
  24.     HaveSpell(CLERIC_NEGATIVE_PLANE_PROTECTION)
  25.     CheckStat(Myself,0,SCRIPTINGSTATE3)
  26. THEN
  27.     RESPONSE #100
  28.         Spell(Myself,CLERIC_NEGATIVE_PLANE_PROTECTION)
  29. END
  30.  
  31. IF
  32.     See(NearestEnemyOf(Myself))        
  33.     HaveSpell(CLERIC_IRONSKIN)
  34.     HPGT(LastSeenBy(Myself),20)
  35.     CheckStatLT(Myself,1,STONESKINS)
  36. THEN
  37.     RESPONSE #100
  38.         Spell(Myself,CLERIC_IRONSKIN)
  39. END
  40.  
  41. IF
  42.     ActionListEmpty()
  43.     See(NearestEnemyOf(Myself))        
  44.     HaveSpell(CLERIC_PHYSICAL_MIRROR)
  45.     HPGT(LastSeenBy(Myself),20)
  46.     !HasBounceEffects(Myself)
  47. THEN
  48.     RESPONSE #100
  49.         Spell(Myself,CLERIC_PHYSICAL_MIRROR)
  50. END
  51.  
  52. IF
  53.     See(NearestEnemyOf(Myself))        
  54.     HaveSpell(CLERIC_REGENERATE)
  55.     HPGT(LastSeenBy(Myself),20)
  56.     HPPercentLT(Myself,60)
  57. THEN
  58.     RESPONSE #100
  59.         Spell(Myself,CLERIC_REGENERATE)
  60. END
  61.  
  62. //*Summoning Spells*
  63. IF
  64.     ActionListEmpty()
  65.     See(NearestEnemyOf(Myself))        
  66.     HaveSpell(CLERIC_ANIMAL_SUMMONING_1)
  67.     HPGT(LastSeenBy(Myself),20)
  68.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  69. THEN
  70.     RESPONSE #100
  71.         Spell(Myself,CLERIC_ANIMAL_SUMMONING_1)
  72. END
  73. IF
  74.     ActionListEmpty()
  75.     See(NearestEnemyOf(Myself))        
  76.     HaveSpell(CLERIC_ANIMAL_SUMMONING_2)
  77.     HPGT(LastSeenBy(Myself),20)
  78.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  79. THEN
  80.     RESPONSE #100
  81.         Spell(Myself,CLERIC_ANIMAL_SUMMONING_2)
  82. END
  83. IF
  84.     ActionListEmpty()
  85.     See(NearestEnemyOf(Myself))        
  86.     HaveSpell(CLERIC_ANIMAL_SUMMONING_3)
  87.     HPGT(LastSeenBy(Myself),20)
  88.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  89. THEN
  90.     RESPONSE #100
  91.         Spell(Myself,CLERIC_ANIMAL_SUMMONING_3)
  92. END
  93.  
  94. IF
  95.     ActionListEmpty()
  96.     See(NearestEnemyOf(Myself))        
  97.     HaveSpell(CLERIC_CONJURE_FIRE_ELEMENTAL)
  98.     HPGT(LastSeenBy(Myself),50)
  99.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  100. THEN
  101.     RESPONSE #100
  102.         Spell(Myself,CLERIC_CONJURE_FIRE_ELEMENTAL)
  103. END
  104.  
  105.  
  106. IF
  107.     ActionListEmpty()
  108.     See(NearestEnemyOf(Myself))        
  109.     HaveSpell(CLERIC_CONJURE_EARTH_ELEMENTAL)
  110.     HPGT(LastSeenBy(Myself),100)
  111.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  112. THEN
  113.     RESPONSE #100
  114.         Spell(Myself,CLERIC_CONJURE_EARTH_ELEMENTAL)
  115. END
  116.  
  117. IF
  118.     ActionListEmpty()
  119.     See(NearestEnemyOf(Myself))        
  120.     HaveSpell(CLERIC_CALL_WOODLAND_BEINGS)
  121.     HPGT(LastSeenBy(Myself),30)
  122.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  123. THEN
  124.     RESPONSE #100
  125.         Spell(Myself,CLERIC_CALL_WOODLAND_BEINGS)
  126. END
  127.  
  128. IF
  129.     ActionListEmpty()
  130.     See(NearestEnemyOf(Myself))        
  131.     HaveSpell(CLERIC_CONJURE_ANIMALS)
  132.     HPGT(LastSeenBy(Myself),30)
  133.     NumCreatureLT([GOODCUTOFF.0.0.0.0.SUMMONED],5)
  134. THEN
  135.     RESPONSE #100
  136.         Spell(Myself,CLERIC_CONJURE_ANIMALS)
  137. END
  138.  
  139.  
  140.  
  141. // *Combat*
  142.  
  143. IF
  144.     ActionListEmpty()
  145.     Help([PC])
  146. THEN
  147.     RESPONSE #100
  148.         AttackReevaluate(LastAttackerOf(LastHelp(Myself)),60)
  149. END
  150.  
  151. IF
  152.     See(NearestEnemyOf(Myself))
  153.     Range(NearestEnemyOf(Myself),4)
  154. THEN
  155.     RESPONSE #100
  156.         EquipMostDamagingMelee()
  157.         AttackReevaluate(NearestEnemyOf(Myself),30)
  158. END
  159.  
  160. IF
  161.     ActionListEmpty()
  162.     See(NearestEnemyOf(Myself))
  163.     !Range(NearestEnemyOf(Myself),4)
  164. THEN
  165.     RESPONSE #100
  166.         EquipRanged()
  167.         AttackReevaluate(NearestEnemyOf(Myself),30)
  168. END