343 procedure chSetMap(var s: shortstring);

   344 begin

   345 if isDeveloperMode then

   346    begin

   347    Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;

   348    InitStepsFlags:= InitStepsFlags or cifMap

   349    end

   350 end;

   351 

   352 procedure chSetTheme(var s: shortstring);

   353 begin

   354 if isDeveloperMode then

   355    begin

   356    Pathz[ptThemeCurrent]:= Pathz[ptThemes] + '/' + s;

   357    InitStepsFlags:= InitStepsFlags or cifTheme

   358    end

   359 end;

   360 

   361 procedure chSetSeed(var s: shortstring);

   362 begin

   363 if isDeveloperMode then

   364    begin

   365    SetRandomParams(s, rndfillstr);

   366    InitStepsFlags:= InitStepsFlags or cifRandomize

   367    end

   368 end;

   369