kill rope on wrap
authornemo
Wed, 09 Oct 2013 20:23:06 -0400
changeset 9507 821452415337
parent 9505 56e0cca99e20
child 9509 5b3f2ea156c9
kill rope on wrap
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