PDA

View Full Version : [Help] Dragonstone Bot



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.

Runehack123
03-07-2013, 08:20 PM
Begin *Your procedure EnterBank needs to be included somewhere here*
MouseSpeed := 15;
ClickBank;
SetupSRL;
end.

Also, it will only work if it actually finds the colour.
Use more debug and writeln to see what's actually going on!

Best of luck.

Kozs
03-07-2013, 08:24 PM
Begin *Your procedure EnterBank needs to be included somewhere here*
MouseSpeed := 15;
ClickBank;
SetupSRL;
end.

Also, it will only work if it actually finds the colour.
Use more debug and writeln to see what's actually going on!

Best of luck.

Thanks! That worked, would you know how to make it so it repeats?
Runehack123;

Runehack123
03-07-2013, 08:34 PM
You can do a repeat...until, While Do, For..To..Do

More on loops check out some of the tutorials! Here's Coh3n's :)
http://villavu.com/forum/showthread.php?t=58935

You'll know which one depending on your situation. They'll all get the job done though when it comes to repeating things.

Kozs
03-07-2013, 08:42 PM
You can do a repeat...until, While Do, For..To..Do

More on loops check out some of the tutorials! Here's Coh3n's :)
http://villavu.com/forum/showthread.php?t=58935

You'll know which one depending on your situation. They'll all get the job done though when it comes to repeating things.
Runehack123;

I read it and its very confusing could you try to plug it into this script here?


Program SmithingRune2h;
{$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);
Mouse(623,229,2,2,Mouse_Right); //selects Dragonstone
wait(1150);
Mouse(581,305,2,2,Mouse_Left); //Deposits Dragonstone
wait(1150);
end;
end;
repeat

Begin
MouseSpeed := 15;
ClickBank;
EnterBank;
SetupSRL;
end.

Runehack123
03-07-2013, 08:54 PM
e.g.
Begin
SetupSRL; //This goes at the start! Can't use those functions in the SRL include until you called this so always at the start :)
MouseSpeed := 15;
repeat
ClickBank;
EnterBank;
until false; //would repeat infinite amount of times
end.

Yes and I just looked at Coh3ns tutorial..Maybe something more visual would help.
Check out some of YoHoJo's youtube tutorials online on making your first script!
http://www.youtube.com/watch?v=pMMejhyjGwI

And here the link to forum beginner's TuT section : http://villavu.com/forum/forumdisplay.php?f=492