equal
deleted
inserted
replaced
162 begin |
162 begin |
163 if IPCSock <> nil then |
163 if IPCSock <> nil then |
164 begin |
164 begin |
165 if s[0]>#251 then s[0]:= #251; |
165 if s[0]>#251 then s[0]:= #251; |
166 SDLNet_Write16(GameTicks, @s[Succ(byte(s[0]))]); |
166 SDLNet_Write16(GameTicks, @s[Succ(byte(s[0]))]); |
167 {$IFDEF DEBUGFILE}AddFileLog('IPC send: '+s);{$ENDIF} |
167 {$IFDEF DEBUGFILE}AddFileLog('IPC send: '+s[1]);{$ENDIF} |
168 inc(s[0], 2); |
168 inc(s[0], 2); |
169 SDLNet_TCP_Send(IPCSock, @s, Succ(byte(s[0]))) |
169 SDLNet_TCP_Send(IPCSock, @s, Succ(byte(s[0]))) |
170 end |
170 end |
171 end; |
171 end; |
172 |
172 |