equal
deleted
inserted
replaced
216 netReader:= 0; |
216 netReader:= 0; |
217 |
217 |
218 if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then |
218 if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then |
219 sock:= SDLNet_TCP_Open(ipaddr); |
219 sock:= SDLNet_TCP_Open(ipaddr); |
220 |
220 |
221 SDL_CreateThread(@netWriter{$IFDEF SDL2}, 'netWriter'{$ENDIF}, sock); |
221 SDL_CreateThread(@netWriter, 'netWriter', sock); |
222 |
222 |
223 repeat |
223 repeat |
224 c:= getNextChar; |
224 c:= getNextChar; |
225 //writeln('>>>>> ', c, ' [', letters[state.l], '] ', commands[state.l]); |
225 //writeln('>>>>> ', c, ' [', letters[state.l], '] ', commands[state.l]); |
226 if c = #0 then |
226 if c = #0 then |
274 state.buf:= ''; |
274 state.buf:= ''; |
275 |
275 |
276 state.l:= 0; |
276 state.l:= 0; |
277 state.netState:= netConnecting; |
277 state.netState:= netConnecting; |
278 |
278 |
279 netReaderThread:= SDL_CreateThread(@netReader{$IFDEF SDL2}, 'netReader'{$ENDIF}, nil); |
279 netReaderThread:= SDL_CreateThread(@netReader, 'netReader', nil); |
280 end; |
280 end; |
281 |
281 |
282 procedure initModule; |
282 procedure initModule; |
283 begin |
283 begin |
284 sock:= nil; |
284 sock:= nil; |