hedgewars/uLand.pas
changeset 3463 23c50be687a9
parent 3407 dcc129c4352e
child 3509 d72c2219595d
--- a/hedgewars/uLand.pas	Sat May 15 09:21:25 2010 +0000
+++ b/hedgewars/uLand.pas	Sun May 16 17:23:30 2010 +0000
@@ -1212,15 +1212,19 @@
 procedure GenMap;
 var x, y, w, c: Longword;
 begin
-hasBorder:= false;
+    hasBorder:= false;
 
-LoadThemeConfig;
-isMap:= false;
-if (GameFlags and gfForts) = 0 then
-   if Pathz[ptMapCurrent] <> '' then LoadMap
-                                else GenLandSurface
-                               else MakeFortsMap;
-AddProgress;
+    LoadThemeConfig;
+    isMap:= false;
+    if (GameFlags and gfForts) = 0 then
+        if Pathz[ptMapCurrent] <> '' then
+            LoadMap
+        else
+            GenLandSurface
+    else
+        MakeFortsMap;
+
+    AddProgress;
 
 {$IFDEF DEBUGFILE}LogLandDigest;{$ENDIF}