hedgewars/uGearsHandlersMess.pas
changeset 9811 66a7959869f0
parent 9809 1e32628eb167
child 9817 2f2f4f0f671d
equal deleted inserted replaced
9810:54c0fdec4600 9811:66a7959869f0
  2496     x := HHGear^.X;
  2496     x := HHGear^.X;
  2497     y := HHGear^.Y;
  2497     y := HHGear^.Y;
  2498     rx:= hwRound(x);
  2498     rx:= hwRound(x);
  2499 
  2499 
  2500     LandFlags:= 0;
  2500     LandFlags:= 0;
  2501     if cIce then LandFlags:= lfIce
  2501     if Gear^.AmmoType = amRubber then LandFlags:= lfBouncy
  2502     else if Gear^.AmmoType = amRubber then LandFlags:= lfBouncy;
  2502     else if cIce then LandFlags:= lfIce;
  2503 
  2503 
  2504     if ((Distance(tx - x, ty - y) > _256) and ((WorldEdge <> weWrap) or 
  2504     if ((Distance(tx - x, ty - y) > _256) and ((WorldEdge <> weWrap) or 
  2505             (
  2505             (
  2506             (Distance(tx - int2hwFloat(rightX+(rx-leftX)), ty - y) > _256) and
  2506             (Distance(tx - int2hwFloat(rightX+(rx-leftX)), ty - y) > _256) and
  2507             (Distance(tx - int2hwFloat(leftX-(rightX-rx)), ty - y) > _256)
  2507             (Distance(tx - int2hwFloat(leftX-(rightX-rx)), ty - y) > _256)