Fix lua/perl set_proximity to accept flag for say prox

This will fix proximity say to always work
This commit is contained in:
Michael Cook (mackal)
2018-03-24 15:24:54 -04:00
parent 4ee35d7e56
commit 3e1b86a7c3
4 changed files with 13 additions and 4 deletions
+5 -2
View File
@@ -1543,7 +1543,7 @@ XS(XS__set_proximity)
{
dXSARGS;
if (items != 4 && items != 6)
Perl_croak(aTHX_ "Usage: set_proximity(min_x, max_x, min_y, max_y [, min_z, max_z])");
Perl_croak(aTHX_ "Usage: set_proximity(min_x, max_x, min_y, max_y [, min_z, max_z], [say])");
float min_x = (float)SvNV(ST(0));
float max_x = (float)SvNV(ST(1));
@@ -1555,7 +1555,10 @@ XS(XS__set_proximity)
else {
float min_z = (float)SvNV(ST(4));
float max_z = (float)SvNV(ST(5));
quest_manager.set_proximity(min_x, max_x, min_y, max_y, min_z, max_z);
bool bSay = false;
if (items == 7)
bSay = (bool)SvTRUE(ST(6));
quest_manager.set_proximity(min_x, max_x, min_y, max_y, min_z, max_z, bSay);
}
XSRETURN_EMPTY;