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

Update perl_mob.cpp

Browse Source
This commit is contained in:
Paul Coene 2019-04-24 17:26:17 -04:00 committed by GitHub
parent dfe4bb5b78
commit a402f01514
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
zone/perl_mob.cpp
View File

@ -1135,28 +1135,28 @@ XS(XS_Mob_ChangeSize) {
XSRETURN_EMPTY;
}
+XS(XS_Mob_RandomizeFeatures); /* prototype to pass -Wmissing-prototypes */
+XS(XS_Mob_RandomizeFeatures) {
+ dXSARGS;
+ if (items < 2 || items > 3)
+ Perl_croak(aTHX_ "Usage: Mob::RandomizeFeatures(THIS, bool send_illusion, set_variables)");
+ {
+ Mob *THIS;
+ bool send_illusion = (bool) SvNV(ST(1));
+ bool set_variables = (bool) SvNV(ST(2));
+
+ if (sv_derived_from(ST(0), "Mob")) {
+ IV tmp = SvIV((SV *) SvRV(ST(0)));
+ THIS = INT2PTR(Mob *, tmp);
+ } else
+ Perl_croak(aTHX_ "THIS is not of type Mob");
+ if (THIS == nullptr)
+ Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
+
+ THIS->RandomizeFeatures(send_illusion, set_variables);
+ }
+ XSRETURN_EMPTY;
+}
XS(XS_Mob_RandomizeFeatures); /* prototype to pass -Wmissing-prototypes */
XS(XS_Mob_RandomizeFeatures) {
dXSARGS;
if (items < 2 || items > 3)
Perl_croak(aTHX_ "Usage: Mob::RandomizeFeatures(THIS, bool send_illusion, set_variables)");
{
Mob *THIS;
bool send_illusion = (bool) SvNV(ST(1));
bool set_variables = (bool) SvNV(ST(2));
if (sv_derived_from(ST(0), "Mob")) {
IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Mob *, tmp);
} else
Perl_croak(aTHX_ "THIS is not of type Mob");
if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->RandomizeFeatures(send_illusion, set_variables);
}
XSRETURN_EMPTY;
}
XS(XS_Mob_GMMove); /* prototype to pass -Wmissing-prototypes */
XS(XS_Mob_GMMove) {