//========================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ӶǩԼ ű -
//========================
//= 汾1.1+SeAr1.3
//========================

prontera,41,337,5	script	ӶԱ#Spear	105,{
	set .@faith_lancer, mercenary_get_faith(SPEAR_MERC_GUILD);
	mes "[ӶԱ]";
	mes "ӭ٣";
	mes "ǹӶ";
	mes "ʲô?";
	next;
	switch( select("ӶǩԼ:Ӷ?:ûû:û10ȼӶ?") )
	{
	case 1:
		mes "[ӶԱ]";
		mes "Ǻ... ӶǩԼ?";
		next;
		set .@Grade, select("1ȼǹӶ:2ȼǹӶ:3ȼǹӶ:4ȼǹӶ:5ȼǹӶ:6ȼǹӶ:7ȼǹӶ:8ȼǹӶ:9ȼǹӶ");
		set .@BaseLevel, 5 + (.@Grade * 10);
		if( .@BaseLevel > 90 )
			set .@BaseLevel, 90;
		
		set .@ZenyCost, 7 * .@Grade;

		if( .@Grade == 7 )
			set .@FaithCost, 50;
		else if( .@Grade == 8 )
			set .@FaithCost, 100;
		else if( .@Grade == 9 )
			set .@FaithCost, 300;
		else
			set .@FaithCost, 0;

		mes "[ӶԱ]";
		mes "Ҫ" + .@Grade + "ȼǹӶǩԼ?";
		mes "" + .@Grade + "ȼǩԼԼĵȼ";
		mes "" + .@BaseLevel + "ϾͿˣ";
		mes "ǩԼ" + .@ZenyCost + "000ң";
		mes "ҪӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "? ǻӭ´";
		}
		else if( .@FaithCost && .@faith_lancer < .@FaithCost )
		{
			mes "[ӶԱ]";
			mes "...";
			mes "ǹӶȲ";
			mes "ҪӶǩԼĻ";
			mes "Ҫ" + .@FaithCost + "";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ" + .@BaseLevel + "ȼ";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ӶԱ]";
			mes "ܱǸǮ";
			mes "ҪӶĻҪ" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ѡĺð";
			mes "ųƲǺǿӶ";
			mes "кܴİ";
			mes "ٻӶֻʹ30ӵ";
			mes "ʱ䣬Ƽð";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12172 + .@Grade, 1;
		}
		close;
	case 2:
		mes "[ӶԱ]";
		mes "Ӷ˼";
		mes "ԼЭ";
		mes "һͬȥս";
		next;
		mes "[ӶԱ]";
		mes "Эģ";
		mes "ԼӶĹϵ";
		mes "ȵ϶£";
		mes "ܺͶӦȼӶǩԼ";
		next;
		mes "[ӶԱ]";
		mes "ߵȼӶ";
		mes "Ҫض";
		mes "ǩԼǩԼ";
		mes "һѶ";
		next;
		mes "[ӶԱ]";
		mes "һӶǩԼ";
		mes "ͲܰѸӶ͸ˣ";
		mes "ҲԼȼ߳";
		mes "ܶӶǩԼ";
		mes "ԼӶĵȼ࣬";
		mes "5";
		next;
		mes "[ӶԱ]";
		mes "һӶ";
		mes "ȣǵ͵ȼӶĻ";
		mes "νһȼϵ";
		mes "Ӷ빫֮ȣ";
		mes "ﵽһȼ";
		next;
		mes "[ӶԱ]";
		mes "ϸڵӶǩԼʱ";
		mes "˵";
		next;
		mes "[ӶԱ]";
		mes "ҲһҪ飬";
		mes "ӶǩԼʱͿԵõ";
		mes "ٻ";
		next;
		mes "[ӶԱ]";
		mes "ǸҲתø";
		mes "ˣþٻ";
		mes "Ӷֻʹ30ӣ";
		mes "ע";
		close;
	case 3:
		mes "[ӶԱ]";
		mes "˵ร";
		mes "´";
		close;
	case 4:
		mes "[ӶԱ]";
		mes "10ȼӶ൱رģ";
		mes "ǳڣ";
		mes "ԲǩԼ";
		next;
		mes "[ӶԱ]";
		mes "10ȼӶǩԼǲûǮģ";
		mes "Ҫֻ빫֮ȣ";
		mes "10ȼӶǩԼΪ";
		mes "빫500";
		next;
		mes "[ӶԱ]";
		mes "ǩԼʱ400ȣ";
		mes "ΪΪ";
		mes "10ȼӶǼ൱";
		mes "Σյ£Խɫ";
		mes "ȲŻ";
		next;
		mes "[ӶԱ]";
		mes "ǩԼߵĵȼҪ 90";
		mes "ϲſԣ";
		mes "Ҫ10ȼӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "ϾҪ10ȼӶһ²Ǽ׵";
		}
		else if( .@faith_lancer < 500 )
		{
			mes "[ӶԱ]";
			mes ".. ǹӶ";
			mes "Ȳ㰡";
			mes "10ȼӶǩԼĻ";
			mes "Ҫ500ϵ";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ90ȼ";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ϲ㰡㿴ҪԶ";
			mes "ѹֻ10ȼӶǩԼ";
			mes "ףһ·˳";

			mercenary_set_faith SPEAR_MERC_GUILD,-400;
			getitem 12182,1;
		}
		close;
	}
}

