Footy
2012-09-30 12:37:42
This is a quick snippet I made, I still have to make a few improvements, but I'd like to hear your opinions on it. It's basically a replacement for mouse. (misspercent) % of the time it will missclick, move the mouse off the menu, then click again in the correct spot. I'm not great at explaining stuff, so just try it. :p
{=============================================================================)
Procedure FootyMouse(x, y, ranx, rany, misspercent:integer; button:variant);
Author: Footy
Description: Moves mouse and clicks, missclicks and corrects itself
(misspercent) percent of the time.
Idea: Litoris
Note: Be careful using mouse_left as the missclickbutton. If used on the MS, it
could walk you somewhere.
(=============================================================================}
Procedure FootyMouse(x, y, ranx, rany, misspercent:integer; button, missclickbutton:variant);
var
sx, sy, r, menuDTM:integer;
begin
case random(100) of
0..(misspercent - 1):
begin
mmouse(x + (randomrange(-40, 40)), y + (randomrange(-40, 40)), 0, 0);
wait(randomrange(15, 40));
clickmouse2(mouse_right);
wait(randomrange(40, 150));
getmousepos(sx, sy);
r := random(4);
if r = 0 then
mmouse(sx + randomrange(182, 260), sy + randomrange(80, 150), 0, 0) else
if r = 1 then
mmouse(sx + randomrange(180, 200), sy - randomrange(80, 150), 0, 0) else
if r = 2 then
mmouse(sx - randomrange(180, 200), sy + randomrange(80, 150), 0, 0) else
mmouse(sx - randomrange(180, 200), sy - randomrange(80, 150), 0, 0);
wait(randomrange(80, 250));
mouse(x, y, ranx, rany, button);
end;
misspercent..99:
begin
mouse(x, y, ranx, rany, button);
end;
end;
end;