pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-09-02 08:26:36 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add Owner methods to Perl/Lua. (#2542)

Browse Source 
* [Quest API] Add Owner methods to Perl/Lua.

# Perl
- Add `$mob->GetOwner()` to Perl.

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

# Notes
- `GetOwner()` exists in Lua, but not Perl.
- `GetOwnerID()` exists in Perl, but not Lua.

* Update lua_mob.cpp
This commit is contained in:
Kinglykrab
2022-11-14 18:03:26 -05:00
committed by GitHub
parent e72ec4ae56
commit 8f1b87c5e4
3 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_mob.cpp
+7 -1
View File
@@ -1030,7 +1030,7 @@ void Perl_Mob_SetOwnerID(Mob* self, uint16 new_owner_id) // @categories Pet
self->SetOwnerID(new_owner_id);
}
int Perl_Mob_GetOwnerID(Mob* self) // @categories Script Utility, Pet
uint16 Perl_Mob_GetOwnerID(Mob* self) // @categories Script Utility, Pet
{
return self->GetOwnerID();
}
@@ -2477,6 +2477,11 @@ void Perl_Mob_CloneAppearance(Mob* self, Mob* other, bool clone_name) // @catego
self->CloneAppearance(other, clone_name);
}
Mob* Perl_Mob_GetOwner(Mob* self) // @categories Script Utility, Pet
{
return self->GetOwner();
}
#ifdef BOTS
Bot* Perl_Mob_CastToBot(Mob* self)
{
@@ -2711,6 +2716,7 @@ void perl_register_mob()
package.add("GetNimbusEffect1", &Perl_Mob_GetNimbusEffect1);
package.add("GetNimbusEffect2", &Perl_Mob_GetNimbusEffect2);
package.add("GetNimbusEffect3", &Perl_Mob_GetNimbusEffect3);
package.add("GetOwner", &Perl_Mob_GetOwner);
package.add("GetOwnerID", &Perl_Mob_GetOwnerID);
package.add("GetPR", &Perl_Mob_GetPR);
package.add("GetPetID", &Perl_Mob_GetPetID);