SRL Archive - SRL Archives

Magic.scar fixed

Frement

2010-02-02 22:30:50

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().