DMH-Online

NWScript:

//Script: cal_explode
//Author: Albert Shih (Calidarien)
//Version: v0.9, 2002-06-24
//Usage: Caller explodes after a delay and damages nearby objects for 2d6 fire
//  damage (Reflex save DC 15 for half)
//Notes:
// v0.9: Added a Reflex save and defined the explosion as a separate function
//       for delaying purposes
//
void ExplodeAtLocation(location lTarget, int nDamage, int nSaveDC = 15, float fRadius = 2.) {
  ApplyEffectAtLocation( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_FIREBALL), lTarget);
  object oObject = GetFirstObjectInShape(SHAPE_SPHERE, fRadius, lTarget);
  do {
    int nDamageAfterSave = GetReflexAdjustedDamage(nDamage/2, oObject, nSaveDC)+nDamage/2;
    ApplyEffectToObject( DURATION_TYPE_INSTANT, EffectDamage(nDamageAfterSave, DAMAGE_TYPE_FIRE), oObject);
   } while ((oObject = GetNextObjectInShape(SHAPE_SPHERE, fRadius, lTarget)) != OBJECT_INVALID);
}
void main()
{
  location lSource = GetLocation(OBJECT_SELF);
  DelayCommand(3., ExplodeAtLocation(lSource, d6(2)));
}