cancel on slide
authornemo
Wed, 29 May 2013 06:51:12 -0400
changeset 9076 6ae43e121882
parent 9075 201e00bafcd1
child 9077 e8d9d94c122f
cancel on slide
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed May 29 10:51:21 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Wed May 29 06:51:12 2013 -0400
@@ -5140,7 +5140,7 @@
     vg: PVisualGear;
 begin
     HHGear := Gear^.Hedgehog^.Gear;
-    if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then
+    if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) or (HHGear^.dX.QWordValue > 4294967)  then
         begin
         StopSoundChan(Gear^.SoundChannel);
         DeleteGear(Gear);