Fix for perl defensive/ranged proc function

Minor fix to NPC ranged attack.
This commit is contained in:
KayenEQ
2015-02-21 23:04:24 -05:00
parent a537981ad0
commit c8c2209617
2 changed files with 3 additions and 4 deletions
+2 -2
View File
@@ -2343,7 +2343,7 @@ XS(XS_NPC_AddRangedProc) {
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
THIS->AddDefensiveProc(spell_id,chance);
THIS->AddRangedProc(spell_id,chance);
}
XSRETURN_EMPTY;
}
@@ -2368,7 +2368,7 @@ XS(XS_NPC_AddDefensiveProc) {
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
THIS->AddProcToWeapon(spell_id, true, chance);
THIS->AddDefensiveProc(spell_id,chance);
}
XSRETURN_EMPTY;
}