//==============================================
// Card removal NPC by TyrNemesis^ 饻yĶGJ
// NXg by FPE (2006.6.26)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

prt_in.gat,28,73,4	script	H	78,{
	mes "[H]";
	mes "An~~~HI";
	mes "Qn˸b˳ƤWdܡH";
	mes "ڥiHϥ]kAoӦI";
	mes "LAI@wOγI";
	next;
	menu	"nڡIݨӯuC",A01,
		"AOp󦬶OrH",-,
		"FA¡C",Exit;

	mes "[H]";
	mes "....@˳ƻݭnI^4040FF200000z^000000ZenyC";
	mes "@id[^4040FF25000z^000000ZenyC";
	mes "t~Aڻݭn@^4040FFPP^000000M";
	mes "^4040FF]Oq^000000ӻUڪ]kC";
	next;
	menu	"ڨa",-,
		"QQ٬OF",Exit;

A01:
	mes "[H]";
	mes "HOO~AQA@˳ƩOH";
	next;
	menu	"....ڷQQC",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 "[H]";
		mes "~H...o˳ƤWèSdr~~~";
		close;
		end;
	}
	set @cardcount,getequipcardcnt(@part);
	mes "[H]";
	mes "o˳ƪѤWwgWF" + @cardcount + "idC";
	mes "AI^0000FF" + (200000+(@cardcount*25000)) + "M^000000@^0000FFPPA^000000@^0000FF]Oq^000000C";
	next;
	menu	"oǧڳaӤF",-,
		"٨SǳƦnC",Exit;

	mes "[H]";
	mes "b}leڱoiDAAϥγo]kU@ѡAi|laFdθ˳ơA]i˳ƩMd@_laFC";
	mes "U@laFAڥi^FF4040|v^000000A~~ҥHAAҼ{MApGlaܡAAQOdd٬O˳ơC";
	next;
	menu	"QQ٬OFC",Exit,
		"Od˳ơC",-,
		"OddC",PriorityCard;

	set @failtype,1;
	goto RemoveCard;
PriorityCard:
	set @failtype,2;
RemoveCard:
	mes "[H]";
	mes "ܦnIڶ}lF~~C";
	next;
	if(zeny<(200000+(@cardcount*25000)) || countitem(1000)<1 || countitem(715)<1)
	{
		mes "[H]";
		mes "AèSڻݭnƱaӧrA٬OF賣aFAӧڧaIAAڪIX]ӱonҦìI";
		close;
		end;
	}
	set zeny,zeny-(200000+(@cardcount*25000));
	delitem 1000,1;
	delitem 715,1;

	set @failchance,rand(100);
	if(@failchance<2)
	{
		emotion 4;
		mes "[H]";
		mes "̾ߪƱשoͤF...藍_AdaF.....";
		failedremovecards @part,0;
		close;
		end;
	}
	if(@failchance<6 && @failtype==1)
	{
		emotion 4;
		mes "[H]";
		mes "ާڤwg]kNdq˳ƪѤA٬OQlaFCnA˳٬OnC";
		failedremovecards @part,1;
		close;
		end;
	}
	if(@failchance<6 && @failtype==2)
	{
		emotion 4;
		mes "[H]";
		mes "....dOUӤFAiO˳ƦbL{Q}aFC";
		failedremovecards @part,2;
		close;
		end;
	}
	if(@failchance<10)
	{
		emotion 4;
		mes "[H]";
		mes "椣AѤF....nAL{dM˳٨̵MnC";
		failedremovecards @part,3;
		close;
		end;
	}
	emotion 18;
	successremovecards @part;
	mes "[H]";
	mes "j\iաI";
	mes "oOAdMADAAI";
	close;
	end;

Exit:
	mes "[H]";
	mes "ܦnApGݭnA@NHɬAAȡC";
	close;
	end;
}