Fix TryMoveAlong() in Perl.

- Didn't have 4th option accounted for (my bad).
This commit is contained in:
Kinglykrab 2018-03-25 14:33:38 -04:00
parent 137d2d723d
commit 5b5c3a08e6

View File

@ -9402,7 +9402,7 @@ XS(boot_Mob)
newXSproto(strcpy(buf, "IsSilenced"), XS_Mob_IsSilenced, file, "$");
newXSproto(strcpy(buf, "IsAmnesiad"), XS_Mob_IsAmnesiad, file, "$");
newXSproto(strcpy(buf, "GetMeleeMitigation"), XS_Mob_GetMeleeMitigation, file, "$");
newXSproto(strcpy(buf, "TryMoveAlong"), XS_Mob_TryMoveAlong, file, "$$;$");
newXSproto(strcpy(buf, "TryMoveAlong"), XS_Mob_TryMoveAlong, file, "$$$;$");
XSRETURN_YES;
}