Marcu_s
2015-01-19 21:01:36
Make sure your character is setup exactly at this spot with it's camera at the highest angle. Once that is done, relog, and run the script! Any questions or problems feel free to post below! ^_^
Camera like-so:

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.