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

[Quest API] Add Zone Support to Perl and Lua (#4662)

Browse Source 
* [Quest API] Add Zone Support to Perl and Lua

* Final
This commit is contained in:
Alex King
2025-02-09 00:21:15 -05:00
committed by GitHub
parent 4fe229c475
commit 9e07d90664
7 changed files with 1618 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser.cpp
+3
View File
@@ -59,6 +59,7 @@ void perl_register_bot();
void perl_register_buff();
void perl_register_merc();
void perl_register_database();
void perl_register_zone();
#endif // EMBPERL_XS_CLASSES
#endif // EMBPERL_XS
@@ -1187,6 +1188,7 @@ void PerlembParser::MapFunctions()
perl_register_buff();
perl_register_merc();
perl_register_database();
perl_register_zone();
#endif // EMBPERL_XS_CLASSES
}
@@ -1579,6 +1581,7 @@ void PerlembParser::ExportZoneVariables(std::string& package_name)
ExportVar(package_name.c_str(), "instanceversion", zone->GetInstanceVersion());
TimeOfDay_Struct eqTime{ };
zone->zone_time.GetCurrentEQTimeOfDay(time(0), &eqTime);
ExportVar(package_name.c_str(), "zone", "Zone", zone);
ExportVar(package_name.c_str(), "zonehour", eqTime.hour - 1);
ExportVar(package_name.c_str(), "zoneid", zone->GetZoneID());
ExportVar(package_name.c_str(), "zoneln", zone->GetLongName());