Basically It just does this part.
I want it to do Procedure EnterBank; Aswell... Idk how to fix thisCode:Program CraftingDStones; {$i srl/srl.simba} Procedure ClickBank; var X,Y:Integer; begin if FindColorTolerance(X, Y, 2839908, 219, 157, 219, 157, 50) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(1150); Mouse(61,104,2,2,Mouse_Right); //selects rune bar wait(1150); Mouse(44,215,2,2,Mouse_Left); //withdraw all wait(1150); Mouse(492,30,2,2,Mouse_Left); //Exit Button wait(1150); Mouse(573,228,2,2,Mouse_Left); //Use Chisel wait(1150); Mouse(615,234,2,2,Mouse_Left); //Use Dragonstone wait(1150); Mouse(244,427,2,2,Mouse_Left); //Crafting D-Stone wait(18500) end; end;
@Sin;
Or anyone else! please
xoxoxo
Code:Program CraftingDStones; {$i srl/srl.simba} Procedure ClickBank; var X,Y:Integer; begin if FindColorTolerance(X, Y, 2839908, 219, 157, 219, 157, 50) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(1150); Mouse(61,104,2,2,Mouse_Right); //selects rune bar wait(1150); Mouse(44,215,2,2,Mouse_Left); //withdraw all wait(1150); Mouse(492,30,2,2,Mouse_Left); //Exit Button wait(1150); Mouse(573,228,2,2,Mouse_Left); //Use Chisel wait(1150); Mouse(615,234,2,2,Mouse_Left); //Use Dragonstone wait(1150); Mouse(244,427,2,2,Mouse_Left); //Crafting D-Stone wait(18500) end; end; Procedure EnterBank; var X,Y:Integer; begin if FindColorTolerance(X, Y, 2839908, 219, 157, 219, 157, 500) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(1150); end; end; Begin MouseSpeed := 15; ClickBank; SetupSRL; end.


Reply With Quote


