23 uses SDLh;

    23 uses SDLh;

    24 

    24 

    25 var ipcPort: Word;

    25 var ipcPort: Word;

    26     hiTicks: Word;

    26     hiTicks: Word;

    27 

    27 

    30 

    30 

    31 procedure SendIPC(s: shortstring);

    31 procedure SendIPC(s: shortstring);

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

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

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

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

    34 procedure SendIPCAndWaitReply(s: shortstring);

    34 procedure SendIPCAndWaitReply(s: shortstring);

   345 isInLag:= (headcmd = nil) and tmpflag and (not CurrentTeam^.hasGone);

   345 isInLag:= (headcmd = nil) and tmpflag and (not CurrentTeam^.hasGone);

   346 

   346 

   347 if isInLag then fastUntilLag:= false

   347 if isInLag then fastUntilLag:= false

   348 end;

   348 end;

   349 

   349 

   351 begin

   351 begin

   352     IPCSock:= nil;

   352     IPCSock:= nil;

   353 

   353 

   354     headcmd:= nil;

   354     headcmd:= nil;

   355     lastcmd:= nil;

   355     lastcmd:= nil;

   358     hiTicks:= 0;

   358     hiTicks:= 0;

   359     SendEmptyPacketTicks:= 0;

   359     SendEmptyPacketTicks:= 0;

   360     ipcPort:= 0;

   360     ipcPort:= 0;

   361 end;

   361 end;

   362 

   362 

   364 begin

   364 begin

   365 

   365 

   366 end;

   366 end;

   367 

   367 

   368 end.

   368 end.