SRL Archive - Reflection Development

This is something I have in a miner of mine.

procedure RandomExamine(Inv: Boolean);
var
  i, r, o: Integer;
  TB: TBox;
  oPlayer: TPlayer;
  oPlayers: Array of TPlayer;
begin
  if not LoggedIn then Exit;
  if Inv then
  begin
    o := 0;
    if GameTab(4) then
    begin
      for i := 1 to 28 do
        if ExistsItem(i) then Inc(o);
      if ( o = 0 ) then Exit;
       r := RandomRange(1, o);
      if ExistsItem(r) then
      begin
        TB := InvBox(r);
        MouseBox(TB.x1, TB.y1, TB.x2, TB.y2, 2);
        if ChooseOption('xamine') then
          Exit;
      end;
    end;
  end else
  begin
    oPlayers := GetPlayers;
    if ( Length(oPlayers) = 0 ) then Exit;
    for i := 0 to High(oPlayers) do
    begin
      oPlayer := GetPlayer(oPlayers[i].Name);
      Mouse(oPlayer.Ms.x, oPlayer.Ms.y, 8, 15, false);
      Wait(Random(500) + RandomRange(500, 1500));
      if ChooseOption('ancel') then
        Exit;
    end;
  end;
end;

If (Inv = True) then it will randomly examine an object in your inventory. If (Inv = False) then it will get all the players on the MS and right click on a random 1 and bring up the option menu, as if you are checking out their combat and such. then it with cancel/exit out of the option menu.

Just a little snippet I thought would be kinda cool.

Very nice.

I would definitely use that as AntiBannhammz0r!

Cool! I prolly will use it in my upcoming god script ;)

Thanks guys, it's something I made in a RSBot script and when reflection came out over here and started to excel I converted it to the SMART/Reflection variables here and wala, finished product.

Nice addon for antiban proc. =)