Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {$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.
Add Comment
Please, Sign In to add comment