code\:

// Scriptname:  Black Powder Barrel
// Author:      criz (chris@mgco3.com)
// Date:        15. July 2002
// Version:     1.0
// Usage:       Apply this script to the OnDamaged Event of an Barrel
// Description: If Barrel is damaged then it will explode and do
//              do some damage to surrounding objects.
// CodeHistory: 15. July 2002 -> creation, testing

void main()
{
  float fDamageRange    = 6.0;          // Range of FireDamage
  int iMinDamage        = 15;           // Minimal Firedamage
  int iAddDamage        = d6();         // Additional (random) Damage
                                        // TotalDamage to an object is
                                        // iMinDamage + iAddDamage

  if (GetLocalInt(OBJECT_SELF,"ExplodeOnce")==0)
  {
    // Do the nice Fire Explosion
    SetLocalInt(OBJECT_SELF,"ExplodeOnce",1);
    effect eExpl = EffectVisualEffect(VFX_FNF_FIREBALL);
    effect eSmoke = EffectVisualEffect(VFX_FNF_SMOKE_PUFF);
    effect eBUMP = EffectVisualEffect(VFX_FNF_SCREEN_BUMP);
    effect eDamage = EffectDamage(GetCurrentHitPoints(),DAMAGE_TYPE_FIRE);
    DelayCommand(0.2,ApplyEffectToObject(DURATION_TYPE_INSTANT,eExpl,OBJECT_SELF));
    DelayCommand(0.3,ApplyEffectToObject(DURATION_TYPE_INSTANT,eBUMP,OBJECT_SELF));
    DelayCommand(0.5,ApplyEffectToObject(DURATION_TYPE_INSTANT,eSmoke,OBJECT_SELF));
    ApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,OBJECT_SELF);
  }
  else
  {
    // Do Damage to all Objects in a range defined by fDamageRange
    object o;
    effect  eFireDamage;
    o =  GetFirstObjectInShape(SHAPE_SPHERE,fDamageRange,GetLocation(OBJECT_SELF)
,TRUE,OBJECT_TYPE_ALL);
    while(GetIsObjectValid(o))
    {
      eFireDamage = EffectDamage(iMinDamage + iAddDamage,DAMAGE_TYPE_FIRE, DAMAGE_POWER_PLUS_TWO);
      DelayCommand(0.5,ApplyEffectToObject(DURATION_TYPE_INSTANT,eFireDamage,o));
      o =  GetNextObjectInShape(SHAPE_SPHERE,fDamageRange,GetLocation(OBJECT_SELF),
TRUE,OBJECT_TYPE_ALL);
    }

  }
}