--- a/hedgewars/uLand.pas	Wed Jun 19 18:51:02 2019 +0200
+++ b/hedgewars/uLand.pas	Wed Jun 19 19:02:49 2019 +0200
@@ -282,7 +282,7 @@
 
 
 procedure GenDrawnMap;
-var lowerX, upperX, lowerY, upperY, lowerFS, upperFS, value: LongInt;
+var lowerX, upperX, lowerY, upperY, lowerFS, upperFS: LongInt;
 begin
     if (cFeatureSize <= 6) then
         MaxHedgehogs:= 6 + (cFeatureSize-1) * 2