--- a/hedgewars/uLand.pas	Wed Feb 18 15:04:40 2009 +0000
+++ b/hedgewars/uLand.pas	Wed Feb 18 16:28:21 2009 +0000
@@ -38,7 +38,7 @@
 function  GenPreview: TPreview;
 procedure CheckLandDigest(s: shortstring);
 procedure UpdateLandTexture(Y, Height: LongInt);
-procedure RealLandTexUpdate;
+procedure DrawLand (X, Y: LongInt);
 
 implementation
 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO, uAmmos;
@@ -817,6 +817,11 @@
 updBottomY:= 0
 end;
 
+procedure DrawLand(X, Y: LongInt);
+begin
+RealLandTexUpdate;
+DrawTexture(X, Y, LandTexture)
+end;
 
 initialization