//===== eAthena Script ======================================= 
//= Renters
//===== By: ================================================== 
//= kobra_k88, mod by Lupus
//===== Current Version: ===================================== 
//= 1.3
//===== Compatible With: ===================================== 
//= eAthena 7.15 +
//===== Description: ========================================= 
//= PecoPeco Breeder, Grand PecoPeco Breeder, Falcon tamer scripts
//===== Additional Comments: ================================= 
//= Fully working
//= Added another Falcon Master into the Hunters Guild [Lupus]
//= 1.2: replaced checkoption(x) with checkriding,checkfalcon [Lupus]
//= 1.3: Added support Adv Classes + Baby Class [Lupus]
//============================================================ 

// PecoPeco Breeder (for Knights)-------------------------------------------
prontera.gat,61,338,3	script	PecoPeco Breeder	86,{
	mes "[PecoPeco Breeder]";
	if(BaseJob == Job_Knight || BaseJob == Job_Knight2 ) goto L_Start;
	mes "I'm a PecoPeco breeder and I rent out PecoPeco's for^4444FF Knights ^000000to ride on.";
	close;

L_Start:
	mes "Good day.  Would you like to ride a PecoPeco?";
	next;
	mes "[PecoPeco Breeder]";
	mes "You can rent one PecoPeco for 2500 Zeny, provided that you have the PecoPeco Riding skill.";
	next;
	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;

	M_0:
		if(getskilllv(63) == 0) goto sL_NeedSkill;
		if(Zeny < 2500) goto sL_Zeny;
		if(checkriding(0) != 0) goto sL_GotPeco;
		set Zeny, Zeny - 2500;
		setriding;
		mes "Thank you and good day.";
		emotion 15;
		close;

		sL_NeedSkill:
			mes "[PecoPeco Breeder]";
			mes  "As I mentioned earlier, you need the^3333FF Riding ^000000skill in order to rent a PecoPeco.";
			close;
		sL_Zeny:
			mes "[PecoPeco Breeder]";
			mes "As I said before it will be 2500z. Come back when you aquire enough zeny.";
			close;
		sL_GotPeco:
			mes "[PecoPeco Breeder]";
			mes "Umm... aren't you already riding a PecoPeco??....";
			emotion 20;
			close;
	M_1:
		mes "[PecoPeco Breeder]";
		mes "Alright.  Good day to you.";
		close;

}

// Grand PecoPeco Breeder (for Crusaders)-------------------------------------------
prontera.gat,238,312,5	script	Grand PecoPeco Breeder	86,{
	mes "[Grand PecoPeco Breeder]";
	if(BaseJob == Job_Crusader || BaseJob == Job_Crusader2 ) goto L_Start;

	mes "I'm a Grand PecoPeco breeder and I rent out Grand PecoPeco's for^4444FF Crusaders ^000000to ride on.";
	close;

L_Start:
	mes "Good day.  Would you like to ride a Grand PecoPeco?";
	next;
	mes "[Grand PecoPeco Breeder]";
	mes "You can rent one Grand PecoPeco for 2500 Zeny, provided that you have the PecoPeco Riding skill.";
	next;
	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;

	M_0:
		if(getskilllv(63) == 0) goto sL_NeedSkill;
		if(Zeny < 2500) goto sL_Zeny;
		if(checkriding(0) != 0) goto sL_GotPeco;
		set Zeny, Zeny - 2500;
		setriding;
		mes "Thank you and good day.";
		emotion 15;
		close;

		sL_NeedSkill:
			mes "[Grand PecoPeco Breeder]";
			mes  "As I mentioned earlier, you need the^3333FF Riding ^000000skill in order to rent a Grand PecoPeco.";
			close;
		sL_Zeny:
			mes "[Grand PecoPeco Breeder]";
			mes "As I said before it will be 2500z. Come back when you aquire enough zeny.";
			close;
		sL_GotPeco:
			mes "[Grand PecoPeco Breeder]";
			mes "Umm... aren't you already riding a Grand PecoPeco??....";
			emotion 20;
			close;
	M_1:
		mes "[Grand PecoPeco Breeder]";
		mes "Alright.  Good day to you.";
		close;

}

// Falcon Master--------------------------------------------------------------
in_hunter.gat,146,100,2	script	Falcon Master	59,{
	mes "[Falcon Master]";
	mes "Hellooooo, I am the Falcon Master.";
	next;
	menu "Speak with him",M_0, "Politely back away",M_End;

	M_0:
		mes "[Falcon Master]";
		mes "I can train a Falcon for you, but you need to be a Hunter and have mastered the ^5555FF'Falcon Taming' skill^000000.";
		next;
		menu "Ok",sM_0, "No thanks",M_End;

		sM_0:
			if(BaseJob != Job_Hunter) goto sL_NotHunter;

			if(checkfalcon(0) != 0) goto sL_GotFalc;
			if(getskilllv(127)==0) goto sL_NoSkill;
			mes "[Falcon Master]";
			mes "It looks like you meet all the requirements to handle a Falcon.  Here you are";
			setfalcon;
			next;
			mes "[Falcon Master]";
			mes "Please take very good care of it.  It will prove to be a valuble companion.";
			close;
			
			sL_NotHunter:
				mes "[Falcon Master]";
				mes "As I said, Falcons can only be given to Hunters.  Falcons are very picky about who they travel with you know.";
				close;
			sL_GotFalc:
				mes "[Falcon Master]";
				mes "You can only have 1 Falcon at a time.";
				close;
			sL_NoSkill:
				mes "[Falcon Master]";
				mes "I'm sorry but you do not have the Falcon Taming skill.  Please come back when you have learned it.";
				close;
	M_End:
		mes "[Falcon Master]";
		mes "Have a nice day.";
		close;
}

//Not Supposed To Be One In Payon!
//Coordinate IS Correct For New Payon Map Though IF You Enable It
//payon_in01.gat,206,175,4	duplicate(Falcon Master)	Falcon Master	59