IF
   NumberOfTimesTalkedTo(0)
   Range([PC],12)
THEN
   RESPONSE #100
      StartDialogNoSet([PC])
END

IF
   OR(4)
      See(NearestEnemyOfType([GOODCUTOFF]))
      See(NearestEnemyOfType([GOODCUTOFF.0.0.CLERIC_ALL]))
      See(NearestEnemyOfType([GOODCUTOFF.0.0.MAGE_ALL]))
      See(NearestEnemyOfType([GOODCUTOFF.0.0.SORCERER]))
   False()
THEN
   RESPONSE #100
END

IF
   HPPercentLT(Myself,75)
   HasItem("POTN52",Myself)
   Global("BaeldenHeal1","LOCALS",0)
THEN
   RESPONSE #100
      UseItem("POTN52",Myself)
      SetGlobal("BaeldenHeal1","LOCALS",1)
END

IF
   HPPercentLT(Myself,50)
   HasItem("POTN52",Myself)
   Global("BaeldenHeal2","LOCALS",0)
THEN
   RESPONSE #100
      UseItem("POTN52",Myself)
      SetGlobal("BaeldenHeal2","LOCALS",1)
END

IF
   HPPercentLT(Myself,25)
   HasItem("POTN52",Myself)
   Global("BaeldenHeal3","LOCALS",0)
THEN
   RESPONSE #100
      UseItem("POTN52",Myself)
      SetGlobal("BaeldenHeal3","LOCALS",1)
END

IF
   HPPercentLT(Myself,10)
   HasItem("POTN52",Myself)
   Global("BaeldenHeal4","LOCALS",0)
THEN
   RESPONSE #100
      UseItem("POTN52",Myself)
      SetGlobal("BaeldenHeal4","LOCALS",1)
END

IF
   See(LastSeenBy(Myself))
THEN
   RESPONSE #100
      EquipMostDamagingMelee()
      AttackReevaluate(LastSeenBy(Myself),30)
END
