hedgewars/uLandObjects.pas
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;