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

[Quest API] Export $item to EVENT_DISCOVER_ITEM in Perl (#2863)

Browse Source 
# Notes
- Exports `$item` to `EVENT_DISCOVER_ITEM`.
This commit is contained in:
Alex King 2023-02-10 23:56:50 -05:00 committed by GitHub
parent a3bb7e7741
commit 5a0a1b1ffd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
zone/client.cpp
View File

@ -4067,7 +4067,13 @@ void Client::DiscoverItem(uint32 itemid) {
itemid, GetName(), Admin());
auto results = database.QueryDatabase(query);
parse->EventPlayer(EVENT_DISCOVER_ITEM, this, "", itemid);
auto* inst = database.CreateItem(itemid);
std::vector<std::any> args;
args.emplace_back(inst);
parse->EventPlayer(EVENT_DISCOVER_ITEM, this, "", itemid, &args);
}
void Client::UpdateLFP() {

3
zone/embparser.cpp
View File

@ -1792,6 +1792,9 @@ void PerlembParser::ExportEventVariables(
case EVENT_DISCOVER_ITEM: {
ExportVar(package_name.c_str(), "itemid", extradata);
if (extra_pointers && extra_pointers->size() == 1) {
ExportVar(package_name.c_str(), "item", "QuestItem", std::any_cast<EQ::ItemInstance*>(extra_pointers->at(0)));
}
break;
}