Pasted

// http://www.emistry.net/board/index.php?threads/card-remover.553/
 
prt_in,31,103,4 script  Card Remover#eAcustom   108,{
 
    set .itemid,7539; // required item
    set .cost,1; // required amount
    
    mes "[Card Remover]";
    mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?";
    next;
    switch(select("Yes, it does.:No thanks.")) {
    case 1:
        mes "[Card Remover]";
        mes "Very well. Which item shall I examine for you?";
        next;
 
        setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
        set .@menu$,"";
        for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
        {
            if( getequipisequiped(.@i) )
            set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
 
            set .@menu$, .@menu$ + ":";
        }
        set .@part,select(.@menu$);
        if(!getequipisequiped(.@part)) {
            mes "[Card Remover]";
            mes "Young one... Your not wearing anything there that I can remove cards from.";
            close;
        }
        if(getequipcardcnt(.@part) == 0) {
            mes "[Card Remover]";
            mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
            close;
        }
        set .@cardcount,getequipcardcnt(.@part);
        
        if (!checkweight(1202,(.@cardcount+1))) { 
            mes "^3355FFJust a minute!";
            mes "I can't offer any of my";
            mes "services to you because";
            mes "you're carrying too much";
            mes "stuff. Put your extra items in";
            mes "Kafra Storage and come again~";
            close;
        }
        mes "[Card Remover]";
        mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (.zenycost+(.@cardcount * .percardcost)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
        next;
        .@option = select("Give it a try ! "+.cost+" x "+getitemname( .itemid )+"^000000 ");
        if( countitem( .itemid ) < .cost ) {
            mes "[Card Remover]";
            mes "You do not have all the items I require to work my magic, child. Come again when you do.";
            close;
        }
        mes "[Card Remover]";
        mes "Very well. I shall begin.";
        delitem .itemid,.cost;
        successremovecards .@part;
        mes "[Card Remover]";
        mes "The process was a success. Here are your cards and your item. Farewell.";
        close;
    default:
        mes "[Card Remover]";
        mes "Very well. Return at once if you seek my services.";
        close;
    }
}