That was wrong place for the patch
authorunc0rr
Mon, 26 Jan 2009 21:03:57 +0000
changeset 1768 9f83102b11ca
parent 1767 d0560fe17932
child 1769 32d4bda17da7
That was wrong place for the patch
hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Mon Jan 26 21:02:49 2009 +0000
+++ b/hedgewars/uLand.pas	Mon Jan 26 21:03:57 2009 +0000
@@ -579,6 +579,9 @@
 end;
 
 procedure GenMap;
+var x, y: LongInt;
+	c: Longword;
+	isCave: boolean;
 begin
 LoadThemeConfig;
 
@@ -590,14 +593,56 @@
 
 {$IFDEF DEBUGFILE}LogLandDigest;{$ENDIF}
 
+isCave:= false;
+// check for land near top
+for x:= 0 to LAND_WIDTH-1 do
+	for y:= 0 to 4 do
+		if Land[y, x] <> 0 then
+			begin
+			isCave:= true;
+			break;
+			end;
+
+if isCave then
+	begin
+	// experiment hardcoding cave
+	for y:= 0 to LAND_HEIGHT-1 do
+		begin
+		Land[y, 0]:= COLOR_INDESTRUCTIBLE;
+		Land[y, 1]:= COLOR_INDESTRUCTIBLE;
+		Land[y, 2]:= COLOR_INDESTRUCTIBLE;
+		Land[y, LAND_WIDTH-3]:= COLOR_INDESTRUCTIBLE;
+		Land[y, LAND_WIDTH-2]:= COLOR_INDESTRUCTIBLE;
+		Land[y, LAND_WIDTH-1]:= COLOR_INDESTRUCTIBLE;
+		if y mod 32 < 16 then c:= $FF000000
+		else c:= $FF00FFFF;
+		LandPixels[y, 0]:= c;
+		LandPixels[y, 1]:= c;
+		LandPixels[y, 2]:= c;
+		LandPixels[y, LAND_WIDTH-3]:= c;
+		LandPixels[y, LAND_WIDTH-2]:= c;
+		LandPixels[y, LAND_WIDTH-1]:= c;
+		end;
+
+	for x:= 0 to LAND_WIDTH-1 do
+		begin
+		Land[0, x]:= COLOR_INDESTRUCTIBLE;
+		Land[1, x]:= COLOR_INDESTRUCTIBLE;
+		Land[2, x]:= COLOR_INDESTRUCTIBLE;
+		if x mod 32 < 16 then c:= $FF000000
+		else c:= $FF00FFFF;
+		LandPixels[0, x]:= c;
+		LandPixels[1, x]:= c;
+		LandPixels[2, x]:= c;
+		end;
+	end;
+
 UpdateLandTexture(0, LAND_HEIGHT);
 end;
 
 function GenPreview: TPreview;
 var x, y, xx, yy, t, bit: LongInt;
     Preview: TPreview;
-    isCave: boolean;
-    c: LongWord;
 begin
 WriteLnToConsole('Generating preview...');
 GenBlank(EdgeTemplates[SelectTemplate]);
@@ -615,51 +660,7 @@
             if t > 8 then Preview[y, x]:= Preview[y, x] or ($80 shr bit)
             end
         end;
-GenPreview:= Preview;
-
-isCave:= false;
-// check for land near top
-for x:= 0 to LAND_WIDTH-1 do
-   for y:= 0 to 4 do
-       if Land[y, x] <> 0 then
-           begin
-           isCave:= true;
-           break;
-           end;
-
-if isCave then
-    begin
-    // experiment hardcoding cave
-    for y:= 0 to LAND_HEIGHT-1 do
-        begin
-        Land[y, 0]:= COLOR_INDESTRUCTIBLE;
-        Land[y, 1]:= COLOR_INDESTRUCTIBLE;
-        Land[y, 2]:= COLOR_INDESTRUCTIBLE;
-        Land[y, LAND_WIDTH-3]:= COLOR_INDESTRUCTIBLE;
-        Land[y, LAND_WIDTH-2]:= COLOR_INDESTRUCTIBLE;
-        Land[y, LAND_WIDTH-1]:= COLOR_INDESTRUCTIBLE;
-        if y mod 32 < 16 then c:= $FF000000
-        else c:= $FF00FFFF;   
-        LandPixels[y, 0]:= c;           
-        LandPixels[y, 1]:= c;           
-        LandPixels[y, 2]:= c;           
-        LandPixels[y, LAND_WIDTH-3]:= c;           
-        LandPixels[y, LAND_WIDTH-2]:= c;           
-        LandPixels[y, LAND_WIDTH-1]:= c;           
-        end;
-  
-    for x:= 0 to LAND_WIDTH-1 do
-        begin
-        Land[0, x]:= COLOR_INDESTRUCTIBLE;
-        Land[1, x]:= COLOR_INDESTRUCTIBLE;
-        Land[2, x]:= COLOR_INDESTRUCTIBLE;
-        if x mod 32 < 16 then c:= $FF000000
-        else c:= $FF00FFFF;   
-        LandPixels[0, x]:= c;           
-        LandPixels[1, x]:= c;        
-        LandPixels[2, x]:= c;      
-        end;
-     end;
+GenPreview:= Preview
 end;
 
 procedure UpdateLandTexture(Y, Height: LongInt);