i made something very similar to this, except it only draws one circle, not a figure of eight, it uses the Radial Walk formula and changes the radius and other stuff
but non of the other devs thought it was any use, apparantly IdleTime and SleepAndMoveMouse are enough antibans
heres the script
SCAR Code:
program New;
//lines with {} before them, mean that they will be removed, they are only for seeing how it works on the debug image
//to see it with the mouse, comment out all {} lines and uncomment //MoveMouse(
var
mousespeed:integer;
procedure RadialMouse(Time,MaxRadius:integer);
var
Start,i,Radius,x1,y1,MinRadius:integer;GettingBigger:boolean;
{}debug:TCanvas;
begin
Start:=GetSystemTime;
Radius:= 1;
MinRadius:=MaxRadius-Round(MaxRadius/2);
GettingBigger:=true;
GetMousePos(x1,y1);
{}displaydebugimgwindow(700,701);
{}displaydebugimgwindow(700,700);
{}x1:= 350;
{}y1:= 350;
{}debug:=GetDebugCanvas;
repeat
//MoveMouse( Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5);
{}debug.pixels[Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5]:= 255;
if(GettingBigger)then
Radius:=Radius+Random(2)+1
else
Radius:=Radius-random(2)-1;
if(Radius>MaxRadius)then
begin
GettingBigger:=false;
if(random(2)=0)then
MaxRadius:=MinRadius+Random(MaxRadius/2)+50
else
MaxRadius:=MinRadius+Random(MaxRadius/2)+10;
end
if(Radius<MinRadius)then
begin
GettingBigger:=true;
if(random(2)=0)then
MinRadius:=MaxRadius-Random(MaxRadius/2)-30
else
MinRadius:=MaxRadius-Random(MaxRadius/2)-2;
end
i:=i+1;
Wait(((MouseSpeed*20)/(MouseSpeed+random(5)))-random(MouseSpeed/2));
until(GetSystemTime-Start >= time);
end;
begin
mousespeed:= 5;
RadialMouse(20000,300);
end.