Or is my code wrong :0
Simba Code:
{$I SRL-OSR/SRL.Simba}
Procedure GetText;
Var
i, j, k, l, t, n:Integer;
ChatText:TStringArray;
Colors:TIntegerArray;
Begin
SetLength(Colors,2)
SetLength(ChatText,16)
Colors := [16711680,128]
marktime(t)
For k := 0 to 8 do
Begin
while j<2 do
Begin
ChatText[n] := GetChatBoxText(i,Colors[j]);
Writeln('Text found ' + tostr(ChatText))
j := j+1
End;
j:=0
End;
Writeln('Took ' + tostr(t/1000000) + ' ms')
End;
Begin
GetText;
End.
nvm got it
Code:
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['']
Text found ['He']
Text found ['']
Text found ['Hows it going']
Text found ['']