pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-19 13:28:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetUltimateOwner() to Perl/Lua. (#2516)

Browse Source 
# Perl
- Add `$mob->GetUltimateOwner()` to Perl.

# Lua
- Add `mob:GetUltimateOwner()` to Lua.

# Notes
- Allows operators to get ultimate owner of something like a pet's pet or a pet's swarm pet.
This commit is contained in:
Kinglykrab
2022-11-05 08:35:14 -04:00
committed by GitHub
parent 8d1dd52db3
commit a3928ec504
3 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_mob.cpp
+6
View File
@@ -2452,6 +2452,11 @@ int Perl_Mob_GetSkillDmgAmt(Mob* self, uint16 skill_id)
return self->GetSkillDmgAmt(skill_id);
}
Mob* Perl_Mob_GetUltimateOwner(Mob* self) // @categories Script Utility, Pet
{
return self->GetUltimateOwner();
}
#ifdef BOTS
Bot* Perl_Mob_CastToBot(Mob* self)
{
@@ -2711,6 +2716,7 @@ void perl_register_mob()
package.add("GetSpellStat", (int(*)(Mob*, uint32, const char*, uint8))&Perl_Mob_GetSpellStat);
package.add("GetTarget", &Perl_Mob_GetTarget);
package.add("GetTexture", &Perl_Mob_GetTexture);
package.add("GetUltimateOwner", &Perl_Mob_GetUltimateOwner);
package.add("GetWIS", &Perl_Mob_GetWIS);
package.add("GetWalkspeed", &Perl_Mob_GetWalkspeed);
package.add("GetWaypointH", &Perl_Mob_GetWaypointH);