{$I srl/srl.simba}

var
x, y:integer;
close:integer;
bob:integer;
trade_bob:integer;
count:integer;
buy_drag:integer;
close_window:integer;
dragonstone:integer;
chisel:integer;

const

USERNAME = '';
PASSWORD = '';
amount = '28';

function IsLoggedIn: boolean;
begin
if findcolortolerance(x, y, 1582121, 729, 127, 751, 138, 20) then
begin
result := true
wait(200)
end
else
begin
result := false
wait(200)
end;
end;

procedure LoggingIn;
begin
Close := DTMFromString('mggAAAHicY2NgYLBjYmBwAWJPIHaH0q5AbMTIwKANxAZAbArEOkCsB8TpTIxgnAald3R2MiydM4dBDmgWNsyIA0MAAJtbCN0=');
if FindDTM(close, x, y, 564, 285, 596, 320) then
  begin
  mmouse(x, y, 1, 1);
  wait(randomrange(100, 200));
  clickmouse2(mouse_Left);
  wait(randomrange(150, 250));
  end;
  Wait(200);
  movemouse(546, 341);
  writeln('entering username');
  Wait(200);
  clickmouse(x, y, mouse_left);
  count := 0;
  repeat
    Inc(count);
    PressKey(VK_Back);
  until count > 25;
  Wait(250);
  sendkeys(USERNAME, 0, 0);
  Wait(1000);
  writeln('entering password');
  movemouse(549, 393);
  Wait(200);
  clickmouse(x, y, Mouse_left);
  Wait(200);
  count := 0;
  repeat
    PressKey(VK_Back);
    Inc(count);
  until count > 25
  sendkeys(PASSWORD, 50, 25);
  writeln('logging in');
  Wait(1000);
  movemouse(437, 443);
  Wait(1000);
  ClickMouse(x, y, mouse_left);
  Wait(6000);
  writeln('logged in! (?)')
  freedtm(close);
end;

function bob_screen: boolean;
begin
if findcolortolerance(x, y, 1210381, 76, 157, 100, 176, 15) then
begin
result := true
writeln('we are at skilling store')
wait(500)
end
else
begin
result := false
writeln('we are not at skilling store')
wait(500)
end;
end;
function doneinv: boolean;
begin
if not findcolortolerance(x, y, 65536, 646, 432, 675, 457, 40) and
not findcolortolerance(x, y, 8553098, 646, 432, 675, 457, 40) and
not findcolortolerance(x, y, 1645857, 646, 432, 675, 457, 40) then
begin
result := true
writeln('we are at skilling store')
wait(100)
end
else
begin
result := false
wait(100)
end;
end;
procedure findbob;
begin
bob :=DTMFromString('mWAAAAHicY2FgYLgOxVeB+AoQLwbimUA8AYhnAXGUvgLDjAZXBltzc4YaB20GSaAYMmZEwyAAAEnmCcI=');


trade_bob:=BitmapFromString(39, 11, 'meJxjYGBwD4klBjH8/w9CEABmE6' +
        'keixTpluI3cPBb+h8J4DMEjsAAUwqreqyWQuyCRRd2e3HFKWFxDHv' +
        'RLEVjExO8xLOxWgoHyEFHRUsR0YERvFhtpIWlmJ4lOyHBxfGpR/IU' +
        'AyrAmtRxKcAqTtBAeiIApbvjvg==');


if findDTM(bob, x, y,211, 140, 241, 184) then
begin
  mmouse(x, y, 1, 1);
  wait(randomrange(100, 200));
  clickmouse2(mouse_right);
  wait(randomrange(150, 250));
  end;
if FindBitmapToleranceIn(trade_bob, X, Y, 158, 143, 293, 237, 145) then
  begin
    mmouse(x, y,1,1);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    wait(2000)
  end;
end;

procedure cut_stones;
begin
if findcolortolerance(x, y, 11908534, 323, 124, 339, 140, 20) then
begin
mmouse(x, y,1,1);
    wait(300);
    ClickMouse(X, Y, mouse_right)
    end;
begin
buy_drag:= BitmapFromString(44, 14, 'meJzNk0EOgDAIBPs0b37Aq3/yx7' +
        'XahGxKWak2rYQDYBrGBUK4bN32iT4dgHi8TcfoyxGTW2kvhqwSxpp' +
        'B6kXaEUMA/sBgzeI7gzXrYiKtDDkW16+wTn4TdagSehhSiu2kKOZn' +
        'eKdD7lKtV9UmU+C3yRlI7GfgWonOKP5gBr1+j32bdhLPwToN/Iprx' +
        'p/7d3KYn3FHwMk=');
if findbitmaptolerancein(buy_drag, x, y, 115, 146, 335, 312, 20) then
begin
    mmouse(x, y,1,1);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    wait(2000)
    sendkeys(amount, 0, 0)
    wait(500)
    PressKey(13);
    wait(1000)

begin
close_window := BitmapFromString(65, 11, 'meJytVVsOwjAM65lgvyC+ENyqR6' +
        'fCwrKcNHTTqgiFtGnsPLrt8d52yvX+glxuTxNurcjs/t77LjB6fsV' +
        'XMcwojHsMbbQUIcbh1to6i3GYyP/61viVwrjHKJjlRAokkvoWbXCM' +
        'AstxOoXo27/LYGARsP1drAK5YBkALIORtnra9vTFLnpMm7n9FvCPX' +
        '5yxWY45n1msjRk0wkiTHIulvqpoFawEJDJrm1opghYKGBmdlII1gO' +
        'WcaTT8WjVG1P45hUJarNksWOuCiBUinXfd1VLOuNSzEM/QiDTa00Q' +
        'dUQBYB4FSFEJnx4xRsaDRYu9nNKZSPJ7FF7l+imdy7AmFfACGqRnu');
if findbitmaptolerancein(close_window, x, y, 415, 29, 498, 45, 20) then
begin
    mmouse(x, y,1,1);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    wait(1500)
  end;
end;
begin
repeat
dragonstone := DTMFromString('mggAAAHicY2NgYEhhYmBIB+JSIC4G4iwgzgdiRkYGBkEgFgBiJiDmhuIc/h6GZP4GBm+uBAYrNm+GcN58Bj+uNAZJoFnYMCMODAEApU0IRQ==');
chisel := DTMFromString('mWAAAAHicY2FgYNjLxMBwEIgPAfExEJuRgWE/EO8C4q1AbCjLxKAiysCgoqDA4GhtzSAJ1IOMGdEwCAAA+lQIEg==');

if findDTM(chisel, x, y, 546, 206, 735, 467) then
mmouse(x, y,1,1);
    wait(100);
    ClickMouse(X, Y, mouse_Left)
    wait(100)
    movemouse(663, 445)
    wait(50)
    clickmouse(x, y, mouse_left);
    until(doneinv);
end;
end;
end;
end;



begin
cleardebug;
mousespeed:= 300
repeat
if (not isloggedin) then
begin
loggingin;
end;
if (isloggedin) then
begin
findbob
cut_stones
end;
until(false)
end.