hedgewars/uAIAmmoTests.pas
changeset 6771 87a947097d00
parent 6770 7d2c6cdb816a
child 6772 13d13aefa4de
equal deleted inserted replaced
6770:7d2c6cdb816a 6771:87a947097d00
   544     ry:= hwRound(y);
   544     ry:= hwRound(y);
   545     if TestCollExcludingMe(Me, rx, ry, 2) then
   545     if TestCollExcludingMe(Me, rx, ry, 2) then
   546         begin
   546         begin
   547         x:= x + vX * 8;
   547         x:= x + vX * 8;
   548         y:= y + vY * 8;
   548         y:= y + vY * 8;
   549         valueResult:= RateShotgun(Me, rx, ry);
   549         valueResult:= RateShotgun(Me, hwFloat2Float(vX), hwFloat2Float(vY), rx, ry);
   550      
   550      
   551     if valueResult = 0 then 
   551     if valueResult = 0 then 
   552         valueResult:= - Metric(Targ.X, Targ.Y, rx, ry) div 64
   552         valueResult:= - Metric(Targ.X, Targ.Y, rx, ry) div 64
   553     else 
   553     else 
   554         dec(valueResult, Level * 4000);
   554         dec(valueResult, Level * 4000);