hedgewars/GSHandlers.inc
changeset 820 a26537586400
parent 819 129cdeabc9d4
child 845 ca72cf446ec2
--- a/hedgewars/GSHandlers.inc	Sun Mar 23 18:03:07 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Mar 23 18:08:00 2008 +0000
@@ -677,8 +677,8 @@
 if (HHGear^.State and gstMoving) <> 0 then
    if TestCollisionYwithGear(HHGear, 1) then
       begin
+      CheckHHDamage(HHGear);
       HHGear^.dY:= _0;
-      CheckHHDamage(HHGear);
       HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping);
       end else
       begin