need the client to issue a command

[lanystvyl]

I thought this would be easy but I can't find the right way to do this.

#need to check if client has pet not sure if i need to but it makes sense to, if pet == true then remove the pet on zone from player.

sub EVENT_ENTERZONE {

GetPetID()

#assuming this will let me know if there is a pet, not sure on syntax.

how do you force the client issue the pet kill command? I cant find this part.
/pet get lost

[joligario]

Should be something like this:

sub EVENT_ENTERZONE {
my $pet_id = $client->GetPetID();
if ($pet_id) {
$pet = $entity_list->GetNPCByID($pet_id);
$pet->Depop();
}
}

[lanystvyl]

This almost works Depop() doesn't depop the pet. It leaves the pet at the zone-line, and also keeps it in the pet window. Although the pet is no longer yours.

[joligario]

Then it's most likely the server and client arent synced. Your client may see a ghost. You can add a delay using a timer to ensure pet and client are in zone for the client before it depops.

[lanystvyl]

Going to try this when i get the chance;


for ($count = 10; $count >= 1; $count--) {

sub EVENT_ENTERZONE {
my $pet_id = $client->GetPetID();
if ($pet_id) {
$pet = $entity_list->GetNPCByID($pet_id);
$pet->Depop();
}
}

}


If it looks wrong let me know.

[joligario]

Yeah, I wouldn't do it that way. I would use a timer. Something like this:

sub EVENT_ENTERZONE {
my $pet_id = $client->GetPetID();
if ($pet_id) {
quest::settimer($pet_id, 3);
}
}

sub EVENT_TIMER {
quest::stoptimer($timer);
$pet = $entity_list->GetNPCByID($timer);
$pet->Depop();
}

And if lag seems to still make it not catch the pet, move the entire function underneath the timer.

[lanystvyl]

Thank you, this works. I adjusted the time a little for each zone I want it to work in. It takes 3 seconds after zone before the name turns red, so after that the pet can die off. pretty cool stuff.