lol IDK why, but im starting to get obsession for shortening functions today...
SCAR Code:
function IsChatBoxTextLines(Text: string; Line1, Line2, TextCol: Integer): Boolean;
var
I: Integer;
begin
for I := Max(Line1, Line2) downto Min(Line1, Line2) do
Result := FindChatBoxText(Text, I, TextCol);
if Result then Exit;
end;
And I also made this one to return the Line number that text is present at:
SCAR Code:
function IsChatBoxTextLines(Text: string; var L: Integer; L1, L2, Col: Integer): Boolean;
begin
for L := Max(L1, L2) downto Min(L1, L2) do
Result := FindChatBoxText(Text, L, TextCol);
if Result then Exit;
end;
~NS