--- 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;