author | unc0rr |
Thu, 11 Aug 2016 23:05:14 +0300 | |
branch | qmlfrontend |
changeset 11848 | 01f88c3b7b66 |
parent 11847 | 93e6c401cc3d |
permissions | -rw-r--r-- |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
1 |
unit uFLNet; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
2 |
interface |
11847 | 3 |
uses SDLh; |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
4 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
5 |
procedure connectOfficialServer; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
6 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
7 |
procedure initModule; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
8 |
procedure freeModule; |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
9 |
procedure sendNet(s: shortstring); |
11420 | 10 |
procedure sendNetLn(s: shortstring); |
11847 | 11 |
procedure passToNet(data: PByteArray; len: Longword); |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
12 |
|
11449 | 13 |
var isConnected: boolean = false; |
11848 | 14 |
myNickname: shortstring = 'qmlfrontend'; |
11449 | 15 |
|
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
16 |
implementation |
11847 | 17 |
uses uFLIPC, uFLUICallback, uFLNetTypes, uFLUtils, uFLTypes; |
10931 | 18 |
|
11442 | 19 |
const endCmd: shortstring = #10 + #10; |
10931 | 20 |
|
21 |
function getNextChar: char; forward; |
|
22 |
function getCurrChar: char; forward; |
|
23 |
||
10929 | 24 |
type |
25 |
TParserState = record |
|
26 |
cmd: TCmdType; |
|
27 |
l: LongInt; |
|
10931 | 28 |
buf: shortstring; |
29 |
bufpos: byte; |
|
10929 | 30 |
end; |
31 |
PHandler = procedure; |
|
32 |
||
33 |
var state: TParserState; |
|
34 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
35 |
procedure handleTail; forward; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
36 |
function getShortString: shortstring; forward; |
11442 | 37 |
function getLongString: ansistring; forward; |
10929 | 38 |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
39 |
procedure handler_; |
10929 | 40 |
begin |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
41 |
sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
42 |
handleTail() |
10929 | 43 |
end; |
44 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
45 |
procedure handler_L; |
11428 | 46 |
var cmd: TCmdParamL; |
11467 | 47 |
s: ansistring; |
10929 | 48 |
begin |
11428 | 49 |
cmd.cmd:= state.cmd; |
11467 | 50 |
s:= getLongString; |
51 |
cmd.str1len:= length(s); |
|
52 |
if cmd.str1len = 0 then exit; |
|
53 |
cmd.str1:= s; |
|
11428 | 54 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
55 |
handleTail() |
10929 | 56 |
end; |
57 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
58 |
procedure handler_ML; |
11428 | 59 |
var cmd: TCmdParamL; |
60 |
f: boolean; |
|
11467 | 61 |
s: ansistring; |
10929 | 62 |
begin |
11428 | 63 |
sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
64 |
cmd.cmd:= Succ(state.cmd); |
|
65 |
||
66 |
repeat |
|
11467 | 67 |
s:= getLongString; |
68 |
cmd.str1len:= length(s); |
|
69 |
f:= cmd.str1len <> 0; |
|
70 |
||
11428 | 71 |
if f then |
11467 | 72 |
begin |
73 |
cmd.str1:= s; |
|
11428 | 74 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
11467 | 75 |
end |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
76 |
until not f; |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
77 |
state.l:= 0 |
10929 | 78 |
end; |
79 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
80 |
procedure handler_MS; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
81 |
var cmd: TCmdParamS; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
82 |
f: boolean; |
10929 | 83 |
begin |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
84 |
sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
85 |
cmd.cmd:= Succ(state.cmd); |
10929 | 86 |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
87 |
repeat |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
88 |
cmd.str1:= getShortString; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
89 |
f:= cmd.str1[0] <> #0; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
90 |
if f then |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
91 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
92 |
until not f; |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
93 |
state.l:= 0 |
10929 | 94 |
end; |
95 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
96 |
procedure handler_S; |
11428 | 97 |
var cmd: TCmdParamS; |
10929 | 98 |
begin |
11428 | 99 |
cmd.cmd:= state.cmd; |
100 |
cmd.str1:= getShortString; |
|
101 |
if cmd.str1[0] = #0 then exit; |
|
102 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
103 |
handleTail() |
10929 | 104 |
end; |
105 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
106 |
procedure handler_SL; |
11420 | 107 |
var cmd: TCmdParamSL; |
10929 | 108 |
begin |
11420 | 109 |
cmd.cmd:= state.cmd; |
110 |
cmd.str1:= getShortString; |
|
11425 | 111 |
if cmd.str1[0] = #0 then exit; |
11442 | 112 |
cmd.str2:= getLongString; |
11425 | 113 |
if cmd.str2[0] = #0 then exit; |
11420 | 114 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
115 |
handleTail() |
10929 | 116 |
end; |
117 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
118 |
procedure handler_SMS; |
11429 | 119 |
var cmd: TCmdParamS; |
120 |
f: boolean; |
|
10929 | 121 |
begin |
11429 | 122 |
cmd.cmd:= state.cmd; |
123 |
cmd.str1:= getShortString; |
|
124 |
if cmd.str1[0] = #0 then exit; |
|
125 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
126 |
||
127 |
cmd.cmd:= Succ(state.cmd); |
|
128 |
repeat |
|
129 |
cmd.str1:= getShortString; |
|
130 |
f:= cmd.str1[0] <> #0; |
|
131 |
if f then |
|
132 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
133 |
until not f; |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
134 |
state.l:= 0 |
10929 | 135 |
end; |
136 |
||
11447 | 137 |
procedure handler_SS; |
138 |
var cmd: TCmdParamSS; |
|
139 |
begin |
|
140 |
cmd.cmd:= state.cmd; |
|
141 |
cmd.str1:= getShortString; |
|
142 |
if cmd.str1[0] = #0 then exit; |
|
143 |
cmd.str2:= getShortString; |
|
144 |
if cmd.str2[0] = #0 then exit; |
|
145 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
146 |
handleTail() |
|
147 |
end; |
|
148 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
149 |
procedure handler__i; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
150 |
var cmd: TCmdParami; |
11425 | 151 |
s: shortstring; |
10929 | 152 |
begin |
11425 | 153 |
s:= getShortString(); |
154 |
if s[0] = #0 then exit; |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
155 |
cmd.cmd:= state.cmd; |
11425 | 156 |
s:= getShortString(); |
157 |
if s[0] = #0 then exit; |
|
158 |
cmd.param1:= strToInt(s); |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
159 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
160 |
handleTail() |
10929 | 161 |
end; |
162 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
163 |
procedure handler_i; |
11439 | 164 |
var cmd: TCmdParami; |
165 |
s: shortstring; |
|
10929 | 166 |
begin |
11439 | 167 |
s:= getShortString(); |
168 |
if s[0] = #0 then exit; |
|
169 |
cmd.cmd:= state.cmd; |
|
170 |
cmd.param1:= strToInt(s); |
|
171 |
sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
172 |
handleTail() |
10929 | 173 |
end; |
174 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
175 |
procedure handler__UNKNOWN_; |
10929 | 176 |
begin |
11451 | 177 |
//writeln('[NET] Unknown cmd'); |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
178 |
handleTail(); |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
179 |
state.l:= 0 |
10929 | 180 |
end; |
181 |
||
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
182 |
const net2cmd: array[0..46] of TCmdType = (cmd_WARNING, cmd_WARNING, |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
183 |
cmd_TEAM_COLOR, cmd_TEAM_ACCEPTED, cmd_SERVER_VARS, cmd_SERVER_MESSAGE, |
11430
2947f06e8533
Another approach to parsing two-lines protocol commands
unc0rr
parents:
11429
diff
changeset
|
184 |
cmd_SERVER_AUTH, cmd_RUN_GAME, cmd_ROUND_FINISHED, cmd_ROOM_UPD, cmd_ROOM_DEL, |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
185 |
cmd_ROOM_ADD, cmd_ROOMS, cmd_REMOVE_TEAM, cmd_PROTO, cmd_PING, cmd_NOTICE, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
186 |
cmd_NICK, cmd_LOBBY_LEFT, cmd_LOBBY_JOINED, cmd_LEFT, cmd_KICKED, cmd_JOINING, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
187 |
cmd_JOINED, cmd_INFO, cmd_HH_NUM, cmd_ERROR, cmd_EM, cmd_CONNECTED, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
188 |
cmd_CLIENT_FLAGS, cmd_CHAT, cmd_CFG_THEME, cmd_CFG_TEMPLATE, cmd_CFG_SEED, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
189 |
cmd_CFG_SCRIPT, cmd_CFG_SCHEME, cmd_CFG_MAZE_SIZE, cmd_CFG_MAP, cmd_CFG_MAPGEN, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
190 |
cmd_CFG_FULLMAPCONFIG, cmd_CFG_FEATURE_SIZE, cmd_CFG_DRAWNMAP, cmd_CFG_AMMO, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
191 |
cmd_BYE, cmd_BANLIST, cmd_ASKPASSWORD, cmd_ADD_TEAM); |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
192 |
const letters: array[0..332] of char = ('A', 'D', 'D', '_', 'T', 'E', 'A', 'M', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
193 |
#10, 'S', 'K', 'P', 'A', 'S', 'S', 'W', 'O', 'R', 'D', #10, 'B', 'A', 'N', 'L', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
194 |
'I', 'S', 'T', #10, 'Y', 'E', #10, 'C', 'F', 'G', #10, 'A', 'M', 'M', 'O', #10, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
195 |
'D', 'R', 'A', 'W', 'N', 'M', 'A', 'P', #10, 'F', 'E', 'A', 'T', 'U', 'R', 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
196 |
'_', 'S', 'I', 'Z', 'E', #10, 'U', 'L', 'L', 'M', 'A', 'P', 'C', 'O', 'N', 'F', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
197 |
'I', 'G', #10, 'M', 'A', 'P', 'G', 'E', 'N', #10, #10, 'Z', 'E', '_', 'S', 'I', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
198 |
'Z', 'E', #10, 'S', 'C', 'H', 'E', 'M', 'E', #10, 'R', 'I', 'P', 'T', #10, 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
199 |
'E', 'D', #10, 'T', 'E', 'M', 'P', 'L', 'A', 'T', 'E', #10, 'H', 'E', 'M', 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
200 |
#10, 'H', 'A', 'T', #10, 'L', 'I', 'E', 'N', 'T', '_', 'F', 'L', 'A', 'G', 'S', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
201 |
#10, 'O', 'N', 'N', 'E', 'C', 'T', 'E', 'D', #10, 'E', 'M', #10, 'R', 'R', 'O', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
202 |
'R', #10, 'H', 'H', '_', 'N', 'U', 'M', #10, 'I', 'N', 'F', 'O', #10, 'J', 'O', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
203 |
'I', 'N', 'E', 'D', #10, 'I', 'N', 'G', #10, 'K', 'I', 'C', 'K', 'E', 'D', #10, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
204 |
'L', 'E', 'F', 'T', #10, 'O', 'B', 'B', 'Y', ':', 'J', 'O', 'I', 'N', 'E', 'D', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
205 |
#10, 'L', 'E', 'F', 'T', #10, 'N', 'I', 'C', 'K', #10, 'O', 'T', 'I', 'C', 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
206 |
#10, 'P', 'I', 'N', 'G', #10, 'R', 'O', 'T', 'O', #10, 'R', 'E', 'M', 'O', 'V', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
207 |
'E', '_', 'T', 'E', 'A', 'M', #10, 'O', 'O', 'M', 'S', #10, #10, 'A', 'D', 'D', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
208 |
#10, 'D', 'E', 'L', #10, 'U', 'P', 'D', #10, 'U', 'N', 'D', '_', 'F', 'I', 'N', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
209 |
'I', 'S', 'H', 'E', 'D', #10, 'U', 'N', '_', 'G', 'A', 'M', 'E', #10, 'S', 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
210 |
'R', 'V', 'E', 'R', '_', 'A', 'U', 'T', 'H', #10, 'M', 'E', 'S', 'S', 'A', 'G', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
211 |
'E', #10, 'V', 'A', 'R', 'S', #10, 'T', 'E', 'A', 'M', '_', 'A', 'C', 'C', 'E', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
212 |
'P', 'T', 'E', 'D', #10, 'C', 'O', 'L', 'O', 'R', #10, 'W', 'A', 'R', 'N', 'I', |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
213 |
'N', 'G', #10, #0, #10); |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
214 |
const commands: array[0..332] of integer = (20, 8, 0, 0, 0, 0, 0, 0, -56, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
215 |
0, 0, 0, 0, 0, 0, 0, 0, -55, 11, 7, 0, 0, 0, 0, 0, -54, 0, 0, -53, 115, 89, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
216 |
0, 5, 0, 0, 0, -52, 9, 0, 0, 0, 0, 0, 0, 0, -51, 26, 12, 0, 0, 0, 0, 0, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
217 |
0, 0, -50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -49, 16, 0, 6, 4, 0, 0, -48, -47, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
218 |
0, 0, 0, 0, 0, 0, 0, -46, 16, 11, 5, 0, 0, 0, -45, 0, 0, 0, 0, -44, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
219 |
-43, 0, 8, 0, 0, 0, 0, 0, 0, -42, 0, 0, 0, 0, -41, 4, 0, 0, -40, 12, 0, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
220 |
0, 0, 0, 0, 0, 0, -39, 0, 0, 0, 0, 0, 0, 0, 0, -38, 8, 2, -37, 0, 0, 0, 0, -36, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
221 |
7, 0, 0, 0, 0, 0, -35, 5, 0, 0, 0, -34, 11, 0, 0, 0, 3, 0, -33, 0, 0, 0, -32, 7, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
222 |
0, 0, 0, 0, 0, -31, 22, 4, 0, 0, -30, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, -29, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
223 |
0, 0, 0, -28, 11, 4, 0, 0, -27, 0, 0, 0, 0, 0, -26, 10, 4, 0, 0, -25, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
224 |
0, -24, 51, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, -23, 31, 17, 0, 2, -22, 0, 4, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
225 |
-21, 4, 0, 0, -20, 0, 0, 0, -19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -18, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
226 |
0, 0, 0, 0, 0, -17, 25, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, -16, 8, 0, 0, 0, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
227 |
-15, 0, 0, 0, 0, -14, 20, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, -13, 0, 0, 0, 0, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
228 |
0, -12, 8, 0, 0, 0, 0, 0, 0, -11, 0, -10); |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
229 |
const handlers: array[0..46] of PHandler = (@handler__UNKNOWN_, @handler_L, |
11447 | 230 |
@handler_SS, @handler_S, @handler_SL, @handler_L, @handler_S, @handler_, |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
231 |
@handler_, @handler_MS, @handler_S, @handler_MS, @handler_MS, @handler_S, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
232 |
@handler_i, @handler_MS, @handler_L, @handler_S, @handler_SL, @handler_MS, |
11447 | 233 |
@handler_SL, @handler_, @handler_S, @handler_MS, @handler_MS, @handler_SS, |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
234 |
@handler_L, @handler_ML, @handler__i, @handler_SMS, @handler_SL, @handler_S, |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
235 |
@handler_i, @handler_S, @handler_S, @handler_MS, @handler_i, @handler_i, |
11459 | 236 |
@handler_S, @handler_MS, @handler_i, @handler_L, @handler_SL, @handler_SL, |
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
237 |
@handler_MS, @handler_S, @handler_MS); |
11423 | 238 |
|
10931 | 239 |
procedure handleTail; |
240 |
var cnt: Longint; |
|
241 |
c: char; |
|
242 |
begin |
|
243 |
c:= getCurrChar; |
|
244 |
repeat |
|
245 |
if c = #10 then cnt:= 0 else cnt:= 1; |
|
246 |
repeat |
|
247 |
c:= getNextChar; |
|
248 |
inc(cnt) |
|
249 |
until (c = #0) or (c = #10); |
|
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
250 |
until (c = #0) or (cnt = 1); |
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
251 |
state.l:= 0 |
10931 | 252 |
end; |
253 |
||
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
254 |
var sock: PTCPSocket; |
10900 | 255 |
netReaderThread: PSDL_Thread; |
10931 | 256 |
|
257 |
function getCurrChar: char; |
|
258 |
begin |
|
259 |
getCurrChar:= state.buf[state.bufpos] |
|
260 |
end; |
|
10900 | 261 |
|
262 |
function getNextChar: char; |
|
263 |
var r: byte; |
|
264 |
begin |
|
10931 | 265 |
if state.bufpos < byte(state.buf[0]) then |
10900 | 266 |
begin |
10931 | 267 |
inc(state.bufpos); |
10900 | 268 |
end else |
269 |
begin |
|
10931 | 270 |
r:= SDLNet_TCP_Recv(sock, @state.buf[1], 255); |
10900 | 271 |
if r > 0 then |
272 |
begin |
|
10931 | 273 |
state.bufpos:= 1; |
274 |
state.buf[0]:= char(r); |
|
10900 | 275 |
end else |
276 |
begin |
|
10931 | 277 |
state.bufpos:= 0; |
278 |
state.buf[0]:= #0; |
|
10929 | 279 |
end |
10931 | 280 |
end; |
281 |
||
282 |
getNextChar:= state.buf[state.bufpos]; |
|
10900 | 283 |
end; |
10898 | 284 |
|
285 |
function netReader(data: pointer): LongInt; cdecl; export; |
|
10929 | 286 |
var c: char; |
10933 | 287 |
ipaddr: TIPAddress; |
10898 | 288 |
begin |
10933 | 289 |
netReader:= 0; |
290 |
||
291 |
if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then |
|
292 |
sock:= SDLNet_TCP_Open(ipaddr); |
|
293 |
||
294 |
repeat |
|
295 |
c:= getNextChar; |
|
11434
d96a37de1076
Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents:
11430
diff
changeset
|
296 |
//writeln('>>>>> ', c, ' [', letters[state.l], '] ', commands[state.l], ' ', state.l); |
10933 | 297 |
if c = #0 then |
11449 | 298 |
isConnected:= false |
10933 | 299 |
else |
300 |
begin |
|
301 |
while (letters[state.l] <> c) and (commands[state.l] > 0) do |
|
302 |
inc(state.l, commands[state.l]); |
|
303 |
||
304 |
if c = letters[state.l] then |
|
305 |
if commands[state.l] < 0 then |
|
10931 | 306 |
begin |
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
307 |
state.cmd:= net2cmd[-10 - commands[state.l]]; |
11451 | 308 |
//writeln('[NET] ', state.cmd); |
10931 | 309 |
handlers[-10 - commands[state.l]](); |
11425 | 310 |
state.l:= 0 |
10931 | 311 |
end |
10933 | 312 |
else |
313 |
inc(state.l) |
|
10931 | 314 |
else |
10933 | 315 |
begin |
11424 | 316 |
handler__UNKNOWN_() |
10933 | 317 |
end |
10931 | 318 |
end |
11449 | 319 |
until not isConnected; |
10931 | 320 |
|
11420 | 321 |
SDLNet_TCP_Close(sock); |
10933 | 322 |
sock:= nil; |
323 |
||
324 |
writeln('[NET] netReader: disconnected'); |
|
10931 | 325 |
end; |
326 |
||
327 |
procedure sendNet(s: shortstring); |
|
328 |
begin |
|
329 |
writeln('[NET] Send: ', s); |
|
10935 | 330 |
ipcToNet(s + endCmd); |
331 |
end; |
|
332 |
||
11420 | 333 |
procedure sendNetLn(s: shortstring); |
334 |
begin |
|
335 |
writeln('[NET] Send: ', s); |
|
336 |
ipcToNet(s + #10); |
|
337 |
end; |
|
338 |
||
11418
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
339 |
function getShortString: shortstring; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
340 |
var s: shortstring; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
341 |
c: char; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
342 |
begin |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
343 |
s[0]:= #0; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
344 |
|
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
345 |
repeat |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
346 |
inc(s[0]); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
347 |
s[byte(s[0])]:= getNextChar |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
348 |
until (s[0] = #255) or (s[byte(s[0])] = #10) or (s[byte(s[0])] = #0); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
349 |
|
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
350 |
if s[byte(s[0])] = #10 then |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
351 |
dec(s[0]) |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
352 |
else |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
353 |
repeat c:= getNextChar until (c = #0) or (c = #10); |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
354 |
|
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
355 |
getShortString:= s |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
356 |
end; |
ffff8a0d1a76
Implement processing net commands in the main thread
unc0rr
parents:
11408
diff
changeset
|
357 |
|
11442 | 358 |
function getLongString: ansistring; |
359 |
var s: shortstring; |
|
360 |
l: ansistring; |
|
361 |
c: char; |
|
362 |
begin |
|
363 |
l:= ''; |
|
364 |
||
365 |
repeat |
|
366 |
s[0]:= #0; |
|
367 |
repeat |
|
368 |
inc(s[0]); |
|
369 |
c:= getNextChar; |
|
370 |
s[byte(s[0])]:= c |
|
371 |
until (s[0] = #255) or (c = #10) or (c = #0); |
|
372 |
||
373 |
if s[byte(s[0])] = #10 then |
|
374 |
dec(s[0]); |
|
375 |
||
376 |
l:= l + s |
|
377 |
until (c = #10) or (c = #0); |
|
378 |
||
379 |
getLongString:= l |
|
380 |
end; |
|
381 |
||
10935 | 382 |
procedure netSendCallback(p: pointer; msg: PChar; len: Longword); |
383 |
begin |
|
11847 | 384 |
// FIXME W A R N I N G: totally thread-unsafe due to use of sock variable |
10935 | 385 |
SDLNet_TCP_Send(sock, msg, len); |
10898 | 386 |
end; |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
387 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
388 |
procedure connectOfficialServer; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
389 |
begin |
10898 | 390 |
if sock <> nil then |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
391 |
exit; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
392 |
|
10931 | 393 |
state.bufpos:= 0; |
394 |
state.buf:= ''; |
|
395 |
||
396 |
state.l:= 0; |
|
11449 | 397 |
isConnected:= true; |
10931 | 398 |
|
11408 | 399 |
netReaderThread:= SDL_CreateThread(@netReader, 'netReader', nil); |
11420 | 400 |
SDL_DetachThread(netReaderThread) |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
401 |
end; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
402 |
|
11847 | 403 |
|
404 |
procedure passToNet(data: PByteArray; len: Longword); |
|
405 |
var i: Longword; |
|
11848 | 406 |
l: ansistring; |
407 |
s: shortstring; |
|
11847 | 408 |
begin |
409 |
i:= 0; |
|
410 |
||
411 |
while(i < len) do |
|
412 |
begin |
|
413 |
if data^[i + 1] = ord('s') then |
|
414 |
begin |
|
11848 | 415 |
s[0]:= char(data^[i] - 1); |
416 |
Move(data^[i + 2], s[1], data^[i] - 1); |
|
417 |
||
418 |
l:= myNickname + #10; |
|
419 |
l:= l + s; |
|
420 |
||
421 |
sendUI(mtRoomChatLine, @l[1], length(l)); |
|
422 |
sendNetLn('CHAT'); |
|
423 |
sendNet(s); |
|
11847 | 424 |
end; |
425 |
||
426 |
inc(i, data^[i] + 1); |
|
427 |
end; |
|
428 |
end; |
|
429 |
||
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
430 |
procedure initModule; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
431 |
begin |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
432 |
sock:= nil; |
11449 | 433 |
isConnected:= false; |
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
434 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
435 |
SDLNet_Init; |
10935 | 436 |
|
437 |
registerNetCallback(nil, @netSendCallback); |
|
10896
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
438 |
end; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
439 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
440 |
procedure freeModule; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
441 |
begin |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
442 |
end; |
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
443 |
|
5a74923120d5
Start network support: only setting up a connection for now
unc0rr
parents:
diff
changeset
|
444 |
end. |