//========================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ħLñ } -
//========================
//= G1.1
//========================

prontera,41,337,5	script	ħL|H#Spear	105,{
	set .@faith_lancer, mercenary_get_faith(SPEAR_MERC_GUILD);
	mes "[ħL޲z]";
	mes "w{A";
	mes "o̬OjħL|";
	mes "аݧڤƶ?";
	next;
	switch( select("ڷQħLñ:ħL?:SƨS:S10ŪħL?") )
	{
	case 1:
		mes "[ħL޲z]";
		mes "... AQضħLñO?";
		next;
		set .@Grade, select("1źjħL:2źjħL:3źjħL:4źjħL:5źjħL:6źjħL:7źjħL:8źjħL:9źjħL");
		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 "[ħL޲z]";
		mes "An" + .@Grade + "ŪjħLñ?";
		mes "P" + .@Grade + "ŪñOۤvŦb";
		mes "" + .@BaseLevel + "ťHWNiHFA";
		mes "٦ñO" + .@ZenyCost + "000A";
		mes "аݱznPħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "O? wAUAӧa";
		}
		else if( .@FaithCost && .@faith_lancer < .@FaithCost )
		{
			mes "[ħL޲z]";
			mes "u...";
			mes "AMڭ̺jħL|Hפ";
			mes "nMoħLñܡA";
			mes "Hצܤ֭n" + .@FaithCost + "HW";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F" + .@BaseLevel + "ŭԦAӧa";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ħL޲z]";
			mes "ܩpALz";
			mes "nγoWħLܦܤ֭n" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ħL޲z]";
			mes "諸nڡA";
			mes "٤WOܱjħLA";
			mes "A|ܤjUA";
			mes "lħLuϥ30";
			mes "ɶAЧA[QΧa";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12172 + .@Grade, 1;
		}
		close;
	case 2:
		mes "[ħL޲z]";
		mes "ħLUWqNO";
		mes "bۤvU";
		mes "@Ph԰";
		next;
		mes "[ħL޲z]";
		mes "LUO󪺡A";
		mes "̾ڦۤvOBPħL|Y";
		mes "ŦXhUA";
		mes "~MŪħLñ";
		next;
		mes "[ħL޲z]";
		mes "٦̰ŪħLA";
		mes "ݭnSw~";
		mes "ñAҥHQñ";
		mes "O@w";
		next;
		mes "[ħL޲z]";
		mes "t~@PħLñA";
		mes "NӶħLeOHA";
		mes "]PۤvŰX";
		mes "ܦhħLñA";
		mes "ӥBۤvPħLŮtZA";
		mes "ۮt5ťHW";
		next;
		mes "[ħL޲z]";
		mes "̫@ӱOPħL|";
		mes "HסAYOCŶħLܡA";
		mes "OLҿסA@wťHW";
		mes "ħLhP|HסA";
		mes "F@wťHW";
		next;
		mes "[ħL޲z]";
		mes "ܩӸ`APħLñɡA";
		mes "AVAa";
		next;
		mes "[ħL޲z]";
		mes "ڡAڮtIѤF@󭫭nƱA";
		mes "PħLñɴNiHo";
		mes "lb";
		next;
		mes "[ħL޲z]";
		mes "Өb]";
		mes "OHABQΨbl";
		mes "ħLAuϥ30A";
		mes "бz`N";
		close;
	case 3:
		mes "[ħL޲z]";
		mes "AܦѧNA";
		mes "UAӧa";
		close;
	case 4:
		mes "[ħL޲z]";
		mes "10ŪħLO۷SOA";
		mes "ѩ󥦪OD`XA";
		mes "ҥHeñ";
		next;
		mes "[ħL޲z]";
		mes "P10ŶħLñOΪA";
		mes "ݭnuOP|HסA";
		mes "BP10ŶħLņ̃C";
		mes "P|H500";
		next;
		mes "[ħL޲z]";
		mes "٦ñɷ|400HסA";
		mes "]ڭ̻{a";
		mes "10ŶħLO۷";
		mes "MIơAҥH";
		mes "|Hפ~|";
		next;
		mes "[ħL޲z]";
		mes "ӥBñ̪ŭn 90";
		mes "HW~iHA";
		mes "аݱznP10ŶħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "nP10ŶħL@_@ƤOeƱ";
		}
		else if( .@faith_lancer < 500 )
		{
			mes "[ħL޲z]";
			mes ".. APڭ̺jħL|";
			mes "HפڡA";
			mes "YQP10ŶħLñܡA";
			mes "ݭn500HWH";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F90ŭԦAӧa";
		}
		else
		{
			mes "[ħL޲z]";
			mes "ߧAڡAAݨӹOnӳa";
			mes "Ƿ|P10ŪħLñA";
			mes "z@";

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

izlude,47,139,5	script	ħL|H#Sword	734,{
	set .@faith_sword, mercenary_get_faith(SWORD_MERC_GUILD);
	mes "[ħL޲z]";
	mes "w{A";
	mes "o̬OCħL|";
	mes "аݧڤƶ?";
	next;
	switch( select("ڷQħLñ:ħL?:SƨS:S10ŪħL?") )
	{
	case 1:
		mes "[ħL޲z]";
		mes "... AQضħLñO?";
		next;
		set .@Grade, select("1żCħL:2żCħL:3żCħL:4żCħL:5żCħL:6żCħL:7żCħL:8żCħL:9żCħL");
		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 "[ħL޲z]";
		mes "An" + .@Grade + "ŪCħLñ?";
		mes "P" + .@Grade + "ŪñOۤvŦb";
		mes "" + .@BaseLevel + "ťHWNiHFA";
		mes "٦ñO" + .@ZenyCost + "000A";
		mes "аݱznPħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "O? wAUAӧa";
		}
		else if( .@FaithCost && .@faith_sword < .@FaithCost )
		{
			mes "[ħL޲z]";
			mes "u...";
			mes "AMڭ̼CħL|Hפ";
			mes "nMoħLñܡA";
			mes "Hצܤ֭n" + .@FaithCost + "HW";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F" + .@BaseLevel + "ŭԦAӧa";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ħL޲z]";
			mes "ܩpALz";
			mes "nγoWħLܦܤ֭n" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ħL޲z]";
			mes "諸nڡA";
			mes "٤WOܱjħLA";
			mes "A|ܤjUA";
			mes "lħLuϥ30";
			mes "ɶAЧA[QΧa";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12162 + .@Grade, 1;
		}
		close;		
	case 2:
		mes "[ħL޲z]";
		mes "ħLUWqNO";
		mes "bۤvU";
		mes "@Ph԰";
		next;
		mes "[ħL޲z]";
		mes "LUO󪺡A";
		mes "̾ڦۤvOBPħL|Y";
		mes "ŦXhUA";
		mes "~MŪħLñ";
		next;
		mes "[ħL޲z]";
		mes "٦̰ŪħLA";
		mes "ݭnSw~";
		mes "ñAҥHQñ";
		mes "O@w";
		next;
		mes "[ħL޲z]";
		mes "t~@PħLñA";
		mes "NӶħLeOHA";
		mes "]PۤvŰX";
		mes "ܦhħLñA";
		mes "ӥBۤvPħLŮtZA";
		mes "ۮt5ťHW";
		next;
		mes "[ħL޲z]";
		mes "̫@ӱOPħL|";
		mes "HסAYOCŶħLܡA";
		mes "OLҿסA@wťHW";
		mes "ħLhP|HסA";
		mes "F@wťHW";
		next;
		mes "[ħL޲z]";
		mes "ܩӸ`APħLñɡA";
		mes "AVAa";
		next;
		mes "[ħL޲z]";
		mes "ڡAڮtIѤF@󭫭nƱA";
		mes "PħLñɴNiHo";
		mes "lb";
		next;
		mes "[ħL޲z]";
		mes "Өb]";
		mes "OHABQΨbl";
		mes "ħLAuϥ30A";
		mes "бz`N";
		close;
	case 3:
		mes "[ħL޲z]";
		mes "AܦѧNA";
		mes "UAӧa";
		close;
	case 4:
		mes "[ħL޲z]";
		mes "10ŪħLO۷SOA";
		mes "ѩ󥦪OD`XA";
		mes "ҥHeñ";
		next;
		mes "[ħL޲z]";
		mes "P10ŶħLñOΪA";
		mes "ݭnuOP|HסA";
		mes "BP10ŶħLņ̃C";
		mes "P|H500";
		next;
		mes "[ħL޲z]";
		mes "٦ñɷ|400HסA";
		mes "]ڭ̻{a";
		mes "10ŶħLO۷";
		mes "MIơAҥH";
		mes "|Hפ~|";
		next;
		mes "[ħL޲z]";
		mes "ӥBñ̪ŭn 90";
		mes "HW~iHA";
		mes "аݱznP10ŶħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "nP10ŶħL@_@ƤOeƱ";
		}
		else if( .@faith_sword < 500 )
		{
			mes "[ħL޲z]";
			mes ".. APڭ̼CħL|";
			mes "HפڡA";
			mes "YQP10ŶħLñܡA";
			mes "ݭn500HWH";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F90ŭԦAӧa";
		}
		else
		{
			mes "[ħL޲z]";
			mes "ߧAڡAAݨӹOnӳa";
			mes "Ƿ|P10ŪħLñA";
			mes "z@";

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

pay_arche,99,167,4	script	ħL|H#Bow	732,{
	set .@faith_archer,  mercenary_get_faith(ARCH_MERC_GUILD);
	mes "[ħL޲z]";
	mes "w{A";
	mes "o̬O}ħL|";
	mes "аݧڤƶ?";
	next;
	switch( select("ڷQħLñ:ħL?:SƨS:S10ŪħL?") )
	{
	case 1:
		mes "[ħL޲z]";
		mes "... AQضħLñO?";
		next;

		set .@Grade, select("1Ť}ħL:2Ť}ħL:3Ť}ħL:4Ť}ħL:5Ť}ħL:6Ť}ħL:7Ť}ħL:8Ť}ħL:9Ť}ħL");
		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 "[ħL޲z]";
		mes "An" + .@Grade + "Ū}ħLñ?";
		mes "P" + .@Grade + "ŪñOۤvŦb";
		mes "" + .@BaseLevel + "ťHWNiHFA";
		mes "٦ñO" + .@ZenyCost + "000A";
		mes "аݱznPħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "O? wAUAӧa";
		}
		else if( .@FaithCost && .@faith_archer < .@FaithCost )
		{
			mes "[ħL޲z]";
			mes "u...";
			mes "AMڭ̤}ħL|Hפ";
			mes "nMoħLñܡA";
			mes "Hצܤ֭n" + .@FaithCost + "HW";
		}
		else if( BaseLevel < .@BaseLevel )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F" + .@BaseLevel + "ŭԦAӧa";
		}
		else if( Zeny < .@ZenyCost * 1000 )
		{
			mes "[ħL޲z]";
			mes "ܩpALz";
			mes "nγoWħLܦܤ֭n" + .@ZenyCost + "000";
		}
		else
		{
			mes "[ħL޲z]";
			mes "諸nڡA";
			mes "٤WOܱjħLA";
			mes "A|ܤjUA";
			mes "lħLuϥ30";
			mes "ɶAЧA[QΧa";
			set Zeny, Zeny - (.@ZenyCost * 1000);
			getitem 12152 + .@Grade, 1;
		}
		close;
	case 2:
		mes "[ħL޲z]";
		mes "ħLUWqNO";
		mes "bۤvU";
		mes "@Ph԰";
		next;
		mes "[ħL޲z]";
		mes "LUO󪺡A";
		mes "̾ڦۤvOBPħL|Y";
		mes "ŦXhUA";
		mes "~MŪħLñ";
		next;
		mes "[ħL޲z]";
		mes "٦̰ŪħLA";
		mes "ݭnSw~";
		mes "ñAҥHQñ";
		mes "O@w";
		next;
		mes "[ħL޲z]";
		mes "t~@PħLñA";
		mes "NӶħLeOHA";
		mes "]PۤvŰX";
		mes "ܦhħLñA";
		mes "ӥBۤvPħLŮtZA";
		mes "ۮt5ťHW";
		next;
		mes "[ħL޲z]";
		mes "̫@ӱOPħL|";
		mes "HסAYOCŶħLܡA";
		mes "OLҿסA@wťHW";
		mes "ħLhP|HסA";
		mes "F@wťHW";
		next;
		mes "[ħL޲z]";
		mes "ܩӸ`APħLñɡA";
		mes "AVAa";
		next;
		mes "[ħL޲z]";
		mes "ڡAڮtIѤF@󭫭nƱA";
		mes "PħLñɴNiHo";
		mes "lb";
		next;
		mes "[ħL޲z]";
		mes "Өb]";
		mes "OHABQΨbl";
		mes "ħLAuϥ30A";
		mes "бz`N";
		close;
	case 3:
		mes "[ħL޲z]";
		mes "AܦѧNA";
		mes "UAӧa";
		close;
	case 4:
		mes "[ħL޲z]";
		mes "10ŪħLO۷SOA";
		mes "ѩ󥦪OD`XA";
		mes "ҥHeñ";
		next;
		mes "[ħL޲z]";
		mes "P10ŶħLñOΪA";
		mes "ݭnuOP|HסA";
		mes "BP10ŶħLņ̃C";
		mes "P|H500";
		next;
		mes "[ħL޲z]";
		mes "٦ñɷ|400HסA";
		mes "]ڭ̻{a";
		mes "10ŶħLO۷";
		mes "MIơAҥH";
		mes "|Hפ~|";
		next;
		mes "[ħL޲z]";
		mes "ӥBñ̪ŭn 90";
		mes "HW~iHA";
		mes "аݱznP10ŶħLñ?";
		next;
		if( select("n:n") == 2 )
		{
			mes "[ħL޲z]";
			mes "nP10ŶħL@_@ƤOeƱ";
		}
		else if( .@faith_archer < 500 )
		{
			mes "[ħL޲z]";
			mes ".. APڭ̤}ħL|";
			mes "HפڡA";
			mes "YQP10ŶħLñܡA";
			mes "ݭn500HWH";
		}
		else if( BaseLevel < 90 )
		{
			mes "[ħL޲z]";
			mes "ur...";
			mes "A٤ڡA";
			mes "F90ŭԦAӧa";
		}
		else
		{
			mes "[ħL޲z]";
			mes "ߧAڡAAݨӹOnӳa";
			mes "Ƿ|P10ŪħLñA";
			mes "z@";
			mercenary_set_faith ARCH_MERC_GUILD,-400;
			getitem 12162,1;
		}
		close;
	}
}

