[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
+2 -2
View File
@@ -2439,11 +2439,11 @@ void ClientTaskState::AcceptNewTask(
client->MessageString(Chat::White, YOU_ASSIGNED_TASK, task->title.c_str());
task_manager->SaveClientState(client, this);
std::string buf = std::to_string(task_id);
std::string export_string = std::to_string(task_id);
NPC *npc = entity_list.GetID(npc_type_id)->CastToNPC();
if (npc) {
parse->EventNPC(EVENT_TASK_ACCEPTED, npc, client, buf.c_str(), 0);
parse->EventNPC(EVENT_TASK_ACCEPTED, npc, client, export_string, 0);
}
}