mes "[ Ultimate Kafra ]";
	mes "Card removal cost 200,000 zeny.";
	mes "  ";
	mes "  ";
	mes "Continue?";
	next;
	switch(select("Yes:No")) {

case 1:
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 .@count,.@count + 1;
				}
				set .@menu$, .@menu$ + ":";
			}
			if( !.@count ){
				mes "You wear nothing.";
				close;
			}
			set .part,select(.@menu$);
			if ( !getequipisequiped(.part) ){
				mes "[ Ultimate Kafra ]";
				mes "I'm sorry, but you're not wearing anything.";
				close;
			}
			if(getequipcardcnt(.part) == 0) {
				mes "[ Ultimate Kafra ]";
				mes "There is no card on this Item.";
				close;
			}
			set .@cardcount,getequipcardcnt(.part);

			if (!checkweight(1202,(.@cardcount+1))) {
				mes "I'm sorry, but you're carrying too much stuff.";
				mes "Please free some weight...";
				close;
			}
			mes "[ Ultimate Kafra ]";
			mes "Remove " + .@cardcount + " card(s) in " + getequipname(.part) + "["+getitemslots( getequipid(.part) )+"] Item?";
			next;
			menu "Yes",yesremove,"No",noremove;

noremove:
	mes "[ Ultimate Kafra ]";
	mes "Okay, suit yourself.";
	close;

yesremove:
			if ( zeny < 200000){
				mes "[ Ultimate Kafra ]";
				mes "Hey, you don't have enough zeny.";
				close;
			}
			mes "[ Ultimate Kafra ]";
			mes "Please wait...";
			mes "      ";
			mes "      ";
			sleep2 8000;
			mes "^009900*Uncompound Successful*^000000";
			set zeny,zeny - 200000;
			next;
			successremovecards .part;
			mes "[ Ultimate Kafra ]";
			mes "Here's your Item...";
			close;
		case 3:
			mes "[ Ultimate Kafra ]";
			mes "Okay, comeback when you need my service.";
			close;