Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Called in the morning, announce the werewolves crime.
- # May have "before" or "after" hooks for other deaths.
- sub do_morning_death_announce {
- my $killed = read_ply_pnick(read_last_action_result('kill', 'werewolf'));
- return unless(defined($killed));
- my $sorc_cure = read_ply_pnick(read_last_action_result('save', 'cure'));
- if (defined($sorc_cure) && $killed eq $sorc_cure) {
- delete_last_action_result('save', 'cure');
- }
- else {
- # Announce it
- say(P_GAMEADV, 'info', $CFG{'day_channel'},
- $messages{'deads'}{'werevolves_kill'}, $killed);
- }
- return do_action('death_announce', $killed);
- }
Add Comment
Please, Sign In to add comment