//===== rAthena Script =======================================
//= Arrow Quiver Event
//===== By: ==================================================
//= Muad_Dib (Prometheus Project); L0ne_W0lf
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Turns arrows into Arrow Quivers.
//= Breakdown of Subroutine "S_BuyQuiver"
//= arg(0): Type of Arrow to be packaged (item ID).
//= arg(1): How many of each 'getarg(0)' arrow per quiver.
//= arg(2): The cost of making a 'getarg(0)' quiver.
//= arg(3): The quiver given by the NPC (item ID).
//===== Additional Comments: =================================
//= 07/06/05 : Added 1st Version. [Muad_Dib]
//= Converted to rAthena format by Dr.Evil
//= added prize to quest - 500 Zeny
//= Fixed a few spelling errors. [Nexon]
//= 1.1 Added Holy Arrow Quivers [Playtester]
//= 1.2 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//=     Removed "Holy Arrows" from the list.
//============================================================

payon_in01,5,134,5	script	 ˹	89,{
	if (checkweight(1201,1) == 0 || MaxWeight - Weight < 2000) {
		mes "[ ˹]";
		mes ", ڵĸ̫";
		mes "ΪʲôЩ? Ѷȥһ,ǿ̸һ̸,?";
		close;
	}
	mes "[ ˹]";
	mes "ŷ˹";
	mes "ŵ˵,Ҿ";
	mes "^663300ΰķ^000000.";
	mes "ôɵ";
	next;
	mes "[ ˹]";
	mes "һηһ";
	mes "ؽʷƷ!";
	mes "Ǿ... ^663300ħ^000000 !! ";
	mes "ĸ!";
	Emotion e_no1;
	next;
	mes "[ ˹]";
	mes "Ѿħ˶о,ҹ,֪Ũħؾ,ħϵĸ,Яļʸ!";
	next;
	mes "[ ˹]";
	mes "Ҫһҵħ?Һ,ҵ!";
	next;
	switch(select(":::֮:::::ˮ:ӰӼ:μ:")) {
	case 1: callsub S_BuyQuiver,1750,500,500,12004;
	case 2: callsub S_BuyQuiver,1770,500,500,12005;
	case 3: callsub S_BuyQuiver,1753,500,500,12006;
	case 4: callsub S_BuyQuiver,1765,500,500,12007;
	case 5: callsub S_BuyQuiver,1752,500,500,12008;
	case 6: callsub S_BuyQuiver,1751,500,500,12009;
	case 7: callsub S_BuyQuiver,1755,500,500,12010;
	case 8: callsub S_BuyQuiver,1756,500,500,12011;
	case 9: callsub S_BuyQuiver,1754,500,500,12012;
	case 10: callsub S_BuyQuiver,1767,500,500,12013;
	case 11: callsub S_BuyQuiver,1757,500,500,12014;
	case 12: callsub S_BuyQuiver,1762,500,500,12015;
	}
	//This doesn't seem to be accessable...
	//mes "[ ˹]";
	//mes "Is there";
	//mes "anything you want?";
	//close;

S_BuyQuiver:
	if (countitem(getarg(0)) > 499) {
		mes "[ ˹]";
		mes "ü!";
		mes "Яʲôʸ? һһ,Я "+getarg(1)+"  "+getitemname(getarg(0))+"!Ҫ ^FF3131"+getarg(2)+" Zeny^000000.";
		next;
		switch(select("뾡ܶĻɼ:ֻһ:ȡ")) {
		case 1:
			set .@arrows,countitem(getarg(0));
			set .@quiver,.@arrows / getarg(1);
			set .@arrows_used,.@quiver * getarg(1);
			set .@arrow_zeny01,.@quiver * getarg(2);
			mes "һ";
			mes "ʸ: ^3131FF"+.@arrows+"^000000 ֧";
			mes "ȫһĻ,";
			mes "Ի";
			mes ": ^3131FF"+.@quiver+"^000000 ";
			mes ": ^3131FF"+.@arrow_zeny01+" Zeny^000000";
			next;
			mes "[ ˹]";
			mes "ȷ";
			mes "Ҫϵ";
			mes "ʸ";
			mes "?";
			next;
			if (select("ǵ:ȡ") == 1) {
				if (.@arrow_zeny01 < Zeny) {
					mes "[ ˹]";
					mes "ļ,պ!";
					mes "ס ^FF0000ϵĸ޶ﵽ90%Ļ,Ͳʹü^000000.";
					set zeny,zeny-.@arrow_zeny01;
					delitem getarg(0),.@arrows_used; //Arrow
					getitem getarg(3),.@quiver; //Quiver
					next;
					mes "[ ˹]";
					mes "...";
					mes "ֻҪ";
					mes "Լı";
					mes "Ҫ̫,";
					mes "Ӧò!";
					mes "İ.";
					close;
				}
				else {
					mes "[ ˹]";
					mes "ܱǸ,û㹻ĽǮɽ!";
					mes "Ϊ˷,㾡......";
					close;
				}
			}
			mes "[ ˹]";
			mes "Ȼıע!";
			mes "Ͳһ";
			mes "Ϭķı...";
			close;
		case 2:
			if (Zeny > getarg(2)) {
				mes "[ ˹]";
				mes "ļ,պ!";
				mes "ס ^FF0000ϵĸ޶ﵽ90%Ļ,Ͳʹü^000000.";
				set Zeny, Zeny-getarg(2);
				delitem getarg(0),getarg(1); //Arrow
				getitem getarg(3),1; //Quiver
				next;
				mes "[ ˹]";
				mes "...";
				mes "ֻҪ";
				mes "Լı";
				mes "Ҫ̫,";
				mes "Ӧò!";
				mes "İ.";
				close;
			}
			else {
				mes "[ ˹]";
				mes "û";
				mes "" + getarg(2)+" Zeny?";
				mes "ܱǸ,û뵽ô...";
				mes "^333333ƶ^000000.";
				mes "...";
				close;
			}
		case 3:
			mes "[ ˹]";
			mes "ʲô...?";
			mes "㿴Զıʸʷ?! δ!";
			close;
		}
	}
	else {
		mes "[ ˹]";
		mes "Կ500֧ڼͲ. ط,";
		mes "ʹüҪֱüʸĶ.";
		next;
		mes "[ ˹]";
		mes "һѧ漣! Դ500֧500Zeny ҽһ,һ°";
		close;
	}
}
