SRL Archive - News and General

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:

  repeat
    wait(RandomRange(3000,5000));
    clickHound('esshound',15837595,5,0.17,4.30);
  until IsKeyDown(VK_CONTROL); 

It is looking quite nice mate :) have not even tested the game but when im home I will instantly look over it. Can´t await it hehe

all it really is is a find obj that works ;]

Function could be renamed to generic clicker lol

been running for like 2 hours flawless in runespan o.O