7b9e44ebbb
Initial upload. PRC8 has been added. Module compiles, PRC's default AI & treasure scripts have been integrated. Started work on top hak for SLA / Ability / Scripting modifications.
51 lines
2.1 KiB
Plaintext
51 lines
2.1 KiB
Plaintext
//:://////////////////////////////////////////////
|
|
//:: Created By: Narak
|
|
//:: Created On: 11/6/2002
|
|
//:://////////////////////////////////////////////
|
|
|
|
void main()
|
|
{
|
|
int nUser = GetUserDefinedEventNumber();
|
|
|
|
if(nUser == 1001)
|
|
{
|
|
int nBronze = GetLocalInt(OBJECT_SELF, "BRONZE");
|
|
int nSilver = GetLocalInt(OBJECT_SELF, "SILVER");
|
|
int nGold = GetLocalInt(OBJECT_SELF, "GOLD");
|
|
if ((nBronze != 0) && (nSilver != 0) && (nGold != 0))
|
|
{
|
|
int nWpCount = 1;
|
|
object oParty = GetNearestCreature (CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, OBJECT_SELF, 1);
|
|
object oPC = GetFirstFactionMember(oParty, TRUE);
|
|
while (oPC != OBJECT_INVALID)
|
|
{
|
|
if (GetArea(oPC) == GetArea(OBJECT_SELF))
|
|
{
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_POLYMORPH), oPC);
|
|
AssignCommand(oPC, ActionJumpToLocation(GetLocation(GetWaypointByTag("nk_fp_fight"+IntToString(nWpCount)))));
|
|
nWpCount++;
|
|
if (nWpCount > 7)
|
|
{
|
|
nWpCount = 1;
|
|
}
|
|
}
|
|
oPC = GetNextFactionMember (oParty, TRUE);
|
|
}
|
|
location lSummon = GetLocation(OBJECT_SELF);
|
|
//DelayCommand(3.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_SCREEN_SHAKE), OBJECT_SELF));
|
|
DelayCommand(5.0, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_SUMMON_GATE), lSummon));
|
|
DelayCommand(8.0, SignalEvent(OBJECT_SELF, EventUserDefined(1002)));
|
|
}
|
|
}
|
|
else if(nUser == 1002)
|
|
{
|
|
location lSummon = GetLocation(OBJECT_SELF);
|
|
CreateObject(OBJECT_TYPE_CREATURE, "balorboss001", lSummon, TRUE);
|
|
object oBalor = GetNearestObjectByTag("nk_fp_balor", OBJECT_SELF, 1);
|
|
AssignCommand(oBalor, ActionSpeakString("WHO DARES TO SUMMON ME?! AAAARGH, INTRUDERS!", TALKVOLUME_TALK));
|
|
object oPortal = GetNearestObjectByTag("nk_fp_balorportal", OBJECT_SELF, 1);
|
|
DestroyObject(oPortal);
|
|
}
|
|
}
|
|
|