--- a/hedgewars/uLandGenPerlin.pas	Fri Mar 14 00:42:04 2014 +0400
+++ b/hedgewars/uLandGenPerlin.pas	Fri Mar 14 13:59:39 2014 +0400
@@ -54,7 +54,7 @@
 
 function lerp(t, a, b: LongInt) : LongInt; inline;
 begin
-    lerp:= a + (t * (b - a) shr 12)
+    lerp:= a + (Int64(b - a) * t shr 12)
 end;