Fix teleportation bug spotted by Tiyuri
authorunc0rr
Fri, 07 Mar 2008 13:16:11 +0000
changeset 798 02753868d459
parent 797 e7fa1a1b9791
child 799 71ba310da909
Fix teleportation bug spotted by Tiyuri
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed Mar 05 19:34:52 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Mar 07 13:16:11 2008 +0000
@@ -1163,16 +1163,16 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepTeleportAfter(Gear: PGear);
-var HHGear: PGear;
+//var HHGear: PGear;
 begin
-HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
-HHGear^.Y:= HHGear^.Y + HHGear^.dY;
-HHGear^.dY:= HHGear^.dY + cGravity;
-if TestCollisionYwithGear(HHGear, 1) then
-   begin
+//HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
+//HHGear^.Y:= HHGear^.Y + HHGear^.dY;
+//HHGear^.dY:= HHGear^.dY + cGravity;
+//if TestCollisionYwithGear(HHGear, 1) then
+//   begin
    DeleteGear(Gear);
    AfterAttack
-   end
+//   end
 end;
 
 procedure doStepTeleport(Gear: PGear);