First one is:
SCAR Code:
procedure CompassMMouse(Dx, Dy, RandX, RandY, Degrees, Direction, LowHigh: Integer);
var I, Cx, V, Cy, DirAdj, VertAdj, CMark: Integer;
Path: TPointArray;
begin
GetMousePos(Cx, Cy);
Path := MakeMouseSplinePath(Cx, Cy, Dx, Dy, 7, 50, 40);
repeat
for I := 0 to Degrees / 10 do
begin
DirAdj := Direction;
VertAdj := LowHigh;
case DirAdj of
1: begin
case VertAdj of
1: begin
KeyDown(VK_LEFT);
Wait(1 + random(1));
KeyDown(VK_UP);
Wait(10 + random(5));
KeyUp(VK_UP);
KeyUP(VK_LEFT);
end;
2: begin
KeyDown(VK_LEFT);
Wait(1 + random(1));
KeyDown(VK_DOWN);
Wait(10 + random(5));
KeyUp(VK_DOWN);
KeyUP(VK_LEFT);
end;
end;
end;
2: begin
case VertAdj of
1: begin
KeyDown(VK_RIGHT);
Wait(1 + random(1));
KeyDown(VK_UP);
Wait(10 + random(5));
KeyUp(VK_UP);
KeyUP(VK_RIGHT);
end;
2: begin
KeyDown(VK_RIGHT);
Wait(1 + random(1));
KeyDown(VK_DOWN);
Wait(10 + random(5));
KeyUp(VK_DOWN);
KeyUP(VK_RIGHT);
end;
end;
end;
end;
MarkTime(CMark);
while (TimeFromMark(CMark) < 10) do
begin
MMouse(Path[V].x, Path[V].y, RandX, RandY);
V := V + 1;
end;
end;
until (V = GetArrayLength(Path));
end;
As amazing as it sounds, it moves the mouse same time while rotating the compass!
Usage : CompassMMouse(1 + Random(550), 1 + Random(550), 200, 200, 180, Random(2), Random(2));
Next one iiiz :
SCAR Code:
procedure ImpatiencyEruption(Ms: Integer);
var FL: array[1..12] of Integer;
KMark, F: Integer;
begin
FL[1] := 112;
FL[2] := 113;
FL[3] := 114;
FL[4] := 115;
FL[5] := 116;
FL[6] := 117;
FL[7] := 118;
FL[8] := 119;
FL[9] := 120;
FL[1] := 121
FL[11] := 122;
FL[12] := 123;
MarkTime(KMark);
while TimeFromMark(KMark) < MS do
begin
try
F := Random(12);
KeyDown(FL[F]);
Wait(50 + Random(20));
KeyUp(FL[F]);
Wait(100 + Random(25));
except
F := Random(10);
end;
end;
end;
Usage : ImpatiencyEruption(1 + Random(5000));
Its good to use with totally random amount of time.
Third and the last one:
SCAR Code:
procedure HumanTab2(Tabs, LastTab: Integer);
var RealMouseSpeed, I: Integer;
begin
RealMouseSpeed := MouseSpeed;
MouseSpeed := (7 + Random(3));
for i := 1 to Tabs do
begin
GameTab(1 + random(13));
end;
GameTab(LastTab);
MouseSpeed := RealMouseSpeed;
end;
Usage: HumanTab2(1 + Random(13), 1 + Random(13));
Enjoy and comment! Try the first one, it looks kinda scary when compass and mouse move same time.