SRL Archive - SRL Archives

Here it is…

Procedure MouseAntiban(Kind : string);//By Dr D. Dervish.
var
  x,y,Times : Integer;

begin
  case Kind of
    'examining': begin
                   repeat
                     MMouse(0,0,700,500);
                     If IsUpText('ptions') then
                     begin
                       GetMousePos(x,y);
                       Wait(100+random(200));
                       Mouse(x,y,0,0,true);
                       Wait(300+random(500));
                       ChooseOption('xamin');
                       Wait(500+random(500));
                     end;
                     Times := Times +1;
                   until(Times = 5+random(10));
                   Times := 0;
                 end;

    'moving':    begin
                   repeat
                     MMouse(0,0,700,500);
                     MMouse(0,0,700,500);
                     MMouse(0,0,700,500);
                     Times := Times +1
                   until(Times = 5+random(10));
                   Times := 0;
                 end;
  end;
end;

Aaand some more…

Procedure CompassAntiBan;//By Dr D. Dervish
var
  CompassDegrees, Times: integer;

begin
  CompassDegrees := round(rs_GetCompassAngleDegrees);
  repeat
    CompassDegrees := CompassDegrees + Random(500);
    MakeCompass(IntToStr(CompassDegrees));
    Wait(500+random(2500));
    Case Random(2) of
      0: MouseAntiban('moving');
      1: MouseAntiban('examining');
    end;
    Times := Times +1;
  until(Times = 5+random(10));
  Times := 0;
end;

Tell me about it…

Hmm…I don't get the point of the difference from moving and examining. But shouldn't it be like this?

Procedure MouseAntiban(Kind : string);//By Dr D. Dervish.
var
  x, y, Times : Integer;
begin
  case Kind of
    'examining': begin
                   repeat
                     MMouse(0, 0, 700, 500);
                     if IsUpText('ptions') then
                     begin
                       GetMousePos(x, y);
                       Wait(100 + Random(200));
                       Mouse(x, y, 0, 0, False); //<-----------You had true ;)
                       Wait(300 + Random(500));
                       ChooseOption('xamin');
                       Wait(500 + Random(500));
                     end;
                     Times := Times +1;
                   until(Times = 5 + Random(10));
                   Times := 0;
                 end;

    'moving':    begin
                   repeat
                     MMouse(0, 0, 700, 500);
                     MMouse(0, 0, 700, 500);
                     MMouse(0, 0, 700, 500);
                     Times := Times + 1
                   until(Times = 5 + Random(10));
                   Times := 0;
                 end;
  end;
end;

And for the Compass one, couldn't you just do:

MakeCompass(IntToStr(Random360)));

Instead of all that code to make it move randomly?

Procedure CompassAntiBan;//By Dr D. Dervish
var
  CompassDegrees, Times: integer;
begin
  CompassDegrees := round(rs_GetCompassAngleDegrees);
  repeat
    CompassDegrees := CompassDegrees + Random(500);
    MakeCompass(IntToStr(CompassDegrees));
    Wait(500 + Random(2500));
    case Random(2) of
      0: MouseAntiban('moving');
      1: MouseAntiban('examining');
    end;
    Times := Times + 1;
  until(Times = 5 + Random(10));
  Times := 0;
end;

It's good tho, and it's great practice. Oh, and also, make sure you use correct standards. ;) I fixed them if you don't mind (Sorry OCD kicked in) Keep it up ;)

~Camo

Uncorrect standaaaards ? :O

Where ?

To be honest I don't use the EXACT standards when I script for myself. Got some preferences.

It is true that getting the compass degrees is worthless though.

Thanks for fixing that True / False in Mouse.

Btw, I think make compass is safer than SendKeysSilent in BoredHuman in AntiBan.scar…

From: Dr D. Dervish
Uncorrect standaaaards ? :O

Where ?

To be honest I don't use the EXACT standards when I script for myself. Got some preferences.

It is true that getting the compass degrees is worthless though.

Thanks for fixing that True / False in Mouse.

Btw, I think make compass is safer than SendKeysSilent in BoredHuman in AntiBan.scar…

Yeah, I just had a OCD attack, sorry :/ But it's not worthless. It's great to learn how the code is done. Yours basically does what I posted do. But hey, it's there if you wanted a script that was completely yours ;)

~Camo

OCD means ? :p

Obsessive Compulsive Disorder
http://en.wikipedia.org/wiki/Obsessive-compulsive_disorder

It sucks, cause I like everything to be perfect and when it's not I can't stop it lol xD

~Camo