--- a/hedgewars/uFLGameConfig.pas	Mon Nov 03 23:36:53 2014 +0300
+++ b/hedgewars/uFLGameConfig.pas	Mon Nov 03 23:56:51 2014 +0300
@@ -11,6 +11,7 @@
 
 procedure setSeed(seed: PChar); cdecl;
 function  getSeed: PChar; cdecl;
+procedure setTheme(themeName: PChar); cdecl;
 
 procedure tryAddTeam(teamName: PChar); cdecl;
 procedure tryRemoveTeam(teamName: PChar); cdecl;
@@ -57,6 +58,7 @@
     gtLocal: begin
             ipcToEngine('eseed ' + seed);
             ipcToEngine('e$mapgen ' + intToStr(mapgen));
+            ipcToEngine('e$theme ' + theme);
             i:= 0;
             while (i < 8) and (teams[i].hogsNumber > 0) do
                 begin
@@ -302,4 +304,9 @@
     end
 end;
 
+procedure setTheme(themeName: PChar); cdecl;
+begin
+    currentConfig.theme:= themeName
+end;
+
 end.