hedgewars/uStore.pas
changeset 495 62c1c2b4414c
parent 432 b0f693024b50
child 510 4e994e1b7abb
equal deleted inserted replaced
494:503758a35c02 495:62c1c2b4414c
   246     Close(f);
   246     Close(f);
   247     {$I+}
   247     {$I+}
   248     TryDo(IOResult = 0, msgFailed, true);
   248     TryDo(IOResult = 0, msgFailed, true);
   249     WriteLnToConsole(msgOK);
   249     WriteLnToConsole(msgOK);
   250     val(s, cExplosionBorderColor, c);
   250     val(s, cExplosionBorderColor, c);
       
   251     TryDo(c = 0, 'Theme data corrupted', true);
   251     AdjustColor(cExplosionBorderColor);
   252     AdjustColor(cExplosionBorderColor);
   252     end;
   253     end;
   253 
   254 
   254 begin
   255 begin
   255 for fi:= Low(THWFont) to High(THWFont) do
   256 for fi:= Low(THWFont) to High(THWFont) do