pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-19 17:38:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add IsAutoFireEnabled() to Perl/Lua (#2978)

Browse Source 
# Perl
- Add `$client->IsAutoFireEnabled()`.

# Lua
- Add `client:IsAutoFireEnabled()`.

# Notes
- Allows operators to check if a client has auto fire enabled.
This commit is contained in:
Alex King
2023-02-22 23:30:04 -05:00
committed by GitHub
parent fcb0a47280
commit 9d4f231619
3 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_client.cpp
+6
View File
@@ -2897,6 +2897,11 @@ void Perl_Client_UseAugmentContainer(Client* self, int container_slot)
self->UseAugmentContainer(container_slot);
}
bool Perl_Client_IsAutoFireEnabled(Client* self)
{
return self->AutoFireEnabled();
}
void perl_register_client()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3159,6 +3164,7 @@ void perl_register_client()
package.add("IncreaseSkill", (void(*)(Client*, int))&Perl_Client_IncreaseSkill);
package.add("IncreaseSkill", (void(*)(Client*, int, int))&Perl_Client_IncreaseSkill);
package.add("IncrementAA", &Perl_Client_IncrementAA);
package.add("IsAutoFireEnabled", &Perl_Client_IsAutoFireEnabled);
package.add("IsBecomeNPC", &Perl_Client_IsBecomeNPC);
package.add("IsCrouching", &Perl_Client_IsCrouching);
package.add("IsDueling", &Perl_Client_IsDueling);