Тема: Получение 255 уровня

Назад

Получение 255 уровня

Автор: Eleidan: Дата: 10.25.2009

В общем у меня появилась идея. В афине есть такая интересная штучка, а именно когда в файле exp.txt ставишь 255, в игре качем можно будет качнуться только до 254, а 255 можно достичь лишь вроде командой @blvl. Так вот у меня возникла идея написать квест на получение последнего 255 уровня с небольшим бонусом в конце прохрождения. Лут ставил для тестов, поэтому такой ватный.

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

//= Квест на 255 уровень

//===== By: ================================================== 

//= Eleidan (Sparrow)

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

//= v1.0

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

//= eAthena SVN

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



poring_w02,162,176,0	warp	questquest	1,1,prontera,172,152

poring_w02,34,176,0	warp	questquest	1,1,prontera,172,152

poring_w01,96,121,0	warp	questquest	1,1,prontera,172,152



prontera.gat,174,155,6	script	Фиона	918,{

	if (prohod == 1) goto netr;

	if (items == 101) goto allgone;

	if (BaseLevel == 254) goto talk;

	mes "[Фиона]";

	mes "Извини.";

	mes "Ты слишком мал.";

	mes "Приходи ко мне когда будешь 254 уровень.";

	close;

	talk:

	mes "[Фиона]";

	mes "Оо, я вижу ты 254 уровень. Ты наверное хочешь получить максимальный 255 уровень?";

	next;

	menu "Да, хочу",Lda,"Пройти мимо.",-;

	close;

	Lda:

	mes "[Фиона]";

	mes "Тогда я тебя отправлю в ^20A43Eкомнату секретов^000000.";

	next;

	menu "Отправляй.",secret,"Я передумал.",-;

	close;

	secret:

	warp "poring_w02.gat",170,176;

	set prohod,1;

	set etap,1;

	close;

	allgone:

	mes "[Фиона]";

	if (sex == 1)	mes "Все уже =) Халявщик =)";

	if (sex == 0)	mes "Все уже =) Халявщица =)";

	close;

	netr:

	mes "[Фиона]";

	mes "Я свое дело сделала, теперь к Ассистенту.";

	close;

}



poring_w02.gat,170,184,5	script	Сергей	898,{

	if (items == 1) goto lpr;

	mes "[Сергей]";

	mes "Приветствую тебя!";

	mes "Я так понимаю ты пришел чтобы получить 255 уровень.";

	mes "Но для этого ты должен выполнить тест.";

	next;

	mes "Принеси мне:";

	mes "^DD00051 Красный камень^000000";

	next;

	mes "[Сергей]";

	mes "^3600F01 Синий камень^000000";

	next;

	mes "[Сергей]";

	mes "Но это еще не все.";

	next;

	mes "[Сергей]";

	mes "^C9C9011 Желтый камень^000000";

	mes "Справишься?";

	next;

	menu "Да, попробую.",Lget,"В другой раз.",-;

	close;

	Lget:

	mes "[Сергей]";

	set items,1;

	mes "Окей, я тебя жду здесь.";

	mes "Возвращаться ко мне с помощью Ассистента. Он рядом с Фионой.";

	close;

	lpr:

	if (countitem(716) < 1 || countitem (717) < 1 || countitem(715) < 1) goto nexvataet;

	delitem 716,1;	delitem 717,1;	delitem 715,1;

	mes "[Сергей]";

	mes "Большое тебе спасибо!";

	mes "Пока!";

	next;

	menu "...??",toch,"Пока",-;

	set items,0;

	set prohod,0;

	warp "prontera.gat",172,152;

	close;

	toch:

	mes "[Сергей]";

	mes "Ммм. Что?";

	next;

	menu "Где мой уровень?",gde,"Нет, ничего. Пока.",-;

	set items,0;

	set prohod,0;

	warp "prontera.gat",172,152;

	close;

	gde:

	mes "[Сергей]";

	mes "Аааа.... Уровень...";

	mes "Понимаешь, я не могу повысить твой уровень.";

	mes "Но это всего лишь первый этап теста.";

	mes "Всего в тесте четыре этапа.";

	mes "Только что ты прошел первый этап.";

	mes "Все почему то говорят, что четвертый - самый сложный, но я думаю что это ерунда.";

	next;

	mes "[Сергей]";

	mes "Когда ты пройдешь все четыре этапа, ты получишь свой уровень.";

	next;

	mes "[Сергей]";

	mes "Сейчас я отправлю тебя на второй этап.";

	set items,2;

	next;

	menu "Отправляй",lport,"Я позже пойду на второй этап",-;

	mes "[Сергей]";

	mes "Как хочешь.";

	next;

	warp "prontera.gat",172,152;

	close;

	lport:

	mes "[Сергей]";

	mes "Удачи тебе.";

	warp "poring_w02.gat",25,176;

	close;

	nexvataet:

	mes "[Сергей]";

	mes "Извини, но предметов, нужных мне, не хватает.";

	close;

}



