changeset 13489 | 480ea997036b |
parent 13406 | 40235ccf8d6d |
child 13506 | bdac56fb6f1a |
--- a/hedgewars/uLandObjects.pas Wed Jul 11 21:56:30 2018 +0200 +++ b/hedgewars/uLandObjects.pas Thu Jul 12 14:41:24 2018 +0200 @@ -731,7 +731,8 @@ s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename; WriteLnToConsole('Reading objects info...'); f:= pfsOpenRead(s); -if checkFails(f <> nil, 'Bad data or cannot access file ' + s, true) then exit; +if (f = nil) then + OutError('Error loading theme. File could not be opened: ' + s, true); ThemeObjects.Count:= 0; SprayObjects.Count:= 0;