SRL Archive - First Scripts

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.
[ATTACH=CONFIG]28680[/ATTACH]

[ATTACH=CONFIG]28681[/ATTACH]
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.

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. 

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. 

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. :-)

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

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.

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

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.

From: catsrback321
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

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.                 

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

From: catsrback321
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

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