sub cmd_cure {
    my ($ni) = @_;
    my $target = read_ply_pnick(read_last_action_result('kill', 'werewolf'));

    # we know if the sorcerer has used his fate bcs of the existence
    # of the key
    if($special_jobs{'sorcerer'}{'data'}{'cure_used'}) {
        say(P_GAME, 'error',$ni, $messages{'cmds'}{'cure'}{'already_cure'});
        return 1;
    }

    do_action('save', 'cure', $target);
    do_action('save', 'cure', $target);

    $special_jobs{'sorcerer'}{'data'}{'cure_used'} = 1;
    say(P_GAMEADV, 'reply', $ni,
        $messages{'cmds'}{'cure'}{'you_cure'}, $target);

    if($special_jobs{'sorcerer'}{'data'}{'poison_used'}) {
        say(P_GAMEADV, 'info', $ni, $messages{'cmds'}{'cure'}{'fates_used'});
        do_next_step();
        return 1;
    }
    return 1;
}