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.
Simba Code:
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.