From a1251bdda87cd7dce7a3b8aa4e1de3116463ab44 Mon Sep 17 00:00:00 2001
From: Alex King <89047260+Kinglykrab@users.noreply.github.com>
Date: Fri, 10 Feb 2023 23:56:24 -0500
Subject: [PATCH] [Quest API] Export $door to EVENT_CLICKDOOR in Perl (#2861)

# Notes
- Exports `$door` object to `EVENT_CLICKDOOR` 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 95bc5e804..ae47a0fa0 100644
--- a/zone/embparser.cpp
+++ b/zone/embparser.cpp
@@ -1602,6 +1602,9 @@ void PerlembParser::ExportEventVariables(
 		case EVENT_CLICK_DOOR: {
 			ExportVar(package_name.c_str(), "doorid", data);
 			ExportVar(package_name.c_str(), "version", zone->GetInstanceVersion());
+			if (extra_pointers && extra_pointers->size() == 1) {
+				ExportVar(package_name.c_str(), "door", "Doors", std::any_cast<Doors*>(extra_pointers->at(0)));
+			}
 			break;
 		}