1 unit uFLNet;

     2 interface

     3 

     4 procedure connectOfficialServer;

     5 

     6 procedure initModule;

     7 procedure freeModule;

     8 

     9 implementation

    10 uses SDLh;

    11 

    12 var sock: PTCPSocket;

    13     fds: PSDLNet_SocketSet;

    14 

    15 procedure connectOfficialServer;

    16 var ipaddr: TIPAddress;

    17 begin

    18     if sock <> nil then 

    19         exit;

    20 

    21     if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then

    22         sock:= SDLNet_TCP_Open(ipaddr)

    23 end;

    24 

    25 procedure initModule;

    26 begin

    27     sock:= nil;

    28 

    29     SDLNet_Init;

    30     fds:= SDLNet_AllocSocketSet(1);

    31 end;

    32 

    33 procedure freeModule;

    34 begin

    35 end;

    36 

    37 end.