Results 1 to 10 of 10

Thread: Autoclicker for smithing

  1. #1
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default Autoclicker for smithing

    Hi guys, I made quite a rough autoclicker for smithing, you have to do a majority of the set up but
    once it's going it seems to work well.
    to set this up you need to go to an anvil (I've only tested at the ones below varrock west bank but
    I don't see why it can't work for all of them)
    and get your camera so the begin project is in the middle of the anvil.

    put your mouse in the middle of the anvil and press f9 to get the script running,
    it takes the coordinates of the initial mouse position so please try get this part right.
    first screen.JPG

    screen 2.jpg
    the mouse should line up with the middle of the anvil AND the middle of the begin project button.
    Please remember, I made this for myself so I know it won't be what you guys may be used to.
    Simba Code:
    Program Cats_Bar_Smither;
    var
     Bar:Integer;
     Mouse:integer;

     Procedure Move_Mouse_One;
    var
     i,x,y: integer
    begin
     i := randomRange(0, 19);
     begin
      if (i = 1) then
      begin
        ClickMouse(x +1,y +1,mouse_Left);
        WriteLn('1');
      end;
      if (i = 2) then
      begin
       ClickMouse(x +1,y +2,mouse_Left);
       WriteLn('2');
      end;
      if (i = 3) then
      begin
       ClickMouse(x +2,y +3,mouse_Left);
       WriteLn('3');
      end;
      if (i = 4) then
      begin
       ClickMouse(x +2,y +4,mouse_Left);
       WriteLn('4');
      end;
      if (i = 5) then
      begin
       ClickMouse(x +3,y +5,mouse_Left);
       WriteLn('5');
      end;
      if (i = 6) then
      begin
       ClickMouse(x +5,y +2,mouse_Left);
       WriteLn('6');
      end;
      if (i = 7) then
      begin
       ClickMouse(x +12,y +8,mouse_Left);
       WriteLn('7');
      end;
      if (i = 8) then
      begin
       ClickMouse(x +4,y +3,mouse_Left);
       WriteLn('8');
      end;
      if (i = 9) then
      begin
       ClickMouse(x +9,y +1,mouse_Left);
       WriteLn('9');
      end;
      if (i = 10) then
      begin
       ClickMouse(x +9,y +1,mouse_Left);
       WriteLn('10');
      end;
      if (i = 11) then
      begin
       ClickMouse(x +21,y +15,mouse_Left);
       WriteLn('11');
      end;
      if (i = 12) then
      begin
       ClickMouse(x +19,y +11,mouse_Left);
       WriteLn('12');
      end;
      if (i = 13) then
      begin
       ClickMouse(x +12,y +21,mouse_Left);
       WriteLn('13');
      end;
      if (i = 14) then
      begin
       ClickMouse(x +6,y +20,mouse_Left);
       WriteLn('14');
      end;
      if (i = 15) then
      begin
       ClickMouse(x +1,y +25,mouse_Left);
       WriteLn('15');
      end;
      if (i = 16) then
      begin
       ClickMouse(x +15,y +2,mouse_Left);
       WriteLn('16');
      end;
      if (i = 17) then
      begin
       ClickMouse(x +12,y +21,mouse_Left);
       WriteLn('17');
      end;
      if (i = 18) then
      begin
       ClickMouse(x +6,y +16,mouse_Left);
       WriteLn('18');
      end;
      if (i = 19) then
      begin
       ClickMouse(x +27,y +11,mouse_Left);
       WriteLn('19');
      end;
       if (i = 0) then
      begin
       ClickMouse(x +20,y +10,mouse_Left);
       WriteLn('0');
      end;
     end;
    end;

     Procedure Move_Mouse_Two;
    var
    i,x,y: integer
    begin
     i := randomRange(0, 19);
     begin
      if (i = 1) then
      begin
       ClickMouse(x +1,y +1,mouse_Left);
       WriteLn('1');
      end;
      if (i = 2) then
      begin
       ClickMouse(x +11,y +5,mouse_Left);
       WriteLn('2');
      end;
      if (i = 3) then
      begin
       ClickMouse(x +21,y +8,mouse_Left);
       WriteLn('3');
      end;
      if (i = 4) then
      begin
       ClickMouse(x +8,y +10,mouse_Left);
       WriteLn('4');
      end;
      if (i = 5) then
      begin
       ClickMouse(x +36,y +2,mouse_Left);
       WriteLn('5');
      end;
      if (i = 6) then
      begin
       ClickMouse(x +27,y +8,mouse_Left);
       WriteLn('6');
      end;
      if (i = 7) then
      begin
       ClickMouse(x +34,y +8,mouse_Left);
       WriteLn('7');
      end;
      if (i = 8) then
      begin
       ClickMouse(x +39,y +3,mouse_Left);
       WriteLn('8');
      end;
      if (i = 9) then
      begin
       ClickMouse(x +19,y +4,mouse_Left);
       WriteLn('9');
      end;
      if (i = 10) then
      begin
       ClickMouse(x +26,y +2,mouse_Left);
       WriteLn('10');
      end;
      if (i = 11) then
      begin
       ClickMouse(x +7,y +7,mouse_Left);
       WriteLn('11');
      end;
      if (i = 12) then
      begin
       ClickMouse(x +12,y +6,mouse_Left);
       WriteLn('12');
      end;
      if (i = 13) then
      begin
       ClickMouse(x +39,y +10,mouse_Left);
       WriteLn('13');
      end;
      if (i = 14) then
      begin
       ClickMouse(x +18,y +8,mouse_Left);
       WriteLn('14');
      end;
      if (i = 15) then
      begin
       ClickMouse(x +1,y +12,mouse_Left);
       WriteLn('15');
      end;
      if (i = 16) then
      begin
       ClickMouse(x ,y,mouse_Left);
       WriteLn('16');
      end;
      if (i = 17) then
      begin
       ClickMouse(x +35,y +2,mouse_Left);
       WriteLn('17');
      end;
      if (i = 18) then
      begin
       ClickMouse(x +26,y +6,mouse_Left);
       WriteLn('18');
      end;
      if (i = 19) then
      begin
       ClickMouse(x +29,y +6,mouse_Left);
       WriteLn('19');
      end;
      if (i = 0) then
      begin
       ClickMouse(x +20,y +10,mouse_Left);
       WriteLn('0');
      end;
     end;
    end;

    Procedure click;
    var
    x,y,i: integer;
    begin
     GetMousePos(x, y);
     WriteLn('Found mouse');
     Move_Mouse_One;
     WriteLn('First click');
     wait(randomRange(700,3900));
     Move_Mouse_Two;
     WriteLn('Second click - long wait');
     wait(randomRange(1080,2790));
     MoveMouse(x + 1000, y+1000);
     wait(randomRange(37000,39000));
     WriteLn('Repeating');
     inc (Bar);
     MoveMouse(x, y);
    end;

    Procedure Progress_Report;
    var
    Exp,Tip:integer
    Begin
     Cleardebug;
     EXP :=bar*240;
     Tip :=bar*50;
     WriteLn('=================From The Mayors Guide=================');
     WriteLn(' Cats Bar Smasher');
     WriteLn(' Bars Smashed Filled: ' + intToStr(Bar));
     WriteLn(' Exp Gained: ' + intToStr(EXP));
     WriteLn(' Tips Created: ' + intToStr(Tip));
     Writeln('=======================================================');
    End;

    Begin
     Writeln('Start in front of anvil nearest varrock bank.');
     Writeln('Set your camera up so the begin smithing button lines up');
     Writeln('with the centre of the anvil.');
     repeat
      Click;
      Progress_report;
      until Bar > 100;//change this to the number of bars you want to use.
    end.
    Simba Code:
    Program Cats_Bar_Smither;

    var
     Bar:integer

    Procedure click ;
    var
    x,y,a,b,c,d,i: integer;
    Begin
     GetMousePos(x, y);
     WriteLn('Found mouse');
     MoveMouse(x + random(-29, 29), y + random(-25, 25));
     GetMousePos(a, b);
     HoldMouse(a,b,mouse_Left);
     ReleaseMouse(a,b,mouse_Left);
     WriteLn('First click');
     Wait(randomRange(700,4900));
     MoveMouse(x + random(-4, 41), y + random(-12, 12));
     GetMousePos(c,d);
     HoldMouse(c,d,mouse_Left);
     ReleaseMouse(c,d,mouse_Left);
     WriteLn('Second click - long wait');
     Wait(randomRange(1080,2790));
     Wait(randomRange(37000,49000));
     WriteLn('Repeating');
     Inc (Bar);
     MoveMouse(x, y);
    end;


    Procedure Progress_Report;
    var
    Exp,Tip:integer
    Begin
     Cleardebug;
     EXP :=bar*240;
     Tip :=bar*50;
     WriteLn('=================From The Mayors Guide=================');
     WriteLn(' Cats Bar Smasher');
     WriteLn(' Bars Smashed Filled: ' + intToStr(Bar));
     WriteLn(' Exp Gained: ' + intToStr(EXP));
     WriteLn(' Tips Created: ' + intToStr(Tip));
     Writeln('=======================================================');
    End;

    Begin
     Writeln('Start in front of anvil nearest varrock bank.');
     Writeln('Set your camera up so the begin smithing button lines up');
     Writeln('with the centre of the anvil.');
     repeat
      click;
      Progress_report;
      until Bar > 100;//change this to the number of bars you want to use.
    end.
    Last edited by catsrback321; 12-09-2019 at 08:57 PM. Reason: V2

  2. #2
    Join Date
    Jan 2018
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool. Everything has to start some where, and even something simple can force you to learn stuff, and it often works quite decently in game. :-)

  3. #3
    Join Date
    Jun 2015
    Posts
    64
    Mentioned
    2 Post(s)
    Quoted
    21 Post(s)

    Default

    might wana mess around with the randomRange function instead of having everything static like yours

    example;

    ClickMouse(x + randomRange(-4,4),y + randomRange(-4,4),mouse_Left);

    or better yet check the mouse over text


    mouse(Point(x + randomRange(-4, 4), y + randomRange(-4, 4)), MOUSE_MOVE);
    if (isMouseOverText(['smith'])) then
    begin
    fastClick(MOUSE_LEFT);
    end
    hi it me

  4. #4
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default

    I will do, thanks. I was trying to randomise it by getting it to choose the different +'s each time, but that will save a whole load of script.
    need to adjust some of the waits to make it more lifelike too, but it will serve a purpose.
    I wanted to try make a DTM of the anvil to make it much more human like but I think many things are tied into the SRL which
    I can't seem to get working.

  5. #5
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    My old smither might give you some pointers - feel free to read through the code and let me know if you have questions!

  6. #6
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default

    it's quite difficult to make an nice script without SRL, just tried all afternoon to make it run smoother and safer but I can't get SRL to run without smart.
    just posted the 2nd version, it's really missing the softer mouse movements that SRL can provide and the antiban of course.

  7. #7
    Join Date
    Jun 2015
    Posts
    64
    Mentioned
    2 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by catsrback321 View Post
    it's quite difficult to make an nice script without SRL, just tried all afternoon to make it run smoother and safer but I can't get SRL to run without smart.
    just posted the 2nd version, it's really missing the softer mouse movements that SRL can provide and the antiban of course.
    why can't you use SRL without smart?

    here's an old autoclicker script I used

    Simba Code:
    program gg;
    {$I SRL-6/SRL.simba}

    procedure click;
    begin
     mousebox(intToBox(745, 703, 921, 902), mouse_left, mouse_human);
     pickUpMouse();
     MouseOffClient(Random(4));
     Wait(GaussRangeInt(0, 2000));
    end;


    begin
    click;
    repeat
    wait(randomRange(240000, 290000));
    click;
    until false;
    end.
    hi it me

  8. #8
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default

    Everytime the script starts it won't pair
    To the screen and times out.
    That's what my script is mainly missing, the human mouse and a little antiban, the new version I wrote addresses that but I just need the script to pair with the client

  9. #9
    Join Date
    Jun 2015
    Posts
    64
    Mentioned
    2 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by catsrback321 View Post
    Everytime the script starts it won't pair
    To the screen and times out.
    That's what my script is mainly kissing, the human mouse and a little antiban, the new version I wrote addresses that but I just need the script to pair with the client
    it doesnt have to pair, you manually select the client u want
    hi it me

  10. #10
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default

    I dragged the pointer to it but it doesn't recognise runescape each time I try

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
  •