SRL Archive - SRL Archives

Procedure OrderWorlds(By : String; Descending : Boolean);
Var TPA : TPointArray;
      ATPA : T2DPointArray;
      I : Byte;
      Arr : T2DStringArray;
      TB : TBox;
Begin
  Arr := [TStringArray(['world', 'w', 'worlds']), TStringArray(['players', 'pl', 'player']), TStringArray(['activity', 'location', 'loc', 'act']),
         TStringArray(['ls', 'lootshare']), TStringArray(['type', 't']), TStringArray(['ping', 'pi'])];
  For I := 0 To High(Arr) Do
  If InStrArr(Lowercase(By), Arr[I], False) Then
    Break;    
  FindColorsTolerance(TPA, 1074576, 0, 0, 716, 141, 1);
  ATPA := SplitTPA(TPA, 2);
  SortATPAFromFirstPoint(ATPA, Point(91, 124));
  TB := GetTPABounds(ATPA[(I * 2)+Integer(Descending)]);
  MouseBox(TB.x1, TB.y1, TB.x2, TB.y2, 1);
End;

Shortened it quite a bit, also fixed it MAJORLY, some settings weren't there/ added new settings. Furthermore, I also fixed the co-ords.
I'm not too sure if ChooseWorldsBy works either :(

Bump!