[Quest API] Add caster_id and caster_level export to EVENT_CAST_ON in Perl/Lua. (#2049)

- Add $caster_id and $caster_level to EVENT_CAST_ON in Perl.
- Add e.caster_id and e.caster_level to EVENT_CAST_ON in Perl.
This commit is contained in:
Kinglykrab
2022-03-10 21:46:27 -05:00
committed by GitHub
parent e6c8a38ffa
commit d904db0e52
3 changed files with 20 additions and 4 deletions
+4 -1
View File
@@ -1450,7 +1450,10 @@ void PerlembParser::ExportEventVariables(
case EVENT_CAST_ON:
case EVENT_CAST:
case EVENT_CAST_BEGIN: {
ExportVar(package_name.c_str(), "spell_id", data);
Seperator sep(data);
ExportVar(package_name.c_str(), "spell_id", sep.arg[0]);
ExportVar(package_name.c_str(), "caster_id", sep.arg[1]);
ExportVar(package_name.c_str(), "caster_level", sep.arg[2]);
break;
}