equal
deleted
inserted
replaced
8 procedure partRoom(msg: PChar); cdecl; |
8 procedure partRoom(msg: PChar); cdecl; |
9 |
9 |
10 procedure ResetNetState; |
10 procedure ResetNetState; |
11 |
11 |
12 implementation |
12 implementation |
13 uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet; |
13 uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig; |
14 |
14 |
15 type |
15 type |
16 PHandler = procedure (var t: TCmdData); |
16 PHandler = procedure (var t: TCmdData); |
17 |
17 |
18 var isInRoom: boolean; |
18 var isInRoom: boolean; |
83 begin |
83 begin |
84 end; |
84 end; |
85 |
85 |
86 procedure handler_CFG_SCRIPT(var p: TCmdParamS); |
86 procedure handler_CFG_SCRIPT(var p: TCmdParamS); |
87 begin |
87 begin |
|
88 if isInRoom then |
|
89 netSetScript(p.str1) |
88 end; |
90 end; |
89 |
91 |
90 procedure handler_CFG_SEED(var p: TCmdParamS); |
92 procedure handler_CFG_SEED(var p: TCmdParamS); |
91 begin |
93 begin |
|
94 if isInRoom then |
|
95 netSetSeed(p.str1) |
92 end; |
96 end; |
93 |
97 |
94 procedure handler_CFG_TEMPLATE(var p: TCmdParami); |
98 procedure handler_CFG_TEMPLATE(var p: TCmdParami); |
95 begin |
99 begin |
96 end; |
100 end; |
97 |
101 |
98 procedure handler_CFG_THEME(var p: TCmdParamS); |
102 procedure handler_CFG_THEME(var p: TCmdParamS); |
99 begin |
103 begin |
|
104 if isInRoom then |
|
105 netSetTheme(p.str1) |
100 end; |
106 end; |
101 |
107 |
102 procedure handler_CHAT(var p: TCmdParamSL); |
108 procedure handler_CHAT(var p: TCmdParamSL); |
103 var s: string; |
109 var s: string; |
104 begin |
110 begin |
392 sendNet(s); |
398 sendNet(s); |
393 sendUI(mtMoveToLobby, nil, 0); |
399 sendUI(mtMoveToLobby, nil, 0); |
394 end |
400 end |
395 end; |
401 end; |
396 |
402 |
397 |
|
398 procedure ResetNetState; |
403 procedure ResetNetState; |
399 begin |
404 begin |
400 isInRoom:= false; |
405 isInRoom:= false; |
401 end; |
406 end; |
402 |
407 |