diff -r 5a74923120d5 -r f373838129c2 hedgewars/uFLNet.pas --- a/hedgewars/uFLNet.pas Thu Apr 16 23:31:13 2015 +0300 +++ b/hedgewars/uFLNet.pas Wed Apr 22 23:33:16 2015 +0300 @@ -11,15 +11,22 @@ var sock: PTCPSocket; fds: PSDLNet_SocketSet; + buf: shortstring; + +function netReader(data: pointer): LongInt; cdecl; export; +begin +end; procedure connectOfficialServer; var ipaddr: TIPAddress; begin - if sock <> nil then + if sock <> nil then exit; if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then - sock:= SDLNet_TCP_Open(ipaddr) + sock:= SDLNet_TCP_Open(ipaddr); + + callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil); end; procedure initModule;