hedgewars/uIO.pas
changeset 10862 4575977d3ce0
parent 10851 f25dad9c3136
child 10886 99273b7afbff
child 11046 47a8c19ecb60
equal deleted inserted replaced
10861:d84c725fe332 10862:4575977d3ce0
   433             IntToStr(hiTicks shl 16 + headcmd^.loTime) + ')',
   433             IntToStr(hiTicks shl 16 + headcmd^.loTime) + ')',
   434             true);
   434             true);
   435 
   435 
   436 isInLag:= (headcmd = nil) and tmpflag and (not CurrentTeam^.hasGone);
   436 isInLag:= (headcmd = nil) and tmpflag and (not CurrentTeam^.hasGone);
   437 
   437 
   438 if isInLag then fastUntilLag:= false
   438 if isInLag and fastUntilLag then 
       
   439 begin
       
   440     ParseCommand('spectate 0', true);
       
   441     fastUntilLag:= false
       
   442 end;
   439 end;
   443 end;
   440 
   444 
   441 procedure chFatalError(var s: shortstring);
   445 procedure chFatalError(var s: shortstring);
   442 begin
   446 begin
   443     SendIPC('E' + s);
   447     SendIPC('E' + s);