NWScript:

//:://///////////////////// ////////////////////////
//:: FileName object_revenge
//:://///////////////////// ///////////////////////
//:://///////////////////// ///////////////////////
//:: Created By: Iskander of Plomar
//:: Created On: 6/21/2002 6:32:52 PM
//:://///////////////////// ///////////////////////
//
// A little script to blast any PC that attacks an
// object in my Training dungeon. Hah!
#include "nw_i0_generic"
void main()
{
  object oNaughtyOne = GetLastAttacker( OBJECT_SELF );
  if ((OBJECT_INVALID == oNaughtyOne) && GetLastSpellHarmful()) {
    oNaughtyOne = GetLastSpellCaster();
  }
  if (OBJECT_INVALID == oNaughtyOne) {
    SpeakString("Hmmmm. You should watch what you're doing...");
    return;
  }
  SpeakString("Fool! You would bite the hand that feeds you?");
  ApplyEffectToObject( DURATION_TYPE_INSTANT,
                       EffectDamage( GetMaxHitPoints(oNaughtyOne), DAMAGE_TYPE_DIVINE),
                       oNaughtyOne,
                       0.0f);
}