Yea thats pretty good.
Could use some anti ban
:
SCAR Code:
procedure Search;
Var f, e : integer;
begin
mouse(645, -15, 1, 1, true)
wait(800 + Random(200))
begin
case Random(7) of
1: SendText('Macro?')
2: SendText('Mining')
7: SendKeys ('-')
end;
MMouse(727, -9, 1, 1)
e := 5 + Random(6); //Of Almost Logout credits to Yakman :)
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
end;