hedgewars/uIO.pas
changeset 2043 1f2b91b5e7ef
parent 2017 7845c77c8d31
child 2063 c592b01061bc
equal deleted inserted replaced
2042:905c554d62e6 2043:1f2b91b5e7ef
   247 	s: shortstring;
   247 	s: shortstring;
   248 begin
   248 begin
   249 tmpflag:= true;
   249 tmpflag:= true;
   250 
   250 
   251 while (headcmd <> nil)
   251 while (headcmd <> nil)
       
   252 	and tmpflag
   252 	and ((GameTicks = headcmd^.Time)
   253 	and ((GameTicks = headcmd^.Time)
   253 		or (headcmd^.cmd = 's')
   254 		or (headcmd^.cmd = 's')
   254 		or (headcmd^.cmd = 'F')) do
   255 		or (headcmd^.cmd = 'F')) do
   255 	begin
   256 	begin
   256 	case headcmd^.cmd of
   257 	case headcmd^.cmd of
   308 			' (' + inttostr(GameTicks) + ' > ' +
   309 			' (' + inttostr(GameTicks) + ' > ' +
   309 			inttostr(headcmd^.Time) + ')',
   310 			inttostr(headcmd^.Time) + ')',
   310 			true);
   311 			true);
   311 
   312 
   312 isInLag:= (headcmd = nil) and tmpflag and not CurrentTeam^.hasGone;
   313 isInLag:= (headcmd = nil) and tmpflag and not CurrentTeam^.hasGone;
       
   314 
   313 if isInLag then fastUntilLag:= false
   315 if isInLag then fastUntilLag:= false
   314 end;
   316 end;
   315 
   317 
   316 end.
   318 end.