hedgewars/uGears.pas
changeset 2134 cde30c8539bb
parent 2121 bf0fe707d3ed
child 2135 0b7972dfad01
equal deleted inserted replaced
2133:1a6570dd45d8 2134:cde30c8539bb
   610 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   610 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   611 						PlaySound(sndHurry, false, CurrentTeam^.voicepack);
   611 						PlaySound(sndHurry, false, CurrentTeam^.voicepack);
   612 				dec(TurnTimeLeft)
   612 				dec(TurnTimeLeft)
   613 				end;
   613 				end;
   614 
   614 
   615 if (not CurrentTeam^.ExtDriven) and
   615 if ((GameTicks and $FFFF) = $FFFF) then
   616 	((GameTicks and $FFFF) = $FFFF) then
   616 	begin
   617 	begin
   617 	if (not CurrentTeam^.ExtDriven) then
   618 	SendIPCTimeInc;
   618 		SendIPCTimeInc;
   619 	inc(hiTicks) // we do not recieve a message for this
   619 
       
   620 	if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
       
   621 		inc(hiTicks) // we do not recieve a message for this
   620 	end;
   622 	end;
   621 
   623 
   622 inc(GameTicks)
   624 inc(GameTicks)
   623 end;
   625 end;
   624 
   626