Pet ID find function - Given playername or player ID

[ml2517]

This function was requested.. so here goes.

Edit: Err after Falco's comment I simplified this a bit. LOL

Code: Select all

| Find a players pet providing the players ID or Name
|
| To Find a Pet ID by a Players ID   :  /call FindPCPetByID PlayerID#
|
| To Find a Pet ID by a Players Name :  /call FindPCPetByName PlayerName
|
| If the result is equal to 0 then there was no pet for that player found.
| If you get a non zero number returned then you can simply /target id $return or whatever to target the pet.
|

Sub Main
|Example: Checking for Player: Playername's pet with a radius of 5000 for the search limit.

/call FindPCPetByName PlayerName
/if n $return!=0 {
    /echo Pets ID is: $return
    /echo Pets Name is: $spawn($return,name)
} else {
    /echo Pet Not Found!
}
/return


Sub FindPCPetByID(PlayerID) 
/return $spawn(@PlayerID,pet)

Sub FindPCPetByName(PlayerName) 
/return $spawn($searchspawn("@PlayerName",pc),pet)

[Falco72]

To Find a Pet ID by a Players ID:

Code: Select all

/target id @PlayerId
/delay 3
/if n $target(pet)==0 {
   /echo No pet
} else {
   /varset PetId $target(pet)
}

To Find a Pet ID by a Players Name:

Code: Select all

/target pc @PlayerName
/delay 3
if n $target(pet)==0 {
   /echo No pet
} else {
   /varset PetId $target(pet)
}

This code is different from the above one, infact you need to TARGET the player to have the pet id. This is not always a good thing, f.e. when the target is on the other side of the zone. Nevertheless, you can find it usefull.

BTW, you can have the same result using $spawn() without having to target the player. At the moment I am in a hurry and cant post it, I will do it ASAP.

[ml2517]

Thanks heh.. I simplified it a bit after you pointed that out.