Сервер LazyRO

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

Предлагаю ввести авто евенты

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

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

Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 09:28
Rage
Можно ввести авто евенты,кроме мвп атаки на города.
К примеру в альдебанаре стоит нпц,каждые пол часа начинатся рандомный эвент,что сообщается на весь мир,бежишь в альдебаран и регаешься на эвент
Как призы можно ввести Тцг карты или любые другие итемы.К примеру всем известные евенты:Абракадабра,RFYL.кубик,пвп эвент можно еще.
еще можно сделать так: каждый час в любом рандомно городе поялвяются ~100-200 порингов,и только в одноим из них лежит неекое кол-во тцг карт,ведь не все игроки могут получать тцг с мвп ибо не успевают их убивать и рулят только чампы на таких эвентах :baby:

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 10:08
lucky
и это написал чамп)которому ну очень срочно нужно море тцг :ag:
за автоэвенты-но абракадабра не автоевент :pardon:

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 13:29
Rage
Почему срочно?) просто так будет гороздо интереснее,чем один эвент на всем серве.А вот абра какраз авто,можно создать моба который будет рандомно юзать скиллы на игрока,тобишь вызывается определнный игрок,подходит к мобу,тот юзает на него скилл,если повезло-он отходит идет следующий игрок и так пока останется 1

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 13:57
lucky
не видел ни разу такую абру-всегда проводил живой человек-либо Гм ли бо хелпер.
если не срочно зачем писать в сообщениях в пронте о покупке "СРОЧНО!111" :ag: в тот момент прям горит горит? :ag: :ag: :ag:

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 14:13
Rage
Та не) я агаты покупаю а не тцг

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 14:14
Rage
да какая вообще разница срочно-не срочно главное интереснее играть будет

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 19:02
Volody
Если нужны скрипты я могу выдать =)))
Вот например:

Скрипт на авто-эвент "супер кубик"

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

prontera,152,168,4	script	Супер кубик Ивент	71,{ 

if ( $@KUB != 0 ) goto Roman; 
mes	"[Супер кубик Ивент]"; 
mes	"Привет!Я провожу ивент с названием:"; 
mes "..................................."; 
mes "^0000FF Супер кубик Ивент ^000000"; 
mes "..................................."; 
next; 
mes	"[Супер кубик Ивент]"; 
mes	"Ты хочеш попасть на ивент?"; 
next; 
menu	"Да",HK_D,"Нет",HK_N; 

HK_D: 
mes	"[Супер кубик Ивент]"; 
mes	"Хорошо!Щас вы будуте телепортированы в комнату ожыдания"; 
next; 
warp	"quiz_00",12,110; 
close; 

HK_N: 
mes	"[Супер кубик Ивент]"; 
mes	"Тогда увидимся в следущий раз =)"; 
close; 

Roman: 
mes	"[Супер кубик Ивент]"; 
mes	"Сорь,но ивент уже запущен."; 
mes	"Приходите когда будет набор людей"; 
close; 
} 

quiz_00,0,0,0	script	Event_Kubik	-1,{ 

OnClock1500: 
OnInit: 
callfunc	"Walk_Off"; 
disablenpc	"Виходимс"; 
set	$@KUB,1; 
end; 
OnMinute00: 
killmonsterall	"quiz_00"; 
set $@KUB,0; 
announce	"Начался набор людей на Супер кубик Ивент !",0; 
sleep 15000; 
announce	"Продолжается набор людей на Супер кубик Ивент.Через 3 мин начало ивента !",0; 
sleep 60000; 
announce	"Продолжается набор людей на Супер кубик Ивент.Через 2 мин начало ивента !",0; 
sleep 60000; 
announce	"Продолжается набор людей на Супер кубик Ивент.Через 1 мин начало ивента !",0; 
sleep 30000; 
announce	"Набор людей на Супер кубик Ивент закончен !",0; 
if ( getareausers("quiz_00",10,131,27,100) == 1 ) goto L_LMF; 
set $@KUB,1; 
areaannounce	"quiz_00",4,131,27,100,"До начала выкидывания кубика осталось 30 секунд.Просим занять места на кубиках с цифрами !",0; 
sleep 28000; 
areaannounce	"quiz_00",4,131,27,100,"Приготовились !!!",0; 
sleep 2000; 
callfunc	"Main_function1"; 
end; 
L_LMF: 
announce	"Ивент Супер кубик отменяется,ибо на ивент пришел только 1 игрок !",0; 
sleep 5000; 
areawarp	"quiz_00",4,125,27,100,"prontera",155,177; 
end; 
} 

