Автор: Hatzel: Дата: 03.03.2009

Такой вот квест на ресет (В квесте это *Перерождение*. название честно своровано из *Tales of Parates* :) )
Это первая стадия квеста, позже будут введены *новые* скиллы, специальные.
Квест состоит из 2х частей(Т.е. нужно сперва пройти 1й, что бы второй стал доступным со вторым) , и проходится только один раз.
Тему пока зыкрывать не буду, т.к. думаю будут вопросы. Но позже весь флуд потру и закрою ;)
P.S. : Скрипт написан в моей личной программе, поэтому все недочеты(Если таковые есть) придется исправлять вам самим :)
1 часть:

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

//= Первая часть квеста *Перерождение*

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

//= Telets

//===== Версия: ===================================== 

//= 1.0

//===== Требования: ===================================== 

//= Любая версия афины

//===== Предисловие: ========================================= 

//= Полный ресет (Скиллы, статы).

//===== Комменты к версии: ================================= 

//= 1.0 Начальная версия.

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

mid_camp.gat,214,204,1 script Джимми 809,{

set @npcname$,"[^FF8000Джимми^000000]";

if(@rebirthn == 1) goto nss;

if($looh == 1) goto complite;

if(countitem(512) > 99) goto complite;

 mes @npcname$;

 mes "Привет!";

 mes "Хорошая сегодня погодка, не правда ли? ^^";

next;

if(select("Да ну..","Да, и вправду хорошая.") == 1)

{

 mes @npcname$;

 mes "Как знаешь;).";

 close;

} else {

mes @npcname$;

mes "Знаешь, есть на свете такой старец,";

mes "способный возвращать былые года.";

if(select("Где его можно разыскать?","Выход") == 1) {

 next;

 mes @npcname$;

 mes "Говорят, он живет в альдебаране.";

} else {

close; 

}

if(select("А поконкретней можно?") == 1) {

 mes @npcname$;

 mes "Конечно. Однако";

 mes "Ты должен мне принести мне яблок.";

next;

 mes @npcname$;

 mes "Ни много, ни мало: 100 штук.";

if(select("Хорошо","Выход") == 1) {

goto quest;

}

quest:

 mes @npcname$;

 mes "Скорее принеси мне 100 яблок, скоро начнется";

 mes "яблочный праздник.";

 set $looh,1;

 close;

complite:

if(countitem(512) < 100) goto needed;

 mes @npcname$;

 mes "О, ты принес их!";

 mes "Спасибо!";

delitem 512,100;

next;

 mes @npcname$;

 mes "Старец живет в альдебаране,";

 mes "и очень любит гулять в северной окраине города.";

next;

 mes @npcname$;

 mes "Его любимое место - пограничный пост.";

set @rebirthn,1;

close;

needed:

 mes @npcname$;

 mes "Скорее!.";

close;

nss:

 mes @npcname$;

 mes "Привет + strcharinfo(0) + .";

close;

} 

}

}

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

//= Вторая часть квеста *Перерождение*

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

//= Telets

//===== Версия: ===================================== 

//= 1.0

//===== Требования: ===================================== 

//= Любая версия афины

//===== Предисловие: ========================================= 

//= Полный ресет (Скиллы, статы).

//===== Комменты к версии: ================================= 

//= 1.0 Начальная версия.

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

