//==============================================
// Card removal NPC by TyrNemesis^ ձZUm
// д by FPE (2006.6.26)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

prt_in.gat,28,73,4	script	ظ	78,{
	mes "[ظ]";
	mes "ð~~ˣ";
	mes "ҪжװװϵĿƬ";
	mes "ҿʹħæ";
	mes "֧һķร";
	next;
	menu	"ð治",A01,
		"շѵѽ",-,
		"ˣлл",Exit;

	mes "[ظ]";
	mes "....жһװҪ֧^4040FF200000z^000000Zeny";
	mes "һſƬ^4040FF25000z^000000Zeny";
	mes "⣬ҪһЩ^4040FFǵĽ^000000";
	mes "^4040FFɫħʯ^000000ҵħ";
	next;
	menu	"ǰж",-,
		"뻹",Exit;

A01:
	mes "[ظ]";
	mes "HOO~Ұжһװأ";
	next;
	menu	"..ж..롣",Exit,
		getequipname(1),SLOT1,
		getequipname(2),SLOT2,
		getequipname(3),SLOT3,
		getequipname(4),SLOT4,
		getequipname(5),SLOT5,
		getequipname(6),SLOT6,
		getequipname(7),SLOT7,
		getequipname(8),SLOT8,
		getequipname(9),SLOT9,
		getequipname(10),SLOT10;

SLOT1:
	set @part,1;
	goto CardNumCheck;
SLOT2:
	set @part,2;
	goto CardNumCheck;
SLOT3:
	set @part,3;
	goto CardNumCheck;
SLOT4:
	set @part,4;
	goto CardNumCheck;
SLOT5:
	set @part,5;
	goto CardNumCheck;
SLOT6:
	set @part,6;
	goto CardNumCheck;
SLOT7:
	set @part,7;
	goto CardNumCheck;
SLOT8:
	set @part,8;
	goto CardNumCheck;
SLOT9:
	set @part,9;
	goto CardNumCheck;
SLOT10:
	set @part,10;

CardNumCheck:
	if(getequipcardcnt(@part)==0)
	{
		emotion 5;
		mes "[ظ]";
		mes "...װ沢ûпƬѽ~~~";
		close;
		end;
	}
	set @cardcount,getequipcardcnt(@part);
	mes "[ظ]";
	mes "װĲѾ" + @cardcount + "ſƬ";
	mes "֧^0000FF" + (200000+(@cardcount*25000)) + "Һ^000000һ^0000FFǵĽǣ^000000һ^0000FFɫħʯ^000000";
	next;
	menu	"ЩҶ",-,
		"һû׼á",Exit;

	mes "[ظ]";
	mes "ڿʼ֮ǰҵȸ㣬ʹħһʧܣܻ˿ƬװҲװͿƬһˡ";
	mes "һˣҿ^FF4040⳥^000000~~ԣ뿼𻵵Ļ뱣Ƭװ";
	next;
	menu	"뻹ˡ",Exit,
		"װ",-,
		"Ƭ",PriorityCard;

	set @failtype,1;
	goto RemoveCard;
PriorityCard:
	set @failtype,2;
RemoveCard:
	mes "[ظ]";
	mes "ܺãҿʼ~~";
	next;
	if(zeny<(200000+(@cardcount*25000)) || countitem(1000)<1 || countitem(715)<1)
	{
		mes "[ظ]";
		mes "㲢ûаҪĲϴѽǰѶҰɣ˵ҵĸҲӦõҪջ";
		close;
		end;
	}
	set zeny,zeny-(200000+(@cardcount*25000));
	delitem 1000,1;
	delitem 715,1;

	set @failchance,rand(100);
	if(@failchance<2)
	{
		emotion 4;
		mes "[ظ]";
		mes "ĵڷ...Բ𣬿Ƭ.....";
		failedremovecards @part,0;
		close;
		end;
	}
	if(@failchance<6 && @failtype==1)
	{
		emotion 4;
		mes "[ظ]";
		mes "Ѿ跨ƬװĲжǻǱˡҺãװǺõġ";
		failedremovecards @part,1;
		close;
		end;
	}
	if(@failchance<6 && @failtype==2)
	{
		emotion 4;
		mes "[ظ]";
		mes "ҵϢ....Ƭжˣװжбƻˡ";
		failedremovecards @part,2;
		close;
		end;
	}
	if(@failchance<10)
	{
		emotion 4;
		mes "[ظ]";
		mes "вУжʧ....ҺãжпƬװȻá";
		failedremovecards @part,3;
		close;
		end;
	}
	emotion 18;
	successremovecards @part;
	mes "[ظ]";
	mes "󹦸";
	mes "ĿƬĵߣټ";
	close;
	end;

Exit:
	mes "[ظ]";
	mes "ܺãҪԸʱΪ";
	close;
	end;
}