Тема: Бесплатное написание автоэвентов

Бесплатное написание автоэвентов

Автор: DiS[IP]: Дата: 06.11.2009

Так как я на данный момент имею большое кол-во свободного времени и готов уделять время еА,предлагаю вам бесплатное написание автоэвентов.Пишу довольно быстро и качественно.От вас требуется полное описание эвента.
P.S:Типичные эвенты не пишу.Троллинг и флуд в теме не разводить.

Автор: DiS[IP]: Дата: 06.11.2009

To Killer:Для красоты )
To hajikov:

//Created by Dis[IP]



///////////////////////







prontera,140,180,6    script    Deviling    1582,{



     npcspeed 150;



OnTouch:



    percentheal 100,100;



    skilleffect 28,9999;



    sleep2 500;



    sc_start SC_BLESSING,300000,10;



    skilleffect 34,0;



    sleep2 500;



    sc_start SC_INCREASEAGI,300000,10;



    skilleffect 29,0;



    end;







OnTimer5000:



    getmapxy($@devilmap$,$@devilmapx,$@devilmapy,1);



    npcwalkto $@devilmapx+rand(-10,10),$@devilmapy+rand(-10,10);



OnTimer10000:



    setnpctimer 0;



devilsay:



        set @emotion, rand(5);



    if (@emotion==0) emotion e_slur;



    if (@emotion==1) emotion e_gg;



    if (@emotion==2) emotion e_kis;



    if (@emotion==3) emotion e_bzz;



    if (@emotion==4) emotion e_yawn;



    end;



OnInit:



     initnpctimer;



        end;



}

To NesterRo:Cейчас напишу,жди.

Автор: DiS[IP]: Дата: 06.11.2009

To NesterRo:Писал на коленке.Если что поправишь сам.

////////////////////////////////////



//Created by DiS[IP] For NesterRo//



//////////////////////////////////







-    script    start_event    -1,{







OnClock2100:



    initnpctimer;



    pvpoff "guild_vs2";



OnTimer0:



     announce "ПВП Эвент начнётся через 3 минуты!",0,0x00ff00;



     end;







OnTimer10000:



    enablenpc "ПВП Эвент";



     announce "В пронтере появился НПС 'ПВП Эвент'.",0,0x00ff00;



     end;







OnTimer60000:



     announce "ПВП Эвент начнётся через 2 минуты!",0,0x00ff00;



     end;







OnTimer120000:



     announce "ПВП Эвент начнётся через 1 минуту!",0,0x00ff00;



     end;







OnTimer180000:



    stopnpctimer;



    disablenpc "ПВП Эвент";



    pvpon "guild_vs2";



     announce "ПВП Эвент начался!",0,0x00ff00;



     end;







OnPCDieEvent:



     if(getmapusers("guild_vs2")<2){



    dispbottom "Подойдите к НПС чтобы получить приз!";



    enablenpc "Приз";



    announce "Поздравляем "+strcharinfo(0)+"!Он победил в эвенте!",0,0x00ff00;



    sleep2 5000;



    announce "Следующий эвент начнется завтра в 21 00!",0,0x00ff00;



 



}







guild_vs2,50,50    script    Приз    922,{



    specialeffect2 14;



    npctalk strcharinfo(0) + ", удачи!";



    getitem    7227,3;



    warp "prontera",156,180;



    end;



OnInit: 



    disablenpc "Приз";



end;



}







prontera,150,190,5    script    ПВП Эвент    811,{



    set .npc$,"[ПВП Эвент]";



    mes .npc$;



    mes "Здраствуйте,"+strcharinfo(0)+"!Хотите принять участие в ПВП эвенте?";



    next;



    switch(select("Да","Нет")){



case 1:



    warp "guild_vs2",0,0;



    close;



case 2:



    close;



OnInit:



    disablenpc "ПВП Эвент";



    end;



}

Автор: DarkWolf: Дата: 06.11.2009

видел у анубиса норм евент, примерно такойже, когда в пронте появляется нпс варпает на поле,ну и там дается время, можно партию собрать( в конце оставшийся получает приз)если можешь сделай)я тока не помню название арены
евент назывался помойму *Битва* не помню(

Автор: hajikov: Дата: 06.11.2009

Originally posted by wolf;13538
видел у анубиса норм евент, примерно такойже, когда в пронте появляется нпс варпает на поле,ну и там дается время, можно партию собрать( в конце оставшийся получает приз)если можешь сделай)я тока не помню название арены

Вроде тоже самое что и для нестера. Ты напиши в чем они должны различаются а то я что-то не въехал в тему.

Автор: NesterRo: Дата: 06.11.2009

Спасибки большое надеюсь он работает !. Вот еще маленький прозьба с автоивентами .
1.ну єто сложний скрипт я так думаю "Турнир гильдий"
вобщем в пронте по вторниками четвергам и воскресенья появляетса нпс в пронте турнир гильдий , ну идёт анонс что начинаетса автоивент турнир гильдий и начинаетса регистрация гильдий регестрировать могут только гм гильдий , регистрация проходит , єти 2 гильдии отпровляютса на турнир и идёт анонс что название гильдии будет сражатса с названием гильдии после того как битва закончитса следущие 2 гильдии могут проходить регистрацию , а те что сражались уже дальше немогу принемать участие только в следущий ивент та гильдия каторая победит все согельдийцы получают по 1 тсг карте , а гм гильдии получает 3 тсг .... ну и добавь что-то своё , очень прошу напиши пожалуйста скрипт давно хотел релиозовать !

Автор: DarkWolf: Дата: 06.11.2009

я локу не помню которая была на кулро, если знаеете напишите локацию из евента Битва)

