hedgewars/uGearsUtils.pas
changeset 15863 e111e5acde64
parent 15846 681db3039ad7
child 15864 4172debdff61
equal deleted inserted replaced
15862:8553c51a9ec8 15863:e111e5acde64
  1091         for j:= 0 to Pred(TeamsCount) do
  1091         for j:= 0 to Pred(TeamsCount) do
  1092             if TeamsArray[j]^.TeamHealth > 0 then // it's impossible for a team to have hogs in game and zero health right?
  1092             if TeamsArray[j]^.TeamHealth > 0 then // it's impossible for a team to have hogs in game and zero health right?
  1093                 with TeamsArray[j]^ do
  1093                 with TeamsArray[j]^ do
  1094                     for i:= 0 to cMaxHHIndex do
  1094                     for i:= 0 to cMaxHHIndex do
  1095                         with Hedgehogs[i] do
  1095                         with Hedgehogs[i] do
  1096                             if (Gear <> nil) and (Gear <> exclude) then
  1096                             if (not Unplaced) and (Gear <> nil) and (Gear <> exclude) then
  1097                                 begin
  1097                                 begin
  1098                                 // code duplication - could throw into an inline function I guess
  1098                                 // code duplication - could throw into an inline function I guess
  1099                                 dX := X - Gear^.X;
  1099                                 dX := X - Gear^.X;
  1100                                 dY := Y - Gear^.Y;
  1100                                 dY := Y - Gear^.Y;
  1101                                 isHit := (hwAbs(dX) + hwAbs(dY) < bound)
  1101                                 isHit := (hwAbs(dX) + hwAbs(dY) < bound)