void main()
{
   int iRoll = d12(1);
   effect eWail = EffectVisualEffect(VFX_FNF_WAIL_O_BANSHEES);
   effect eBlast = EffectVisualEffect(VFX_COM_HIT_SONIC);
   effect eSonic = EffectDamage(250, DAMAGE_TYPE_SONIC, DAMAGE_POWER_ENERGY);
   object oSonic = GetFirstObjectInShape(SHAPE_SPHERE, 20.0, GetLocation(OBJECT_SELF), OBJECT_TYPE_CREATURE);

   if(iRoll == 4 && GetIsObjectValid(oSonic))
   {
      DelayCommand(0.5, ApplyEffectToObject(DURATION_TYPE_INSTANT, eWail, OBJECT_SELF));
      PlayVoiceChat(VOICE_CHAT_BATTLECRY1, OBJECT_SELF);

      while(!GetIsDead(oSonic))
      {
         if(!GetIsDM(oSonic) && oSonic != OBJECT_SELF)
         {
            DelayCommand(3.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, eBlast, oSonic));
            DelayCommand(3.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, eSonic, oSonic));
         }
         oSonic = GetNextObjectInShape(SHAPE_SPHERE, 20.0, GetLocation(OBJECT_SELF), OBJECT_TYPE_CREATURE);
      }
   }
}