--- 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;