Ragnarok World
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.
Ragnarok World

Помощь по вопросам игры Ragnarok Online, cкрипты, механика, установка и настройка своего сервера || The help concerning game Ragnarok Online, Scripts, mechanics, Installation and adjustment of the server.

Последние темы
» Два и более сервера Eathena || Two and more servers Eathena
Disguise Event =\ EmptyПн Окт 10, 2011 12:39 am автор LeLush16

» Aвтокликер || Autohotkey
Disguise Event =\ EmptyВт Фев 08, 2011 7:41 am автор mrbib

» ////Kobans
Disguise Event =\ EmptyПн Окт 25, 2010 10:15 am автор osiki

» Nice Stylist =)
Disguise Event =\ EmptyСр Мар 24, 2010 8:11 pm автор Kill Spirit

» Novice VS Zombie (RFYL)
Disguise Event =\ EmptyСр Мар 24, 2010 8:10 pm автор Kill Spirit

» Disguise Event =\
Disguise Event =\ EmptyСр Мар 24, 2010 8:09 pm автор Kill Spirit

» Stop The Clok
Disguise Event =\ EmptyСр Мар 24, 2010 8:08 pm автор Kill Spirit

» Warper || LastWarp
Disguise Event =\ EmptyСр Мар 24, 2010 8:07 pm автор Kill Spirit

» Насчет грфок
Disguise Event =\ EmptyСр Мар 24, 2010 8:04 pm автор Kill Spirit

Кто сейчас на форуме
Сейчас посетителей на форуме: 1, из них зарегистрированных: 0, скрытых: 0 и гостей: 1

Нет

Больше всего посетителей (59) здесь было Ср Авг 09, 2017 11:30 am
Самые активные пользователи
Kill Spirit
Disguise Event =\ I_vote_lcapDisguise Event =\ I_voting_barDisguise Event =\ I_vote_rcap 
osiki
Disguise Event =\ I_vote_lcapDisguise Event =\ I_voting_barDisguise Event =\ I_vote_rcap 
mrbib
Disguise Event =\ I_vote_lcapDisguise Event =\ I_voting_barDisguise Event =\ I_vote_rcap 
LeLush16
Disguise Event =\ I_vote_lcapDisguise Event =\ I_voting_barDisguise Event =\ I_vote_rcap 


Disguise Event =\

Ragnarok World :: Ragnarok Online :: Скрипты (нпц) || Scripts (Npc)

Перейти вниз

Disguise Event =\ Empty Disguise Event =

Сообщение  Kill Spirit Ср Мар 24, 2010 8:09 pm

