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, uFLGameConfig, uFLUtils; |
13 uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig, uFLUtils, uFLIPC, uUtils; |
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; |
51 , @tmpTeam.hedgehogs[6].name |
51 , @tmpTeam.hedgehogs[6].name |
52 , @tmpTeam.hedgehogs[6].hat |
52 , @tmpTeam.hedgehogs[6].hat |
53 , @tmpTeam.hedgehogs[7].name |
53 , @tmpTeam.hedgehogs[7].name |
54 , @tmpTeam.hedgehogs[7].hat |
54 , @tmpTeam.hedgehogs[7].hat |
55 ); |
55 ); |
|
56 |
56 procedure handler_ADD_TEAM(var p: TCmdParam); |
57 procedure handler_ADD_TEAM(var p: TCmdParam); |
57 begin |
58 begin |
58 teamIndex:= 0; |
59 teamIndex:= 0; |
59 tmpTeam.extDriven:= true; |
|
60 tmpTeam.color:= 0 |
60 tmpTeam.color:= 0 |
61 end; |
61 end; |
62 |
62 |
63 procedure handler_ADD_TEAM_s(var s: TCmdParamS); |
63 procedure handler_ADD_TEAM_s(var s: TCmdParamS); |
64 begin |
64 begin |
315 |
315 |
316 procedure handler_EM(var p: TCmdParam); |
316 procedure handler_EM(var p: TCmdParam); |
317 begin |
317 begin |
318 end; |
318 end; |
319 |
319 |
320 procedure handler_EM_s(var s: TCmdParamS); |
320 procedure handler_EM_s(var p: TCmdParamL); |
321 begin |
321 var i, l: Longword; |
|
322 s: shortstring; |
|
323 begin |
|
324 i:= 1; |
|
325 l:= length(p.str1); |
|
326 |
|
327 while i < l do |
|
328 begin |
|
329 s:= DecodeBase64(copy(p.str1, i, 240)); |
|
330 ipcToEngineRaw(@s[0], byte(s[0])); |
|
331 inc(i, 160) |
|
332 end; |
322 end; |
333 end; |
323 |
334 |
324 procedure handler_ERROR(var p: TCmdParamL); |
335 procedure handler_ERROR(var p: TCmdParamL); |
325 begin |
336 begin |
326 sendUI(mtError, @p.str1[1], length(p.str1)); |
337 sendUI(mtError, @p.str1[1], length(p.str1)); |
409 begin |
420 begin |
410 end; |
421 end; |
411 |
422 |
412 procedure handler_PROTO(var p: TCmdParami); |
423 procedure handler_PROTO(var p: TCmdParami); |
413 begin |
424 begin |
414 writeln('Protocol ', p.param1) |
425 //writeln('Protocol ', p.param1) |
415 end; |
426 end; |
416 |
427 |
417 procedure handler_REMOVE_TEAM(var p: TCmdParamS); |
428 procedure handler_REMOVE_TEAM(var p: TCmdParamS); |
418 begin |
429 begin |
419 netRemoveTeam(p.str1) |
430 netRemoveTeam(p.str1) |