Тема: Интересный квест

Назад

Интересный квест

Автор: TrojanX: Дата: 10.27.2009

[HTML]//===== eAthena Script ======================================
//= Квесты на зарабатывание денег
//===========================================================
//===== By ==================================================
//= S1r
//===== Version =============================================
//= 1.0
//===========================================================
///////////////////////////////////
/////Hospital Work ////
///////////////////////////////////
prontera.gat,157,197,3 script Doctor Jack 121,{
set @count, 0;
if (hoswork_got==1) goto hoswgot;
mes "[Doctor Jack]";
mes "Здравствуйте! Чем я могу помочь?";
next;
menu "У вас нет какой нибудь работы?",Hwork,"Я уже ухожу",Hquit;

Hwork:
set hoswork_got,1;
mes "[Doctor Jack]";
mes "Хмм, дайте подумать...";
mes "Да! Вобще то есть кое что, что вы могли бы сделать для нашей больницы.";
mes "Не бесплатно конечно же.";
next;
mes "[Doctor Jack]";
mes "На нашем складе не хватает донорской крови, но зато наш алхимик научился выделять около литра крови из кристалла Red Blood.";
mes "Итак, принеси мне таких кристаллов... столько сколько сможешь найти, и я куплю их у тебя, по... ммм, скажем 800z за каждый.";
close;

Hquit:
mes "[Doctor Jack]";
mes "Как пожелаешь. Удачи!";
close;

hoswgot:
if(countitem(990)<1) goto Norblood;
mes "[Doctor Jack]";
mes "О, ты уже принес кровяных кристаллов? Отлично, давай их мне.";
next;
set @lv2,0;
menu "Вот, возьмите",redblall,"Нет, я ухожу",Hquit;

redblall:
if(countitem(990)<1) goto hossenk;
set @count, @count +1;
delitem 990, 1;
set Zeny, Zeny + 800;
goto redblall;

hossenk:
mes "[Doctor Jack]";
mes "Благодарю тебя! Вот твои деньги. Если найдешь еще Red Blood, ты знаешь кому их продать.";
close;

Norblood:
mes "[Doctor Jack]";
mes "Вижу ты еще не нашел кристаллов Red Blood...";
mes "Так что же привело тебя ко мне?";
next;
menu "Есть идеи где их искать?",Hrbsrch,"Я уже ухожу",Hquit;

Hrbsrch:
mes "[Doctor Jack]";
mes "Хм, мне казалось воинам и путешественникам это должно быть известно лучще чем мне...";
mes "Нуу, я слышал что их можно выбить из красных грибов... может еще из чего то, я не уверен.";
close;
}
///////////////////////////////////////////////////////////////////////////////////////////
aldeba_in.gat,158,115,2 script Nurse 53,{
mes "[Nurse]";
mes "Привет! Ты не похож на больного.. что ты здесь ищешь? Возможно работу?";
mes "Если так, поговори с доктором Jack'ом, у него как раз есть что то вроде работы...";
mes "Или можешь сходить в монастрырь Лоянга, помоему там тоже были нужны такие люди как ты.";
close;
}
///////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////
//Loyang Monks Work //
////////////////////////////////
lou_in01.gat,100,135,5 script Lou Chin 824,{
set @count, 0;
if (lmtwork_got==1) goto lmtwgot;
mes "[Lou Chin]";
mes "Зыдрасьтвуйте гражданина. Что моя может для тебя сделать?";
next;
menu "Может у вас есть работа?",Lwork,"Вы ничем не торгуете?",Ltrade,"Я уже ухожу",Lquit;

Lwork:
set lmtwork_got,1;
mes "[Lou Chin]";
mes "Вобсето есть! Насы монахи оцень искуссные целители, но для многова лекарсва который они делают, нузны редкие, оцень редкие ингридиента!";
mes "Самое хоросее и вкусное лекарсво это Чинь-Фряу-Тонг. Но нам слозно полуцать ингридиента для него.";
next;
mes "[Lou Chin]";
mes "Если твоя достатоцьно храбрая, твоя пойти и убей монстра, которого вы называть Phreeoni, ";
mes "потом твоя вырывать язык у Phreeoni и нести его мне. За каздую такую язык, моя заплатит тебе 20к зеней.";
close;

Lquit:
mes "[Lou Chin]";
mes "Цьтозе. Удаси тебе, береги себя!";
close;

lmtwgot:
if(countitem(1015)<1) goto notongue;
mes "[Lou Chin]";
mes "Ааа, твоя принести язык Phreeoni не так ли? Хоросо, оцень хоросо. Моя заплатить тебе.";
mes "Твоя давай языки сюда.";
next;
set @lv2,0;
menu "Вот, возьмите все",tongall,"Много, но вам я их не отдам",Lquit;

tongall:
if(countitem(1015)<1) goto tongsenk;
set @count, @count +1;
delitem 1015, 1;
set Zeny, Zeny + 20000;
goto tongall;

tongsenk:
mes "[Lou Chin]";
mes "Больсое спасибо твоя! Но нам нузно много языков, так сто мозес приносит есё!";
close;

notongue:
mes "[Lou Chin]";
mes "У твоя нету языка Phreeoni. Твоя есё не убивать Phreeoni???";
mes "Тогда посему твоя здесь?";
next;
menu "Я уже ухожу",Lquit;

Ltrade:
mes "[Lou Chin]";
mes "Моя? Нет, нет... но на рынка Лоянги и в некоторый дома есть много торговцев.";
close;

}[/HTML]

Автор: 4FuN: Дата: 06.08.2010