function	script	Main_function2	{ 
if (getareausers("quiz_00",10,131,27,100) == 0 ) { 
announce	"Конец Ивента Супер кубик.Победителей нету !",0; 
stopnpctimer	"Event_Kubik"; 
return; 
end; 
} else 
if (getareausers("quiz_00",10,131,27,100) == 1 ) { 
areaannounce	"quiz_00",4,131,27,100,"Выпало число - "+$@random,0; 
announce	"Конец Ивента Супер кубик.Есть 1 победитель !",0; 
callfunc	"Walk_On"; 
mapannounce	"quiz_00","Заберите свой приз, и тогда сможете выйти !",0; 
stopnpctimer	"Event_Kubik"; 
enablenpc "Виходимс"; 
monster	"quiz_00",5,108,"Приз в студию",1360,1; 
sleep 5000; 
areawarp	"quiz_00",4,131,8,120,"prontera",155,177; 
return; 
end; 
} else { 
if (getareausers("quiz_00",10,131,27,100) >= 2 ) { 
areaannounce "quiz_00",4,131,27,100,"Выпало число - "+$@random,0; 
areaannounce "quiz_00",4,131,27,100,"У вас 10 секунд,чтоб поменять позицыю",0; 
sleep 10000; 
callfunc "Main_function1"; 
return; 

} 
} 
} 
function	script	Main_function1	{ 
set $@random,rand(1,6); 
callfunc "Enable_k"+$@random; 
callfunc "Enable_other"; 
callfunc "Main_function2"; 
return; 
} 

quiz_00,4,106,4	script	Виходимс	71,{ 
mes	"[ Ивент Супер кубик ]"; 
mes	"Подравляю с победой !!!"; 
next; 
warp	"SavePoint",0,0; 
close; 
} 

