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