I'm trying to make it check all the lines in chat, but I can't get it to work. Could someone correct this or tell me what I should change.
Code:procedure ChatCheck; var i, l : Integer; b : Boolean; TSA : TStringArray; begin TSA := ['.', 'boot', 'bot', 'boots', 'bots', 'booter', 'boter', 'booters', 'boting', 'booting', 'robot', 'legit', 'noob booters']; for i := 0 to High(TSA) do begin //Writeln('E1 i := ' + IntToStr(i)); for l := 1 to 8 do begin //Writeln('E2'); if (Pos(TSA[i], Lowercase(GetChatBoxText(l, clBlue))) > 0) then //<----- :/ begin //Writeln('E3'); b := True; Wait(1); end else //Writeln('Text not found...'); end; end; if b then begin Writeln('Someone is being gay..'); Writeln('Logging out.'); Wait(1000 + Random(1500)); Logout; //change the world.. end end;



Reply With Quote







