Results 1 to 6 of 6

Thread: [Help] Dragonstone Bot

  1. #1
    Join Date
    Mar 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default [Help] Dragonstone Bot

    Basically It just does this part.

    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;
    I want it to do Procedure EnterBank; Aswell... Idk how to fix this

    @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.

  2. #2
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    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.

  3. #3
    Join Date
    Mar 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    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;
    Last edited by Kozs; 03-07-2013 at 08:28 PM.

  4. #4
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    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.

  5. #5
    Join Date
    Mar 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    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?

    Code:
    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.
    Last edited by Kozs; 03-07-2013 at 08:45 PM.

  6. #6
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •