Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 870 dd418d9c18c5
parent 869 daddcd31ef34
child 874 964c0d5b3604 
--- a/hedgewars/uGears.pas	Thu Apr 24 20:53:35 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Apr 25 13:12:52 2008 +0000
@@ -442,9 +442,15 @@
         end;
 
 if TurnTimeLeft > 0 then
-      if CurrentHedgehog^.Gear <> nil then
-         if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
-            and not isInMultiShoot then dec(TurnTimeLeft);
+		if CurrentHedgehog^.Gear <> nil then
+			if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
+				and not isInMultiShoot then
+				begin
+				if (TurnTimeLeft = 5000)
+					and (CurrentHedgehog^.Gear <> nil)
+					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then PlaySound(sndHurry, false);
+				dec(TurnTimeLeft)
+				end;
 
 if (not CurrentTeam^.ExtDriven) and
    ((GameTicks and $FFFF) = $FFFF) then
hedgewars