//:://////////////////////////////////////////////
//:: 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);
    }
}