unit uFLNet;
interface
procedure connectOfficialServer;
procedure initModule;
procedure freeModule;
implementation
uses SDLh;
var sock: PTCPSocket;
fds: PSDLNet_SocketSet;
procedure connectOfficialServer;
var ipaddr: TIPAddress;
begin
if sock <> nil then
exit;
if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then
sock:= SDLNet_TCP_Open(ipaddr)
end;
procedure initModule;
begin
sock:= nil;
SDLNet_Init;
fds:= SDLNet_AllocSocketSet(1);
end;
procedure freeModule;
begin
end;
end.