IF
  HPLT(Myself,40)
THEN
  RESPONSE #100
    ForceSpell(Myself,CLERIC_REGENERATE)
END

IF
  See(NearestEnemyOf(Myself))
  Range(NearestEnemyOf(Myself),10)
THEN
  RESPONSE #100
    Attack(NearestEnemyOf(Myself))
END

IF
  See(NearestEnemyOf(Myself))
  !Range(NearestEnemyOf(Myself),10)
THEN
  RESPONSE #100
    ForceSpell(NearestEnemyOf(Myself),CLERIC_DOLOROUS_DECAY)
END
