hedgewars/GSHandlers.inc
changeset 3802 2ccfc93c6b5e
parent 3768 39947624dabb
child 3821 03b1af3a1c8f
--- 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;