SRL Archive - Help

program Autotwc; //by rjj95 aka thehatered
  Var
    X,Y: Integer;
  begin   //click tree icon
wait(500);
    FindColorTolerance(X,Y,292097,516,0,760,170,3)
      wait(200);
      movemouse(x, y);
      wait(200);
        ClickMouse(x, y, Mouse_Left);
        wait(2000);
        //click tree
    FindColorTolerance(X,Y,2839929,7,46,490,305,15)
      wait(200);
      movemouse(x, y);
      wait(300);
        ClickMouse(x, y, Mouse_Left);
        wait(4500);
        //click tinderbox
    FindColorTolerance(X,Y,7039862,689,427,721,460,15)
      wait(200);
      movemouse(x, y);
      wait(300);
        ClickMouse(x, y, Mouse_Left);
        wait(100);
      //clicklogs
    FindColorTolerance(X,Y,2509932,552,205,732,463,10)
      wait(300);
      movemouse(x, y);
      wait(400);
        ClickMouse(x, y, Mouse_Left);
        wait(200);
        end.
                

thanks in advanced!

The whole thing? Infinitely?:

program Autotwc; //by rjj95 aka thehatered
Var
  X,Y: Integer;

procedure CutWood;
begin
          //click tree icon

  Wait(500);

  FindColorTolerance(X, Y, 292097, 516, 0, 760, 170, 3);
  Wait(200);
  MoveMouse(x, y);
  Wait(200);
  ClickMouse(x, y, Mouse_Left);
  Wait(2000);

          //click tree

  FindColorTolerance(X, Y, 2839929, 7, 46, 490, 305, 15);
  Wait(200);
  MoveMouse(x, y);
  Wait(300);
  ClickMouse(x, y, Mouse_Left);
  Wait(4500);

          //click tinderbox

  FindColorTolerance(X, Y, 7039862, 689, 427, 721, 460, 15);
  Wait(200);
  MoveMouse(x, y);
  Wait(300);
  ClickMouse(x, y, Mouse_Left);
  Wait(100);


          //clicklogs

  FindColorTolerance(X, Y, 2509932, 552, 205, 732, 463, 10);
  Wait(300);
  MoveMouse(x, y);
  Wait(400);
  ClickMouse(x, y, Mouse_Left);
  Wait(200);
end;

begin

  repeat
    CutWood;
  until False;

end.

Fixed some standards.

To extent euphemism:

program Autotwc; //by rjj95 aka thehatered
Var
  X,Y: Integer;

procedure ClickTreeIcon;
begin
          //click tree icon
  Wait(500);

  FindColorTolerance(X, Y, 292097, 516, 0, 760, 170, 3);
  Wait(200);
  MoveMouse(x, y);
  Wait(200);
  ClickMouse(x, y, Mouse_Left);
  Wait(2000);
end;

procedure ClickTree;
          //click tree

  if not(FindColorTolerance(X, Y, 2839929, 7, 46, 490, 305, 15)) then
    ClickTreeIcon;                     //I've added a failsafe
  Wait(200);
  MoveMouse(x, y);
  Wait(300);
  ClickMouse(x, y, Mouse_Left);
  Wait(4500);
end;

procedure ClickTinderBox;
begin
          //click tinderbox

  FindColorTolerance(X, Y, 7039862, 689, 427, 721, 460, 15);
  Wait(200);
  MoveMouse(x, y);
  Wait(300);
  ClickMouse(x, y, Mouse_Left);
  Wait(100);
end;

procedure ClickLogs;
begin
          //clicklogs

  FindColorTolerance(X, Y, 2509932, 552, 205, 732, 463, 10);
  Wait(300);
  MoveMouse(x, y);
  Wait(400);
  ClickMouse(x, y, Mouse_Left);
  Wait(200);
end;

begin
  ClickTreeIcon;  // I gues you only have to do this once?
  repeat
    ClickTree;
    ClickTinderBox;
    ClickLogs;
  until False;
end.

This is for an old version of runescape?

From: masterBB
To extent euphemism:

-snip-

This is for an old version of runescape?

Careful, you may start writing the script for him. I think it is for a private server? So I am assuming it is more welcoming of botting.