Помощь с чатом

[iSergo]

Здравствуйте мужчины
Я нуб в этих делах, решил чат ответчик сделать для своего ботюни. Что я сделал не так в этом простейшем примере, или чего не хватает, подскажите плиз. Вроде бы ошибок нет, о бот просто не реагирует на это никак

1. 
   
   procedure vchat;
   begin
   if (ChatMessage.ChatType = mtAll) and ChatMessage.Unread and not (ChatMessage.Sender = User.Name) then
   begin
   if (ChatMessage.Text = 'Пр') or (ChatMessage.Text = 'hi') or (ChatMessage.Text = 'привет') or (ChatMessage.Text = 'q') then
   begin
   Engine.GamePrint ('Прувед');
   end;
   end;
   end;
   

И сюда же еще один вопрос. По поводу "Unread сообщение не прочитано нами", не могу понять, как бот определяет прочитано оно нами или нет, если он тупо в чате плавает и вроде бы не меняет своего значения

 

[qseven228]

gameprint

короче тебе нужно сделать в потоке это типа

begin
while true do begin
<code>
end;
end;
во 2)

engine.gameprint
видишь только ты ,а не кто-то еще

 

[YUS74S]

@iSergo,

procedure vchat;
begin
while true do begin
if (ChatMessage.ChatType = mtAll) and ChatMessage.Unread and not (ChatMessage.Sender = User.Name) then
begin   
if (ChatMessage.Text = 'Пр') or (ChatMessage.Text = 'hi') or (ChatMessage.Text = 'привет') or (ChatMessage.Text = 'q') then
begin
delay(3000);
engine.enterText('priv');   
end;   
end; 
end;
end;