Автор: hajikov: Дата: 06.11.2009

Originally posted by wolf;13541
я локу не помню которая была на кулро, если знаеете напишите локацию из евента Битва)

Кто о чем, а волка все в лес тянет, в смысле он все карты ищет.

Не важно на какой карте будет эвент, можешь и свою нарисовать.

Автор: kaktyc: Дата: 06.12.2009

просьба написать скрипт на гв пн чт сб в 21.00 на один замок,в пронте посерединке...пожХ_х

Автор: kaktyc: Дата: 06.12.2009

я нубиллло мне можно Х_х

Автор: ArTuR: Дата: 06.12.2009

Originally posted by 'Dis[IP
;13521']Так как я на данный момент имею большое кол-во свободного времени и готов уделять время еА,предлагаю вам бесплатное написание автоэвентов.Пишу довольно быстро и качественно.От вас требуется полное описание эвента.
P.S:Типичные эвенты не пишу.Троллинг и флуд в теме не разводить.

Привет! можешь если не трудно написать такой евент!) в определённое время анонсом на весь сервак орёт типа начался такой-такой та евент через там для примерна 5 мин появиться в пронте варп на мапу poring_w01. так теперь когда люди туда заходят им для примера дают 3 мин и евент начинается! на Этой мапе поевляеться несколько бычком)) но которые тоже такие по силе норм)) на этой мапе хавать кроме White Potion нельзя ничего) а в приз после того как убили бычков дают для примера 5 Bloody Branch=) ну я думаю вам понятен смысл если нет то отпишитесь пожалуйста):):) и ещё по бычкам можно быть ток как по Plant!

Автор: DiS[IP]: Дата: 06.13.2009

Cпасибо за нормальное описание.Эвент написал.Тебе надо только в eA/db/no_equip.txt добавить поты и ягоды,которые нельзя будет использовать на эвенте.За моба на эвенте взял Golden Savage(1840),чтобы дамаг был как по грибам или планту.

Скрипт:

//##########################################################################



// ______            _          _              _____   _     _____ ______  #



//|  ___           | |        | |            (____  (_)   (_____|_____  #



//| | _ | | ____  _ | | ____   | | _  _   _    _     _  ___  _   _____) )#



//| || || |/ _  |/ || |/ _  )  | || | | | |  | |   | | |/___)| | |  ____/ #



//| || || ( ( | ( (_| ( (/ /   | |_) ) |_| |  | |__/ /| |___ || |_| |      #



//|_||_||_|_||_|____|____)  |____/ __  |  |_____/ |_(___(_____)_|      #



//                                   (____/                     #



//##########################################################################







// Автовключение //







