Kozs
03-07-2013, 08:16 PM
Basically It just does this part.
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;
I want it to do Procedure EnterBank; Aswell... Idk how to fix this
Sin;
Or anyone else! please
xoxoxo
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.
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;
I want it to do Procedure EnterBank; Aswell... Idk how to fix this
Sin;
Or anyone else! please
xoxoxo
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.