66 lines
2.5 KiB
Plaintext
66 lines
2.5 KiB
Plaintext
#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);
|
|
}
|
|
}
|
|
}
|