equal
deleted
inserted
replaced
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; |
19 |
19 myNickname: shortstring; |
20 procedure handler_ADD_TEAM(var p: TCmdParam); |
20 |
|
21 procedure handler_ADD_TEAM(var p: TCmdParam); |
21 begin |
22 begin |
22 end; |
23 end; |
23 |
24 |
24 procedure handler_ADD_TEAM_s(var s: TCmdParamS); |
25 procedure handler_ADD_TEAM_s(var s: TCmdParamS); |
25 begin |
26 begin |
156 begin |
157 begin |
157 end; |
158 end; |
158 |
159 |
159 procedure handler_JOINED_s(var s: TCmdParamS); |
160 procedure handler_JOINED_s(var s: TCmdParamS); |
160 begin |
161 begin |
161 if s.str1 = 'qmlfrontend' then // we joined a room |
162 if s.str1 = myNickname then // we joined a room |
162 begin |
163 begin |
163 isInRoom:= true; |
164 isInRoom:= true; |
164 sendUI(mtMoveToRoom, nil, 0); |
165 sendUI(mtMoveToRoom, nil, 0); |
165 end; |
166 end; |
166 |
167 |
190 begin |
191 begin |
191 end; |
192 end; |
192 |
193 |
193 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
194 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
194 begin |
195 begin |
195 if s.str1 = 'qmlfrontend' then |
196 if s.str1 = myNickname then |
196 begin |
197 begin |
197 sendUI(mtMoveToLobby, nil, 0); |
198 sendUI(mtMoveToLobby, nil, 0); |
198 sendNet('LIST'); |
199 sendNet('LIST'); |
199 end; |
200 end; |
200 |
201 |
207 sendUI(mtRemoveLobbyClient, @p.str2[1], length(p.str2)); |
208 sendUI(mtRemoveLobbyClient, @p.str2[1], length(p.str2)); |
208 end; |
209 end; |
209 |
210 |
210 procedure handler_NICK(var p: TCmdParamS); |
211 procedure handler_NICK(var p: TCmdParamS); |
211 begin |
212 begin |
|
213 myNickname:= p.str1; |
|
214 sendUI(mtNickname, @p.str1[1], length(p.str1)); |
212 end; |
215 end; |
213 |
216 |
214 procedure handler_NOTICE(var p: TCmdParamL); |
217 procedure handler_NOTICE(var p: TCmdParamL); |
215 begin |
218 begin |
216 end; |
219 end; |