# HG changeset patch
# User nemo
# Date 1381364586 14400
# Node ID 8214524153378d6bdf0d464cbba0d63ca4f92626
# Parent  56e0cca99e204024d29b9196e5f3259feb4d4a1f
kill rope on wrap

diff -r 56e0cca99e20 -r 821452415337 hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Wed Oct 09 20:16:34 2013 -0400
+++ b/hedgewars/uGearsHedgehog.pas	Wed Oct 09 20:23:06 2013 -0400
@@ -1276,7 +1276,9 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehog(Gear: PGear);
 begin
-WorldWrap(Gear);
+if WorldWrap(Gear) and (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) then
+   CurAmmoGear^.PortalCounter:= 1;
+
 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
 if (Gear^.Message and gmDestroy) <> 0 then
     begin