19 lines
587 B
Plaintext
19 lines
587 B
Plaintext
|
//:://////////////////////////////////////////////
|
||
|
|
//:: 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);
|
||
|
|
}
|
||
|
|
}
|