# HG changeset patch
# User unc0rr
# Date 1204895771 0
# Node ID 02753868d459231decdba732527f9b6934523690
# Parent  e7fa1a1b97919dbddd8bcd2c49333982c5bb92d6
Fix teleportation bug spotted by Tiyuri

diff -r e7fa1a1b9791 -r 02753868d459 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);