Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
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...
function CheckDeath: Boolean;//Проверка на смерть
begin
Result:=false;
if User.Dead then //умерли
begin
Result:=true;
Print('Bot Umer');//печатаем в лог
Delay(1000);
Engine.FaceControl(0,false);//выключаем бота
Engine.GoHome;//встаем в...
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;//Есть ли рядом...
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...