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 SendIPCRaw(p: pointer; len: Longword);

    43 procedure SendIPCRaw(p: pointer; len: Longword);

    44 procedure SendIPCAndWaitReply(s: shortstring);

    44 procedure SendIPCAndWaitReply(s: shortstring);

    45 procedure IPCCheckSock;

    46 procedure IPCCheckSock;

    46 procedure InitIPC;

    47 procedure InitIPC;

    47 procedure CloseIPC;

    48 procedure CloseIPC;

    48 procedure NetGetNextCmd;

    49 procedure NetGetNextCmd;

    49 

    50 

   159 SDLNet_Write16(X, @s[2]);

   160 SDLNet_Write16(X, @s[2]);

   160 SDLNet_Write16(Y, @s[4]);

   161 SDLNet_Write16(Y, @s[4]);

   161 SendIPC(s)

   162 SendIPC(s)

   162 end;

   163 end;

   163 

   164 

   168 isPonged:= false;

   167 isPonged:= false;

   169 repeat

   168 repeat

   170    IPCCheckSock;

   169    IPCCheckSock;

   171    SDL_Delay(1)

   170    SDL_Delay(1)

   172 until isPonged

   171 until isPonged

   173 end;

   179 end;

   174 

   180 

   175 procedure NetGetNextCmd;

   181 procedure NetGetNextCmd;

   176 var tmpflag: boolean;

   182 var tmpflag: boolean;

   177 begin

   183 begin