Fix for issue #20
authornemo
Wed, 01 Sep 2010 19:31:32 -0400
changeset 3802 2ccfc93c6b5e
parent 3800 32cb5e1a6293
child 3803 e4a8a4e378de
Fix for issue #20
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed Sep 01 22:18:13 2010 +0100
+++ b/hedgewars/GSHandlers.inc	Wed Sep 01 19:31:32 2010 -0400
@@ -2486,7 +2486,7 @@
     begin
         Gear^.Tag := 0;
         Gear^.X := Gear^.X + int2hwFloat(xx);
-        if not TestCollisionYwithGear(Gear, yyn) then
+        if not TestCollisionY(Gear, yyn) then
         begin
             Gear^.Y := Gear^.Y + int2hwFloat(yyn);
             NextAngle
@@ -2561,6 +2561,7 @@
     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
     HHGear^.Message := HHGear^.Message and (not gm_Attack);
     DeleteCI(HHGear);
+    Gear^.IntersectGear:= nil;
 
     FollowGear := Gear;