hedgewars/uGearsHedgehog.pas
changeset 9809 1e32628eb167
parent 9795 487e5675061f
child 9914 ba26595503ab
child 9930 c38cdb5dd37c
equal deleted inserted replaced
9808:37891ba5e10b 9809:1e32628eb167
  1347        (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) and (CurAmmoGear^.Elasticity <> _0) then
  1347        (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) and (CurAmmoGear^.Elasticity <> _0) then
  1348        CurAmmoGear^.PortalCounter:= 1;
  1348        CurAmmoGear^.PortalCounter:= 1;
  1349     if (WorldEdge = weWrap) and ((TestCollisionXwithGear(Gear, 1) <> 0) or (TestCollisionXwithGear(Gear, -1) <> 0))  then
  1349     if (WorldEdge = weWrap) and ((TestCollisionXwithGear(Gear, 1) <> 0) or (TestCollisionXwithGear(Gear, -1) <> 0))  then
  1350         begin
  1350         begin
  1351         Gear^.X:= tX;
  1351         Gear^.X:= tX;
  1352         Gear^.dX.isNegative:= (hwRound(tX) > leftX+Gear^.Radius*2)
  1352         Gear^.dX.isNegative:= (hwRound(tX) > LongInt(leftX) + Gear^.Radius * 2)
  1353         end
  1353         end
  1354     end;
  1354     end;
  1355 
  1355 
  1356 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
  1356 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
  1357 if (Gear^.Message and gmDestroy) <> 0 then
  1357 if (Gear^.Message and gmDestroy) <> 0 then