[Quest API] Export killed XYZH to EVENT_DEATH_ZONE in Perl. (#2050)

- Export $killed_x, $killed_y, $killed_z, and $killed_h to EVENT_DEATH_ZONE in Perl.
- Cleanup export strings and unnecessary .c_str() calls on event exports.
This commit is contained in:
Kinglykrab
2022-03-12 13:44:01 -05:00
committed by GitHub
parent abcf8cbce1
commit 791d8b329d
9 changed files with 72 additions and 34 deletions
+4
View File
@@ -1636,6 +1636,10 @@ void PerlembParser::ExportEventVariables(
ExportVar(package_name.c_str(), "killer_spell", sep.arg[2]);
ExportVar(package_name.c_str(), "killer_skill", sep.arg[3]);
ExportVar(package_name.c_str(), "killed_npc_id", sep.arg[4]);
ExportVar(package_name.c_str(), "killed_x", sep.arg[5]);
ExportVar(package_name.c_str(), "killed_y", sep.arg[6]);
ExportVar(package_name.c_str(), "killed_z", sep.arg[7]);
ExportVar(package_name.c_str(), "killed_h", sep.arg[8]);
break;
}
case EVENT_USE_SKILL: {