hedgewars/uLandObjects.pas
changeset 80 3c3dc6a148ca
parent 74 42257fee61ae
child 107 b08ce0293a51
--- a/hedgewars/uLandObjects.pas	Sun Jul 16 08:13:51 2006 +0000
+++ b/hedgewars/uLandObjects.pas	Thu Jul 20 20:11:32 2006 +0000
@@ -364,7 +364,7 @@
     f: textfile;
     i, ii: integer;
 begin
-s:= Pathz[ptThemeCurrent] + '/' + cThemeCFGFilename;
+s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
 WriteLnToConsole('Reading objects info...');
 AssignFile(f, s);
 {$I-}
@@ -376,7 +376,7 @@
     Readln(f, s); // filename
     with ThemeObjects.objs[i] do
          begin
-         Surf:= LoadImage(Pathz[ptThemeCurrent] + '/' + s, false);
+         Surf:= LoadImage(Pathz[ptCurrTheme] + '/' + s, false);
          Read(f, Width, Height);
          with inland do Read(f, x, y, w, h);
          Read(f, rectcnt);
@@ -393,7 +393,7 @@
     Readln(f, s); // filename
     with SprayObjects.objs[i] do
          begin
-         Surf:= LoadImage(Pathz[ptThemeCurrent] + '/' + s, false);
+         Surf:= LoadImage(Pathz[ptCurrTheme] + '/' + s, false);
          Width:= Surf.w;
          Height:= Surf.h;
          ReadLn(f, Maxcnt)