hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11431 80a9b14bb8d3
parent 11430 f88b3948adf3
child 11433 bca9afcc3a72
--- a/hedgewars/uFLNetProtocol.pas	Wed Nov 25 21:31:30 2015 +0300
+++ b/hedgewars/uFLNetProtocol.pas	Wed Nov 25 22:10:01 2015 +0300
@@ -10,7 +10,7 @@
 procedure ResetNetState;
 
 implementation
-uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet;
+uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig;
 
 type
     PHandler = procedure (var t: TCmdData);
@@ -85,10 +85,14 @@
 
 procedure handler_CFG_SCRIPT(var p: TCmdParamS);
 begin
+    if isInRoom then
+        netSetScript(p.str1)
 end;
 
 procedure handler_CFG_SEED(var p: TCmdParamS);
 begin
+    if isInRoom then
+        netSetSeed(p.str1)
 end;
 
 procedure handler_CFG_TEMPLATE(var p: TCmdParami);
@@ -97,6 +101,8 @@
 
 procedure handler_CFG_THEME(var p: TCmdParamS);
 begin
+    if isInRoom then
+        netSetTheme(p.str1)
 end;
 
 procedure handler_CHAT(var p: TCmdParamSL);
@@ -394,7 +400,6 @@
     end
 end;
 
-
 procedure ResetNetState;
 begin
     isInRoom:= false;