sub EVENT_SPAWN - Check for clients around npc. Need some help please.

[Drakiyth]

I have an idea on how to buff temporary (swarm) pets based on the user's charisma but it requires that npc to check for the player with a certain item in their inventory && their charisma value.


Just an example below. This quest goes in the folder where that npc resides either templates or the zone folder with its name.pl

sub EVENT_SPAWN
{
my $x;
my $y;
my $z;
my $h;

$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
$h = $npc->GetHeading();


quest::set_proximity( $x-6,$x+6,$y-6,$y+6,$z-6,$z+6);
}

sub EVENT_???? (ENTER/EXIT WORK BUT ARE INCONVENIENT)
{

$cha = $client->GetCHA();
my $npcid = $npc->GetID();

if ($cha >= 50 && $cha <= 99 && $hasitem{1384})
{
quest::say("Test");
$npc->CastSpell(777,$npcid);
}


The example above works on proximity tests (EVENT_ENTER/EXIT) but it's annoying as hell since you have to move towards and away from the mob. So, my question to anybody reading this: How would you make an NPC check for the client and these conditions as soon as it's spawned only using sub EVENT_SPAWN?

[nenelan]

I'm pretty sure you can take a look at how steadfast servant works to detect an owner on spawn and see how that goes. Best of luck!

[Drakiyth]

Thank you very much! This helped a great deal!

[NatedogEZ]

Doesn't work with Offensive Swarm Pets.

They always spawn with an owner ID of 0


And their Follow ID is not the client that spawned them

[NatedogEZ]

Figured out a work around... not sure how efficient this is yet. But it works!

Checks for an Item on the player ... So if they are holding X item the swarm pet will buff itself with a nice buff!

So I guess you could make multiple different ranks of an item that make swarm pets more and more powerful.. heh



sub EVENT_SPAWN {
quest::settimer("Buffs", 1);
}

sub EVENT_TIMER {
my $petitem = 1733;
my $petbuff = 27424;
#Hostile Target of the Swarm PET!
$KillTarg = $npc->GetTarget();

if($KillTarg <= 0)
{
#Return if we have no target
return;
}
#Grabbing all clients
my @clientlist = $entity_list->GetClientList();
foreach $ent (@clientlist)
{
my $ClientName = $ent->GetName();
my $PlayerENT = $ent;
my @hatelist = $KillTarg->GetHateList(); #Compare clients to those on the Hatelist of the Target
foreach $ent (@hatelist)
{
my $h_ent = $ent->GetEnt();
my $h_ent_name = $h_ent->GetName();
if ($ClientName eq $h_ent_name)
{
if(plugin::check_hasitem($PlayerENT, $petitem)) #Check the clients on the hatelist for Worn Pet Buff item
{
my $myid = $npc->GetID();
$npc->CastSpell($petbuff, $myid);
quest::stoptimer("Buffs");
return; #Turn this on if you want it to stop after it finds ONE client with the item
}
}
}
}
}