pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-16 22:58:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add Buff Support to Perl/Lua (#4182)

Browse Source 
* [Quest API] Add Buff Support to Perl/Lua

- Add `$mob->GetCasterID()`.
- Add `$mob->GetCasterLevel()`.
- Add `$mob->GetCasterName()`.
- Add `$mob->GetCastOnX()`.
- Add `$mob->GetCastOnY()`.
- Add `$mob->GetCastOnZ()`.
- Add `$mob->GetCounters()`.
- Add `$mob->GetDOTRune()`.
- Add `$mob->GetExtraDIChance()`.
- Add `$mob->GetInstrumentModi()`.
- Add `$mob->GetMagicRune()`.
- Add `$mob->GetMeleeRune()`.
- Add `$mob->GetNumberOfHits()`.
- Add `$mob->GetRootBreakChanc()`.
- Add `$mob->GetSpellID()`.
- Add `$mob->GetTicsRemaining()`.
- Add `$mob->GetVirusSpreadTim()`.
- Add `$mob->IsCasterClient()`.
- Add `$mob->IsPersistentBuff()`.
- Add `$mob->SendsClientUpdate()`.

- Add `mob:GetCasterID()`.
- Add `mob:GetCasterLevel()`.
- Add `mob:GetCasterName()`.
- Add `mob:GetCastOnX()`.
- Add `mob:GetCastOnY()`.
- Add `mob:GetCastOnZ()`.
- Add `mob:GetCounters()`.
- Add `mob:GetDOTRune()`.
- Add `mob:GetExtraDIChance()`.
- Add `mob:GetInstrumentModi()`.
- Add `mob:GetMagicRune()`.
- Add `mob:GetMeleeRune()`.
- Add `mob:GetNumberOfHits()`.
- Add `mob:GetRootBreakChanc()`.
- Add `mob:GetSpellID()`.
- Add `mob:GetTicsRemaining()`.
- Add `mob:GetVirusSpreadTim()`.
- Add `mob:IsCasterClient()`.
- Add `mob:IsPersistentBuff()`.
- Add `mob:SendsClientUpdate()`.

- Adds support for `Buffs_Struct` to Perl/Lua.
- Allows operators to read a mob's buff data directly to determine caster, melee rune, etc.

* Fix GetCasterID() to proper data type.

* Remove Lua_Buffs, return table instead.

* Cleanup
This commit is contained in:
Alex King
2024-03-13 23:38:15 -04:00
committed by GitHub
parent b29c26becb
commit 161c13f457
9 changed files with 398 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_mob.cpp
+14
View File
@@ -3425,6 +3425,19 @@ std::string Perl_Mob_GetDeityName(Mob* self)
return EQ::deity::GetDeityName(static_cast<EQ::deity::DeityType>(self->GetDeity()));
}
perl::array Perl_Mob_GetBuffs(Mob* self)
{
perl::array result;
const auto& buffs = self->GetBuffs();
for (int slot_id = 0; slot_id < self->GetMaxBuffSlots(); slot_id++) {
result.push_back(&buffs[slot_id]);
}
return result;
}
void perl_register_mob()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3610,6 +3623,7 @@ void perl_register_mob()
package.add("GetBucketExpires", &Perl_Mob_GetBucketExpires);
package.add("GetBucketKey", &Perl_Mob_GetBucketKey);
package.add("GetBucketRemaining", &Perl_Mob_GetBucketRemaining);
package.add("GetBuffs", &Perl_Mob_GetBuffs);
package.add("GetBuffSlotFromType", &Perl_Mob_GetBuffSlotFromType);
package.add("GetBuffSpellIDs", &Perl_Mob_GetBuffSpellIDs);
package.add("GetBuffStatValueBySpell", &Perl_Mob_GetBuffStatValueBySpell);