pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-10 19:10:25 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

[Quest API] Add EVENT_BOT_CREATE to Perl/Lua (#2713)

Browse Source 
* [Quest API] Add EVENT_BOT_CREATE to Perl/Lua

# Perl
- Add `EVENT_BOT_CREATE`.
- Exports `$bot_id`, `$bot_name`, `$bot_class`, `$bot_race`, and `$bot_gender`.

# Lua
- Add `event_bot_create`.
- Exports `e.bot_id`, `e.bot_name`, `e.bot_class`, `e.bot_race`, and `e.bot_gender`.
This commit is contained in:
Alex King
2023-01-08 21:46:40 -05:00
committed by GitHub
parent 0c105a2b91
commit 4c8b65ecc6
9 changed files with 76 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser.cpp
+13 -14
View File
@@ -168,10 +168,9 @@ const char *QuestEventSubroutines[_LargestEventID] = {
"EVENT_GM_COMMAND",
"EVENT_DESPAWN",
"EVENT_DESPAWN_ZONE",
#ifdef BOTS
"EVENT_SPELL_EFFECT_BOT",
"EVENT_SPELL_EFFECT_BUFF_TIC_BOT",
#endif
"EVENT_BOT_CREATE",
"EVENT_SPELL_EFFECT_BOT", // Add new events before these or Lua crashes
"EVENT_SPELL_EFFECT_BUFF_TIC_BOT"
};
PerlembParser::PerlembParser() : perl(nullptr)
@@ -1120,14 +1119,10 @@ void PerlembParser::GetQuestTypes(
if (
event == EVENT_SPELL_EFFECT_CLIENT ||
event == EVENT_SPELL_EFFECT_NPC ||
#ifdef BOTS
event == EVENT_SPELL_EFFECT_BOT ||
#endif
event == EVENT_SPELL_EFFECT_BUFF_TIC_CLIENT ||
event == EVENT_SPELL_EFFECT_BUFF_TIC_NPC ||
#ifdef BOTS
event == EVENT_SPELL_EFFECT_BUFF_TIC_BOT ||
#endif
event == EVENT_SPELL_FADE ||
event == EVENT_SPELL_EFFECT_TRANSLOCATE_COMPLETE
) {
@@ -1573,14 +1568,12 @@ void PerlembParser::ExportEventVariables(
perl->eval(fmt::format("++${}{{${}::item3}};", hash_name, package_name).c_str());
perl->eval(fmt::format("++${}{{${}::item4}};", hash_name, package_name).c_str());
#ifdef BOTS
if (npcmob->IsBot()) {
perl->eval(fmt::format("++${}{{${}::item5}};", hash_name, package_name).c_str());
perl->eval(fmt::format("++${}{{${}::item6}};", hash_name, package_name).c_str());
perl->eval(fmt::format("++${}{{${}::item7}};", hash_name, package_name).c_str());
perl->eval(fmt::format("++${}{{${}::item8}};", hash_name, package_name).c_str());
}
#endif
break;
}
@@ -1754,14 +1747,10 @@ void PerlembParser::ExportEventVariables(
}
#ifdef BOTS
case EVENT_SPELL_EFFECT_BUFF_TIC_BOT:
#endif
case EVENT_SPELL_EFFECT_BUFF_TIC_CLIENT:
case EVENT_SPELL_EFFECT_BUFF_TIC_NPC:
#ifdef BOTS
case EVENT_SPELL_EFFECT_BOT:
#endif
case EVENT_SPELL_EFFECT_CLIENT:
case EVENT_SPELL_EFFECT_NPC:
case EVENT_SPELL_FADE: {
@@ -2052,6 +2041,16 @@ void PerlembParser::ExportEventVariables(
break;
}
case EVENT_BOT_CREATE: {
Seperator sep(data);
ExportVar(package_name.c_str(), "bot_name", sep.arg[0]);
ExportVar(package_name.c_str(), "bot_id", sep.arg[1]);
ExportVar(package_name.c_str(), "bot_race", sep.arg[2]);
ExportVar(package_name.c_str(), "bot_class", sep.arg[3]);
ExportVar(package_name.c_str(), "bot_gender", sep.arg[4]);
break;
}
default: {
break;
}