hedgewars/uGearsHedgehog.pas
changeset 9539 ab44d44a6177
parent 9526 2fd51591b260
child 9579 1f20cc6a642a
equal deleted inserted replaced
9537:1d72831311f6 9539:ab44d44a6177
  1279 begin
  1279 begin
  1280 tX:= Gear^.X;
  1280 tX:= Gear^.X;
  1281 if WorldWrap(Gear) then
  1281 if WorldWrap(Gear) then
  1282     begin
  1282     begin
  1283     if (WorldEdge <> weBounce) and (Gear = CurrentHedgehog^.Gear) and 
  1283     if (WorldEdge <> weBounce) and (Gear = CurrentHedgehog^.Gear) and 
  1284        (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) then
  1284        (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) and (CurAmmoGear^.Elasticity <> _0) then
  1285        CurAmmoGear^.PortalCounter:= 1;
  1285        CurAmmoGear^.PortalCounter:= 1;
  1286     if (WorldEdge = weWrap) and (TestCollisionXwithGear(Gear, 1) or TestCollisionXwithGear(Gear, -1))  then
  1286     if (WorldEdge = weWrap) and (TestCollisionXwithGear(Gear, 1) or TestCollisionXwithGear(Gear, -1))  then
  1287         begin
  1287         begin
  1288         Gear^.X:= tX;
  1288         Gear^.X:= tX;
  1289         Gear^.dX.isNegative:= (hwRound(tX) > leftX+Gear^.Radius*2)
  1289         Gear^.dX.isNegative:= (hwRound(tX) > leftX+Gear^.Radius*2)