diff -r 0e27949850e3 -r 839fd258ae6f hedgewars/uLandObjects.pas --- 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;