initial rewrite of loot code

This commit is contained in:
KimLS
2014-09-27 19:57:45 -07:00
parent b05dd45d62
commit 7fed01ddea
4 changed files with 103 additions and 99 deletions
+2 -2
View File
@@ -2075,7 +2075,7 @@ XS(XS_NPC_GetSlowMitigation)
Perl_croak(aTHX_ "Usage: NPC::GetSlowMitigation(THIS)");
{
NPC * THIS;
int16 RETVAL;
float RETVAL;
dXSTARG;
if (sv_derived_from(ST(0), "NPC")) {
@@ -2088,7 +2088,7 @@ XS(XS_NPC_GetSlowMitigation)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSlowMitigation();
XSprePUSH; PUSHn((UV)RETVAL);
XSprePUSH; PUSHn((double)RETVAL);
}
XSRETURN(1);
}