This
SCAR Code:
procedure AntiBan;
var
I, H, X, Y : Integer;
Colours : TIntegerArray;
begin
Colours:= [4412226, 7563085, 2308684, 5263446, 7763583, 2236965];
case Random(100) of
0..3 : SleepAndMoveMouse(1000 + Random(2500));
4..7 : begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
if IsUpText('opti') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('Examine');
end;
end;
8..11 : begin //Hovers over people
H:= High(Colours);
for I:= 0 to H do
begin
if FindColorSpiralTolerance(X, Y, Colours[I], MSX1, MSY1, MSX2, MSY2, 20) then
begin
MMouse(X, Y, 7, 7);
GetMousePos(X, Y);
if WaitUpTextMulti(['2 more', 'evel'], 600 + Random(100)) then
if Random(5) = 1 then
Mouse(X, Y, 0, 0, False);
Wait(2000 + Random(1500));
Break;
end;
end;
12 : GameTab(Random(16) + 1);
end;
end;
Seems like it would do. I haven't tested the part that hovers over people, but it should work in theory.
Richard.