SCAR Code:Function SpellsAvailable: TBooleanArray;
var
I: Integer;
begin
If Not GameTab(Tab_Magic)then
Exit;
SetArrayLength(Result, 4);
For I:=0 to 3 do
If (GetColor(592+(I*20), 441) = 16711422) then //16777215 OLD COLOR
Result[I] := True;
end;
Function BookSortedBy: Integer;
begin
Result := -1;
If Not GameTab(Tab_Magic)then
Exit;
For Result:=0 to 2 do
If (GetColor(676+(Result*19), 441) = 16711422)then //16777215 OLD COLOR
Exit;
end;
Changed the color in BookSortedBy() and SpellsAvailable().






Reply With Quote