// 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;
	}
}