Nose Smasher
2008-11-04 03:19:30
I figured since there's an "IsUpTextMultiCustom" why not an "IsBlackTextMulti" and "IsChatBlackTextAnylineMulti" so I made them :p
They're not as super 1337 as most SRL functions, but they work :)
The first one is the same as "IsBlackText" wit a TStringArray
and the second one is "IsChatBlackTextAnyline" wit a TStringArray… Lemme know what you guys think! :)
They're not as super 1337 as most SRL functions, but they work :)
The first one is the same as "IsBlackText" wit a TStringArray
and the second one is "IsChatBlackTextAnyline" wit a TStringArray… Lemme know what you guys think! :)
function BlackTextMultiSingle(Text: TstringArray; ChatLine: Integer): Boolean;
var
n, i: Integer;
begin
n := Length(Text) - 1;
for i := 0 to n do
if (Pos(Text[i], GetBlackText(ChatLine)) <> 0) then
begin
Result := True;
Exit;
end;
end;function BlackTextMultiAnyLine(ChatTxt: TStringArray): Boolean;
var
I: Byte;
begin
for I := 1 downto 8 do
if (BlackTextMultiSingle(ChatTxt, I)) then
begin
Result := True;
Exit;
end;
end;