XxKanexX
2006-04-12 01:14:36
Simple. Insert a color into the constance and press play. Tells you how many of that color are in the client. ;)
Made by XxKanexX
Const
Color = 0;
function HowManyColor(Color, xs, ys, xe, ye, Tol: Integer): Integer;
var Points: TPointarray;
begin
FindColorsTolerance(Points, Color, xs, ys, xe, ye, Tol);
result:= GetArrayLength(Points);
end;
function HowManyColorClient(Color, Tol: Integer): Integer;
var w, h: Integer;
begin
Getclientdimensions(w, h);
result:= HowManyColor(Color, 0, 0, w, h, Tol);
end;
begin
ClearDebug;
Writeln('Found color '+inttostr(Color)+' in client, '+inttostr(HowManyColorClient(Color, 0))+' times.');
end.
Made by XxKanexX