P1ng
09-17-2012, 05:41 AM
With the recent spate of interest in Jagex's new bot detection system and us feeling the need to up our anti-ban measures I developed this little piece of code to replicate misclicks when dropping or just generally choosing a right-click option with an item or just about anything you may RClick in the game.
function MisclickOption(Option: String; Time: Integer): Boolean;
var
x, y: Integer;
begin
case Random(100) of
0..4:
begin
GetMousePos(x, y);
if OptionsExist(['xamin'], False) then
begin
WaitOption('xamin', Time);
Wait(RandomRange(20, 40));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
5..9:
begin
GetMousePos(x, y);
if OptionsExist(['ancel'], False) then
begin
WaitOption('ancel', Time);
Wait(RandomRange(20, 40));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
10..14:
begin
GetMousePos(x, y);
if OptionsExist(['Use'], False) then
begin
WaitOption('Use', Time);
Wait(RandomRange(20, 40));
RandomRClick;
Wait(RandomRange(50, 80));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
15..99: Result := WaitOption(Option, Time);
end;
end;
function is used like this:
for i := 1 to 28 do
begin
InvMouse(i, mouse_Right);
MisclickOption('rop', 300);
end;
function MisclickOption(Option: String; Time: Integer): Boolean;
var
x, y: Integer;
begin
case Random(100) of
0..4:
begin
GetMousePos(x, y);
if OptionsExist(['xamin'], False) then
begin
WaitOption('xamin', Time);
Wait(RandomRange(20, 40));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
5..9:
begin
GetMousePos(x, y);
if OptionsExist(['ancel'], False) then
begin
WaitOption('ancel', Time);
Wait(RandomRange(20, 40));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
10..14:
begin
GetMousePos(x, y);
if OptionsExist(['Use'], False) then
begin
WaitOption('Use', Time);
Wait(RandomRange(20, 40));
RandomRClick;
Wait(RandomRange(50, 80));
Mouse(x, y, 5, RandomRange(-1, 1), mouse_Right);
Result := WaitOption(Option, Time);
end else
Result := WaitOption(Option, Time);
end;
15..99: Result := WaitOption(Option, Time);
end;
end;
function is used like this:
for i := 1 to 28 do
begin
InvMouse(i, mouse_Right);
MisclickOption('rop', 300);
end;