poring_w02.gat,25,184,5	script	Григорий	903,{

	mes "[Григорий]";

	mes "Здравствуй.";

	mes "Я - представитель персонала второго этапа Рун-Мидгардского ордена повышения квалификации на высший 255 уровень.";

	next;

	mes "[Григорий]";

	mes "Готов узнать условия прохождения третьего этапа?";

	next;

	menu "Да, конечно",lus,"Я еще погуляю.",-;

	mes "[Григорий]";

	mes "Как хочешь.";

	next;

	warp "prontera.gat",172,152;

	close;

	lus:

	mes "Хорошо!";

	next;

	mes "[Григорий]";

	mes "Тебе нужно всего лишь найти моего друга.";

	mes "Он Assassin Cross.";

	mes "Он может находиться повсюду в Королевстве Рун-Мидгард.";

	next;

	mes "[Григорий]";

	mes "Я тебе дам несколько подсказок.";

	mes "Слушай внимательно.";

	mes "^1186CCИщи убийцу там, где скрывается святое.^000000";

	mes "Цифры: ^1186CCВосемдесят Четыре и Двести Девяносто Восемь.^000000";

	mes "И последеняя подсказка: ^1186CCУ него тупое имя, сразу поймешь.^000000";

	next;

	set items,3;

	warp "prontera.gat",172,152;

	close;

}

moc_fild10.gat,84,298,3	script	Бальмандун	884,{

	if (items == 3) goto pryatki;

	mes "[Бальмандун]";

	mes "Чудесный сегодня день!";

	close;

	pryatki:

	mes "[Бальмандун]";

	mes "Оо. Ты меня нашел!";

	mes "Молодец!";

	next;

	mes "[Бальмандун]";

	mes "Второй этап пройден!";

	mes "Отправить тебя на третий?";

	next;

	menu "Давай",warpv,"Ну нафиг. Сам дойду",-;

	mes "Мое дело предложить, пока.";

	set items,4;

	close;

	warpv:

	mes "[Бальмандун]";

	mes "Желаю удачи =)";

	next;

	warp "poring_w01.gat",105,103;

	close;

}



poring_w01.gat,105,124,5	script	Герман	852,{

	if (items == 5) goto porv;

	mes "[Герман]";

	mes "Приветствую тебя!";

	mes "Третий этап самый сложный!";

	if (sex == 1)	mes "Докажи мне, что ты достаточно силен!";

	if (sex == 0)	mes "Докажи мне, что ты достаточно сильна!";

	mes "Принеси мне ^F90000Человеческий череп!^000000 ^CDCDCD(Skull)^000000";

	next;

	mes "[Герман]";

	mes "Жду тебя! Удачи!";

	next;

	set items,5;

	warp "prontera.gat",172,152;

	close;

	porv:

	if (countitem(7005) < 1) goto serror;

	mes "[Герман]";

	mes "Хорошо, ты сдал Третий Этап!";

	mes "Отправить на четвертый этап?";

	set etap,2;

	next;

	menu "Да, конечно",otrp,"Не надо",-;

	warp "prontera.gat",172,152;

	close;

	otrp:

	warp "poring_w02.gat",117,79;

	close;

	serror:

	mes "[Герман]";

	mes "У тебя нет черепов!";

	close;

}

