SCAR Code:
Program New;
{.include srl/srl.scar}
Function AboveBelow(x, y : integer) : Integer;
Var
XX, YY : Integer;
begin
Xx := x;
Yy := y;
GetMousePos(x, y);
if (x < Xx) and (y < yy) then
Begin
Result := 1;
Exit;
End;
if (x < Xx) and (y > yy) then
Begin
Result := 2;
Exit;
End;
if (x > Xx) and (y > yy) then
Begin
Result := 3;
Exit;
End Else
Result := 4;
End;
{*******************************************************************************
Procedure Misclick(Chance, P, A : Integer; Left : Boolean);
By: Sand Storm
Description: Should sometimes misclick by moving the mouse farther than it
should by 20-30 pixels, then reverse back up to the real coords.
*******************************************************************************}
Procedure Misclick(Chance, p, a : Integer; left : boolean);
Begin
Case AboveBelow(p, a) Of
1 : Case Random(Chance) Of
0 : Begin
Mouse(p + 20 + random(10), a + 20 + random(10), 3, 3, left);
Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
Mouse(p, a, 3, 3, left);
End;
1..Chance : Mouse (p, a, 3, 3, left);
end;
2 : Case Random(Chance) Of
0 : Begin
Mouse(p + 20 + random(10), a - 20 - random(10), 3, 3, left);
Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
Mouse(p, a, 3, 3, left);
End;
1..Chance : Mouse (p, a, 3, 3, left);
end;
3 : Case Random(Chance) Of
0 : Begin
Mouse(p - 20 - random(10), a - 20 - random(10), 3, 3, left);
Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
Mouse(p, a, 3, 3, left);
End;
1..Chance : Mouse (p, a, 3, 3, left);
end;
4 : Case Random(Chance) Of
0 : Begin
Mouse(p - 20 - random(10), a + 20 + random(10), 3, 3, left);
Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
Mouse(p, a, 3, 3, left);
End;
1..Chance : Mouse (p, a, 3, 3, left);
end;
End;
end;
Begin
SetupSrl;
Misclick(2, 620, 337, false);
End.