pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-14 15:41:30 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

[Quest API] Add GetSkillDmgAmt() to Perl. (#2365)

Browse Source 
- Add $mob->GetSkillDmgAmt(skill_id) to Perl.
- This already exists in Lua, but not Perl.
This commit is contained in:
Kinglykrab 2022-08-10 13:39:51 -04:00 committed by GitHub
parent 1d5a3a82a8
commit aa2b7f8947
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
zone/perl_mob.cpp
View File

@ -2447,6 +2447,11 @@ void Perl_Mob_ApplySpellBuff(Mob* self, int spell_id, int duration) // @categori
self->ApplySpellBuff(spell_id, duration);
}
int Perl_Mob_GetSkillDmgAmt(Mob* self, uint16 skill_id)
{
return self->GetSkillDmgAmt(skill_id);
}
#ifdef BOTS
Bot* Perl_Mob_CastToBot(Mob* self)
{
@ -2695,6 +2700,7 @@ void perl_register_mob()
package.add("GetSTR", &Perl_Mob_GetSTR);
package.add("GetSize", &Perl_Mob_GetSize);
package.add("GetSkill", &Perl_Mob_GetSkill);
package.add("GetSkillDmgAmt", &Perl_Mob_GetSkillDmgAmt);
package.add("GetSkillDmgTaken", &Perl_Mob_GetSkillDmgTaken);
package.add("GetSpecialAbility", &Perl_Mob_GetSpecialAbility);
package.add("GetSpecialAbilityParam", &Perl_Mob_GetSpecialAbilityParam);