#include "nw_i0_spells"

void main()
{
int nStart = d2();
    if(nStart == 1)
    {
    location lSelf = GetLocation(OBJECT_SELF);
    int nOnce = FALSE;
    object oCheck = GetFirstObjectInShape(SHAPE_SPHERE, 30.0f, lSelf, FALSE, OBJECT_TYPE_CREATURE);
        while(GetIsObjectValid(oCheck) && nOnce == FALSE)
        {
            if(GetIsPC(oCheck))
            {
            nOnce = TRUE;
            int nString = d10();
            string sReal;
            string sWail1 = "All is lost! Never shall I feel peace.";
            string sWail2 = "What a terrible day it was. Thousands and thousands men died. And for what!";
            string sWail3 = "Doomed to haunt these plains forever. How can my fate be so cruel!";
            string sWail4 = "It was all his fault! He and his pride! Hell with him!";
            string sWail5 = "The blood of others still haunt my dreams. Shall I ever be free?!";
            string sWail6 = "Why me! I the purest of all souls!";
            string sWail7 = "May the gods let Asolith burn in the fires of Hell forever!";
            string sWail8 = "All is lost! Never will someone be able to save us...";
            string sWail9 = "Xavier! I hope your soul will be tortured forever and more!";
            string sWail10 = "I still hear the voices of dying men.";
            switch(nString)
            {
            case 1: sReal = sWail1;
                break;
            case 2: sReal = sWail2;
                break;
            case 3: sReal = sWail3;
                break;
            case 4: sReal = sWail4;
                break;
            case 5: sReal = sWail5;
                break;
            case 6: sReal = sWail6;
                break;
            case 7: sReal = sWail7;
                break;
            case 8: sReal = sWail8;
                break;
            case 9: sReal = sWail9;
                break;
            case 10: sReal = sWail10;
                break;
            default: sReal = sWail1;
                break;
            }
            float fDelay1 = GetRandomDelay(1.0, 5.0);
            int nDice = d4();
            effect eWail = EffectVisualEffect(VFX_FNF_WAIL_O_BANSHEES);
            DelayCommand(fDelay1, SpeakString(sReal));
                if(nDice == 1)
                {
                DelayCommand(fDelay1, ApplyEffectToObject(DURATION_TYPE_INSTANT, eWail, OBJECT_SELF));
                }
            }
        oCheck = GetNextObjectInShape(SHAPE_SPHERE, 30.0f, lSelf, FALSE, OBJECT_TYPE_CREATURE);
        }
    }
}