hedgewars/uAIAmmoTests.pas
changeset 6771 87a947097d00
parent 6770 7d2c6cdb816a
child 6772 13d13aefa4de
--- a/hedgewars/uAIAmmoTests.pas	Sun Mar 11 20:12:31 2012 -0400
+++ b/hedgewars/uAIAmmoTests.pas	Sun Mar 11 20:36:50 2012 -0400
@@ -546,7 +546,7 @@
         begin
         x:= x + vX * 8;
         y:= y + vY * 8;
-        valueResult:= RateShotgun(Me, rx, ry);
+        valueResult:= RateShotgun(Me, hwFloat2Float(vX), hwFloat2Float(vY), rx, ry);
      
     if valueResult = 0 then 
         valueResult:= - Metric(Targ.X, Targ.Y, rx, ry) div 64