--- a/hedgewars/CCHandlers.inc	Fri Jan 20 19:02:50 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Jan 21 16:18:19 2006 +0000
@@ -340,3 +340,30 @@
 TurnTimeLeft:= 0
 end;
 
+procedure chSetMap(var s: shortstring);
+begin
+if isDeveloperMode then
+   begin
+   Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
+   InitStepsFlags:= InitStepsFlags or cifMap
+   end
+end;
+
+procedure chSetTheme(var s: shortstring);
+begin
+if isDeveloperMode then
+   begin
+   Pathz[ptThemeCurrent]:= Pathz[ptThemes] + '/' + s;
+   InitStepsFlags:= InitStepsFlags or cifTheme
+   end
+end;
+
+procedure chSetSeed(var s: shortstring);
+begin
+if isDeveloperMode then
+   begin
+   SetRandomParams(s, rndfillstr);
+   InitStepsFlags:= InitStepsFlags or cifRandomize
+   end
+end;
+