prontera,1,1,1  script  Change Char Sex WARP_NPC,{
    mes "[Char Sex Changer]";
    if (Class == Job_Dancer || Class == Job_Bard || Class == Job_Gypsy || Class == Job_Clown || Class == Job_Kagerou || Class == Job_Oboro) {
        mes "Your Job cannot change sex";
        close;
    }
    if (countitem(.item) < .quantity) {
        mes "You do not have enough items.";
        close;
    }
    mes "Are you sure you want to change sex?";
    if (select("Yes", "No") == 1) {
        next;
        if (countitem(.item) < .quantity)
            end;
        delitem .item, .quantity;
        changecharsex();    // Would disconnect the player.
        end;
    }
    next;
    mes "...";
    close;
 
OnInit:
    .item = Red_Potion;
    .quantity = 1;
    end;
}