SRL Archive - SRL Archives

I know some of these may appear useless to you, but some may find it very helpful to them in their scripts.

In: Core/AntiRandoms/AntiRandoms.scar

function SolveMostRandoms: Boolean;
begin
  if (not (LoggedIn)) then Exit;
  case 12 of
    1: Result := FindTalk;
    2: Result := FindInventoryRandoms;
    3: Result := FindNonInventoryRandoms;
    4: Result := FindMod;
    5: if(InBlack)then
       begin
         Writeln('Player is in black!');
         LogOut;
         NextPlayer(False);
         Result := True;
         Exit;
       end;
    6: DwarfItem;
    8: Result := SolvePinball;
    9: if(NoGameTab)then
       begin
         Writeln('No standard game tab found.');
         LogOut;
         NextPlayer(False);
         Result := True;
         Exit;
       end;
    10: Result := SolveNonTalkingRandoms;
    11: if(FindDead)then
        begin
          LogOut;
          NextPlayer(False);
          Result := True;
          Exit;
        end;
    12: Result := FindNormalRandoms;
  end;
end;

In: Core/Antiban.scar

procedure RandomRotate;
var
  i: Integer;
begin
  i := 1 + Random(359);
  case random(5) of
    0: MakeCompass('N');
    1: MakeCompass('S');
    2: MakeCompass('E');
    3: MakeCompass('W');
    4: MakeCompass(IntToStr(i));
  end;
end;

In: Core/Antiban.scar

procedure IP_RockWait;
var
  i: Integer;
begin
  if (not (LoggedIn)) then Exit;
  GetAntiRandoms;
  case Random(10) of
    0: RandomRClick;
    1: GameTab(1 + Random(14));
    2: BoredHuman;
    3: PickUpMouse;
    4: AlmostLogOut;
    5: RandomMovement;
    6: HoverSkill('mining', False);
    7: RandomRotate;
    8: AlmostLogout;
    9: begin
         i:=MouseSpeed;
         MouseSpeed := 15 + Random(31);
         MMouse(1 + Random(790), 1 + Random(593), 4, 5);
         MouseSpeed:=i;
       end;
  end;
end;

You don't have to add them if you want. I know they're basic.

i think this is a recent suggestion, i hope i'm not grave digging.. lol :(

But ya pretty basic, but at least it would be better than someone adding their own procedures doing exactly the same things as them, and it might help 'noobs' who are looking through the includes and think .. ahh, that's clever antiban!! *uses*

Simple, effective, and easy to add.

++ rep :P

In the first one, FindNormalRandoms does almost all of that if I'm not mistaken. Only things it doesn't do is DwarfItem and possibly SolvePinball so you can definately shorten that down a lot.

The second one is pretty useful. Its a good idea.

The third one is just like an overall antiban procedure in a script so I don't think many people would use it.

Out of date..

As ZephyrsFury states most is done already automatically by FindNormalRandoms..

SolvePinball logs you out straight away as soon as it's called and has doen for the past few SRL versions. So this would not work…

DwarfItem is a personal preference..

btw you skipped 7: in the case statement :D, but i like the randomrotate, soon i will be adding antiban and such to my powercutter im working on 900+ lines right now, its pretty good, but it needs some antiban for when the trees are gone…

From: ZephyrsFury
In the first one, FindNormalRandoms does almost all of that if I'm not mistaken. Only things it doesn't do is DwarfItem and possibly SolvePinball so you can definately shorten that down a lot.

The second one is pretty useful. Its a good idea.

The third one is just like an overall antiban procedure in a script so I don't think many people would use it.

Yeah, the reason i did that was to double check everything. If things were missed then FindNormalRandoms would pick it up. More like a fail-safe, kind of.