hedgewars/uGearsHedgehog.pas
changeset 8818 8f317ba10675
parent 8795 b5b79a8f9354
child 8833 c13ebed437cb
child 8947 e906ebd59612
--- a/hedgewars/uGearsHedgehog.pas	Fri Mar 29 14:47:01 2013 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Fri Mar 29 10:54:12 2013 -0400
@@ -793,7 +793,7 @@
 var da: LongWord;
 begin
 with HHGear^.Hedgehog^ do
-    if ((CurAmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving))
+    if ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving))
     or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then
         da:= 2
     else da:= 1;