//===== eAthena Script ======================================= 

//= Custom Free Breeder aka Universal Renter (not reccomended)

//===== By: Перевод By: S1r================================================== 

//= eAthena Team

//===== Current Version: ===================================== 

//= 1.0

//===== Compatible With: ===================================== 

//= eAthena 1.0 Final +

//===== Description: ========================================= 

//= A Free PecoPeco and Falcon Breeder

//===== Additional Comments: ================================= 

//FIXED checkriding/cart/falcon funcs [Lupus]

//Added Rebirth/Advanced Class support [Mass Zero]

//Simplified the checks of job [Silentdragon]

//============================================================ 

prontera.gat,158,193,6 script Арендатор 726,{

mes "[Арендатор]";

mes "Привет, здесь Вы можете арендовать Повозки, Соколов или Пеко-пеко.";

next;

L_Menu:

menu "Аренда Повозки",L_Cart,"Аренда Сокола",L_Falcon,"Аренда Пеко-пеко",L_Peco,"Выход",L_Quit;

close;

L_Cart:

if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0) goto L_Cart_Ok;

if(getskilllv(39)<1) goto L_Need_Skill;

mes "[Арендатор]";

mes "Извините " + strcharinfo(0) + ", но Я арендую повозки только Продовцам, которые имеют достаточно навыков.";

close;

L_Cart_Ok:

setcart;

goto L_Quit2;

L_Need_Skill:

mes "[Арендатор]";

mes "Извините Вы не имеете необходимое количество умени, чтобы арендовать повозку.";

close;

L_Falcon:

if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0) goto L_Falc;

if(getskilllv(127)<1) goto L_Need_Skill2;

mes "[Арендатор]";

mes "Извините " + strcharinfo(0) + ", но Я арендую соколов только Охотникам и Снайперам, которые имеют достаточно навыков.";

close;

L_Falc:

setfalcon;

goto L_Quit2;

L_Need_Skill2:

mes "[Арендатор]";

mes "Извините,но у вас нет необходимых умений для аренды Сокола.";

close;

L_Peco:

if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0) goto L_Peco_Ok;

if(getskilllv(63)<1) goto L_Need_Skill3;

mes "[Арендатор]";

mes "Извините " + strcharinfo(0) + ", но Я арендую Пеко-пеко только Рыцарям и Крусайдерам, которые имеют достаточно навыков.";

close;

L_Peco_Ok:

setriding;

goto L_Quit2;

L_Need_Skill3:

mes "[Арендатор]";

mes "Извините, но у вас нет необходимых умений, чтобы ездить на Пеко-пеко.";

close;

L_Quit:

mes "[Арендатор]";

mes strcharinfo(0) + ", пожалуйста возвращайте тогда, когда Вы будете готорвы что-либо арендовать.";

close;

L_Quit2:

mes "[Арендатор]";

mes strcharinfo(0) + ", пожалуйста приходите снова, если вам что-нибудь пондобиться... .";

close;

}