Export death event variables to Perl (Kingly Krab)

http://www.eqemulator.org/forums/showpost.php?p=227770&postcount=9
This commit is contained in:
Michael Cook (mackal)
2014-01-20 02:01:52 -05:00
parent 3159453e75
commit 3970bb5955
2 changed files with 16 additions and 6 deletions
+10
View File
@@ -1307,6 +1307,16 @@ void PerlembParser::ExportEventVariables(std::string &package_name, QuestEventID
break;
}
case EVENT_DEATH:
case EVENT_DEATH_COMPLETE: {
Seperator sep(data);
ExportVar(package_name.c_str(), "killer_id", sep.arg[0]);
ExportVar(package_name.c_str(), "killer_damage", sep.arg[1]);
ExportVar(package_name.c_str(), "killer_spell", sep.arg[2]);
ExportVar(package_name.c_str(), "killer_skill", sep.arg[3]);
break;
}
default: {
break;
}