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

Fix for perl EVENT_COMMAND not exporting single arguments

Browse Source
This commit is contained in:
Uleat 2020-01-12 01:32:51 -05:00
parent d1fb74ff5f
commit 6c2100a650
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
zone/embparser.cpp
View File

@ -1545,7 +1545,7 @@ void PerlembParser::ExportEventVariables(
case EVENT_COMMAND: { case EVENT_COMMAND: {
Seperator sep(data); Seperator sep(data);
ExportVar(package_name.c_str(), "command", (sep.arg[0] + 1)); ExportVar(package_name.c_str(), "command", (sep.arg[0] + 1));
ExportVar(package_name.c_str(), "args", (sep.argnum > 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); ExportVar(package_name.c_str(), "args", (sep.argnum >= 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0"));
break; break;
} }
@ -1614,7 +1614,7 @@ void PerlembParser::ExportEventVariables(
case EVENT_BOT_COMMAND: { case EVENT_BOT_COMMAND: {
Seperator sep(data); Seperator sep(data);
ExportVar(package_name.c_str(), "bot_command", (sep.arg[0] + 1)); ExportVar(package_name.c_str(), "bot_command", (sep.arg[0] + 1));
ExportVar(package_name.c_str(), "args", (sep.argnum > 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); ExportVar(package_name.c_str(), "args", (sep.argnum >= 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0"));
break; break;
} }