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) && $sorc_cure eq $killed) {
        delete_last_action_result('save', 'cure');
        add_action_hook('death_announce', 'replace', \&on_sorcerer_cure);
    }
    else {
        say(P_GAMEADV, 'info', $CFG{'day_channel'},
        $messages{'deads'}{'werevolves_kill'}, $killed);
    }


    return do_action('death_announce', $killed);
}