-    script    start_event    -1,{







OnClock1000:



OnClock1100:



OnClock1200:



OnClock1300:



OnClock1220:







donpcevent "Варп на эвент::OnBattle";



announce "Эвент 'Охота на бычков' начался!В Пронтере появился НПС 'Варпер на эвент'!",0,0x00ff00;



sleep 5000;



announce "У вас есть 3 минуты для регистрации!",0,0x00ff00;



sleep 5000;



announce "Главный приз эвента 5 Bloody Branch!",0,0x00ff00;



}







// НПС 'Варп на эвент' и т.д //







prontera,150,190,5    script    Варп на эвент    811,{



    mes "Привет "+strcharinfo(0)+" !Хочешь принять участие в эвенте 'Охота на бычков'?";



    switch(select("Да,конечно","Нет,спасибо","Узнать правила эвента")){







case 1:



    warp "poring_w01",0,0;



    close;







case 2:



    close;







case 3:



    mes "Правила очень просты.После того как вы попадете на карту где будет происходить эвент вам будет дано 3 минуты";



    mes "для подготовки к эвенту.Потом на карту будет вызвано несколько бычков,которых вам надо убить.";



    mes "На эвенте можно есть только White Potion,остальные хил итемы запрещены.Главный приз эвента 5 Bloody Branch!";



    mes "Дамаг по бычку идет как по всем растениям и грибам!";



    close; 







OnInit:



    disablenpc "Варп на эвент";



    end;







OnBattle:



    initnpctimer;



    enablenpc "Варп на эвент";



    disablenpc "Приз";



    end;







OnTimer0:



     announce "Эвент 'Охота на бычков' начнется через 3 минуты!",0,0x00ff00;



     end;







OnTimer60000:



      announce "Эвент 'Охота на бычков' начнется через 2 минуты!",0,0x00ff00;



     end;







OnTimer120000:



     announce "Эвент 'Охота на бычков' начнется через 1 минуту!",0,0x00ff00;



     end;







OnTimer150000:



     mapannounce "poring_w01","Через 30 секунд будут призваны бычки",1;



     end;







OnTimer180000:



    stopnpctimer;



    disablenpc "Варп на эвент";



    if(getmapusers("poring_w01")<1){



    mapannounce "poring_w01","Эвент отменяется так как собралось на карте меньше 2 человек!",bc_map;



    mapwarp "poring_w01","prontera",150,190;



    end;



    }



    set $savage,10;



    monster "poring_w01",0,0,"Злой бычок",1840,10,"Варп на эвент::OnSavageDeath";



     announce "Эвент 'Охота на бычков' начался!Удачи!",0,0x00ff00;



    initnpctimer "Timer";



     end;







OnSavageDeath:



    set $savage,$savage -1;



    if($savage == 5) goto sav5;



    if($savage == 1) goto sav1;



    if($savage == 0) goto prize;



    close;







sav5:



    announce "На карте осталось 5 бычков!",bc_map,0x4EEE94;



    end;







sav1:



    announce "На карте остался последний бычок!",bc_map,0x4EEE94;



    end;







prize:



    enablenpc "Приз";



    announce "Все бычки уничтожены!Все оставшиеся на карте могут получить приз!",bc_map,0x4EEE94;



    end;



}



}







// 'Таймер' //







poring_w01,50,50,5    script    Timer    -1,{







OnTimer10000:



    if (getmapusers("poring_w01")==0) goto offevent;



    mapannounce "poring_w01",getmapusers("poring_w01") + " Игрока/ов осталось на карте!",0;



    initnpctimer;



    end;



offevent:



    announce "Все игроки были убиты злыми бычками!",0,0x00ff00;



    killmonsterall "poring_w01";



    end;



}







// НПС 'Приз' //







poring_w01,50,50,5    script    Приз    922,{



    specialeffect2 14;



    npctalk strcharinfo(0) + ", получает приз и отправляется в пронту!";



    getitem    12103,5;



    warp "prontera",150,190;



    end;



OnInit: 



    disablenpc "Приз";



    end;



}







// Мапфлаги //







poring_w01    mapflag    nomemo



poring_w01    mapflag    nowarpto



poring_w01    mapflag    noskill



poring_w01    mapflag    noteleport



poring_w01    mapflag    nosave    SavePoint



poring_w01    mapflag    nowarp



poring_w01    mapflag    noreturn



poring_w01    mapflag    restricted    5







/////////////////////////////////



//Сreated by DiS[IP] for АрТуР//



///////////////////////////////