32 procedure IPCCheckSock;

    32 procedure IPCCheckSock;

    33 procedure InitIPC;

    33 procedure InitIPC;

    34 procedure CloseIPC;

    34 procedure CloseIPC;

    35 procedure NetGetNextCmd;

    35 procedure NetGetNextCmd;

    36 

    36 

    37 implementation

    39 implementation

    38 uses uConsole, uConsts, uWorld, uMisc, uLand;

    40 uses uConsole, uConsts, uWorld, uMisc, uLand;

    39 const isPonged: boolean = false;

    41 const isPonged: boolean = false;

    40 

    42 

    41 type PCmd = ^TCmd;

    43 type PCmd = ^TCmd;

    52 var  IPCSock: PTCPSocket = nil;

    54 var  IPCSock: PTCPSocket = nil;

    53      fds: PSDLNet_SocketSet;

    55      fds: PSDLNet_SocketSet;

    54 

    56 

    55      headcmd: PCmd = nil;

    57      headcmd: PCmd = nil;

    56      lastcmd: PCmd = nil;

    58      lastcmd: PCmd = nil;

    59 

    59 

    60 function AddCmd(Time: Longword; str: shortstring): PCmd;

    60 function AddCmd(Time: Longword; str: shortstring): PCmd;

    61 var Result: PCmd;

    61 var Result: PCmd;

    62 begin

    62 begin

    63 new(Result);

    63 new(Result);