SCAR Code:
{*******************************************************************************
procedure JMouse(hl,hk : integer ; jl, jk : integer; left:boolean);
By: JuKKa
Description: Moves the mouse a little randomly. should be pretty undetectable
*******************************************************************************}
Procedure JMouse(hl,hk : integer ; jl, jk : integer; left:boolean);
var
KK,KL : Integer;
GK,Gl : Integer;
begin
getmousepos(kk,kl)
Case random(2)of
0 : kk:= kk + 250;
1 : kk:= kk - 250;
end;
Case random(2)of
0: kl:= kl + 250;
1: kl:= kl - 250;
end;
case random(2)of
0: GL:= hl + 150;
1: GL:= HL - 150;
end;
Case Random(2)of
0: GK:= Hk + 150;
1: Gk:= Hk - 150;
end;
MouseSpeed:= 5+random(5);
MMouse(kk,Kl,10,10)
MouseSpeed:= 15+random(5);
MMouse(Gl,Gk,Jl,Jk)
MouseSpeed:= 10+random(5);
Mouse(Hl,Hk,Jl,Jk,left)
end;
u use it like this:
SCAR Code:
Begin
SetupSRL;
activateclient;
JMouse(895, 121,5,5,true)
End.
and for the lazy ones:
SCAR Code:
program mousetest;
{.include SRL/SRL.scar}
procedure setup;
begin
setupsrl;
x:= 500;
y:= 500;
end;
Procedure JMouse(hl,hk : integer ; jl, jk : integer; left:boolean);
var
KK,KL : Integer;
GK,Gl : Integer;
begin
getmousepos(kk,kl)
Case random(2)of
0 : kk:= kk + 250;
1 : kk:= kk - 250;
end;
Case random(2)of
0: kl:= kl + 250;
1: kl:= kl - 250;
end;
case random(2)of
0: GL:= hl + 100;
1: GL:= HL - 100;
end;
Case Random(2)of
0: GK:= Hk + 100;
1: Gk:= Hk - 100;
end;
MouseSpeed:= 5+random(5);
MMouse(kk,Kl,10,10)
MouseSpeed:= 15+random(5);
MMouse(Gl,Gk,Jl,Jk)
MouseSpeed:= 10+random(5);
Mouse(Hl,Hk,Jl,Jk,left)
end;
begin
Setup;
activateclient;
JMouse(X, Y,5,5,true)
end.
open up a BIG window in paint, if u wonder how it will move.