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

Коневод не сумонит

Рег
28 Дек 2015
Сообщения
6
Реакции
0
uses sysutils,classes;
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый
begin
if (ChatMessage.Text = 'пати') then engine.SetTarget(ChatMessage.Sender); //текстом - делаем
engine.useskill(1403); // ID скилла summon'a
end;
delay(2000);
end;
end.

по сообщению в пати " пати" должен Тпшнуть меня, но пишет " ЦЕЛЬ НЕ НАЙДЕНА " подскажите что тут не так?!
 
@JustArcana, а если после того, как сумон взял таргет, вручную тыкнуть на сумон? И вообще он в таргет-то берет?
 
SetTarget выбирает того, кто не в зоне видимости?
 
@SARCAZM, не берет, я даже рядом был , не берет, пока я сам через пати не тыкну , или просто на него , не Тпшит , а как тогда сделать подскажите чтобы он брал в таргет и Тпшил!
 
как минимум сделать принты и поставить begin после условия на "команду"
 
может на сервере какая то защита ? потому что даже ваш скрипт не работает, я пишу в ПМ пати , а он не кидает
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 Engine.InviteParty(ChatMessage.Sender, ldRandom); //текстом - делаем
if (ChatMessage.Text = 'бпк') then engine.useskill(3521); //текстом - делаем
end;
delay(2000);
end;
end.
 
а ыт сделай так:
Код:
uses sysutils,classes;
begin
   while Engine.Status = lsOnline do begin
      if ChatMessage.Unread then //непрочитанное сообщение тип
      print(ChatMessage.text);
    delay(200);
   end;
end.
 
Назад
Сверху