Код:
zenia,190,148,2   script   Нпц Превращений      50,{

if (!$guessbegin)
{
   mes "[Disguise NPC]";
   mes "Эвент будет скоро!";
   close;
}
end;

OnStart:
   set $guessbegin, 1;
   set .DisguiseWon, 0;
   if (!$DisguiseRound)
   {
      npctalk "Окей. Начнем Евент!";
      sleep 4000;
      npctalk "Но сначала я объясню Вам, как играть в эту игру.";
      sleep 6000;
      npctalk "Я превращаюсь в случайного монстра.";
      sleep 5000;
      npctalk "Вы должны узнать имя этого монстра и сказать его в чат.";
      sleep 5000;
      npctalk "Вы можете не беспокоится о маленьких или больших первых буквах,пишите как вам надо,к примеру: Hodremlin а можно и hodremlin.";
      sleep 8000;
      npctalk "Запомнили?. Начнем!";
      sleep 5000;
   }
   else if ($DisguiseRound < 5)
   {
      npctalk "Давайте подготовимся к следующему раунду.";
      setnpctimer 0;
      sleep 8000;
   }
   else
   {   
      npctalk "Последний Раунд!";
      sleep 2000;
      npctalk "Get ready.";
      sleep 6000;
   }
   do
   {
      set $monster, rand(1001,1797);
   }
   while ($monster == 1003 || $monster == 1006 || $monster == 1017 || $monster == 1021 || $monster == 1022 || $monster == 1027 || $monster == 1043 || $monster == 1006 || $monster == 1136 || $monster == 1137 || $monster == 1168 || $monster == 1171 || $monster == 1172 || $monster == 1173 || $monster == 1181 || $monster == 1210 || $monster == 1223 || $monster == 1284 || ($monster >= 1324 && $monster <= 1363) || $monster == 1006 || $monster == 1407 || $monster == 1411 || $monster == 1414 || $monster == 1496 || $monster == 1501);
   setnpctimer 0;
   initnpctimer;
   setnpcdisplay "Disguise NPC",$monster;
   set $MonsterName$, strmobinfo(1,$monster);
   defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "OnWin";
   activatepset 1;
   npctalk "Как меня зовут?";
   sleep 2000;
   npcwalkto 107,99;
   sleep 1000;
   npcwalkto 102,99;
   sleep 1000;
   npcwalkto 102,103;
   sleep 1000;
   npcwalkto 102,99;
   end;
   
   OnTimer10000:
      if (!.DisguiseWon)
      {
         npctalk "Какой я монстр?";
         npcwalkto 107,99;
         sleep 2000;
         npcwalkto 102,99;
         sleep 2000;
         npcwalkto 102,103;
         sleep 2000;
         npcwalkto 102,99;
      }
      end;


   OnTimer25000:
      if (!.DisguiseWon)
      {
         npctalk "Никто не знает этого монстра?";
         npcwalkto 107,99;
         sleep 2000;
         npcwalkto 102,99;
         sleep 2000;
         npcwalkto 102,103;
         sleep 2000;
         npcwalkto 102,99;
      }
      end;

   OnTimer35000:
      if (!.DisguiseWon)
      {
         npctalk "У вас есть 10 секунд чтобы назвать этого монстра!";
         npcwalkto 107,99;
         sleep 2000;
         npcwalkto 102,99;
         sleep 2000;
         npcwalkto 102,103;
         sleep 2000;
         npcwalkto 102,99;
      }
      end;

   OnTimer45000:
      if (!.DisguiseWon)
      {
         npctalk "Раунд закончен.";
         set $DisguiseRound, $DisguiseRound + 1;
         sleep 3000;
         deletepset 1;
         npctalk $MonsterName$ + " это был правельный ответ.";
         sleep 5000;
         if ($DisguiseRound >= 6)
         {
            set $DisguiseRound, 0;
            sleep 3000;
            npctalk "Теперь эвент закончен!";
            sleep 3500;
            npctalk "See ya guys";
            sleep 2000;
            emotion 12;
            sleep 1000;
            mapwarp "poring_c01.gat","gonryun",158,112;
            setnpcdisplay "Disguise NPC",50;
            disablenpc "Disguise NPC";
            end;
         }
         goto OnStart;
      }
      end;

   OnWin:
      setnpctimer 0;
      deletepset 1;
      set .DisguiseWon, 1;
      set $DisguiseRound, $DisguiseRound + 1;
      sleep2 3000;
      npctalk strcharinfo(0) + " Назвал мое правильное имя",0;
      sleep2 3000;
      npctalk $MonsterName$ + " Правильный ответ";
      sleep2 3000;
      npctalk "Возьмите это как награду,приятель";
      getitem 7061,1;
      if ($DisguiseRound >= 6)
         {
            set $DisguiseRound, 0;
            sleep 3000;
            npctalk "Евент закончен!";
            sleep 3500;
            npctalk "See ya guys";
            sleep 2000;
            emotion 12;
            sleep 1000;
            mapwarp "poring_c01.gat","gonryun",158,112;
            setnpcdisplay "Disguise NPC",50;
            disablenpc "Disguise NPC";
            end;
         }
      sleep 5000;
      goto OnStart;
      end;

   

}

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

-   script   guessAnnouncer   -1,{

OnMinute00:
OnMinute30:
   
   announce "Начался евент Disguise Event now!",0;
   set $guessbegin, 0;
   sleep 5000;
   announce "Если Вы хотите присоединиться к нам, приходите в Пронтеру",0;
   enablenpc "guesswarp";
   enablenpc "Disguise NPC";
   sleep 5000;
   announce "Мы начнем через 1 минуту",0; 
   sleep 30000;
   announce "Мы начнем через 30 секунд",0;
   sleep 20000;
   announce "10",0;
   sleep 1000;
   announce "9",0;
   sleep 1000;
   announce "8",0;
   sleep 1000;
   announce "7",0;
   sleep 1000;
   announce "6",0;
   sleep 1000;
   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;
   disablenpc "guesswarp";
   sleep 5000;
   announce "Следуйщий эвент через 30 минут",0;
   set $DisguiseRound, 0;
   donpcevent "Disguise NPC::OnStart";
   end;

OnInit:
   disablenpc "Disguise NPC";
   disablenpc "guesswarp";

}
Kill Spirit
Kill Spirit
Администратор
Администратор

Сообщения : 34
Количество тем пользователя : 70
Дата регистрации : 2010-03-08

http://ragna-faq.forumgrad.ru

Вернуться к началу Перейти вниз

Вернуться к началу

Ragnarok World :: Ragnarok Online :: Скрипты (нпц) || Scripts (Npc)

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения