781 WorldEdge:= TWorldEdge(StrToInt(s))

   781 WorldEdge:= TWorldEdge(StrToInt(s))

   782 end;

   782 end;

   783 

   783 

   784 procedure chAdvancedMapGenMode(var s:shortstring);

   784 procedure chAdvancedMapGenMode(var s:shortstring);

   785 begin

   785 begin

   786   cAdvancedMapGenMode:= true;

   787   cAdvancedMapGenMode:= true;

   787 end;

   788 end;

   788 

   789 

   789 procedure initModule;

   790 procedure initModule;

   790 begin

   791 begin