//===== eAthena Script =======================================
//= Magazine Dealer 
//===== By: ==================================================
//= eAthena dev team
//===== Current Version: =====================================
//= 1.2a
//===== Compatible With: =====================================
//= eAthena 1.0+
//===== Description: =========================================
//= Turns bullets/spheres into packs/casings.
//===== Additional Comments: =================================
//= 1.0 First version. [SinSloth]
//= 1.1 Optimized version - Reduced to only one function [SinSloth]
//= 1.2 Optimized^2, corrected npc's name [ultramage]
//= 1.2a Optimized. Please, ommit extra NPC names [Lupus]
//============================================================

-	script	ҩ 	-1,{

	mes "[]";	
	mes "ǵҩ, !";
	if(BaseJob != Job_Gunslinger) {
		mes "Ҹÿλǹְװǵ";
		mes "ӵ.";
		next;
		mes "[]";
		mes "ô, ƺ";
		mes "һλǹְ. ҵĴ";
		mes "תǰ뿪.";
		close;
	}
	mes "ĵҩЯܷص";
	mes ", Ұ!";
	next;
	mes "[]";
	mes "ΪװӵкӵͰ, ";
	mes "ӶЯ!";
	mes "! һ!";
	next;
	switch(select("ӵ :ӵ :ӵ :ӵ ˮ:ӵ :ҩͰ:ɫҩͰ:ɫҩͰ:ȡ")) {
	case 1: callfunc "Func_Casing",13204,12144; break;
	case 2: callfunc "Func_Casing",13206,12145; break;
	case 3: callfunc "Func_Casing",13205,12146; break;
	case 4: callfunc "Func_Casing",13207,12147; break;
	case 5: callfunc "Func_Casing",13203,12148; break;
	case 6: callfunc "Func_Casing",13200,12149; break;
	case 7: callfunc "Func_Casing",13202,12150; break;
	case 8: callfunc "Func_Casing",13201,12151; break;
	default:
		mes "[]";
		mes "ð. 㻹ʲô";
		mes "ҪĻ, Ҫ";
		mes ".";
		close;
	}
	close;
}

function	script	Func_Casing	{

	mes "[]";
	mes "Ҫ.";
	next;
	mes "[]";
	mes "װÿ" +getitemname(getarg(1))+ " ";
	if(getarg(0) == 13202) 
		mes "Ҫ500ɫӵ";
	else
		mes "Ҫ500 " +getitemname(getarg(0))+ "";
	mes "500 Zeny.";
	next;
	mes "[]";
	mes "ҽ50 .";
	mes "ҪȡĻ0.";
	next;
	input .@amount;
	mes "[]";
	if(.@amount < 1) {
		mes "ð. 㻹ʲô";
		mes "ҪĻ, Ҫ";
		mes ".";
		close;
	}
	if(.@amount > 50)	{
		mes "ĳƷΧ!";
		mes "԰?";
		close;
	}
	//ؼ
	if(checkweight(getarg(1), .@amount) != 1)	{
		mes "㳬.";
		mes "Ʒ.";
		close;
	}
	
	//ϼ
	if(countitem(getarg(0)) < .@amount * 500) {
		mes "......";
		mes "û㹻ĲװҪ";
		mes "ôƷ.";
		mes "㹻Ʒ.";
		close;
	}
	
	//Ǯ
	if(Zeny < .@amount * 500) {
		mes "... û㹻ĽǮ.";
		mes "Ϊ500 Zeny";
		mes "ĽǮ.";
		close;
	}

	mes "ǳð!";
	mes "ȷ!";
	if(getarg(1) < 12149)
		mes "ҽ̸ӵ.";
	else
		mes "ҽ̸ӵͰ.";
	set Zeny, Zeny - .@amount * 500;
	delitem getarg(0), .@amount * 500;
	getitem getarg(1), .@amount;
	close;
}

que_ng,187,149,3	duplicate(ҩ )	ҩ #que	83
izlude,171,127,3	duplicate(ҩ )	ҩ #iz	83
alberta,118,157,3	duplicate(ҩ )	ҩ #alb	83

