SRL Archive - RuneScape Private-Server Scripts

[DEVIOUSPK/ARTERO]Simple Agility bot

Marcu_s

2015-01-19 21:07:47

Make sure that your character is standing near this spot with it's camera at the highest point possible! If you have any questions or doubts regarding the bot, or if it doesn't work for you, feel free to contact me by posting below! Enjoy :)

Camera like-so:

program Agility;
{$i srl/srl.simba}

var
  X, Y, Agil, log1: Integer;

procedure ClickLog;
begin
  if FindColorTolerance(X, Y, 537429 , 8, 7, 514, 334, 1) or
     FindColorTolerance(X, Y, 540263 , 8, 7, 514, 334, 1) or
     FindColorTolerance(X, Y, 534855 , 8, 7, 514, 334, 1) or
     FindColorTolerance(X, Y, 538975 , 8, 7, 514, 334, 1) then
 begin
      mmouse(x, y,1,1);
      wait(250);
      ClickMouse(X, Y, mouse_Right)
      wait(250);
      if FindBitmapToleranceIn(log1, X, Y, 7, 7, 515, 336, 145) then
    begin
      mmouse(x, y,1,1);
      wait(250);
      ClickMouse(X, Y, mouse_Left)
      wait(9000);
    end;
  end;
 end;

procedure Goback;
begin
  if FindDTM(Agil, X, Y, 541, 8, 732, 159) then
  begin
  mmouse(X, Y, 1, 1);
  wait(randomrange(100, 200));
  clickmouse2(mouse_Left);
  wait(randomrange(5000, 7050));
  end;
end;

begin
SetupSRL();
MouseSpeed := 15;
repeat
log1 := BitmapFromString(163, 14, 'meJztVVFuxSAM43a7wH53/2Owv' +
        'VcJRXFszFvXdRMoH8g4Jo2h9P4Yb+8fIzogGJHj8O8cvbev+EXB0w' +
        'sguzxGa00gOsvh3zmOPp9Y/6rg6QWQXbbR22graxv9TcGLjR5PbTK' +
        'uh4FZpYKzI5IRF1vrdMYvy2N9PnB8QBnuEMqlVIDg+PUgmGyKk7ia' +
        'fEROZGJ7MZEJjhFFEuKkIz/iU6MH+NwotqvGy1xmKNOcclA28sNXF' +
        'yLaaLQMf9doxxENhimYLiPmlil4qDRuGm3OdS67mKWO5gzvRA0lQR' +
        'uNN0gYzTrJvPONLhFcjbJRh+GXGe2btcTRxcejgk6lS6TNTXPHa0f' +
        'wZaNZ1gy/2ugfmmMBY6QmJJdxyTTd8ToJJlxYIw6kj4vz3+FZjJei' +
        'vC9acJqbdKYcwWc1xPLKA4BLY9WZsygFyxqm9SxpssIaDN2TA2FG6' +
        '03FRq81fLUhO1ZDGL3jrwf+27fR/zXY+3vz+ARBsZQ1');
Clicklog;
Agil := DTMFromString('m1gAAAHicjcpBCoAgGEThsU3o0SqhgsLrhEJJYFfuLYK2/4OP2UyQdHbShYwDBRUNz7c3Zr4DJizYkbBhRcSI3gcTSx7O6O8FaIgJsA==');
Goback;
FreeBitmap(log1);
FreeDtm(Agil);
until false;
end.