// Mercenary Merchant NPCs
//============================================================
prontera,30,337,4	script	ħL~P#Spear::MercMerchant	700,{
	mes "[~P]";
	mes "AnA";
	mes "o̳cPħL~A";
	mes "Ab䤰FO?";
	next;
	switch(select("ħLMάĤ:ħLMŦĤ:ħLMζĤ:ħLMıĤ:ħLMεԦJĤ")) {
	case 1: 
		mes "[~P]";
		mes "AnR'ħLMάĤ'?";
		mes "C~O2500";
		mes "AݭnXөO?";
		next;
		callfunc "F_PurchaseMercItem",12184,2500;
	case 2:
		mes "[~P]";
		mes "AnR'ħLMŦĤ'?";
		mes "C~O5000";
		mes "AݭnXөO?";
		next;
		callfunc "F_PurchaseMercItem",12185,5000;
	case 3:
		mes "[~P]";
		mes "AnR'ħLMζĤ'?";
		mes "C~O800";
		mes "AݭnXөO?";
		next;
		input .@input; //,0,10000;
		callfunc "F_PurchaseMercItem",12241,800;
	case 4:
		mes "[~P]";
		mes "AnR'ħLMıĤ'?";
		mes "C~O1500";
		mes "AݭnXөO?";
		next;
		callfunc "F_PurchaseMercItem",12242,1500;
	case 5:
		mes "[~P]";
		mes "AnR'ħLMεԦJĤ'?";
		mes "C~O3000";
		mes "AݭnXөO?";
		next;
		callfunc "F_PurchaseMercItem",12243,3000;
	}
}

izlude,56,139,4	duplicate(MercMerchant)	ħL~P#Sword	892
pay_arche,102,167,5	duplicate(MercMerchant)	ħL~P#Bow	879

// Function for selling items.
//============================================================
function	script	F_PurchaseMercItem	{
	input .@input;
	if( .@input == 0 )
	{
		mes "[~P]";
		mes "¥{A";
		mes "Aqʪ~ƶqO0";
	}
	else if( .@input < 0 || .@input > 10000 )
	{
		mes "[~P]";
		mes "пJ010000ƶq";
	}
	else if( set(.@total_po, .@input * getarg(1)) > Zeny )
	{
		mes "[~P]";
		mes "AҫOA";
		mes "bAdʶRa";
	}
	else if( checkweight(getarg(0), .@input) == 0 )
	{
		mes "[~P]";
		mes "zqʪ~q|WLtqW";
		mes "д֭tqAqʧa";
	}
	else
	{
		mes "[~P]";
		mes "¥{A";
		mes "Aqʪ~O'" +getitemname(getarg(0))+ "'";
		mes "" + .@input + "";
		set Zeny, Zeny - .@total_po;
		getitem getarg(0), .@input;
	}
	close;
}
