hedgewars/uCommandHandlers.pas
branchwebgl
changeset 8096 453917e94e55
parent 8026 4a4f21070479
parent 8025 07862ab415c8
child 8330 aaefa587e277
--- a/hedgewars/uCommandHandlers.pas	Wed Nov 14 00:23:29 2012 +0100
+++ b/hedgewars/uCommandHandlers.pas	Thu Nov 22 00:41:53 2012 +0100
@@ -549,15 +549,9 @@
 if isDeveloperMode then
     begin
     if s = '' then
-        begin
-        UserPathz[ptMapCurrent]:= s;
-        Pathz[ptMapCurrent]:= s;
-        end
+        cPathz[ptMapCurrent]:= s
     else
-        begin
-        UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
-        Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
-        end;
+        cPathz[ptMapCurrent]:= cPathz[ptMaps] + '/' + s;
     InitStepsFlags:= InitStepsFlags or cifMap
     end;
 cMapName:= s;
@@ -568,8 +562,7 @@
 begin
 if isDeveloperMode then
     begin
-    UserPathz[ptCurrTheme]:= UserPathz[ptThemes] + '/' + s;
-    Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;
+    cPathz[ptCurrTheme]:= cPathz[ptThemes] + '/' + s;
     Theme:= s;
     InitStepsFlags:= InitStepsFlags or cifTheme
     end