Simba/Tests/PS/blackchat.simba

program new;

const
  MCX1 = 4;
  MCY1 = 342;
  MCX2 = 514;
  MCY2 = 475;

Function TextCoords(textn: Integer): TPoint;
Begin
  Result.X := 10;
  Result.Y := 347 + (14 * (textn - 1));
End;

function GetChatBoxText(Line, TextCol: Integer): string;
var
  P: TPoint;
  cArr: TPointArray;
  B: TBox;
begin
  P := TextCoords(Line);
  if (FindColorsTolerance(cArr, TextCol, MCX1, P.y, MCX2, P.y + 13, 0)) then
  begin
    B := GetTPABounds(cArr);
    Result := GetTextAt(B.x1 - 1, B.y1 - 1,1, 4, 1, 0, 0, 100, 'SmallChars');
  end;
end;

begin
  Writeln(GetChatBoxText(8, 0));
end.