EQEmulator Forums - Summon all clients on Aggrolist

Code:

sub SUMMON_AGGROLIST {

                my @hatelist = $npc->GetHateList();

                        foreach $ent (@hatelist)

                        {

                                my $h_ent = $ent->GetEnt();

                                my $client_check = $h_ent->CastToMob()->IsClient();

                                if ($client_check == 1)

                                {

                                my $PlayerENT = $h_ent->CastToClient();

                                        if ($instanceid > 0)

                                        {

                                                $PlayerENT->MovePCInstance($zoneid, $instanceid, $x, $y, $z, 0);

                                        }

                                        else

                                        {

                                                $PlayerENT->MovePC($zonesn, $x, $y, $z, 0);

                                        }

                                }

                        }        

}

Place this in your quest file for an NPC ... and in whatever sub event you want all players to get summoned .... just add

SUMMON_AGGROLIST();

If players are dodging LOS to negate spells on an NPC just use this before the NPC casts an AOE and no one will dodge it!

Or various other reasons to use it ect... kiting and such.