pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-31 09:06:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetKeyRing() to Perl/Lua (#4980)

Browse Source
This commit is contained in:
Alex King
2025-08-16 21:34:28 -04:00
committed by GitHub
parent 00b66ce432
commit d475428157
4 changed files with 32 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_client.cpp
+13
View File
@@ -3351,6 +3351,18 @@ bool Perl_Client_UncompleteTask(Client* self, int task_id)
return self->UncompleteTask(task_id);
}
perl::array Perl_Client_GetKeyRing(Client* self)
{
perl::array result;
const auto& v = self->GetKeyRing();
for (int i = 0; i < v.size(); ++i) {
result.push_back(v[i]);
}
return result;
}
void perl_register_client()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3582,6 +3594,7 @@ void perl_register_client()
package.add("GetItemCooldown", &Perl_Client_GetItemCooldown);
package.add("GetItemIDAt", &Perl_Client_GetItemIDAt);
package.add("GetItemInInventory", &Perl_Client_GetItemInInventory);
package.add("GetKeyRing", &Perl_Client_GetKeyRing);
package.add("GetLDoNLosses", &Perl_Client_GetLDoNLosses);
package.add("GetLDoNLossesTheme", &Perl_Client_GetLDoNLossesTheme);
package.add("GetLDoNPointsTheme", &Perl_Client_GetLDoNPointsTheme);