uses SysUtils;

var phrases: array of string = ['adena-vip', 'adena', 'r33'];   // co sprawdza, jaki tekst

procedure ChatScanerThread();
var i: integer;
begin
  while delay(100) do begin
    if (ChatMessage.Unread) then begin
      for i:= Low(phrases) to High(phrases) do begin
        if (Pos(LowerCase(phrases[i]), LowerCase(ChatMessage.text)) > 0) then begin
          Print(ChatMessage.Sender+': '+ChatMessage.Text);
          PlaySound(ExePath+'\Sounds\msg.wav');
          Engine.SetGameWindow(true);
          break;
        end;
      end;
    end;
  end;
end;

begin
  Script.NewThread(@ChatScanerThread);
  Delay(-1);
end.