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