//:://////////////////////////////////////////////
//:: Created By: WaltG
//:: Created On: 6/27/02
//:://////////////////////////////////////////////
void main()
{
location lFire = GetLocation(OBJECT_SELF);
// adjust radius size based on fire effect size
float fRad = 1.5;
object oVictum = GetFirstObjectInShape(SHAPE_SPHERE,fRad,lFire);
while(oVictum != OBJECT_INVALID)
{
// create a random amount of damage
effect eDamage =EffectDamage(d4(2),DAMAGE_TYPE_FIRE);
ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oVictum);
oVictum = GetNextObjectInShape( SHAPE_SPHERE,fRad,lFire);
}
}