izlude,47,139,5	script	ӶԱ#Sword	734,{
	set .@faith_sword, mercenary_get_faith(SWORD_MERC_GUILD);
	mes "[ӶԱ]";
	mes "ӭ٣";
	mes "ǽӶ";
	mes "ʲô?";
	next;
	switch( select("ӶǩԼ:Ӷ?:ûû:û10ȼӶ?") )
	{
	case 1:
		mes "[ӶԱ]";
		mes "Ǻ... ӶǩԼ?";
		next;
		set .@Grade, select("1ȼӶ:2ȼӶ:3ȼӶ:4ȼӶ:5ȼӶ:6ȼӶ:7ȼӶ:8ȼӶ:9ȼӶ");
		set .@BaseLevel, 5 + (.@Grade * 10);
		if( .@BaseLevel > 90 )
			set .@BaseLevel, 90;

		set .@ZenyCost, 7 * .@Grade;

		if( .@Grade == 7 )
			set .@FaithCost, 50;
		else if( .@Grade == 8 )
			set .@FaithCost, 100;
		else if( .@Grade == 9 )
			set .@FaithCost, 300;
		else
			set .@FaithCost, 0;

		mes "[ӶԱ]";
		mes "Ҫ" + .@Grade + "ȼĽӶǩԼ?";
		mes "" + .@Grade + "ȼǩԼԼĵȼ";
		mes "" + .@BaseLevel + "ϾͿˣ";
		mes "ǩԼ" + .@ZenyCost + "000ң";
		mes "ҪӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "? ǻӭ´";
		}
		else if( .@FaithCost && .@faith_sword < .@FaithCost )
		{
			mes "[ӶԱ]";
			mes "...";
			mes "ǽӶȲ";
			mes "ҪӶǩԼĻ";
			mes "Ҫ" + .@FaithCost + "";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ" + .@BaseLevel + "ȼ";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ӶԱ]";
			mes "ܱǸǮ";
			mes "ҪӶĻҪ" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ѡĺð";
			mes "ųƲǺǿӶ";
			mes "кܴİ";
			mes "ٻӶֻʹ30ӵ";
			mes "ʱ䣬Ƽð";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12162 + .@Grade, 1;
		}
		close;		
	case 2:
		mes "[ӶԱ]";
		mes "Ӷ˼";
		mes "ԼЭ";
		mes "һͬȥս";
		next;
		mes "[ӶԱ]";
		mes "Эģ";
		mes "ԼӶĹϵ";
		mes "ȵ϶£";
		mes "ܺͶӦȼӶǩԼ";
		next;
		mes "[ӶԱ]";
		mes "ߵȼӶ";
		mes "Ҫض";
		mes "ǩԼǩԼ";
		mes "һѶ";
		next;
		mes "[ӶԱ]";
		mes "һӶǩԼ";
		mes "ͲܰѸӶ͸ˣ";
		mes "ҲԼȼ߳";
		mes "ܶӶǩԼ";
		mes "ԼӶĵȼ࣬";
		mes "5";
		next;
		mes "[ӶԱ]";
		mes "һӶ";
		mes "ȣǵ͵ȼӶĻ";
		mes "νһȼϵ";
		mes "Ӷ빫֮ȣ";
		mes "ﵽһȼ";
		next;
		mes "[ӶԱ]";
		mes "ϸڵӶǩԼʱ";
		mes "˵";
		next;
		mes "[ӶԱ]";
		mes "ҲһҪ飬";
		mes "ӶǩԼʱͿԵõ";
		mes "ٻ";
		next;
		mes "[ӶԱ]";
		mes "ǸҲתø";
		mes "ˣþٻ";
		mes "Ӷֻʹ30ӣ";
		mes "ע";
		close;
	case 3:
		mes "[ӶԱ]";
		mes "˵ร";
		mes "´";
		close;
	case 4:
		mes "[ӶԱ]";
		mes "10ȼӶ൱رģ";
		mes "ǳڣ";
		mes "ԲǩԼ";
		next;
		mes "[ӶԱ]";
		mes "10ȼӶǩԼǲûǮģ";
		mes "Ҫֻ빫֮ȣ";
		mes "10ȼӶǩԼΪ";
		mes "빫500";
		next;
		mes "[ӶԱ]";
		mes "ǩԼʱ400ȣ";
		mes "ΪΪ";
		mes "10ȼӶǼ൱";
		mes "Σյ£Խɫ";
		mes "ȲŻ";
		next;
		mes "[ӶԱ]";
		mes "ǩԼߵĵȼҪ 90";
		mes "ϲſԣ";
		mes "Ҫ10ȼӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "ϾҪ10ȼӶһ²Ǽ׵";
		}
		else if( .@faith_sword < 500 )
		{
			mes "[ӶԱ]";
			mes ".. ǽӶ";
			mes "Ȳ㰡";
			mes "10ȼӶǩԼĻ";
			mes "Ҫ500ϵ";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ90ȼ";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ϲ㰡㿴ҪԶ";
			mes "ѹֻ10ȼӶǩԼ";
			mes "ףһ·˳";

			mercenary_set_faith SWORD_MERC_GUILD,-400;
			getitem 12172,1;
		}
		close;		
	}
}

