--- a/hedgewars/uCommandHandlers.pas Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uCommandHandlers.pas Sat May 31 00:33:51 2014 +0200
@@ -783,6 +783,7 @@
procedure chAdvancedMapGenMode(var s:shortstring);
begin
+ s:= s; // avoid compiler hint
cAdvancedMapGenMode:= true;
end;
--- a/hedgewars/uLand.pas Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLand.pas Sat May 31 00:33:51 2014 +0200
@@ -20,7 +20,7 @@
unit uLand;
interface
-uses SDLh, uLandTemplates, uFloat, uConsts, uTypes, uAILandMarks;
+uses SDLh, uLandTemplates, uConsts, uTypes, uAILandMarks;
procedure initModule;
procedure freeModule;
@@ -32,7 +32,7 @@
implementation
uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils,
uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,
- uLandGenMaze, uLandOutline, uPhysFSLayer, uScript, uLandGenPerlin,
+ uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin,
uLandGenTemplateBased, uLandUtils;
var digest: shortstring;
--- a/hedgewars/uLandGenPerlin.pas Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLandGenPerlin.pas Sat May 31 00:33:51 2014 +0200
@@ -127,12 +127,12 @@
height = 2048;
minY = 500;
- bottomPlateHeight = 90;
- bottomPlateMargin = 1200;
+ //bottomPlateHeight = 90;
+ //bottomPlateMargin = 1200;
margin = 200;
procedure GenPerlin;
-var y, x, dy, di, dj, r: LongInt;
+var y, x, {dy, }di, dj, r: LongInt;
begin
inoise_setup();
--- a/hedgewars/uLocale.pas Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLocale.pas Sat May 31 00:33:51 2014 +0200
@@ -52,6 +52,8 @@
f:= pfsOpenRead(FileName);
TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
+s:= '';
+
if f <> nil then
begin
while not pfsEof(f) do
--- a/hedgewars/uScript.pas Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uScript.pas Sat May 31 00:33:51 2014 +0200
@@ -2101,7 +2101,6 @@
end;
procedure ScriptOnPreviewInit;
-var i, j, k: LongInt;
begin
// not required if there is no script to run
if not ScriptLoaded then