code\:
/* OnSpellCastAt */
#include "NW_I0_GENERIC"
void main()
{
/* determine if spellcaster is a PC, return if not */
  object oCaster = GetLastSpellCaster();
  if (!GetIsPC(oCaster)) return;

/* determine if creature already was the target of a spell, return if yes */
  object oTarget = OBJECT_SELF;
  int iMultipleSpell = GetLocalInt(oTarget, GetTag(OBJECT_SELF));
  if (iMultipleSpell == TRUE) return;

/* determine what spell was cast on the creature */
  int iLegalSpellFlag;
  int iSpell = GetLastSpell();

/* determine if the spell cast is a 'harmless' spell, if yes then iLegalSpellFlag = TRUE,
   otherwise iLegalSpellFlag = FALSE
*/
  switch (iSpell)
  {
    default: iLegalSpellFlag = FALSE; break;
    case SPELL_HOLD_MONSTER: iLegalSpellFlag = TRUE; break;
    case SPELL_HOLD_ANIMAL: iLegalSpellFlag = TRUE; break;
    case SPELL_SLEE iLegalSpellFlag = TRUE; break; 
    case SPELL_FEAR: iLegalSpellFlag = TRUE; break;
  }

/* if the spell is legal send a message to the PC and give him/her XP */
  if (iLegalSpellFlag == TRUE)
  {
    string sAnimalName = GetName(OBJECT_SELF);
    string sMessage = "You've been rewarded for sparing the " + sAnimalName + "'s life.";
    SendMessageToPC(oCaster, sMessage);
    GiveXPToCreature(oCaster, 100);

/* and this function makes sure, none of the PCs get XP for casting a spell on the same creature again */
    SetLocalInt(oTarget, GetTag(OBJECT_SELF), TRUE);
  }
}