Simba Code:
procedure clickHound(UpText : String; color,Tol : Integer; hMod,sMod : Extended);
var
HoundTPA : TPointArray;
HoundATPA : T2DPointArray;
TP : TPoint;
I : Integer;
begin
SetColorToleranceSpeed(2);
SetColorspeed2Modifiers(hMod,sMod);
FindColorsTolerance(HoundTPA,color,MSX1,MSY1,MSX2,MSY2,Tol);
writeln('pixels: ' + tostr(length(houndTPA)));
HoundATPA := SplitTPA(HoundTPA,50);
writeln('groups: ' + tostr(length(houndATPA)));
for I := 0 to High(HoundATPA) do
begin
{$IFDEF SMART}
SMART_DebugTPA(true,HoundATPA[I]);
{$ENDIF}
TP := MiddleTPA(HoundATPA[I]);
mmouse(TP.x,TP.y,15,15);
if not WaitUptext(UpText,1000+random(250)) then
continue;
ClickMouse2(True);
break;
end;
end;
very primitive, don't feel like writing a bot for it and i am doing other stuff. just give it up-text and colors and tols and it will find whatever you are looking for
could call it a better findobj o.O
my loops for clicking an esshound:
Simba Code:
repeat
wait(RandomRange(3000,5000));
clickHound('esshound',15837595,5,0.17,4.30);
until IsKeyDown(VK_CONTROL);