pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-13 10:31:29 +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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
zone/lua_mob.cpp
View File

@ -2498,6 +2498,11 @@ void Lua_Mob::CloneAppearance(Lua_Mob other, bool clone_name) {
self->CloneAppearance(other, clone_name);
}
uint16 Lua_Mob::GetOwnerID() {
Lua_Safe_Call_Int();
return self->GetOwnerID();
}
luabind::scope lua_register_mob() {
return luabind::class_<Lua_Mob, Lua_Entity>("Mob")
.def(luabind::constructor<>())
@ -2733,6 +2738,7 @@ luabind::scope lua_register_mob() {
.def("GetNimbusEffect3", (uint8(Lua_Mob::*)(void))&Lua_Mob::GetNimbusEffect3)
.def("GetOrigBodyType", &Lua_Mob::GetOrigBodyType)
.def("GetOwner", &Lua_Mob::GetOwner)
.def("GetOwnerID", &Lua_Mob::GetOwnerID)
.def("GetPR", &Lua_Mob::GetPR)
.def("GetPet", &Lua_Mob::GetPet)
.def("GetPetOrder", (int(Lua_Mob::*)(void))&Lua_Mob::GetPetOrder)

1
zone/lua_mob.h
View File

@ -208,6 +208,7 @@ public:
void SpellEffect(Lua_Mob caster, int spell_id, double partial);
Lua_Mob GetPet();
Lua_Mob GetOwner();
uint16 GetOwnerID();
Lua_Mob GetUltimateOwner();
Lua_HateList GetHateList();
Lua_HateList GetShuffledHateList();

8
zone/perl_mob.cpp
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);