pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-17 07:18:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Export $object to EVENT_CLICK_OBJECT in Perl (#2862)

Browse Source 
# Notes
- Exports `$object` to `EVENT_CLICK_OBJECT` in Perl so you don't have to grab it from entity list.
This commit is contained in:
Alex King
2023-02-10 23:34:52 -05:00
committed by GitHub
parent a49fa42f35
commit b90082d694
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser.cpp
+3
View File
@@ -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<Object*>(extra_pointers->at(0)));
}
break;
}