pay_arche,99,167,4	script	ӶԱ#Bow	732,{
	set .@faith_archer,  mercenary_get_faith(ARCH_MERC_GUILD);
	mes "[ӶԱ]";
	mes "ӭ٣";
	mes "ǹӶ";
	mes "ʲô?";
	next;
	switch( select("ӶǩԼ:Ӷ?:ûû:û10ȼӶ?") )
	{
	case 1:
		mes "[ӶԱ]";
		mes "Ǻ... ӶǩԼ?";
		next;

		set .@Grade, select("1ȼӶ:2ȼӶ:3ȼӶ:4ȼӶ:5ȼӶ:6ȼӶ:7ȼӶ:8ȼӶ:9ȼӶ");
		set .@BaseLevel, 5 + (.@Grade * 10);
		if( .@BaseLevel > 90 )
			set .@BaseLevel, 90;

		set .@ZenyCost, 7 * .@Grade;

		if( .@Grade == 7 )
			set .@FaithCost, 50;
		else if( .@Grade == 8 )
			set .@FaithCost, 100;
		else if( .@Grade == 9 )
			set .@FaithCost, 300;
		else
			set .@FaithCost, 0;

		mes "[ӶԱ]";
		mes "Ҫ" + .@Grade + "ȼĹӶǩԼ?";
		mes "" + .@Grade + "ȼǩԼԼĵȼ";
		mes "" + .@BaseLevel + "ϾͿˣ";
		mes "ǩԼ" + .@ZenyCost + "000ң";
		mes "ҪӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "? ǻӭ´";
		}
		else if( .@FaithCost && .@faith_archer < .@FaithCost )
		{
			mes "[ӶԱ]";
			mes "...";
			mes "ǹӶȲ";
			mes "ҪӶǩԼĻ";
			mes "Ҫ" + .@FaithCost + "";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ" + .@BaseLevel + "ȼ";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ӶԱ]";
			mes "ܱǸǮ";
			mes "ҪӶĻҪ" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ѡĺð";
			mes "ųƲǺǿӶ";
			mes "кܴİ";
			mes "ٻӶֻʹ30ӵ";
			mes "ʱ䣬Ƽð";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12152 + .@Grade, 1;
		}
		close;
	case 2:
		mes "[ӶԱ]";
		mes "Ӷ˼";
		mes "ԼЭ";
		mes "һͬȥս";
		next;
		mes "[ӶԱ]";
		mes "Эģ";
		mes "ԼӶĹϵ";
		mes "ȵ϶£";
		mes "ܺͶӦȼӶǩԼ";
		next;
		mes "[ӶԱ]";
		mes "ߵȼӶ";
		mes "Ҫض";
		mes "ǩԼǩԼ";
		mes "һѶ";
		next;
		mes "[ӶԱ]";
		mes "һӶǩԼ";
		mes "ͲܰѸӶ͸ˣ";
		mes "ҲԼȼ߳";
		mes "ܶӶǩԼ";
		mes "ԼӶĵȼ࣬";
		mes "5";
		next;
		mes "[ӶԱ]";
		mes "һӶ";
		mes "ȣǵ͵ȼӶĻ";
		mes "νһȼϵ";
		mes "Ӷ빫֮ȣ";
		mes "ﵽһȼ";
		next;
		mes "[ӶԱ]";
		mes "ϸڵӶǩԼʱ";
		mes "˵";
		next;
		mes "[ӶԱ]";
		mes "ҲһҪ飬";
		mes "ӶǩԼʱͿԵõ";
		mes "ٻ";
		next;
		mes "[ӶԱ]";
		mes "ǸҲתø";
		mes "ˣþٻ";
		mes "Ӷֻʹ30ӣ";
		mes "ע";
		close;
	case 3:
		mes "[ӶԱ]";
		mes "˵ร";
		mes "´";
		close;
	case 4:
		mes "[ӶԱ]";
		mes "10ȼӶ൱رģ";
		mes "ǳڣ";
		mes "ԲǩԼ";
		next;
		mes "[ӶԱ]";
		mes "10ȼӶǩԼǲûǮģ";
		mes "Ҫֻ빫֮ȣ";
		mes "10ȼӶǩԼΪ";
		mes "빫500";
		next;
		mes "[ӶԱ]";
		mes "ǩԼʱ400ȣ";
		mes "ΪΪ";
		mes "10ȼӶǼ൱";
		mes "Σյ£Խɫ";
		mes "ȲŻ";
		next;
		mes "[ӶԱ]";
		mes "ǩԼߵĵȼҪ 90";
		mes "ϲſԣ";
		mes "Ҫ10ȼӶǩԼ?";
		next;
		if( select("Ҫ:Ҫ") == 2 )
		{
			mes "[ӶԱ]";
			mes "ϾҪ10ȼӶһ²Ǽ׵";
		}
		else if( .@faith_archer < 500 )
		{
			mes "[ӶԱ]";
			mes ".. ǹӶ";
			mes "Ȳ㰡";
			mes "10ȼӶǩԼĻ";
			mes "Ҫ500ϵ";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ӶԱ]";
			mes "ѽ...";
			mes "ĵȼ";
			mes "ȵ90ȼ";
		}
		else
		{
			mes "[ӶԱ]";
			mes "ϲ㰡㿴ҪԶ";
			mes "ѹֻ10ȼӶǩԼ";
			mes "ףһ·˳";
			mercenary_set_faith ARCH_MERC_GUILD,-400;
			getitem 12162,1;
		}
		close;
	}
}

