I don't know if im the only one that did this but, I changed my anti ban procedure around a little bit.
SCAR Code:
procedure AntiBan;
var opx,opy,Deg,mousx,mousy: integer;
begin
if not LoggedIn then
Exit;
case Random(80) of
0,6,8,12,13,18,28,38,48:
begin
MMouse(Random(766),Random(504),0,0);
Wait(Random(40));
GetMousePos(mousx,mousy);
HDebug('Mouse Randomly Moved To: '+IntToStr(mousx)+','+IntToStr(mousy)+'.');
Inc(Anti);
Inc(ReportVars[9]);
end;
1,14,15: begin
SpecialAttack('always');
Inc(Anti);
Inc(ReportVars[9]);
end;
2: begin
HoverSkill('random',False);
Inc(Anti);
Inc(ReportVars[9]);
end;
7,11: begin
MouseSpeed := MouseSpeedz + Random(5) - Random(5);
HDebug('MouseSpeed changed to: '+IntToStr(MouseSpeed)+'.');
Inc(Anti);
Inc(ReportVars[9]);
end;
9: begin
FTWait(RandomRange(1,30));
Inc(Anti);
Inc(ReportVars[9]);
end;
10: begin
GameTab(1+Random(6));
Wait(Random(100));
HDebug('Switched to GameTab '+IntToStr(GetCurrentTab)+'.');
Wait(100+Random(6000)); // Stare at the tab for a few seconds.
GameTab(4);
FindNormalRandoms;
Inc(Anti);
Inc(ReportVars[9]);
end;
50,51,52,53,54,55: begin
Deg := 1+Random(357);
MakeCompass(IntToStr(Deg));
HDebug('Moved Compass to Degrees '+IntToStr(Deg)+'.');
Inc(Anti);
Inc(ReportVars[9]);
PerfectSouth := True;
end;
56,57,58,59,69: begin // Like BoredHuman, only Hy-Style! xD
MMouse(random(MSX2),random(MSY2),0,0);
Wait(50+Random(500));
Inc(Anti);
Inc(ReportVars[9]);
if IsUpText('ptions') then
begin
GetMousePos(opx,opy);
Mouse(opx,opy,2,2,False);
if ChooseOption('xamine') then
HDebug('Examined something...')
else
HDebug('Faled to Examine an Object.');
end;
end;
72: SetMusik;
79: begin
FTWait(1);
Inc(Anti);
Inc(ReportVars[9]);
end;
end;
end;
I did this because when I play RS i usually dnt sit there with my camera not doing anything and I usually examine stuff a lot. It also reduced the number of randoms i get
. Should try it out too.