Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

наработки

  1. SARCAZM

    Использовать умения или кинуть пати по сообщению в чат

    uses sysutils,classes; begin while Engine.Status = lsOnline do begin if (ChatMessage.ChatType = mtPrivate) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый begin if (ChatMessage.Text = 'пати плз') then...
  2. SARCAZM

    Проверка на смерть

    function CheckDeath: Boolean;//Проверка на смерть begin Result:=false; if User.Dead then //умерли begin Result:=true; Print('Bot Umer');//печатаем в лог Delay(1000); Engine.FaceControl(0,false);//выключаем бота Engine.GoHome;//встаем в...
  3. SARCAZM

    Паравозы. Атакуют ли нас мобы?

    function MobsAttacking : Boolean;//Атакуют ли нас мобы? var i, n: Integer; begin n := 0; for i := 0 to NpcList.Count - 1 do if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then inc(n); Result := n > 0; end; function inDanger: boolean;//Есть ли рядом...
  4. SARCAZM

    Проверка шага квеста

    uses SysUtils; procedure StatusQ(ID:integer=-1); Var i:integer; stat:string; begin Print('Инфо по квесту '+IntToStr(ID)); for i:=1 to 32 do begin if Engine.QuestStatus(ID,i) then stat:='OK' else stat:=' -- '; Print('Шаг '+IntToStr(i)+' - '+stat); end; end; begin...
  5. SARCAZM

    Точки респа + Маршрут к ГК

    Годдарт Гиран Глудио Орен Шутгарт Глудин Дион Аден Хейн Руна Хантерс Вилладж Деревня людей
Назад
Сверху