// Mercenary Merchant NPCs
//============================================================
-	script	ӶƷ#dummy::MercMerchant	-1,{
	mes "[Ʒ]";
	mes "ã";
	mes "ﷷӶصƷ";
	mes "ʲô?";
	next;
	switch(select("Ӷרúɫҩˮ:Ӷרɫҩˮ:Ӷרüҩˮ:Ӷרþҩˮ:Ӷרòɫҩˮ")) {
	case 1: 
		mes "[Ʒ]";
		mes "Ҫ'Ӷרúɫҩˮ'?";
		mes "ÿƿ2500";
		mes "Ҫ?";
		next;
		callfunc "F_PurchaseMercItem",12184,2500;
	case 2:
		mes "[Ʒ]";
		mes "Ҫ'Ӷרɫҩˮ'?";
		mes "ÿƿ5000";
		mes "Ҫ?";
		next;
		callfunc "F_PurchaseMercItem",12185,5000;
	case 3:
		mes "[Ʒ]";
		mes "Ҫ'Ӷרüҩˮ'?";
		mes "ÿƿ800";
		mes "Ҫ?";
		next;
		callfunc "F_PurchaseMercItem",12241,800;
	case 4:
		mes "[Ʒ]";
		mes "Ҫ'Ӷרþҩˮ'?";
		mes "ÿƿ1500";
		mes "Ҫ?";
		next;
		callfunc "F_PurchaseMercItem",12242,1500;
	case 5:
		mes "[Ʒ]";
		mes "Ҫ'Ӷרòɫҩˮ'?";
		mes "ÿƿ3000";
		mes "Ҫ?";
		next;
		callfunc "F_PurchaseMercItem",12243,3000;
	}
	close;
}

prontera,30,337,4	duplicate(MercMerchant)	ӶƷ#Spear	700
izlude,56,139,4	duplicate(MercMerchant)	ӶƷ#Sword	892
pay_arche,102,167,5	duplicate(MercMerchant)	ӶƷ#Bow	879

// Function for selling items.
//============================================================
function	script	F_PurchaseMercItem	{
	input .@input;
	if( .@input == 0 )
	{
		mes "[Ʒ]";
		mes "лл٣";
		mes "㶩Ʒ0";
	}
	else if( .@input < 0 || .@input > 10000 )
	{
		mes "[Ʒ]";
		mes "010000֮";
	}
	else if( set(.@total_po, .@input * getarg(1)) > Zeny )
	{
		mes "[Ʒ]";
		mes "еĽҲأ";
		mes "еĽҷΧڹ";
	}
	else if( checkweight(getarg(0), .@input) == 0 )
	{
		mes "[Ʒ]";
		mes "Ʒᳬ";
		mes "ٸٶ";
	}
	else
	{
		mes "[Ʒ]";
		mes "лл٣";
		mes "㶩Ʒ'" +getitemname(getarg(0))+ "'";
		mes "" + .@input + "";
		set Zeny, Zeny - .@total_po;
		getitem getarg(0), .@input;
	}
	close;
}
