//===== eAthena Script =======================================
//= Kunai "Trader" @ que_ng
//===== By: ==================================================
//= eAthena dev team
//===== Current Version: =====================================
//= 1.2a
//===== Compatible With: =====================================
//= eAthena 1.0
//===== Description: =========================================
//= NPC that trades you a few shurikens + ninja stones for 
//= elemental kunais.
//===== Additional Comments: =================================
//= 1.0 Added the npc. It uses a function that sends the item 
//=	  id of the 2 required items plus the amount. Can trade
//= 	  up to 500 units (5,000 kunais) at once. [erKURITA]
//= 1.1 Officialized script [Playtester]
//= 1.2a Optimized/cleaned up a bit [ultramage]
//============================================================

-	script	ɵ 	-1,{

	mes "[]";
	if(BaseJob != Job_Ninja) {
		mes "Ӱṩ";
		mes "һƷģ";
		mes " ֮";
		next;
		mes "[]";
		mes "ҿ㲻Ǹߣ";
		mes "㿴߰";
		close;
	}
	mes "ã !";
	mes "ȱٷɵĻ";
	mes "ӭҹ!";
	next;
	mes "[]";
	mes "Ҫһ?";
	next;

	switch(select("޶ɵ:ɵ:ǿɵ:ɵ:ɵ:ȡ")) {
	//÷: callfunc "Kunai_Trade",itemreqid1,itemreqct1,itemreqid2,itemreqct2,itemidtrade;
	case 1: callfunc "Kunai_Trade",13250,20,7524,1,13259; break;
	case 2: callfunc "Kunai_Trade",13251,8,7522,2,13255; break;
	case 3: callfunc "Kunai_Trade",13252,4,7523,2,13257; break;
	case 4: callfunc "Kunai_Trade",13253,2,7524,1,13256; break;
	case 5: callfunc "Kunai_Trade",13254,1,7521,2,13258; break;
	default:
		mes "[]";
		mes "~ ð~";
		mes "ʱ~";
		mes ", ֮, Զ.";
		close;
	}
	close;
}

function	script	Kunai_Trade	{
	
	mes "[]";
	mes ""+getarg(1)+" ֧"+getitemname(getarg(0))+" ";
	mes ""+getarg(3)+" "+getitemname(getarg(2))+", һһ";
	mes "10 ֧"+getitemname(getarg(4))+".";
	next;
	mes "[]";
	mes "һܽ500 .";
	mes "㲻뽻׵Ļ, 0.";
	next;
	input .@amount;

	mes "[]";
	if(.@amount < 1) {
		mes "~ ð~";
		mes "ʱ~";
		mes ", ֮, Զ.";
		close;
	}
	if(.@amount > 500) {
		mes "ֳ!";
		mes "´Ч~!";
		close;
	}
	if(countitem(getarg(0)) < .@amount*getarg(1) || countitem(getarg(2)) < .@amount*getarg(3)) {
		mes "... ̫~";
		mes "û㹻ĲҪ";
		mes "ôĿ.";
		mes "Ҫ, Ҫ. ";
		close;
 	}
	if(checkweight(getarg(4), .@amount*10) == 0) {
		mes "ı̫˲ܷô";
		mes ". ΪЩƷڳط";
		mes "Ұ.";
		close;
	}
	mes "ܺ~ ǳ!";
	mes "ȷ!";
	mes "Ļ.";
	delitem getarg(0),getarg(1)*.@amount;
	delitem getarg(2),getarg(3)*.@amount;
	getitem getarg(4),10*.@amount;
	close;
}

que_ng,72,29,3	duplicate(ɵ )	ɵ #que	83
prontera,178,240,3	duplicate(ɵ )	ɵ #prt	83
