Free Breeder

[Enwteyn]

//===== Athena Script ========================================
//= Free Breeder
//===== Credits to ===========================================
//= Enwteyn + помощь ea-support.ru
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= Eathena SVN
prontera,132,189,6	script	Арендатор	726,{
	mes "[^FF0000Арендатор^000000]";
	mes "Приветствую Вас, ^0000FF"+strcharinfo(0)+"^000000.";  
	mes "Здесь Вы можете арендовать Повозки, Соколов или Пеко-пеко.";
switch(select("Аренда Повозки:Аренда Сокола:Аренда Пеко-пеко:Отмена")) {
case 1:
	if(getskilllv(39)<1)  mes "[Арендатор]"; mes "^0000FFИзвините у вас нет умения, чтобы арендовать повозку.^000000"; close;
	if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0) { setcart; close; };
close;
case 2:
	if(getskilllv(127)<1) mes "[Арендатор]"; mes "^0000FFИзвините у вас нет умения, чтобы арендовать Сокола.^000000"; close; 
	if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0)  { setfalcon; close; };
close;
case 3:
	if(getskilllv(63)<1) mes "[Арендатор]"; mes "^0000FFИзвините у вас нет умения, чтобы арендовать Пеко-пеко.^000000"; close;
	if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0)  { setriding; close; };
case 4:
close;
close;} 
}

Изменено 25 октября, 2012 пользователем Enwteyn

[Kubix!]

Точно такой же стандартный.

[Enwteyn]

Точно такой же стандартный.

//===== 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,132,189,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;
}

как здесь говорится много говно кода

[Kubix!]

Почему у тебя проверка скилла идет после того как выдается телега?

Про стандартный имел ввиду англ)

[kadze]

prontera,163,185,3	script	Арендатор	726,{
if (ismounting()) message strcharinfo(0),"You must first remove your mount."; 
else if ((eaclass()&EAJ_THIRDMASK==EAJ_RANGER) && !countitem(6124)) 
{
if (!checkfalcon() && getskilllv(127)) 
{
	if(select(" ~ Falcon: ~ Warg")==1) setfalcon;
	else getitem 6124,1; 
}
else getitem 6124,1; 
}
else if ((eaclass()&EAJ_THIRDMASK==EAJ_MECHANIC) && !checkcart()) 
{
	if (!checkmadogear() && getskilllv(2255)) 
	{
		if(select(" ~ Cart: ~ Mado")==1) setcart;
		else setmadogear; 
	}
	else setcart; 
}
else if (!checkcart() && getskilllv(39)) setcart;
else if (!checkfalcon() && getskilllv(127)) setfalcon;
else if (!checkriding() && getskilllv(63)) 
{
  if (eaclass()&EAJ_THIRDMASK==EAJ_RUNE_KNIGHT) setdragon;
  else setriding; 
}
else if (!checkmadogear() && getskilllv(2255)) setmadogear;
else message strcharinfo(0),"You do not meet requirements to rent.";
close;
}

наркоманы

[Enwteyn]

prontera,163,185,3	script	Арендатор	726,{
if (ismounting()) message strcharinfo(0),"You must first remove your mount."; 
else if ((eaclass()&EAJ_THIRDMASK==EAJ_RANGER) && !countitem(6124)) 
{
if (!checkfalcon() && getskilllv(127)) 
{
	if(select(" ~ Falcon: ~ Warg")==1) setfalcon;
	else getitem 6124,1; 
}
else getitem 6124,1; 
}
else if ((eaclass()&EAJ_THIRDMASK==EAJ_MECHANIC) && !checkcart()) 
{
	if (!checkmadogear() && getskilllv(2255)) 
	{
		if(select(" ~ Cart: ~ Mado")==1) setcart;
		else setmadogear; 
	}
	else setcart; 
}
else if (!checkcart() && getskilllv(39)) setcart;
else if (!checkfalcon() && getskilllv(127)) setfalcon;
else if (!checkriding() && getskilllv(63)) 
{
  if (eaclass()&EAJ_THIRDMASK==EAJ_RUNE_KNIGHT) setdragon;
  else setriding; 
}
else if (!checkmadogear() && getskilllv(2255)) setmadogear;
else message strcharinfo(0),"You do not meet requirements to rent.";
close;
}

наркоманы

не работает твой вариант

[Jarek]

Замени ismounting() на checkriding()

и в той же строчке message на mes

[kadze]

не работает твой вариант

ты бы еще на 9000 ревизии eathena сидел =)

[Enwteyn]

не работает твой вариант

ты бы еще на 9000 ревизии eathena сидел =)

eAthena SVN Stable Revision 14785

вроде последняя Stable ревизия

[kadze]

я имел ввиду,что пора уже на rathena собирать сервера