branch | qmlfrontend |
changeset 10953 | 360e57620df3 |
parent 10951 | 89a7f617e091 |
child 11408 | b894922d58cc |
10951:89a7f617e091 | 10953:360e57620df3 |
---|---|
5 |
5 |
6 procedure initModule; |
6 procedure initModule; |
7 procedure freeModule; |
7 procedure freeModule; |
8 |
8 |
9 implementation |
9 implementation |
10 uses SDLh, uFLIPC, uFLTypes, uFLUICallback; |
10 uses SDLh, uFLIPC, uFLTypes, uFLUICallback, uFLNetTypes; |
11 |
11 |
12 const endCmd: string = #10 + #10; |
12 const endCmd: string = #10 + #10; |
13 |
13 |
14 function getNextChar: char; forward; |
14 function getNextChar: char; forward; |
15 function getCurrChar: char; forward; |
15 function getCurrChar: char; forward; |
16 procedure sendNet(s: shortstring); forward; |
16 procedure sendNet(s: shortstring); forward; |
17 |
|
18 type TCmdType = (cmd___UNKNOWN__, cmd_WARNING, cmd_TEAM_COLOR, cmd_TEAM_ACCEPTED, cmd_SERVER_VARS, cmd_SERVER_MESSAGE, cmd_SERVER_AUTH, cmd_RUN_GAME, cmd_ROUND_FINISHED, cmd_ROOMS, cmd_PROTO, cmd_PING, cmd_NOTICE, cmd_NICK, cmd_LOBBY_LEFT, cmd_LOBBY_JOINED, cmd_LEFT, cmd_KICKED, cmd_JOINING, cmd_JOINED, cmd_INFO, cmd_HH_NUM, cmd_EM, cmd_CONNECTED, cmd_CLIENT_FLAGS, cmd_CHAT, cmd_BYE, cmd_BANLIST, cmd_ASKPASSWORD); |
|
19 |
17 |
20 type |
18 type |
21 TNetState = (netDisconnected, netConnecting, netLoggedIn); |
19 TNetState = (netDisconnected, netConnecting, netLoggedIn); |
22 TParserState = record |
20 TParserState = record |
23 cmd: TCmdType; |
21 cmd: TCmdType; |
54 procedure handler_CLIENT_FLAGS; |
52 procedure handler_CLIENT_FLAGS; |
55 begin |
53 begin |
56 end; |
54 end; |
57 |
55 |
58 procedure handler_CONNECTED; |
56 procedure handler_CONNECTED; |
57 var data: TCmdConnectedData; |
|
59 begin |
58 begin |
60 sendUI(mtNetData, nil, 0); |
59 sendUI(mtNetData, nil, 0); |
61 end; |
60 end; |
62 |
61 |
63 procedure handler_EM; |
62 procedure handler_EM; |