SRL Archive - First Scripts

Thought I would share another of the little scripts I have made, once again, none of them are what I would leave on their own, they are more assistants than anything else so please use with caution.
To set this one up just put your mouse over the centre of the item you would like to alch and put the high alch spell onto your hotbar with the keybind of n.

Program Cats_Alcher;
{$I SRL-6/SRL.simba}
var
x,y,i,Alchs: integer;



procedure click
var
T:integer;

begin
  T := Random(100);
  case T Of
   1..40: begin
           Mouse(point(x + random(-9, 9), y + random(-4, 9)), MOUSE_MOVE, MOUSE_HUMAN);
           FastClick(MOUSE_LEFT);
           Writeln('1');
          end;
   41..60:begin
           Mouse(point(x + random(-5, 5), y + random(-3, 5)), MOUSE_MOVE, MOUSE_HUMAN);
           FastClick(MOUSE_LEFT);
           Writeln('2');
          end;
   61..90:begin
          Mouse(point(x + random(-3, 3), y + random(-3, 3)), MOUSE_MOVE, MOUSE_HUMAN);
          FastClick(MOUSE_LEFT);
          Writeln('3');
          end;
   91..100:begin
            Mouse(point(x + random(-2, 2), y + random(-2, 2)), MOUSE_MOVE, MOUSE_HUMAN);
            FastClick(MOUSE_LEFT);
             Wait(randomRange(100,200));
             FastClick(MOUSE_LEFT);

            Writeln('double click');
           end;
   end;
end;

procedure  one
begin
WriteLn('one');
 typeSend('n', false);
 WriteLn('First click');
 Wait(randomRange(1600,2100));
 click;
 WriteLn('Second click - long wait');
 Wait(randomRange(100,800));
 WriteLn('Repeating');
 Inc (Alchs);
 end

 procedure  two
begin
WriteLn('two');
typeSend('n', false);
 WriteLn('First click');
 Wait(randomRange(100,800));
 click;
 WriteLn('Second click - long wait');
 Wait(randomRange(1600,2100));
 WriteLn('Repeating');
 Inc (Alchs);
 end


 procedure main_loop
 var
 R : Integer

 begin
  R := Random(4);
  case R Of
   1..2:one;
   3..4:two;
 end;
end;

 Begin
  Wait(4000);
  GetMousePos(x, y);
  WriteLn('Found Mouse');
 repeat
  begin
   Main_loop
  end;
 until Alchs > 1000;
end.