hedgewars/uLand.pas
changeset 7483 d479b98d38f7
parent 7477 26706bf32ecf
child 7549 f6145d12bb17
child 7556 4617e8ec0507
--- a/hedgewars/uLand.pas	Sat Aug 04 21:08:46 2012 -0400
+++ b/hedgewars/uLand.pas	Sat Aug 04 21:36:31 2012 -0400
@@ -20,7 +20,7 @@
 
 unit uLand;
 interface
-uses SDLh, uLandTemplates, uFloat, uConsts, GLunit, uTypes;
+uses SDLh, uLandTemplates, uFloat, uConsts, GLunit, uTypes, uAILandMarks;
 
 procedure initModule;
 procedure freeModule;
@@ -54,7 +54,6 @@
 
     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
-    uLandTexture.initModule;
     end;
 end;
 
@@ -704,8 +703,6 @@
                 LandPixels[y,x]:= w or (LandPixels[y div 2, x div 2] and AMask)
                 end
     end;
-
-UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false);
 end;
 
 procedure GenPreview(out Preview: TPreview);