--- a/hedgewars/uCommandHandlers.pas	Tue May 06 23:16:35 2014 +0400
+++ b/hedgewars/uCommandHandlers.pas	Wed May 07 00:04:02 2014 +0400
@@ -781,6 +781,11 @@
 WorldEdge:= TWorldEdge(StrToInt(s))
 end;
 
+procedure chAdvancedMapGenMode(var s:shortstring);
+begin
+  cAdvancedMapGenMode:= true;
+end;
+
 procedure initModule;
 begin
 //////// Begin top sorted by freq analysis not including chatmsg
@@ -864,6 +869,7 @@
     RegisterVariable('campvar' , @chCampVar      , true );
     RegisterVariable('record'  , @chRecord       , true );
     RegisterVariable('worldedge',@chWorldEdge    , false);
+    RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);
 end;
 
 procedure freeModule;

--- a/hedgewars/uVariables.pas	Tue May 06 23:16:35 2014 +0400
+++ b/hedgewars/uVariables.pas	Wed May 07 00:04:02 2014 +0400
@@ -101,6 +101,8 @@
     cRopePercent    : LongWord;
     cGetAwayTime    : LongWord;
 
+    cAdvancedMapGenMode: boolean;
+
     cHedgehogTurnTime: Longword;
     cMinesTime       : LongInt;
     cMaxAIThinkTime  : Longword;
@@ -2549,6 +2551,7 @@
     cHealthCaseAmount   := 25;
     cWaterRise          := 47;
     cHealthDecrease     := 5;
+    cAdvancedMapGenMode := false;
 
     InitStepsFlags  := 0;
     RealTicks       := 0;