diff -r f568cc72ea8c -r c45643d3fd78 hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Sun Aug 06 20:58:05 2006 +0000
+++ b/hedgewars/uLand.pas	Mon Aug 07 12:08:43 2006 +0000
@@ -43,7 +43,7 @@
 procedure GenMap;
 
 implementation
-uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uIO, uLandTemplates, uLandObjects, uSHA;
+uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uIO, uLandTemplates, uLandObjects;
 
 type TPixAr = record
               Count: Longword;
@@ -51,16 +51,16 @@
               end;
 
 procedure LogLandDigest;
-var ctx: TSHA1Context;
-    dig: TSHA1Digest;
+//var ctx: TSHA1Context;
+//    dig: TSHA1Digest;
 begin
-SHA1Init(ctx);
-SHA1Update(ctx, @Land, sizeof(Land));
-dig:= SHA1Final(ctx);
+//SHA1Init(ctx);
+//SHA1Update(ctx, @Land, sizeof(Land));
+//dig:= SHA1Final(ctx);
 {$IFDEF DEBUGFILE}
-AddFileLog('SHA1 Land digest: {'+inttostr(dig.LongWords[0])+':'
-           +inttostr(dig.LongWords[1])+':'+inttostr(dig.LongWords[2])+':'
-           +inttostr(dig.LongWords[3])+':'+inttostr(dig.LongWords[4])+'}');
+//AddFileLog('SHA1 Land digest: {'+inttostr(dig.LongWords[0])+':'
+//           +inttostr(dig.LongWords[1])+':'+inttostr(dig.LongWords[2])+':'
+//           +inttostr(dig.LongWords[3])+':'+inttostr(dig.LongWords[4])+'}');
 {$ENDIF}
 end;