125 lines
4.8 KiB
Plaintext
125 lines
4.8 KiB
Plaintext
// Function to get creature(s) within radius and apply the alternate TimeStop
|
|
|
|
#include "NW_I0_GENERIC"
|
|
int TestScrollUsage()
|
|
{
|
|
int n = GetLevelByClass(CLASS_TYPE_BARD) +
|
|
GetLevelByClass(CLASS_TYPE_SORCERER) +
|
|
GetLevelByClass(CLASS_TYPE_WIZARD) +
|
|
GetLevelByClass(CLASS_TYPE_ROGUE);
|
|
return Random(15) < n;
|
|
}
|
|
// Begin Main Function
|
|
void main()
|
|
{
|
|
|
|
int fDur = 12+ d6();
|
|
float dur = IntToFloat(fDur);
|
|
|
|
if (!TestScrollUsage() && !GetIsDM(OBJECT_SELF) && GetRacialType(OBJECT_SELF) != RACIAL_TYPE_DRAGON) {
|
|
SendMessageToPC(OBJECT_SELF, "Casting from scroll failed");
|
|
return;
|
|
}
|
|
int nRoll;
|
|
int nRoll2 = d4();
|
|
if (nRoll2 == 1){nRoll = 2;}
|
|
if (nRoll2 == 2 || nRoll2 == 3){nRoll = 3;}
|
|
if (nRoll2 == 4){nRoll = 4;}
|
|
|
|
object dragon = GetNearestCreature(CREATURE_TYPE_RACIAL_TYPE, RACIAL_TYPE_DRAGON);
|
|
object area = GetArea(dragon);
|
|
|
|
string pc = GetPCPlayerName(OBJECT_SELF);
|
|
|
|
object area2 = GetArea(OBJECT_SELF);
|
|
if (area2 == GetAreaFromLocation(GetLocation(GetObjectByTag("archerytarget003")))){
|
|
SendMessageToPC(OBJECT_SELF, "You cannot cast time stop here.");
|
|
return;}
|
|
string busted = GetName(area2);
|
|
if (GetRacialType(OBJECT_SELF) == RACIAL_TYPE_DRAGON){
|
|
area = GetArea(GetWaypointByTag("sage"));
|
|
fDur = 18+ d20();}
|
|
if (dragon != OBJECT_INVALID && area == area2){
|
|
SendMessageToPC(OBJECT_SELF, "There is a disturbance in the time stream, and you cannot cast Time Stop.");
|
|
return;
|
|
}
|
|
|
|
|
|
if (GetLocalInt(GetArea(OBJECT_SELF), "streamed")==2) {
|
|
SendMessageToPC(OBJECT_SELF, "Time is already stopped");
|
|
return;
|
|
}
|
|
|
|
DelayCommand(1.0, SetLocalInt(GetArea(OBJECT_SELF), "streamed", 2));
|
|
DelayCommand(dur, SetLocalInt(GetArea(OBJECT_SELF), "streamed", 0));
|
|
|
|
//Signal event to start the TimeStop
|
|
SignalEvent(OBJECT_SELF, EventSpellCastAt(OBJECT_SELF, SPELL_TIME_STOP, FALSE));
|
|
// Begin custom TimeStop
|
|
SendMessageToAllDMs("Timestop cast by " + pc + " in " + busted);
|
|
|
|
float fDist = 200.0;
|
|
|
|
object sum = GetAssociate (ASSOCIATE_TYPE_SUMMONED, OBJECT_SELF);
|
|
object hench = GetAssociate(ASSOCIATE_TYPE_HENCHMAN, OBJECT_SELF);
|
|
object fam = GetAssociate (ASSOCIATE_TYPE_FAMILIAR, OBJECT_SELF);
|
|
object dom = GetAssociate(ASSOCIATE_TYPE_DOMINATED, OBJECT_SELF);
|
|
object comp = GetAssociate (ASSOCIATE_TYPE_ANIMALCOMPANION, OBJECT_SELF);
|
|
object oNearestC; // Define nearest creature
|
|
// Begin loop to find all creatures within the fDist meter radius
|
|
oNearestC = GetFirstObjectInShape(SHAPE_SPHERE, fDist, GetSpellTargetLocation(), FALSE, OBJECT_TYPE_CREATURE);
|
|
while(GetIsObjectValid(oNearestC))
|
|
{
|
|
|
|
// This makes sure the Caster is not Timestopped and skips any PC's/NPC's associates
|
|
if (oNearestC == comp ||
|
|
oNearestC == dom ||
|
|
oNearestC == fam ||
|
|
oNearestC == hench ||
|
|
oNearestC == sum ) {
|
|
DestroyObject(oNearestC);
|
|
}
|
|
|
|
|
|
if ( oNearestC != OBJECT_SELF && !GetIsDM(oNearestC)) {
|
|
if ( GetCommandable( oNearestC)== FALSE){
|
|
DelayCommand(0.5, AssignCommand(oNearestC, ClearAllActions()));
|
|
DelayCommand(0.7, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(1.7, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(2.7, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(3.7, SetCommandable( FALSE, oNearestC ));
|
|
}
|
|
AssignCommand(oNearestC, ClearAllActions());
|
|
DelayCommand(0.03, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(3.03, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(6.03, SetCommandable( FALSE, oNearestC ));
|
|
DelayCommand(dur, SetCommandable( TRUE, oNearestC ));
|
|
if (!GetIsPC(oNearestC)){
|
|
float dur2 = dur + 0.05;
|
|
DelayCommand(dur2,AssignCommand(oNearestC, DetermineCombatRound()));
|
|
}
|
|
}
|
|
// Get the next creature in the fDist meter radius and continue loop
|
|
oNearestC = GetNextObjectInShape(SHAPE_SPHERE, fDist, GetSpellTargetLocation(), FALSE, OBJECT_TYPE_CREATURE);
|
|
}
|
|
|
|
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_FNF_TIME_STOP), GetSpellTargetLocation(), dur);
|
|
object caster = OBJECT_SELF;
|
|
if (GetIsPC(caster)){
|
|
|
|
object party = GetFirstFactionMember(caster);
|
|
|
|
while (party != OBJECT_INVALID){
|
|
|
|
if (party != caster){
|
|
AssignCommand(party, ClearAllActions());
|
|
DelayCommand(0.03, SetCommandable( FALSE, party ));
|
|
DelayCommand((dur + 1.0), SetCommandable( TRUE, party ));
|
|
SendMessageToPC(party, "Someone in your party has cast TimeStop.");
|
|
}
|
|
|
|
party = GetNextFactionMember(caster);
|
|
}
|
|
}
|
|
}
|