SRL Archive - SRL Bugs

I had Boreas spam me 'Anything you want'.
All 8 chat lines said 'Anything you want'
I ran

Procedure T2; 
Begin 
 For I:=8 downto 1 do 
 begin 
 if FindChatBoxText('Anything you want',i,128) Then 
 Begin 
 Writeln(IntToStr(i)); 
 Writeln(GetChatBoxText(i, 128)); 
 end; 
 end; 
End;

It only returned 2 and 6.
It tried some other things, and only 2 and 6 seem to be working.
I THINK TextCoords is built into SCAR, I couldn't find it.
So yeah, this should be fixed? :D

Taken from Chat.scar

Function TextCoords(textn: Integer): TPoint;

Begin
  Result.X := 11;
  Result.Y := 346 + (14 * (textn - 1));
End;

//Edit

Using

Function TextCoords(textn: Integer): TPoint;

Begin
  Result.X := 8;
  Result.Y := 346 + (14 * (textn - 1));
End;

Procedure T2;
Var
I:Integer;
A:String;
Begin
 For I:=8 downto 1 do
 begin
 A:=GetChatBoxText(i,ClChat);
 writeln(A);
 end;
End;

I get..

Day
All
Have
· ··
Because
You
There
Hi

· ·· was We, so i guess the W char is messed up?

:D Doh, yay. We just need to fix cords in that then, sweet.

http://www.villavu.com/forum/showthread.php?t=52153

Seen that? lol

Doh again, sweet. Thanks.
E:
Wonderful fking DIBshit errors:
[Runtime Error] : Exception: Can't allocate the DIB handle in line 195 in script C:\Program Files\SCAR 3.21\includes\SRL\SRL\Core\Chat.scar

Ran Rogeruk's T2 with his edited TextCoords and the TextCoords from the thread also =/.