{************************************************* ******************************
function GetBlackChatMessage: String;
By: Wizzup?
Description: Gets text with color 0 in last chat line.
************************************************** *****************************}
function GetBlackChatMessage: string;
Var
TextP: TPoint;
begin
TextP := TextCoords(8);
Result := Trim(GetTextAtEx(TextP.X - 2, TextP.Y - 2, 0, SmallChars, False,
False, 0, 1, 0, 80, False, tr_AllChars));
end;
{************************************************* ******************************
function FindBlackChatMessage(ChatMsg: String): Boolean;
By: Wizzup?
Description: Returns True if text with color 0 in last chat line is found.
************************************************** *****************************}
function FindBlackChatMessage(ChatMsg: string): Boolean;
begin
Result := (Pos(ChatMsg, GetBlackChatMessage) <> 0);
end;