Joomla Template Membership Club

Голосуй

  • Голосовать
  • Статистика

     
    [ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
    • Страница 1 из 1
    • 1
    MVP Эвент
    WOlFДата: Понедельник, 16.03.2009, 08:57 | Сообщение # 1
    Анубис
    Группа: Администраторы
    Сообщений: 136
    Репутация: 1
    Статус: Offline
    Code
    //Мапфлаги.
    pvp_n_3-3 mapflag nosave SavePoint
    pvp_n_3-3 mapflag noteleport
    pvp_n_3-3 mapflag nowarp
    pvp_n_3-3 mapflag nowarpto
    pvp_n_3-3 mapflag nobranch
    pvp_n_3-3 mapflag noicewall
    pvp_n_3-3 mapflag noreturn
    pvp_n_3-3 mapflag pvp off

    //Проверки.
    //Проверка на смерть на локе.Если умер - сразу в пронту.
    - script MVP-Event -1,{
    OnPCDieEvent:
    if (getmapxy(.@mapname$,.@mapx,.@mapy,0,strcharinfo(0)) == 0)
    if (.@mapname$ == "pvp_n_3-3") {
    sleep2 2000;
    warp "prontera",154,92;
    }
    OnInit:
    // Вырубаем event-warpa.Чтобы не появлялся при запуске,а появлялся когда надо.
    disablenpc "EV1";
    end;
    }

    //Эвент часть.
    //После включения ручками или автоматически появляется варпер.Ах ты жук,давай же спросим,хочет ли игрок помутузить мвп >.<
    prontera,50,50,1 script Warper::EV1 790,{
    mes "Здраствуйте.Я варпер на MVP-Event.";
    next;
    mes "На карте где проходит эвент собралось уже "+getmapusers("pvp_n_3-3")+" игроков.";
    next;
    mes "Хочешь принять участие в нем?";
    switch( select("Да,конечно!","Нет.","Расскажи мне про MVP-Event" ) )
    {
    //Варпаем игрока.
    case 1:
    if (getmapusers("pvp_n_3-3")>100) goto full;
    warp "pvp_n_3-3",99,95;
    close;
    //Желаем всего хорошего.
    case 2:
    mes "Досвидание,приятной игры.";
    close;
    //Рассказываем про эвент.
    case 3:
    mes "На этом эвенте будут вызваны страшные MVP!";
    next;
    mes "Которых вам с вашими друзьями,а так же другими игроками надо убить!";
    next;
    mes "Эвент продлится 20 минут,этого времени должно хватить на 10 MVP";
    next;
    mes "Если же монстры убьют всех игроков,эвент автоматически остановится.";
    next;
    mes "Если же игроки убьют всех монстров,то оставшихся живых на мапе,варпанет в пронту.";
    next;
    mes "В MVP-Event могут принять участие 100 человек.";
    next;
    mes "Хотите принять участие в MVP-Event?";
    switch( select("Да","Нет" ) )
    {
    case 1:
    if (getmapusers("pvp_n_3-3")>100) goto full;
    warp "pvp_n_3-3",99,95;
    close;
    case 2:
    mes "Досвидание,приятной игры.";
    close;
    }
    }
    full:
    mes "К сожалению 100 игроков уже пришли на MVP-Event.";
    close;
    }

    //Месаги.
    - script MVP-Event-MSQ::MSQ -1,{
    OnPCLoginEvent:
    OnTimer5000:
    mapannounce "pvp_n_3-3","Добро пожаловать на MVP-Event",0;
    sleep 10000;
    mapannounce "pvp_n_3-3","Как проходит эвент,вы можете прочитать у MVP-Event-Warper`a,а так же на форуме.",0;
    sleep 10000;
    mapannounce "pvp_n_3-3","Давайте подождем минут 5,пока соберутся другие игроки.",0;
    sleep 10000;
    disablenpc "EV1";
    mapannounce "pvp_n_3-3","Первый монстр запущен!Angeling!",0;
    initnpctimer "GHunting";
    monster "pvp_n_3-3",86,86,"Angeling",1096,1,"MobS::OnMobKilled";

    }

    - script MobS -1,{

    OnMobKilled:
    mapannounce "pvp_n_3-3","Первый монстр мёртв![ 1 / 10 ] ",0;
    mapannounce "pvp_n_3-3","Второй монстр запущен!Develing! ",0;
    monster "pvp_n_3-3",113,84,"Deviling",1582,1,"MobS::OnDevKilled";
    end;

    OnDevKilled:
    mapannounce "pvp_n_3-3","Второй монстр мёртв![ 2 / 10 ] ",0;
    mapannounce "pvp_n_3-3","Третий монстр запущен!Golden Thief Bug! ",0;
    monster "pvp_n_3-3",112,113,"Golden Thief Bug",1086,1,"MobS::OnGTBKilled";
    end;

    OnGTBKilled:
    mapannounce "pvp_n_3-3","Третий монстр мёртв![ 3 / 10 ] ",0;
    mapannounce "pvp_n_3-3","Четвёртый монстр запущен!Eddga! ",0;
    monster "pvp_n_3-3",89,111,"Eddga",1115,1,"MobS::OnEddgaKilled";
    end;

    OnEddgaKilled:
    mapannounce "pvp_n_3-3","Четвёртый монстр мёртв! [ 4 / 10 ]",0;
    mapannounce "pvp_n_3-3","Пятый монстр запущен!Moonlight Flower! ",0;
    monster "pvp_n_3-3",112,113,"Moonlight Flower",1150,1,"MobS::OnArcKilled";
    end;

    OnArcKilled:
    mapannounce "pvp_n_3-3","Пятый монстр мёртв! [ 5 / 10 ]",0;
    mapannounce "pvp_n_3-3","Шестой монстр запущен!Archangeling! ",0;
    monster "pvp_n_3-3",112,113,"Archangeling",1388,1,"MobS::OnGhostKilled";
    end;

    OnGhostKilled:
    mapannounce "pvp_n_3-3","Шестой монстр мёртв! [ 6 / 10 ]",0;
    mapannounce "pvp_n_3-3","Седьмой монстр запущен!Ghostring! ",0;
    monster "pvp_n_3-3",112,113,"Ghostring",1120,1,"MobS::OnAtroceKilled";
    end;
    OnAtroceKilled:
    mapannounce "pvp_n_3-3","Седьмой монстр мёртв! [ 7 / 10 ]",0;
    mapannounce "pvp_n_3-3","Восьмой монстр запущен!Atroce! ",0;
    monster "pvp_n_3-3",112,113,"Atroce",1785,1,"MobS::OnGloomKilled";
    end;
    OnGloomKilled:
    mapannounce "pvp_n_3-3","Восьмой монстр мёртв! [ 8 / 10 ]",0;
    mapannounce "pvp_n_3-3","Девятый монстр запущен!Gloom Under Night! ",0;
    monster "pvp_n_3-3",112,113,"Gloom Under Night",1768,1,"MobS::OnVesperKilled";
    end;
    OnVesperKilled:
    mapannounce "pvp_n_3-3","Девятый монстр мёртв! [ 9 / 10 ]",0;
    mapannounce "pvp_n_3-3","Десятый монстр запущен!Vesper! ",0;
    monster "pvp_n_3-3",112,113,"Vesper",1685,1,"MobS::OnGHEND";
    end;

    OnGHEND:
    mapannounce "pvp_n_3-3","Десятый монстр мёртв![ 10 / 10 ] ",0;
    announce "Эвент удался на славу,не один монстр не выжил!",0;
    initnpctimer "GHWin";
    stopnpctimer "GHunting";
    end;

    }

    pvp_n_3-3,49,49,5 script GHWin -1,{

    OnTimer5000:
    mapwarp "pvp_n_3-3","prontera.gat",156,191;
    end;

    }

    pvp_n_3-3,49,49,5 script GHunting -1,{

    OnTimer300000:
    announce "На этот раз победа за монстрами!",0;
    mapwarp "pvp_n_3-3","prontera.gat",156,191;
    killmonsterall "pvp_n_3-3";
    end;
    }

    //Авто/Ручное включение эвента.
    prontera,50,51,1 script MVP-Event-Start#1 800,{
    mes "Start?";
    switch( select("Yes") )
    {
    case 1:
    mes "WORK!";
    enablenpc "EV1";
    close;
    }
    }
     
    • Страница 1 из 1
    • 1
    Поиск:

    Опрос

    Оцените мой сайт
    Всего ответов: 108

    Авторизация

    Понедельник
    12.01.2026
    18:09

    Адаптация EvilDM,Сайт WOlF ©