hedgewars/uGears.pas
changeset 870 dd418d9c18c5
parent 869 daddcd31ef34
child 874 964c0d5b3604
equal deleted inserted replaced
869:daddcd31ef34 870:dd418d9c18c5
   440                  step:= Low(step)
   440                  step:= Low(step)
   441                  end;
   441                  end;
   442         end;
   442         end;
   443 
   443 
   444 if TurnTimeLeft > 0 then
   444 if TurnTimeLeft > 0 then
   445       if CurrentHedgehog^.Gear <> nil then
   445 		if CurrentHedgehog^.Gear <> nil then
   446          if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
   446 			if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
   447             and not isInMultiShoot then dec(TurnTimeLeft);
   447 				and not isInMultiShoot then
       
   448 				begin
       
   449 				if (TurnTimeLeft = 5000)
       
   450 					and (CurrentHedgehog^.Gear <> nil)
       
   451 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then PlaySound(sndHurry, false);
       
   452 				dec(TurnTimeLeft)
       
   453 				end;
   448 
   454 
   449 if (not CurrentTeam^.ExtDriven) and
   455 if (not CurrentTeam^.ExtDriven) and
   450    ((GameTicks and $FFFF) = $FFFF) then
   456    ((GameTicks and $FFFF) = $FFFF) then
   451    begin
   457    begin
   452    SendIPCTimeInc;
   458    SendIPCTimeInc;