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

[Quest API] Add Area-Based Quest Methods to Perl/Lua (#4447)

Browse Source 
* [Quest API] Add Area-Based Quest Methods to Perl/Lua

* Convert some to mob

* Fix
This commit is contained in:
Alex King
2024-08-26 21:29:07 -04:00
committed by GitHub
parent 080865faa2
commit 40738b29e3
13 changed files with 492 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_client.cpp
+18
View File
@@ -3187,6 +3187,21 @@ bool Perl_Client_AreTasksCompleted(Client* self, perl::array task_ids)
return self->AreTasksCompleted(v);
}
void Perl_Client_AreaTaunt(Client* self)
{
entity_list.AETaunt(self);
}
void Perl_Client_AreaTaunt(Client* self, float range)
{
entity_list.AETaunt(self, range);
}
void Perl_Client_AreaTaunt(Client* self, float range, int bonus_hate)
{
entity_list.AETaunt(self, range, bonus_hate);
}
void perl_register_client()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3237,6 +3252,9 @@ void perl_register_client()
package.add("ApplySpellRaid", (void(*)(Client*, int, int, int, bool, bool))&Perl_Client_ApplySpellRaid);
package.add("ApplySpellRaid", (void(*)(Client*, int, int, int, bool, bool, bool))&Perl_Client_ApplySpellRaid);
package.add("AreTasksCompleted", (bool(*)(Client*, perl::array))&Perl_Client_AreTasksCompleted);
package.add("AreaTaunt", (void(*)(Client*))&Perl_Client_AreaTaunt);
package.add("AreaTaunt", (void(*)(Client*, float))&Perl_Client_AreaTaunt);
package.add("AreaTaunt", (void(*)(Client*, float, int))&Perl_Client_AreaTaunt);
package.add("AssignTask", (void(*)(Client*, int))&Perl_Client_AssignTask);
package.add("AssignTask", (void(*)(Client*, int, int))&Perl_Client_AssignTask);
package.add("AssignTask", (void(*)(Client*, int, int, bool))&Perl_Client_AssignTask);