Цитата TrojanX;13996][HTML:
//===== eAthena Script ======================================
//= Квесты на зарабатывание денег
//===========================================================
//===== By ==================================================
//= S1r
//===== Version =============================================
//= 1.0
//===========================================================
///////////////////////////////////
/////Hospital Work ////
///////////////////////////////////
prontera.gat,157,197,3 script Doctor Jack 121,{
set @count, 0;
if (hoswork_got==1) goto hoswgot;
mes "[Doctor Jack]";
mes "Здравствуйте! Чем я могу помочь?";
next;
menu "У вас нет какой нибудь работы?",Hwork,"Я уже ухожу",Hquit;

Hwork:
set hoswork_got,1;
mes "[Doctor Jack]";
mes "Хмм, дайте подумать...";
mes "Да! Вобще то есть кое что, что вы могли бы сделать для нашей больницы.";
mes "Не бесплатно конечно же.";
next;
mes "[Doctor Jack]";
mes "На нашем складе не хватает донорской крови, но зато наш алхимик научился выделять около литра крови из кристалла Red Blood.";
mes "Итак, принеси мне таких кристаллов... столько сколько сможешь найти, и я куплю их у тебя, по... ммм, скажем 800z за каждый.";
close;

Hquit:
mes "[Doctor Jack]";
mes "Как пожелаешь. Удачи!";
close;

hoswgot:
if(countitem(990)<1) goto Norblood;
mes "[Doctor Jack]";
mes "О, ты уже принес кровяных кристаллов? Отлично, давай их мне.";
next;
set @lv2,0;
menu "Вот, возьмите",redblall,"Нет, я ухожу",Hquit;

redblall:
if(countitem(990)<1) goto hossenk;
set @count, @count +1;
delitem 990, 1;
set Zeny, Zeny + 800;
goto redblall;

hossenk:
mes "[Doctor Jack]";
mes "Благодарю тебя! Вот твои деньги. Если найдешь еще Red Blood, ты знаешь кому их продать.";
close;

Norblood:
mes "[Doctor Jack]";
mes "Вижу ты еще не нашел кристаллов Red Blood...";
mes "Так что же привело тебя ко мне?";
next;
menu "Есть идеи где их искать?",Hrbsrch,"Я уже ухожу",Hquit;

Hrbsrch:
mes "[Doctor Jack]";
mes "Хм, мне казалось воинам и путешественникам это должно быть известно лучще чем мне...";
mes "Нуу, я слышал что их можно выбить из красных грибов... может еще из чего то, я не уверен.";
close;
}
///////////////////////////////////////////////////////////////////////////////////////////
aldeba_in.gat,158,115,2 script Nurse 53,{
mes "[Nurse]";
mes "Привет! Ты не похож на больного.. что ты здесь ищешь? Возможно работу?";
mes "Если так, поговори с доктором Jack'ом, у него как раз есть что то вроде работы...";
mes "Или можешь сходить в монастрырь Лоянга, помоему там тоже были нужны такие люди как ты.";
close;
}
///////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////
//Loyang Monks Work //
////////////////////////////////
lou_in01.gat,100,135,5 script Lou Chin 824,{
set @count, 0;
if (lmtwork_got==1) goto lmtwgot;
mes "[Lou Chin]";
mes "Зыдрасьтвуйте гражданина. Что моя может для тебя сделать?";
next;
menu "Может у вас есть работа?",Lwork,"Вы ничем не торгуете?",Ltrade,"Я уже ухожу",Lquit;

Lwork:
set lmtwork_got,1;
mes "[Lou Chin]";
mes "Вобсето есть! Насы монахи оцень искуссные целители, но для многова лекарсва который они делают, нузны редкие, оцень редкие ингридиента!";
mes "Самое хоросее и вкусное лекарсво это Чинь-Фряу-Тонг. Но нам слозно полуцать ингридиента для него.";
next;
mes "[Lou Chin]";
mes "Если твоя достатоцьно храбрая, твоя пойти и убей монстра, которого вы называть Phreeoni, ";
mes "потом твоя вырывать язык у Phreeoni и нести его мне. За каздую такую язык, моя заплатит тебе 20к зеней.";
close;

Lquit:
mes "[Lou Chin]";
mes "Цьтозе. Удаси тебе, береги себя!";
close;

lmtwgot:
if(countitem(1015)<1) goto notongue;
mes "[Lou Chin]";
mes "Ааа, твоя принести язык Phreeoni не так ли? Хоросо, оцень хоросо. Моя заплатить тебе.";
mes "Твоя давай языки сюда.";
next;
set @lv2,0;
menu "Вот, возьмите все",tongall,"Много, но вам я их не отдам",Lquit;

tongall:
if(countitem(1015)<1) goto tongsenk;
set @count, @count +1;
delitem 1015, 1;
set Zeny, Zeny + 20000;
goto tongall;

tongsenk:
mes "[Lou Chin]";
mes "Больсое спасибо твоя! Но нам нузно много языков, так сто мозес приносит есё!";
close;

notongue:
mes "[Lou Chin]";
mes "У твоя нету языка Phreeoni. Твоя есё не убивать Phreeoni???";
mes "Тогда посему твоя здесь?";
next;
menu "Я уже ухожу",Lquit;

Ltrade:
mes "[Lou Chin]";
mes "Моя? Нет, нет... но на рынка Лоянги и в некоторый дома есть много торговцев.";
close;

}[/HTML]


уже давно так не пишут, + орфография......

Автор: Kill Spirit: Дата: 06.08.2010

Господи тебе флудить не надоело? это было в 2009 году лол