poring_w02.gat,117,85,5	script	Марвин	405,{

	if (items == 6) goto tcgpt;

	mes "[Марвин]";

	mes "Добрый день!";

	mes "Я представитель последнего этапа.";

	mes "В принципе в этом этапе нет никаких испытаний.";

	next;

	mes "[Герман]";

	mes "Тебе нужно просто принести мне 150 TCG Cards.";

	next;

	mes "[Герман]";

	mes "Жду тебя тут.";

	next;

	set items,6;

	warp "prontera.gat",172,152;

	close;

	tcgpt:

	if (countitem(7227) < 150) goto notcg;

	delitem 7227,150;

	mes "[Герман]";

	mes "Отлично! Ты сдал все экзамены!";

	mes "Теперь тебе нужно зарегистрироваться.";

	mes "Регистрация проходит в Аль-Де-Баране, в здании Корпорация Кафра.";

	next;

	set items,7;

	warp "prontera.gat",172,152;

	close;

	notcg:

	mes "[Герман]";

	mes "Недостаточно TCG.";

	close;

}

aldeba_in.gat,19,243,4	script	Регистратор	899,{

	if (items == 7) goto register;

	mes "[Регистратор]";

	mes "Хммм.... Сколько бумаг... И все надо заполнить.....";

	close;

	register:

	mes "[Регистратор]";

	mes "Здравствуй.";

	mes "Меня о вас уже проинформировали.";

	mes "Сейчас я вас зарегистрирую.";

	next;

	mes "[Регистратор]";

	mes "Так... Вас зовут " + strcharinfo(0) + "";

	mes "Вы из гильдии " + strcharinfo(2) + ".";

	next;

	mes "[Регистратор]";

	mes "Хорошо.";

	mes "Я вас зарегистрировал.";

	mes "Теперь идите к Ассистенту в Пронтеру. Он стоит рядом с Фионой.";

	set items,8;

	close;

}

prontera.gat,174,151,6	script	Ассистент Фионы	911,{

	if (items == 9) goto laba;

	if (items == 101) goto er;

	if (items == 8) goto urovenzabr;

	if (items == 7) goto gderegistr;

	if (items == 6) goto chetetap;

	if (items == 5) goto varptret;

	if (items == 4) goto varptret;

	if (items == 3) goto chuvaktr;

	if (items == 2) goto vtoretap;

	if (etap == 2) goto varptret;

	if (etap == 1) goto varpniex;

	if (items == 1) goto varpniex;

	mes "[Ассистент]";

	mes "Я Ассистент Фионы.";

	close;

	varpniex:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";

	next;

	menu "Что мне даст 255 уровень?",faq,"Варпни на экзамен.",-;

	warp "poring_w02.gat",170,176;

	close;

	vtoretap:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";	

	next;

	menu "Что мне даст 255 уровень?",faq,"Варпни на 2 этап.",-;

	warp "poring_w02.gat",25,176;

	close;

	chuvaktr:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";

	next;

	menu "Что мне даст 255 уровень?",faq,"Где найти чувака со второго этапа?",-;

	mes "[Ассистент]";

	mes "Понятия не имею.";

	close;

	varptret:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";

	next;

	menu "Что мне даст 255 уровень?",faq,"Варпни на 3 этап.",-;

	warp "poring_w01.gat",105,103;

	close;

	chetetap:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";

	next;

	menu "Что мне даст 255 уровень?",faq,"Варпни на 4 этап.",-;

	warp "poring_w02.gat",117,79;

	close;

	gderegistr:

	mes "[Ассистент]";

	mes "Привет, что хочешь?";

	next;

	menu "Что мне даст 255 уровень?",faq,"Где регистрация?.",-;

	mes "В городе Аль-де-Баран, в здании Корпорации Кафры.";

	close;

	faq:

	mes "[Ассистент]";

	mes "В общем так.";

	next;

	mes "[Ассистент]";

	mes "При достижении 255 уровня, я могу дать тебе ^BA7C3060 бонусных очков.^000000";

	next;

	mes "[Ассистент]";

	mes "Дам три раза по пятнадцать очков и ты их раскидаешь по статам как захочешь.";

	next;

	mes "[Ассистент]";

	mes "Тоесть ты можешь кинуть, допустим, 60 очков в силу, или 20 в силу и 40 в ловкость.";

	next;

	mes "[Ассистент]";

	mes "Как то так. Удачи.";

	close;

	

	laba:

	mes "[Ассистент]";

	mes "Хм. Пришел за статами? =)";

	next;

	set chislo,1;

	menu "Да =)",stats,"Пока еще нет.",-;

	close;

	stats:

	if (chislo == 4) goto fuckyou;

	set chislo,chislo + 1;

	mes "Куда закинуть 20 статов?";

	next;

	menu "Str",str,"Agi",agi,"Vit",vit,"Int",int,"Dex",dex,"Luk",luk;

	str:

	atcommand "@str 20";	goto stats;

	luk:

	atcommand "@luk 20";	goto stats;

	agi:

	atcommand "@agi 20";	goto stats;

	vit:

	atcommand "@vit 20";	goto stats;

	int:

	atcommand "@int 20";	goto stats;

	dex:

	atcommand "@dex 20";	goto stats;

	

	fuckyou:

	mes "[Ассистент]";

	mes "От души поздравляю тебя, " + strcharinfo(0) + ".";

	set items,101;

	close;

	

	er:

	mes "[Ассистент]";

	mes "Все, я уже дала тебе 60 очков. Больше ничем не могу помочь.";

	close;

	

	urovenzabr:

	mes "[Ассистент]";

	mes "Здравствуйте, " + strcharinfo(0) + ".";

	mes "Вот твой уровень.";

	next;

	atcommand "@baselvlup 1";

	set items,9;

	close;

}



