[Quest API] Add DescribeSpecialAbilities() to Perl/Lua (#4269)

This commit is contained in:
Alex King
2024-04-20 22:20:37 -04:00
committed by GitHub
parent 703d2cd1d8
commit 6b698b5f51
6 changed files with 27 additions and 0 deletions
+6
View File
@@ -3163,6 +3163,11 @@ bool Perl_Client_SetAutoLoginCharacterName(Client* self, std::string character_n
return quest_manager.SetAutoLoginCharacterNameByAccountID(self->AccountID(), character_name);
}
void Perl_Client_DescribeSpecialAbilities(Client* self, NPC* n)
{
n->DescribeSpecialAbilities(self);
}
void perl_register_client()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3249,6 +3254,7 @@ void perl_register_client()
package.add("CreateExpeditionFromTemplate", &Perl_Client_CreateExpeditionFromTemplate);
package.add("CreateTaskDynamicZone", &Perl_Client_CreateTaskDynamicZone);
package.add("DecreaseByID", &Perl_Client_DecreaseByID);
package.add("DescribeSpecialAbilities", &Perl_Client_DescribeSpecialAbilities);
package.add("DeleteItemInInventory", (void(*)(Client*, int16))&Perl_Client_DeleteItemInInventory);
package.add("DeleteItemInInventory", (void(*)(Client*, int16, int16))&Perl_Client_DeleteItemInInventory);
package.add("DeleteItemInInventory", (void(*)(Client*, int16, int16, bool))&Perl_Client_DeleteItemInInventory);