# 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', 'cure2'));

    if (defined($sorc_cure) && $killed eq $sorc_cure) {
        delete_last_action_result('save', 'cure2');
    }
    else {
        # Announce it
        say(P_GAMEADV, 'info', $CFG{'day_channel'},
            $messages{'deads'}{'werevolves_kill'}, $killed);
    }
    return do_action('death_announce', $killed);
}