function	script	Enable_other	{ 
//Все,кроме кубиков 
areawarp	"quiz_00",10,131,11,124,"quiz_00",7,122; 
areawarp	"quiz_00",12,129,26,126,"quiz_00",7,122; 
areawarp	"quiz_00",22,121,27,106,"quiz_00",7,122; 
areawarp	"quiz_00",10,121,17,108,"quiz_00",7,122; 
areawarp	"quiz_00",10,107,13,100,"quiz_00",7,122; 
areawarp	"quiz_00",14,105,17,100,"quiz_00",7,122; 
areawarp	"quiz_00",16,107,17,106,"quiz_00",7,122; 
areawarp	"quiz_00",18,111,21,102,"quiz_00",7,122; 
areawarp	"quiz_00",18,101,19,100,"quiz_00",7,122; 
areawarp	"quiz_00",22,101,25,100,"quiz_00",7,122; 
areawarp	"quiz_00",24,103,26,102,"quiz_00",7,122; 
areawarp	"quiz_00",26,105,27,104,"quiz_00",7,122; 
areawarp	"quiz_00",18,125,21,116,"quiz_00",7,122; 
areawarp	"quiz_00",20,115,21,114,"quiz_00",7,122; 
areawarp	"quiz_00",14,123,17,122,"quiz_00",7,122; 
areawarp	"quiz_00",14,125,15,124,"quiz_00",7,122; 
areawarp	"quiz_00",22,125,23,122,"quiz_00",7,122; 
areawarp	"quiz_00",26,125,27,122,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k1	{ 
//Кубики - 1 
areawarp	"quiz_00",12,125,13,124,"quiz_00",7,122; 
areawarp	"quiz_00",24,125,25,124,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k2	{ 
//Кубики - 2 
areawarp	"quiz_00",24,123,25,122,"quiz_00",7,122; 
areawarp	"quiz_00",20,101,21,100,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k3	{ 
//Кубики - 3 
areawarp	"quiz_00",22,105,23,104,"quiz_00",7,122; 
areawarp	"quiz_00",12,123,13,122,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k4	{ 
//Кубики - 4 
areawarp	"quiz_00",10,123,11,122,"quiz_00",7,122; 
areawarp	"quiz_00",18,113,21,112,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k5	{ 
//Кубики - 5 
areawarp	"quiz_00",18,115,19,114,"quiz_00",7,122; 
areawarp	"quiz_00",24,105,25,104,"quiz_00",7,122; 
return; 
} 

function	script	Enable_k6	{ 
//Кубики - 6 
areawarp	"quiz_00",22,103,23,102,"quiz_00",7,122; 
areawarp	"quiz_00",14,107,15,106,"quiz_00",7,122; 
areawarp	"quiz_00",16,125,17,124,"quiz_00",7,122; 
return; 
} 

function	script	Walk_Off	{ 
setcell	"quiz_00",9,125,9,120,cell_walkable,0; 
setcell	"quiz_00",9,111,9,106,cell_walkable,0; 
return; 
} 

function	script	Walk_On	{ 
setcell	"quiz_00",9,111,9,106,cell_walkable,1; 
return; 
}

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 19:13
Volody
вот ещё скрипт

Авто эвент Коллекционер

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

//---Авто-Эвент Коллекционер---//
//---Дата написания: 23 Сентября 2009 года.---//
//---Скрипт написал Restandik (Premium-Ro/Old School) (ICQ: 424-893-230)---//

prontera,162,184,3	script	Коллекционер	794,{
mes "[^FF8000Коллекционер^000000]";
mes "Здравствуууй "+strcharinfo(0)+"!";
mes "Я не обычный Коллекционер! Я собираю Карты!";
mes "Сейчас мне надо, чтобы ты принес";
mes "Следующее: ^FF0000["+getitemname($itemid777)+"]^000000";
next;
menu "Я принес!",WOEYES,"Я не смог.",WOENO;
WOEYES:
if((countitem($itemid777)<1)) goto WOENO;
delitem $itemid777,1;
getitem 7227,1;
stopnpctimer;
disablenpc "Коллекционер";
announce "Коллекционер: победил(победила) - "+ strcharinfo(0) +"! и получил TCG Card, Поздравляем!",0,0xE38217;
next;
mes "[^FF8000Коллекционер^000000]";
mes "Спасибо за карту ^FF0000["+getitemname($itemid777)+"]^000000 !!!";
close;
WOENO:
mes "[^FF8000Коллекционер^000000]";
mes "Не чего страшного! Я ещё дам о себе знать, будь готов!";
close;
OnClock0245:
OnClock0345:
OnClock0445:
OnClock0545:
OnClock0745:
OnClock1045:
OnClock1245:
OnClock1445:
OnClock1545:
OnClock2345:
initnpctimer;
set $itemid777,rand(4001,4100);
enablenpc "Коллекционер";
announce "Коллекционер: необходима помощь, у вас есть 3 минуты!",0,0xE38217;
end;
OnTimer60000:
 announce "Коллекционер: необходима помощь, у вас есть 2 минуты!",0,0xE38217;
end;
OnTimer120000:
announce "Коллекционер: необходима помощь, у вас есть 1 минута!",0,0xE38217;
end; 
OnTimer175000:
announce "Коллекционер: необходима помощь, у вас осталось 5 секунд",0,0xE38217;
end; 
OnTimer176000:
announce "Коллекционер: необходима помощь, у вас осталось 4 секунды",0,0xE38217;
end; 
OnTimer177000:
announce "Коллекционер: необходима помощь, у вас осталось 3 секунды",0,0xE38217;
end; 
OnTimer178000:
announce "Коллекционер: необходима помощь, у вас осталось 2 секунды",0,0xE38217;
end; 
OnTimer179000:
announce "Коллекционер: необходима помощь, у вас осталось 1 секунда",0,0xE38217;
end; 
OnTimer180000:
 announce "Коллекционер не получил необходимую карту!",0,0xE38217;
sectorgaza:
disablenpc "Коллекционер";
end;
}
-	script	PremiumRo_scrip	-1,{
OnInit:
disablenpc "Коллекционер";
end;
}

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 19:21
Volody
Авто эвент "Stop the clock"

думаю пока хватит....

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

prontera,172,203,4    script    Stop The Clock::Ev_StopClock    924,{ 
 if (getgmlevel() == 99) goto L_GM;     
    if ($@kc > 0 && @kcid != $@kcid) goto L_eventstarted; 
    mes "[Stop The Clock]"; 
    mes "Здравствуй ^FF0000"+strcharinfo(0)+"^000000, чем могу помочь?"; 
    menu "^FF0000[Stop The Clock]^000000 информация",L_info,"Выход",-; 
    close; 
     
L_info: 
   next; 
   mes "[Stop The Clock]"; 
   mes "^FF0000Stop the clock^000000 это игра, где нужно кликать на нпц"; 
   next; 
   mes "[Stop The Clock]"; 
   mes "Человек, который часы ближе к 1000 остановит, победит!"; 
   mes "^FF0000[Note] Чтобы иметь шанс к победе нужно оставить часы от 950 до 1000^000000"; 
   next; 
   mes "[Stop The Clock]"; 
   mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000"; 
   close; 
   
L_eventstarted: 
            set @kcid,$@kcid; 
            setd ".timing_" + .number, $@kc; 
            setd ".player_" + .number + "$", strcharinfo(0); 
            set .number, .number+1; 
            if ($@kc == 1000) { 
         announce "ДжекПот! "+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF; 
      } else { 
            announce ""+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF; 
            } 
         end; 
     
L_GM: 
      mes "[Stop The Clock]"; 
      mes "Дарова Администратор, что хотели?"; 
      mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000"; 
      menu "Изменить приз",L_configure,"Начать эвент",-,"Остановить эвент",L_stop; 
      if (.start == 1) goto L_started; 
      next; 
      mes "[Stop The Clock]"; 
      mes "Эвент стартовал"; 
      close2; 
       
L_startevent: 
      set .start, 1; 
        announce "[Stop The Clock] Старт через 1 минуту!",0,0xE38217; 
        initnpctimer; 
        end;         
OnTimer30000: 
        if (.start == 0) goto L_suddenstop; 
        announce "[Stop The Clock] Старт через 30 секунд!",0,0xE38217; 
      end;       
OnTimer50000: 
        if (.start == 0) goto L_suddenstop; 
        announce "[Stop The Clock] Старт через 10 секунд!",0,0xE38217; 
        end; 
OnTimer55000: 
        if (.start == 0) goto L_suddenstop; 
        announce "[Stop The Clock] Старт через 5 секунд!",0,0xE38217; 
OnTimer60000: 
        if (.start == 0) goto L_suddenstop; 
      announce "[Stop The Clock] Начался! Клик, клик!",0,0xE38217; 
      stopnpctimer; 
        set .number, 1; 
        set .count, 1000; 
        set .winner, 0; 
        set $@kc,0; 
        set $@kci,0; 
        set $@kcid,rand(100000,999999); 
        while ($@kc < 1100) { 
            set $@kc,$@kc+1; 
            set $@kci,$@kci+1; 
            if ($@kci == 100 || ($@kci == 10 && $@kc > 600) || ($@kci == 1 && $@kc >= 950 && $@kc < 1050)) { 
            if (.start == 0) goto L_suddenstop; 
            announce $@kc,0; 
                set $@kci,0; 
                specialeffect 18; 
            } 
         sleep 10; 
        } 
        set $@kc,0; 
        set .start, 0; 
        set .players, .number+1; 
         
OnFinish: 
      sleep 1; 
      if (.count == 949) goto OnFinish3; 
      if (getd(".timing_" + .number) == .count) goto L_winner1; 
      set .number, .number-1; 
      if (.number != 0) goto OnFinish; 
      set .number, 1; 
      if (.winner == 1) goto OnFinish3; 
      set .count, .count-1; 
       
OnFinish2: 
      sleep 1; 
      if (.count == 949) goto OnFinish3; 
      if (getd(".timing_" + .number) == .count) goto L_winner2; 
      set .number, .number+1; 
      if (.number != .players) goto OnFinish2; 
      set .number, .number-1; 
      if (.winner == 1) goto OnFinish3; 
      set .count, .count-1; 
      goto OnFinish; 
       
L_winner1: 
      if (getd(".timing_" + .number) == 1000) { 
      announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0; 
      charcommand "#item " + $itemid + " 2 " + getd(".player_" + .number + "$"); 
   } else { 
      announce ""+getd(".player_" + .number + "$")+" wins!",0; 
      charcommand "#item " + $itemid + " 1 " + getd(".player_" + .number + "$"); 
      } 
      set .number, .number-1; 
      set .winner, 1; 
      goto OnFinish; 
       
L_winner2: 
      if (getd(".timing_" + .number) == 1000) { 
      announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0; 
      charcommand "#item " + $itemid + " 2 " + getd(".player_" + .number + "$"); 
   } else { 
      announce ""+getd(".player_" + .number + "$")+" wins!",0; 
      charcommand "#item " + $itemid + " 1 " + getd(".player_" + .number + "$"); 
      } 
      set .number, .number+1; 
      set .winner, 1; 
      goto OnFinish2; 
       
OnFinish3: 
      sleep 1; 
      set .number, .players-1; 
      while (.number != 0) { 
      set getd(".timing_" + .number), 0; 
      set .number, .number-1; 
      } 
      end; 
       
L_started: 
      next; 
      mes "[Stop The Clock]"; 
      mes "Эвент уже стартовал!"; 
      close; 
       
L_configure: 
      next; 
      mes "[Stop The Clock]"; 
      mes "Пожалуйста введите id приза."; 
      input $itemid; 
      next; 
      mes "[Stop The Clock]"; 
      mes "Уверены что хотите ^FF0000"+getitemname($itemid)+"^000000 изменить приз эвента?"; 
      menu "Да",-,"Нет",L_no; 
      next; 
      mes "[Stop The Clock]"; 
      mes "Приз изменен на ^FF0000["+getitemname($itemid)+"]^000000."; 
      next; 
      goto L_GM; 
       
L_no: 
      goto L_configure; 
       
L_stop: 
      next; 
      if (.start == 1) { 
      mes "[Stop The Clock]"; 
      mes "Эвент стартовал, уверены что хотите остановить эвент?"; 
      menu "Да",-,"Нет",-; 
       
      if (@menu == 1) { 
            next; 
            set .start, 0; 
            mes "[Stop The Clock]"; 
            mes "Эвент остановлен"; 
            next; 
            goto L_GM; 
      } else { 
            next; 
            goto L_GM; 
            } 
      } else { 
      mes "[Stop The Clock]"; 
      mes "Эвент уже начался!"; 
      close; 
      } 

L_suddenstop: 
      announce "[Stop The Clock] Эвент остановлен администрацией",0,0xE38217; 
      end; 
       
OnClock1800: 
      if (gettime(4) == 1 || gettime(4) == 3 || gettime(4) == 5 || gettime(4) == 7) end; 
      goto L_startevent; 
}

Re: Предлагаю ввести авто евенты

Добавлено: 25 фев 2010, 22:46
Amega Red
Только нпц не в альдебаране)))) Я за) Ещё можно "Найди поринга" :) И ивентера бы не помешало одного сделать :) Ну это администрации решать :)
Часовой пояс: UTC+03:00
Страница 1 из 2

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

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