poring_w02	mapflag	nowarp

poring_w02	mapflag	nowarpto

poring_w02	mapflag	noteleport

poring_w02	mapflag	nosave SavePoint

poring_w02	mapflag	nomemo

poring_w02	mapflag	nobranch

poring_w02	mapflag	nopenalty

Автор: Sanasol: Дата: 11.11.2009

Профы аброй могут апнутся

Автор: Cole McCormick: Дата: 11.11.2009

С квестом, интереснее.

Автор: Eleidan: Дата: 02.09.2010

Профы если аброй апнутся, не получат бонуса. Им тупо бессмысленно получать этот уровень, ибо от одного уровня у них толку будет мало, а бонус неплохой в принципе.

Автор: Eleidan: Дата: 06.01.2010

Народ, можете протестить этот скрипт? Я чтот решил серв поставить поугарать, этот скрипт залил, пишет ошибку. При чем не показывает ошибку в синтаксисе - npc_parcesrcfile: File not found .. Раньше все работало, ща нет =( Может кто знает в чем может быть проблема? Табуляции проверил, вроде везде стоят. Хотя даже если было бы дело в них, то серв бы выдал ошибку в синтаксисе(

[FONT="Times New Roman"]ДОБАВИЛ:[/FONT]

ВООБЩЕ ЛЮБОЙ СКРИПТ СТАВЛЮ, ТАКАЯ ФИГНЯ! Что делать?(((

Автор: Мяфк: Дата: 06.01.2010

путь в нпц не правильно прописал.

Автор: Eleidan: Дата: 06.01.2010

C:\Users\Eleidan\Desktop\14219\14219\npc\custom\tcg.txt - оригинальный путь
npc: npc/custum/tcg.txt - путь в scripts_custom

*dont_know*

Автор: Ma1k: Дата: 06.01.2010

Цитата Eleidan;24521:
C:\Users\Eleidan\Desktop\14219\14219\npc\custom\tcg.txt - оригинальный путь
npc: npc/custum/tcg.txt - путь в scripts_custom

*dont_know*


Орфография?

C:\Users\Eleidan\Desktop\14219\14219\npc\custom\tcg

npc: npc/custum/tcg.txt

Автор: Eleidan: Дата: 06.01.2010

тьфу, блин) Спасибо)