DMH-Online

NWScript:

//Script: Proximity_Killer 
// (thanks to Albert Shih (Calidarien) for Alert() 
// function)
//Author: Frank Liga
//Version: v0.9, 2002-06-30
//Description: When a creature gets near the item with a 
// that is an enemy faction
//the creature will be killed.
//Usage: Attach to OnHeartbeat of the module/area
//Notes:
// 1. Create any number of obects with the same tag (i used a portal but you can use any object)
// 2. Create a Faction that is Friendly to PCS, Hostile to Hostiles,
//      and neutral to everyone else
// 3. Give the newly created Items this faction
// 4. Place this script in the module/area heartbeat event
// 5. Set the 3 variables (you can kill iDEBUG after you test it out)
// ITEM_KILL_TAG =  tag of the object
// VFX_EFFECT = the visual affect you want to kill the creatur
// PROXIMITY_DISTANCE how close the creature needs to be to set it off
//  v0.9: Pretty cool
//
string ITEM_KILL_TAG = "MyObject";
float PROXIMITY_DISTANCE = 30.;
int VFX_EFFECT = VFX_FNF_GAS_EXPLOSION_EVIL;
int iDEBUG = TRUE;
void Alert(string szMessage) {
  if(iDEBUG == TRUE) {
    object oPC = GetFirstPC();
    SendMessageToAllDMs(szMessage);
    while(GetIsObjectValid(oPC)) {
      SendMessageToPC(oPC, szMessage);
      oPC = GetNextPC();
    }
  }
}
//
// Checks how close a creature is and kills it
// if within proximity
void SeakAndDestroy(object oCenter, float fDist) {
  int nCounter = 0;
  float fCreatureDist = 0.0;
  object oCreature;
  int TestFlag=0;
  while(GetIsObjectValid(oCreature = 
    GetNearestObject(OBJECT_TYPE_CREATURE, oCenter, 
       ++nCounter))) 
    {
      fCreatureDist = 
         GetDistanceBetween(oCenter, oCreature);
      Alert("Creature " + GetTag(oCreature) 
         + " found at " + FloatToString(fCreatureDist));
      if((GetArea(oCenter) == GetArea(oCreature)) 
         && (fCreatureDist < fDist)
         && (GetIsEnemy(oCreature,oCenter)))
      {
        Alert("Killing " + GetTag(oCreature));
        effect eVis = EffectVisualEffect(VFX_EFFECT);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
          eVis, oCreature, 5.0);
      effect eDamage = EffectDamage(10000, 
        DAMAGE_TYPE_MAGICAL, 
        DAMAGE_POWER_PLUS_FIVE);
      
      DelayCommand(1.0, 
        ApplyEffectToObject(DURATION_TYPE_INSTANT,
          eDamage, oCreature));
    }
  }
}
void Nukem(string sTag, float fDist) {
  int nCounter = -1;
  object oItem;
  while(GetIsObjectValid(oItem = 
      GetObjectByTag(sTag, ++nCounter))) 
  {
    SeakAndDestroy(oItem, fDist);
  }
}
//
//Main function
void main() {
  Nukem(ITEM_KILL_TAG, PROXIMITY_DISTANCE);
}