mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-27 11:32:18 -05:00
32 lines
576 B
Plaintext
32 lines
576 B
Plaintext
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.
|