hedgewars/uGearsHandlersMess.pas
changeset 15683 255422cd8a44
parent 15682 5ce76c658c22
child 15684 41121e2f5c03
equal deleted inserted replaced
15682:5ce76c658c22 15683:255422cd8a44
  7235     distY := targetY - Sentry^.Y;
  7235     distY := targetY - Sentry^.Y;
  7236     CheckSentryAttackRange :=
  7236     CheckSentryAttackRange :=
  7237         (distX.isNegative = Sentry^.dX.isNegative)
  7237         (distX.isNegative = Sentry^.dX.isNegative)
  7238         and (distX.Round > 24)
  7238         and (distX.Round > 24)
  7239         and (distX.Round < 500)
  7239         and (distX.Round < 500)
  7240         and (hwAbs(distY) < hwAbs(distX))
  7240         and (hwAbs(distY) < hwAbs(distX * _1_5))
  7241         and (TraceAttackPath(Sentry^.X, Sentry^.Y, targetX, targetY, _4, lfLandMask) <= 18);
  7241         and (TraceAttackPath(Sentry^.X, Sentry^.Y, targetX, targetY, _4, lfLandMask) <= 18);
  7242 end;
  7242 end;
  7243 
  7243 
  7244 procedure doStepSentry(Gear: PGear);
  7244 procedure doStepSentry(Gear: PGear);
  7245 var HHGear, bullet: PGear;
  7245 var HHGear, bullet: PGear;