Here is one of my favorite little snips that i've made to help calm my paranoia about mouseBox and getting banned
has helped a bit in preventing IMO, but don't quote me on that!
also doubles as a test to see if i've indented / spaced things correctly if anyone has time and bothers reading this :P
EXAMPLE :
Following will right click either box1 or box2 and then wait 2000ms
Simba Code:
thoBox(intToBox(123,123,145,145),intToBox(234,455,123,123),gaussRangeInt(2000,3000),mouse_right);
Simba Code:
procedure thoBox(Box: TBox; Box1: TBox; waitTime: Integer = 0; mouseAction: Integer = MOUSE_LEFT);
begin
mouseSpeed:=gaussRangeInt(55,77);
if random(0,10) >= 6 then
begin
mouseBox(box,mouseAction);
if random(0,20) = 5 then
begin
mouseSpeed:=gaussRangeInt(55,77);
if random(0,10) >= 5 then
smallRandomMouse(10 + random(10))
else
smallRandomMouse(15 + random(15);
if waitTime >= 1 then
wait(waitTime)
else
wait(gaussRangent(666,999));
end;
end else
begin
mouseBox(box1,mouseAction);
if random(0,20)= 5 then
begin
mouseSpeed:=gaussRangeInt(55,77);
if random(0,10) >= 5 then
smallRandomMouse(10 + Random(10))
else
smallRandomMouse(15 + Random(15));
if waitTime >= 1 then
wait(waitTime)
else
wait(gaussRangeInt(666,999);
end;
end;
end;
THOs paranoid blind walker:
Simba Code:
procedure thoBlindWalk(map: TSPSArea; PT: TPoint; PT1: TPoint);
begin
if random(0,10)>=6 then
begin
mouseSpeed:=GaussRangeInt(55,77);
map.blindWalk(PT);
wait(gaussRangeInt(333,444));
end else
begin
mouseSpeed:=GaussRangeInt(55,77);
map.blindWalk(PT1);
wait(gaussRangeInt(333,444));
end;
end;