2 little functions for the new magic tab interface:
scar Code:
Function GetMagicsSort: Integer;
Var
  I : Integer;
  Pnts : TPointArray;
Begin
  GameTab(7);
  Wait(150 + Random(100));
  Pnts := [Point(678, 443), Point(697, 443), Point(716, 443)];
  For I := 0 To 2 Do
    If GetColor(Pnts[I].X, Pnts[I].Y) <> 7038086 Then
    Begin
      Result := I + 1;
      Exit;
    End;
End;
   
Procedure SortMagics(Order : Integer);
Var
  X : Integer;
Begin
  If Not InIntArray([1, 2, 3], Order) Then
    Exit;
  X := 659 + (19 * Order);
  GameTab(7);
  MouseBox(X, 443, X + 12, 458, 1);
End;
GetMagicsSort would return...
1 if magics are sorted by level order
2 if magics are sorted by combat first
3 if magics are sorted by teleports first
0 if it couldn't solve it

So SortMagics(1) would sort magics by level order