--- 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;