hedgewars/uGearsHandlersMess.pas
changeset 15661 255422cd8a44
parent 15660 5ce76c658c22
child 15662 41121e2f5c03
equal deleted inserted replaced
15660:5ce76c658c22 15661: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;