hedgewars/uIO.pas
changeset 8645 809e328bab99
parent 8620 6787f745da50
child 8833 c13ebed437cb
child 9080 9b42757d7e71
equal deleted inserted replaced
8644:62756eb6fe9c 8645:809e328bab99
   224     isSyncedCommand:= (c in ['+', '#', 'L', 'l', 'R', 'r', 'U', 'u', 'D', 'd', 'Z', 'z', 'A', 'a', 'S', 'j', 'J', ',', 'c', 'N', 'p', 'P', 'w', 't', '1', '2', '3', '4', '5']) or ((c >= #128) and (c <= char(128 + cMaxSlotIndex)))
   224     isSyncedCommand:= (c in ['+', '#', 'L', 'l', 'R', 'r', 'U', 'u', 'D', 'd', 'Z', 'z', 'A', 'a', 'S', 'j', 'J', ',', 'c', 'N', 'p', 'P', 'w', 't', '1', '2', '3', '4', '5']) or ((c >= #128) and (c <= char(128 + cMaxSlotIndex)))
   225 end;
   225 end;
   226 
   226 
   227 procedure flushBuffer();
   227 procedure flushBuffer();
   228 begin
   228 begin
   229     SDLNet_TCP_Send(IPCSock, @sendBuffer.buf, sendBuffer.count);
   229     if IPCSock <> nil then
   230     flushDelayTicks:= 0;
   230         begin
   231     sendBuffer.count:= 0
   231         SDLNet_TCP_Send(IPCSock, @sendBuffer.buf, sendBuffer.count);
       
   232         flushDelayTicks:= 0;
       
   233         sendBuffer.count:= 0
       
   234         end
   232 end;
   235 end;
   233 
   236 
   234 procedure SendIPC(s: shortstring);
   237 procedure SendIPC(s: shortstring);
   235 begin
   238 begin
   236 if IPCSock <> nil then
   239 if IPCSock <> nil then