I have just started scripting and I decided to script a few private server bots just to start getting used to scripting and these are the few I just created:
My RSPS Magic Log Cutter-
*This script just cuts magic logs atm, I am trying to figure out how to implement banking and/or dropping logs, as well as fixing the timing so it doesn't just keep clicking the tree (which on some rsps's stops you from chopping the tree)
My Login Code:Code:program RSPSCutter; {$i srl/srl.simba} const LOGS = 100; Procedure ClickTree; var X,Y:Integer; begin repeat if FindColorTolerance(X, Y, 14678264, 1, 5, 760, 480, 1) or FindColorTolerance(X, Y, 12187896, 1, 5, 760, 480, 1)then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(10000+random(5000)); end; until (LOGS > 100); end; Begin SetupSRL; MouseSpeed := 15; ClickTree; end.
*This script will login to a few different rsps's and you can change the click coords to customize for any server login screen. I can then put this as a procedure at the beginning of any of my scripts as a login feature hopefully.
**Credits to hoodz for base
Code:program iCodeLogin; {$I srl/srl.simba} var X,Y:Integer; const USERNAME = 'Username'; PASSWORD = 'password'; function IsLoggedIn: boolean; begin if findcolortolerance(x, y, 1448008, 494, 451, 611, 522, 15) then begin result := true end else begin result := false end; end; procedure LoggingIn; begin Wait(200); movemouse(659, 313); 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(650, 269); 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(576, 396); Wait(1000); ClickMouse(x, y, mouse_left); Wait(8000); writeln('logged in!') end;



Reply With Quote






