hedgewars/uGears.pas
changeset 917 e59614bffc3f
parent 915 33040b7695c0
child 924 227f9fcdc2f4
equal deleted inserted replaced
916:1d0022336fbb 917:e59614bffc3f
   449 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then PlaySound(sndHurry, false);
   449 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then PlaySound(sndHurry, false);
   450 				dec(TurnTimeLeft)
   450 				dec(TurnTimeLeft)
   451 				end;
   451 				end;
   452 
   452 
   453 if (not CurrentTeam^.ExtDriven) and
   453 if (not CurrentTeam^.ExtDriven) and
   454    ((GameTicks and $FFFF) = $FFFF) then
   454 	((GameTicks and $FFFF) = $FFFF) then
   455    begin
   455 	begin
   456    SendIPCTimeInc;
   456 	SendIPCTimeInc;
   457    inc(hiTicks) // we do not recieve a message for this
   457 	inc(hiTicks) // we do not recieve a message for this
   458    end;
   458 	end;
   459 
   459 
   460 inc(GameTicks)
   460 inc(GameTicks)
   461 end;
   461 end;
   462 
   462 
   463 procedure SetAllToActive;
   463 procedure SetAllToActive;