zenma
2007-08-07 01:41:24
this is a function (it should actually be a procedure but im too lazy to change it ) i made up when i was bored one day anyway thats not the point. heres what it does. but before i put it here umm would this be in any way useful to be used as like an antiban? i asked an srl member but i didnt get a response in like a few weeks so i decided to post it…oh yeah and i know theres a procedure to change mousespeed but i couldnt remmber what it was called so i just decided to do one real fast.
Function MSpeed : Integer;
begin
case random(6) of
1: Mousespeed := 5;
2: Mousespeed := 6;
3: Mousespeed := 7;
4: Mousespeed := 8;
5: Mousespeed := 9;
6: Mousespeed := 4;
end;
end;
{*******************************************************************************
function ZMouse(desx, desy, XX, YY, xm, ym: Integer): Boolean;
By: zenma except for the mmouse procedures benmouse and some other things i think
Description: Moves the mouse
moves the mouse to desx, desy also goes past and then
right back to where it should go(with randomness of xx and yy). supposed to make
moving ur mouse less detectable to fagex therefore making scar more 1337. xm and
ym are just like mmouse modifiers so like it would be mmouse(5,5,xm,ym).
Recommended xx and yy are
80 and 80
*******************************************************************************}
var curmouseposx, curmouseposy, result1: integer;
ii, aa, ender: integer;
function ZMouse(desx, desy, XX, YY, xm, ym: Integer): Integer;
begin
benmouse := true;
result1 := (0 + random(4));
getmousepos(curmouseposx,curmouseposy);
if (result1 > 2) then
begin
for ii := 1 to 9 do
begin
case ii of
1:begin
if (curmouseposx > desx) and (curmouseposy > desy) then
begin
Mspeed;
mmouse((desx - random(xx)), (desy - random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx, desy, xm,ym);
exit;
end;
end;
2:
begin
if (curmouseposx < desx) and (curmouseposy > desy) then
begin
mspeed;
mmouse((desx + random(xx)), (desy - random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx, desy, xm, ym);
exit;
end;
end;
3:
begin
if (curmouseposx > desx) and (curmouseposy < desy) then
begin
Mspeed;
mmouse((desx - random(xx)), (desy + random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx, desy, xm, ym);
exit;
end;
end;
4:
begin
if (curmouseposx < desx) and (curmouseposy < desy) then
begin
mspeed;
mmouse((desx + random(xx)), (desy + random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx, desy, xm, ym);
exit;
end;
end;
5:begin
if (curmouseposx = desx) and (curmouseposy = desy) then
begin
exit;
end;
end;
6:
begin
if (curmouseposx = desx) and (curmouseposy > desy) then
begin
mspeed;
mmouse((desx + random(xx) - random(xx)), (desy - random(yy)), 6, 6);
wait(222 + random(42));
mmouse(desx, desy, xm, ym);
exit;
end;
end;
7:
begin;
if (curmouseposx = desx) and (curmouseposy < desy) then
begin
mspeed;
mmouse((desx + random(xx) - random(xx)), (desy + random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx, desy, xm, ym);
exit;
end;
end;
8:
begin
if (curmouseposx > desx) and (curmouseposy = desy) then
begin
mspeed;
mmouse((desx - random(xx)), (desy + random(yy) - random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx,desy,xm,ym);
exit;
end;
end;
9:
begin
if (curmouseposx < desx) and (curmouseposy = desy) then
begin
mspeed;
mmouse((desx + random(xx) - random(xx)), (desy + random(yy) - random(yy)), xm, ym);
wait(222 + random(42));
mmouse(desx,desy,xm,ym);
exit;
end;
end;
end;
end;
end else mmouse(desx, desy, xm, ym);
end;