Нашел в шаре еще чуть под делал!
var Index :integer;
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = mtAll) and ChatMessage.Unread then
begin
Index:=-1000;
Index:=Pos('n',ChatMessage.Text);
Index:=Pos('Н',ChatMessage.Text);
if Index=0 then
begin
Engine.CancelTarget;
Engine.SetTarget(ChatMessage.Sender);
Engine.UseSkill(1323);
delay(2000);
end;
end;
end;
end.
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = mtAll) and ChatMessage.Unread then
begin
Index:=-1000;
Index:=Pos('n',ChatMessage.Text);
Index:=Pos('Н',ChatMessage.Text);
if Index=0 then
begin
Engine.CancelTarget;
Engine.SetTarget(ChatMessage.Sender);
Engine.UseSkill(1323);
delay(2000);
end;
end;
end;
end.