yuno_fild01,184,173,2 script Дедушка 412,{

set @npcname$,"[^FF8000Сэм^000000]"; 

if($so == 1) goto wh;

if(countitem(989) >= 3 && countitem(671) >= 3) goto rebirth_on;

if(@rebirthn < 1) goto wh;

if($se  == 0) goto rebirth;

if($se == 1) goto rebirth_quest;

rebirth: 

 

if(select("Я от Джимми") == 1) {

 mes @npcname$;

 mes "Аа, от этого проказника *Смеется*."; 

if(select("Он сказал что..") == 1)  {

 mes @npcname$;

 mes "*Перебивает*";

 mes "Я знаю что он сказал";

next;

 mes @npcname$;

 mes "Хочешь быть моложе?";

 mes "Принеси мне следующие предметы:";

next;

 mes @npcname$;

 mes "3 Emperium Anvil.";

 mes "3 Gold Coin";

next;

 mes @npcname$;

 mes "В чем смысл этой процедуры? ты сможешь перераспределить свои навыки, и получишь бонус в размере 200 статус поинтов.."; }

if(select("Хорошо","") == 1) {

 mes @npcname$;

 mes "Не подведи меня.";

set $se,1;

close;

}

rebirth_on:

 mes @npcname$;

 mes "Да, это то что я просил";

delitem 989,3;

delitem 671,3;

ResetSkill;

ResetStatus;

set statpoint,200;

set $so,1;

close;

rebirth_quest:

 mes @npcname$;

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

 mes "3 Emperium Anvil.";

 mes "3 Gold Coin";

close;

wh:

 mes @npcname$;

 mes "Как же тут хорошо, не правда ли?";

close;

}

 }

Автор: Hatzel: Дата: 03.03.2009

Originally posted by Anton7;7397
ммм а ресет чего?

Автор: Anton7: Дата: 03.03.2009

а где надо поменять что бы скидовались только резет левелов а статы\скиллы не трогались

Автор: Just: Дата: 03.03.2009

Извени. Но помоему ты дурак.

Автор: Anton7: Дата: 03.03.2009

чё ето я дурак?

Автор: Just: Дата: 03.03.2009

Обьясни как ты себе представляешь ресет левалов?) х

Автор: Anton7: Дата: 03.03.2009

mid_camp.gat,226,241,4 script LvlUP! 864,{
if(baselevel<=98) goto looser; куда ето вставлять??
mes "Lvl Down!";
mes "Enjoy! ^ ^";
set baselevel,baselevel-98;
close;
looser:
mes "Noob..";
close;
}

Автор: Just: Дата: 03.03.2009

ну упадёт он до первого и толку от этого?

Автор: Hatzel: Дата: 03.03.2009

О да, этот скрипт тоже мой ;)
Anton7, копирайты ставим ;)

Автор: Anton7: Дата: 03.03.2009

Hatxel - можещь подскаезать как етот скрипт с тем соединить?

Автор: Hatzel: Дата: 03.03.2009

Обыкновенным запуском..

Автор: Anton7: Дата: 03.03.2009

ну а что где заменить мож переделаный скрипт выложить?

Автор: Hatzel: Дата: 03.03.2009

В плане *Переделанный*?
Скрипт рабочий на 100%. Тестировался неоднократно.
Непойму, чего еще не хватает?

Автор: Anton7: Дата: 03.03.2009

прошу тебя помочь соединить скрипт вместо того что бы сбрасывались статы и скиллы сбрасывался лвл

Автор: Hatzel: Дата: 03.03.2009

Когда вы уже сами начнете думать, ну хоть чуточку..

set baselevel,baselevel-98;

Автор: Anton7: Дата: 03.03.2009

и куда ето вставить?

Автор: Hatzel: Дата: 03.03.2009

А я понял, тебе просто думать неохота..
В последний раз помогаю тебе лично!
ЭТО

ResetSkill;

ResetStatus;

set baselevel,baselevel-98;

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

Originally posted by Hatzel;7407
О да, этот скрипт тоже мой ;)
Anton7, копирайты ставим ;)

Автор: Hatzel: Дата: 03.03.2009

Originally posted by Мяфкиш;7421
Слушай а зачем это скрипт нужен?? и что тут что тебя до 1лвл сбросят и антон тебе то зачем какой дурак будет делать квест на 1лвл о_О

Автор: Anton7: Дата: 03.03.2009

дял того что бы когда збрасываеться лвл статы остаються икачаешся снова типо чем больше ресетов тем круче игрок
Hatzel - сори просто я видел где заменить я просо не знал точно етоили нет