38 

    38 

    39 const ipcPort: Word = 0;

    39 const ipcPort: Word = 0;

    40 

    40 

    41 procedure SendIPC(s: shortstring);

    41 procedure SendIPC(s: shortstring);

    42 procedure SendIPCXY(cmd: char; X, Y: SmallInt);

    42 procedure SendIPCXY(cmd: char; X, Y: SmallInt);

    43 procedure SendIPCAndWaitReply(s: shortstring);

    44 procedure SendIPCAndWaitReply(s: shortstring);

    44 procedure IPCCheckSock;

    45 procedure IPCCheckSock;

    45 procedure InitIPC;

    46 procedure InitIPC;

    46 procedure CloseIPC;

    47 procedure CloseIPC;

    47 procedure NetGetNextCmd;

    48 procedure NetGetNextCmd;

   141    SDLNet_Write32(GameTicks, @s[Succ(byte(s[0]))]);

   142    SDLNet_Write32(GameTicks, @s[Succ(byte(s[0]))]);

   142    {$IFDEF DEBUGFILE}AddFileLog('IPC send: '+s);{$ENDIF}

   143    {$IFDEF DEBUGFILE}AddFileLog('IPC send: '+s);{$ENDIF}

   143    inc(s[0],4);

   144    inc(s[0],4);

   144    SDLNet_TCP_Send(IPCSock, @s, Succ(byte(s[0])))

   145    SDLNet_TCP_Send(IPCSock, @s, Succ(byte(s[0])))

   145    end

   146    end

   146 end;

   152 end;

   147 

   153 

   148 procedure SendIPCXY(cmd: char; X, Y: SmallInt);

   154 procedure SendIPCXY(cmd: char; X, Y: SmallInt);

   149 var s: shortstring;

   155 var s: shortstring;

   150 begin

   156 begin