From b90082d694e81fa08173501ac2b7a4dc926685eb Mon Sep 17 00:00:00 2001 From: Alex King <89047260+Kinglykrab@users.noreply.github.com> Date: Fri, 10 Feb 2023 23:34:52 -0500 Subject: [PATCH] [Quest API] Export $object to EVENT_CLICK_OBJECT in Perl (#2862) # Notes - Exports `$object` to `EVENT_CLICK_OBJECT` in Perl so you don't have to grab it from entity list. --- zone/embparser.cpp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/zone/embparser.cpp b/zone/embparser.cpp index 6537b8098..95bc5e804 100644 --- a/zone/embparser.cpp +++ b/zone/embparser.cpp @@ -1780,6 +1780,9 @@ void PerlembParser::ExportEventVariables( case EVENT_CLICK_OBJECT: { ExportVar(package_name.c_str(), "objectid", data); ExportVar(package_name.c_str(), "clicker_id", extradata); + if (extra_pointers && extra_pointers->size() == 1) { + ExportVar(package_name.c_str(), "object", "Object", std::any_cast(extra_pointers->at(0))); + } break; }