# HG changeset patch
# User unc0rr
# Date 1289151563 -10800
# Node ID 2502c381f1c395e09062d8a8a5c8e02546d7318e
# Parent  646fc9e96ce26d2a112cc79b55e6075b1142cf2c# Parent  bc2b88eea8c4d028b737b3d84e80c931f6c4569d
merge

diff -r 646fc9e96ce2 -r 2502c381f1c3 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Nov 07 20:38:56 2010 +0300
+++ b/hedgewars/GSHandlers.inc	Sun Nov 07 20:39:23 2010 +0300
@@ -4199,6 +4199,9 @@
     hh: PHedgehog;
     i: LongInt;
 begin
+    if (TurnTimeLeft > 0) then
+        dec(TurnTimeLeft);
+
     AllInactive := false;
     hh := PHedgehog(Gear^.Hedgehog);
     DrawCentered(hwRound(hh^.Gear^.X) + WorldDx, hwRound(hh^.Gear^.Y) + WorldDy -
@@ -4218,8 +4221,7 @@
         if not TestCollisionYwithGear(hh^.Gear, -1) then hh^.Gear^.Y := hh^.Gear^.Y - _1;
         end;
 
-    graves := GearsNear(Gear^.X, Gear^.Y + int2hwFloat(Gear^.Power),
-                    gtGrave, Gear^.Radius);
+    graves := GearsNear(Gear^.X, Gear^.Y, gtGrave, Gear^.Radius);
 
     if Length(graves) = 0 then 
         begin
@@ -4229,7 +4231,7 @@
         exit;
         end;
 
-    if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) then 
+    if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then 
         begin
         i := getRandom(Length(graves));
         dec(hh^.Gear^.Health);