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

[Quest API] Add Spell methods to Perl. (#1631)

Browse Source 
* [Quest API] Add Spell methods to Perl.
- Add quest::getspell(spell_id) to Perl.
- Add eq.get_spell(spell_id) to Lua.
These methods return a spell object.

Exports $spell object references to spell events.

* Formatting.

* Remove comment.

* Update spdat.cpp

* Amplication typo.

* Fix conflicts.

* Remove repository changes.

* Fix typing.

* Update spell_effects.cpp
This commit is contained in:
Kinglykrab
2021-11-03 17:47:15 -04:00
committed by GitHub
parent 6e26e8953c
commit 17aaab1f9d
61 changed files with 4342 additions and 2117 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_mob.cpp
+8 -8
View File
@@ -2800,7 +2800,7 @@ XS(XS_Mob_SpellFinished) {
if (items > 4) {
resist_diff = (int16) SvUV(ST(4));
} else {
resist_diff = spells[spell_id].ResistDiff;
resist_diff = spells[spell_id].resist_difficulty;
}
THIS->SpellFinished(spell_id, spell_target, EQ::spells::CastingSlot::Item, mana_cost, -1, resist_diff);
@@ -2855,7 +2855,7 @@ XS(XS_Mob_BuffFadeByEffect) {
Perl_croak(aTHX_ "Usage: Mob::BuffFadeByEffect(THIS, int effect_id, int skip_slot = -1)"); // @categories Script Utility, Spells and Disciplines
{
Mob *THIS;
int effectid = (int) SvIV(ST(1));
int effect_id = (int) SvIV(ST(1));
int skipslot;
VALIDATE_THIS_IS_MOB;
if (items < 3)
@@ -2864,7 +2864,7 @@ XS(XS_Mob_BuffFadeByEffect) {
skipslot = (int) SvIV(ST(2));
}
THIS->BuffFadeByEffect(effectid, skipslot);
THIS->BuffFadeByEffect(effect_id, skipslot);
}
XSRETURN_EMPTY;
}
@@ -5093,8 +5093,8 @@ XS(XS_Mob_DoKnockback) {
{
Mob *THIS;
Mob *caster;
uint32 pushback = (uint16) SvUV(ST(2));
uint32 pushup = (uint16) SvUV(ST(2));
uint32 push_back = (uint16) SvUV(ST(2));
uint32 push_up = (uint16) SvUV(ST(2));
VALIDATE_THIS_IS_MOB;
if (sv_derived_from(ST(1), "Mob")) {
IV tmp = SvIV((SV *) SvRV(ST(1)));
@@ -5104,7 +5104,7 @@ XS(XS_Mob_DoKnockback) {
if (caster == nullptr)
Perl_croak(aTHX_ "caster is nullptr, avoiding crash.");
THIS->DoKnockback(caster, pushback, pushup);
THIS->DoKnockback(caster, push_back, push_up);
}
XSRETURN_EMPTY;
}
@@ -5116,9 +5116,9 @@ XS(XS_Mob_RemoveNimbusEffect) {
Perl_croak(aTHX_ "Usage: Mob::RemoveNimbusEffect(THIS, int32 effect_id)"); // @categories Script Utility
{
Mob *THIS;
int32 effectid = (int32) SvIV(ST(1));
int32 effect_id = (int32) SvIV(ST(1));
VALIDATE_THIS_IS_MOB;
THIS->RemoveNimbusEffect(effectid);
THIS->RemoveNimbusEffect(effect_id);
}
XSRETURN_EMPTY;
}