SRL Archive - Script Requests

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.  

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.

From: Runehack123
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;

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.

From: Runehack123
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.  

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