diff -r d62d3c706947 -r 9329dab04490 hedgewars/uLandGenPerlin.pas --- a/hedgewars/uLandGenPerlin.pas Sun Nov 16 22:23:28 2014 +0100 +++ b/hedgewars/uLandGenPerlin.pas Mon Nov 17 15:25:24 2014 +0100 @@ -15,7 +15,7 @@ var p: array[0..511] of LongInt; -const fadear: array[byte] of LongInt = +const fadear: array[byte] of LongInt = (0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 3, 3, 4, 6, 7, 9, 10, 12, 14, 17, 19, 22, 25, 29, 32, 36, 40, 45, 49, 54, 60, 65, 71, 77, 84, 91, 98, 105, 113, 121, 130, 139, 148, 158, 167, 178, @@ -44,7 +44,7 @@ begin t0:= fadear[t shr 8]; - if t0 = fadear[255] then + if t0 = fadear[255] then t1:= t0 else t1:= fadear[t shr 8 + 1]; @@ -176,7 +176,7 @@ else if param1 = 0 then Land[y, x]:= lfObjMask else - Land[y, x]:= lfBasic + Land[y, x]:= lfBasic end; end;