Перейти к содержанию
LineaAge II Forum L2Corvet

ma5tak

Пользователи
  • Публикаций

    87
  • Зарегистрирован

  • Посещение

  • Победитель дней

    7

Весь контент ma5tak

  1. const DialogRepeatEnable: boolean = true; // повтор диалогов, true(да) / false(нет) // список ников персонажей, которые должны повторять за основным окном DialogRepeatPlayerList: array of string = ['Krickt1338', 'Krickt1339', 'Vasya']; OpcodeStr = '23'; // для Interlude заменить на '21' OpcodeHex = $23; // для Interlude заменить на $21 procedure OnCliPacket(ID1, ID2: Cardinal; Data: Pointer; Size: Word); // обработчик исходящих пакетов (C->S) begin if (DialogRepeatEnable) and (ID1 = OpcodeHex) then // если повтор включен, и id пакета совпадает с выбором диалога, то DialogRepeat(MemToHex(Data^, Size)); // вызываем функцию, которая повторит выбор диалога указанным окнам end; procedure DialogRepeat(PacketData: string); var E: TL2Control; i: integer; begin for i:= 0 to Length(DialogRepeatPlayerList)-1 do begin // проходим по списку чаров, которыми нужно повторять диалоги E:= nil; E:= GetControl(DialogRepeatPlayerList[i]); // получаем Engine нужного окна if (E <> nil) then E.SendToServer(OpcodeStr + PacketData); // если Engine получен, то отправляем пакет выбора диалога end; end; procedure DialogOpen(E: TL2Control); // берет в таргет и открывает диалог с нужным NPC другим окном begin E.SetTarget(User.Target.ID); E.DlgOpen; end; procedure DialogOpenThread(); // основной поток, выполняющий всю логику var p1, p2: integer; i: integer; E: TL2Control; LastTargetID: cardinal; // тут мы храним ID последнего нашего таргета LastDlgText: string; // тут будет храниться текст последнего диалога begin Engine.SendActID(1); // активируем перевхат C->S пакетов while (true) do begin // запускаем бесконечный цикл Engine.WaitAction([laDlg], p1, p2); // ждем события "открытие диалога" while (User.Target.ID = LastTargetID) and (Engine.DlgText <> LastDlgText) do delay(10); for i:= 0 to Length(DialogRepeatPlayerList)-1 do begin // для каждого ника из списка персонажей E:= nil; E:= GetControl(DialogRepeatPlayerList[i]); // получаем его Engine if (E <> nil) then // и если Engine получен, то Script.NewThread(@DialogOpen(E)); // запускаем для его поток, который откроет диалог с нужным NPC end; LastTargetID:= User.Target.ID; // перезаписываем ID поеледнего цели LastDlgText:= Engine.DlgText; // и текст последнего диалога end; end; begin if (DialogRepeatEnable) then // если повтор включен, то Script.NewThread(@DialogOpenThread); // запускаем поток, который будет делать все необходимое // code ... Delay(-1); end. Может кто-то помочь с данным скриптом, у меня окна повторяют за мейном только таргет и открывают диалоговое окно, дальше по строчкам не повторяют. Значение на "21" менял, да и дело наверное не в этом, для теста пробовал ставить разные значения, даже "0" ставил. При этом скрипт работал так же, открывает диалоговое окно а дальше, по строчкам, не пашет.
  2. Ждал респ РБ 34 часа, так и не дождался. Вот решил уточнить у админа на форуме.
  3. При чем тут Вика, кто вообще такая эта Вика?) Вопрос к Админу.
  4. Какой респ обычных РБ на сервере 0.1?
  5. Перенесли сервер с кухни в гостиную)))
  6. Вчера благодаря не правильной настройке скрипта мой маг слил 3 лвла и это с руной в инвентаре Luck of Blessing, можно представить сколько раз он умер. Очень сильно удивило, когда я открыл окно, пенальти не было.
  7. Лукам сделали бесконечные стрелы, для некров тоже думаю можно подобное сделать с костями. В реалиях такого хардкора некры пролетают как клас. Что думаете?
  8. Ожидаемое время включения без изменений?
  9. До НГ это очень быстро, это будет не справедливо к людям которые вкладывали деньги и играют на 0,1.
  10. Почти месяц как стартанули, пора бы уже ивент
  11. Кстати да, добавьте Гиран Харбор у глобал ГК и если не жалко поделитесь скриптом для волкера на квест bards mandolin через глобал ГК. никак не могу поймать Bypass диалогов с глобал ГК(
  12. Можно поставить нубо бафера в других городах или хотя бы в Дионе?
  13. Можно добавить функцию дропа/спойла с мобов.
  14. Админ отпиши хоть что то) К чему готовится и когда приблизительно старт? Еще очень интересует какой будет донат шоп*?
  15. Уточни пожалуйста, что ясно?)
  16. Играю уже 2 день на ОБТ 0.1 и кайфую. Админ плз сделай 0.1)
  17. Вместо того чтобы меряться у кого больше, предлагаю пофлудить на подобных проектах о открытии сервера, заодно людей подтянем и реклама... .
  18. Пускай всё решит голосование, зачем этот срачь.
  19. Играю час на 0.1 все устраивает. Сервера с рейтами х1+ это уже проходили, хочется хард кора. Просто упростить этот хард кор с рейтами за счет бафа, авто прокачки умений и т. д. Думаю до открытия еще подтянутся психи такие как я, готовые играть на таких рейтах)
  20. Изюминка это бот, а так то тоже за классику без бафа и ГМ шопа!
×
×
  • Создать...