Сервер LazyRO

Форум онлайн игры Ragnarok Online
https://forum.lazyro.com/

Авто эвенты

https://forum.lazyro.com/viewtopic.php?f=13&t=474

Страница 1 из 2

Авто эвенты

Добавлено: 18 мар 2010, 03:43
Volody
Наверное все со мной согласятся что двух авто эвентов мало.
Я предлагаю поставить много авто эвентов и что бы каждый час активировался случайный
Не буду придумывать ничего своего напишу авто эвенты которые я видел на серверах где мне приходилось играть и которые мне нравились.

1)Смешарики в пронтере появляется портал которы варпает всех вошедших игроков на локацию предварительно сделав фулстрип. После старта эвента там появляются все виды порингов и объявляется охота на один вид. Объявление выглядит так: Охотимся на Magmaring. И все игроки должны убивать исключительно Магмарингов, если убивают кого нибудь другого они проигрывают. После истечения двух минут объявляются победители по количеству убитых порингов. Первое место: 15 ТЦГ Второе место: 10 ТЦГ Третее место:5ТЦГ

2) Убеги от монста. В пронте появляется варп который варпает всех вошедших на локацию предварительно сделав фулстрип. После старта на локации появляется моб(сильный моб) от которого все должны убегать. Последнему оставшемуся в живых приз в 20 ТЦГ

3) Барыган Петрович В мороке стоит НПЦ с именем Барыган Петрович который просит принести какой либо лут в количестве 10-30 штук Первый кто приносит лут получает 10 ТЦГ

4) Угадай монстра. В пронтере появляется варп который варпает всех вошедших игроков на локацию где стоит НПЦ. Перед началом эвента НПЦ объясняет что он будет превращаться в случайного моба и кто первый напишет его имя по английски получит приз. НПЦ превращается в 10 различных мобов и каждый раз за первый правильный ответ он даёт 1 ТЦГ

5) Нашествие порингов В пронтере появляется 200 порингов за каждого убитого дают по 5000z и тот кто убивает последнего поринга получает 10 ТЦГ

6) Введите приз на эвенте кубик 10-20 ТЦГ

Вот такое количество эвентов будет нормальным. Хотя для оригинальности сервера можно сделать 10-20 авто эвентов тогда LazyRo будет сервером с самым большим количеством авто эвентов и это будет по настоящему круто! :yahoo: :yahoo: :yahoo:

Re: Авто эвенты

Добавлено: 18 мар 2010, 09:14
MadJackII
Против, тупой фарм тгц будет.

Re: Авто эвенты

Добавлено: 18 мар 2010, 12:24
Volody
как будто выигрывать будут одни и те же люди?

Re: Авто эвенты

Добавлено: 19 мар 2010, 00:04
Clockwork orange
да ща тсг ток у чампов есть эт аще плохо.
а ты сначала проскриптовку на нпц этих эвентов дай. не из воздуха же Лейзи их ставить будет)

Re: Авто эвенты

Добавлено: 19 мар 2010, 02:45
Volody
Если найду дам... А если Лейзи шарит то может и сам напишет....

Re: Авто эвенты

Добавлено: 19 мар 2010, 21:51
Bandit
Я думаю хорошие ивенты ты предложил,я с тобой согласен)

Re: Авто эвенты

Добавлено: 20 мар 2010, 03:56
Volody
По одному в месяц или два вводить эти эвенты было бы шикарно... :good:

Re: Авто эвенты

Добавлено: 23 июн 2010, 01:07
Volody
Насколько я знаю Лейзи ещё не ввёл знаменитый эвент RFYL поэтому предоставляю скрипт данного эвента может заинтересует...

Код: Выделить всё

//---Авто-Эвент RFYL.---//
//---Скрипт написал aN00B1s (ICQ: 722-45-30)---//

//---Объявление об эвенте.---//

-    script    announce_rfyl    -1,{

//---Время, когда эвент будет начинаться.---//

OnClock1030:
OnClock1530:
OnClock2030:



//---Аннонс Эвента + проверки.---//

announce "Эвент 'Убеги от монстра' начнётся через 3 минуты!",0;
killmonsterall "quiz_01";
sleep 50000;
announce "В Пронтере появился НПС 'Убеги от монстра'!",0;
enablenpc "Убеги от монстра";
sleep 10000;
announce "Эвент 'РФУЛ' начнётся через 2 минуты!",0;
sleep 60000;
announce "Эвент 'РФУЛ' начнётся через 1 минуту!",0;
sleep 30000;
mapannounce "quiz_01","Через 30 секунд будет запущен монстр!",0;
sleep 25000;
announce "Эвент 'РФУЛ' начнётся через -5-",0;
sleep 1000;
announce "Эвент 'РФУЛ' начнётся через -4-",0;
sleep 1000;
announce "Эвент 'РФУЛ' начнётся через -3-",0;
sleep 1000;
announce "Эвент 'РФУЛ' начнётся через -2-",0;
sleep 1000;
announce "Эвент 'РФУЛ' начнется через -1-",0;
sleep 1000;
announce "Эвент 'Убеги от монстра' начался, пусть победит сильнейший!",0,0x00FF00;
monster "quiz_01",42,369,"Убийца",1640,1;
disablenpc "Убеги от монстра";
initnpctimer;
end;

OnTimer5000: // Каждые 5 секунд проверка на количество игроков + аннонс.
if ( getmapusers("quiz_01") == 0 )
{
killmonsterall "quiz_01"; // Если всех убили - эвент заканчивается.
announce "Эвент 'РФУЛ' закончился, так как игроков на Эвенте нет.",0;
disablenpc "Киса";
stopnpctimer;
end;
}
else if ( getmapusers("quiz_01") > 1 )
{
mapannounce "quiz_01",getmapusers("quiz_01") +" игрока(ов) всё ещё находятся на Эвенте.",0,0x00FF00; // Если 2+ игроков на эвенте - аннонс.
initnpctimer;
end;
}
initnpctimer;
end;



//---Выкидывание игрока с Эвента после смерти и проверка на победителя.---//

OnPCDieEvent:
getmapxy .@maprfyl$,.@xrfyl,.@yrfyl,0;
if ( .@maprfyl$ == "quiz_01") {
sleep2 1;
warp "prontera",156,223;
atcommand "@alive "+ strcharinfo(0);
dispbottom "К сожалению, Вы проиграли...";
}
sleep2 1000;
if ( .@maprfyl$ == "quiz_01" && getmapusers("quiz_01") == 1 ) {
killmonsterall "quiz_01";
mapannounce "quiz_01","Поздравляю, Вы выиграли, подойдите пожалуйста к Кисе.",0;
enablenpc "Киса";
stopnpctimer;
end;
}
end;
}



//---Выигрыш.---//

quiz_01,42,369,3    script    Киса    876,{
if (sex == 1) { // Мальчик.
announce "В 'РФУЛе' победил "+ strcharinfo(0) +"! Поздравляем его!",0;
}
else { // Остальные (девочка).
announce "В 'РФУЛе' победила "+ strcharinfo(0) +"! Поздравляем её!",0;
};
getitem 7227,1; // Можно поставить свой приз.
warp "prontera",156,223;
sleep2 250;
disablenpc "Киса";
end;
}



//---Регистрация на Эвент.---//

prontera,147,147,3    script    Убеги от монстра    736,{
mes "[^0000FFУбеги от монстра^000000]";
mes "Вы хотите попасть на Эвент '^FF0000Убеги от монстра^000000'?";
next;
switch(select("Да","Нет")) {
case 1:
if (checkriding()) { // Проверка на Пеко-Пеко.
mes "[^0000FFУбеги от монстра^000000]";
mes "Пожалуйста, снемите Пеко Пеко.";
close;
}
sc_end SC_ALL;
percentheal 100,100;
warp "quiz_01",42,369;
end;
break;

case 2:
mes "[^0000FFУбеги от монстра^000000]";
mes "Хорошо, приходите, когда захотите.";
close;
break;
}
OnInit: // При запуске сервера убераем НПС.
disablenpc "Убеги от монстра";
disablenpc "Киса";
end;
}



//---МапФлаги.---//

quiz_01    mapflag    pvp    off
quiz_01    mapflag    noteleport
quiz_01    mapflag    nosave    SavePoint
quiz_01    mapflag    nowarp
quiz_01    mapflag    noreturn
quiz_01    mapflag    nomemo
quiz_01    mapflag    nowarpto
quiz_01    mapflag    noskill
quiz_01    mapflag    pvp    noparty
quiz_01    mapflag    restricted    5 // Не забывайте добавить зелья, которые нельзя кушать и спид потионы в db/item_noequip.txt

Re: Авто эвенты

Добавлено: 23 июн 2010, 01:20
Volody
Вот ещё один забавный эвент

Код: Выделить всё

- script poring#announcer -1,{
OnInit:
disablenpc "poringevent";
hideonnpc "Poring Catcher#evnt2";
end;
OnMinute01: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR.
announce "Poring Catcher: пора поиграть!",0;
killmonster "poring_w01","All";
sleep2 10000;
announce "Poring Catcher: В центре Пронтере откроется варп-портал.",0;
sleep2 10000;
announce "Poring Catcher: Через 1 минуту портал закроется.",0;
sleep2 10000;
announce "Poring Catcher: Заходите в портал если хотите поиграть.",0;
enablenpc "poringevent";
initnpctimer;
end;
OnTimer30000:
announce "Poring Catcher: Осталось 30 секунд.",0;
sleep2 5000;
announce "Poring Catcher: Посетите в центр Пронтеры если хотите поиграть.",0;
end;

OnTimer50000:
announce "Poring Catcher: Последние 10 секунд.",0;
end;

OnTimer55000:
announce "Poring Catcher : 5.",0;
end;

OnTimer56000:
announce "Poring Catcher : 4.",0;
end;

OnTimer57000:
announce "Poring Catcher : 3.",0;
end;

OnTimer58000:
announce "Poring Catcher : 2.",0;
end;

OnTimer59000:
announce "Poring Catcher : 1.",0;
end;

OnTimer60000:
announce "Poring Catcher : Время кончилось. Следуйший портал откроется через 1 час.",0;
end;

OnTimer61000:
disablenpc "poringevent";
donpcevent "Poring Catcher#evnt2::OnEnable";
stopnpctimer;
end;
}

//--------------------------------------------------

prontera,163,187,0 warp poringevent 2,2,poring_w01,106,129 

//--------------------------------------------------
poring_w01,100,127,4 script Poring Catcher#evnt2 715,{
//--------------------------------------------------
mes "[Poring Catcher]";
if(PORING == 1) goto L_PORING;
mes "Скажи свое имя";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Poring Catcher]";
mes "Это твое имя?";
close;
}
mes "[Poring Catcher]";
mes "Поздравляю. Ты победил.";
close2;
announce "Poring Catcher: А теперь посмеемся над, "+.@name$+". - который попытался обмануть сервер!",0;
warp "prontera",155,182;
end;
L_PORING:
mes "Скажи свое имя";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Poring Catcher]";
mes "Это твое имя?";
close;
}
mes "[Poring Catcher]";
mes "Поздравляю. Вы победили.";
close2;
announce "Poring Catcher: Победитель, "+.@name$+"!",0;
getitem 7539,5;
set PORING,0;
warp "prontera",155,182;
hideonnpc "Poring Catcher#evnt2";
end;

OnEnable:
mapannounce "poring_w01","Poring Catcher: Я призову 100 разных Порингов.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher: И только 1 будем настоящий.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher: Только у одного поринга будет имя: Poring, а у остольных будут другие имена.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher: Кто убьет неправельного поринга покинет игру.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher: Первый кто убьет настоящего Поринга - победитель!",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher: И так начнем",0;
goto L_Start;
end;

L_Start:
mapannounce "poring_w01","Poring Catcher: 5",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher: 4",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher: 3",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher: 2",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher: 1",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher: Начали!",0;
areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poring win::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"pori nglose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"pori nglose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poring lose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poring lose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poring lose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"por inglose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"porin glose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringl ose::OnMobKilled";
end;
}
- script poringwin -1,{
OnMobKilled:
dispbottom "Poring: Молодец. Ты победитель";
set PORING,1;
atcommand "@doommap";
killmonster "poring_w01","All";
mapannounce "poring_w01","Poring Catcher: Подойди ко мне и скажи свое имя.",0;
hideoffnpc "Poring Catcher#evnt2";
end;
}
- script poringlose -1,{
OnMobKilled:
dispbottom "Poring Catcher : Ха-ха-ха! Ты проиграл!!!";
warp "prontera",155,178;
end;
}
// -- Mapflags
poring_w01 mapflag nowarp
poring_w01 mapflag nowarpto
poring_w01 mapflag noteleport
poring_w01 mapflag nosave
poring_w01 mapflag nomemo
poring_w01 mapflag nobranch
poring_w01 mapflag noloot
poring_w01 mapflag noskill
poring_w01 mapflag nopenalty

Re: Авто эвенты

Добавлено: 23 июн 2010, 13:32
Lazybloke
Volody, начало в 08-00, 14-00, 19-40.
Часовой пояс: UTC+03:00
Страница 1 из 2

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB