[Quest API] Add EVENT_GM_COMMAND to Perl/Lua. (#2634)

# Perl
- Add `EVENT_GM_COMMAND`, exports `$message`.

# Lua
- Add `event_gm_command`, exports `e.message`.

# Notes
- Only parses with real GM commands such as `#reload quest`.

zone/embparser.cpp

@@ -165,6 +165,7 @@ const char *QuestEventSubroutines[_LargestEventID] = {
 	"EVENT_AA_GAIN",
 	"EVENT_PAYLOAD",
 	"EVENT_LEVEL_DOWN",
+	"EVENT_GM_COMMAND",
 #ifdef BOTS
 	"EVENT_SPELL_EFFECT_BOT",
 	"EVENT_SPELL_EFFECT_BUFF_TIC_BOT",
@@ -1998,6 +1999,11 @@ void PerlembParser::ExportEventVariables(
 			break;
 		}
 
+		case EVENT_GM_COMMAND: {
+			ExportVar(package_name.c_str(), "message", data);
+			break;
+		}
+
 		default: {
 			break;
 		}