hedgewars/uLandObjects.pas
changeset 54 839fd258ae6f
parent 51 b6e3ae05857f
child 56 a29135563e94
--- a/hedgewars/uLandObjects.pas	Thu Jan 19 21:12:20 2006 +0000
+++ b/hedgewars/uLandObjects.pas	Fri Jan 20 19:02:50 2006 +0000
@@ -185,7 +185,7 @@
 if x1 > 0 then
    begin
    Result:= true;
-   tmpsurf:= LoadImage(Pathz[ptGraphics] + 'Girder.png', false);
+   tmpsurf:= LoadImage(Pathz[ptGraphics] + '/Girder.png', false);
    rr.x:= x1;
    rr.y:= y;
    while rr.x + 100 < x2 do
@@ -292,7 +292,7 @@
     i, ii, t, n: Longword;
     b: boolean;
 begin
-s:= Pathz[ptThemeCurrent] + cThemeCFGFilename;
+s:= Pathz[ptThemeCurrent] + '/' + cThemeCFGFilename;
 WriteLnToConsole('Adding objects...');
 AssignFile(f, s);
 {$I-}
@@ -304,7 +304,7 @@
     Readln(f, s); // filename
     with ThemeObjects[i] do
          begin
-         Surf:= LoadImage(Pathz[ptThemeCurrent] + s + '.png', false);
+         Surf:= LoadImage(Pathz[ptThemeCurrent] + '/' + s + '.png', false);
          Read(f, Width, Height);
          with inland do Read(f, x, y, w, h);
          Read(f, rectcnt);
@@ -315,7 +315,7 @@
     end;
 Closefile(f);
 {$I+}
-TryDo(IOResult = 0, 'Bad data or cannot access file', true);
+TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true);
 
 // loaded objects, try to put on land
 if n = 0 then exit;