hedgewars/uAIMisc.pas
changeset 6782 33009ac4de80
parent 6778 a9c6457dca29
child 6783 8d9160b85bdb
equal deleted inserted replaced
6781:23f627ba8ee9 6782:33009ac4de80
   351     dX, dY, dmgMod: real;
   351     dX, dY, dmgMod: real;
   352 begin
   352 begin
   353 dX:= gdX * 0.005 * kick;
   353 dX:= gdX * 0.005 * kick;
   354 dY:= gdY * 0.005 * kick;
   354 dY:= gdY * 0.005 * kick;
   355 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
   355 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
   356 Me:= Me; // avoid compiler hint
       
   357 rate:= 0;
   356 rate:= 0;
   358 for i:= 0 to Pred(Targets.Count) do
   357 for i:= 0 to Pred(Targets.Count) do
   359     with Targets.ar[i] do
   358     with Targets.ar[i] do
   360         begin
   359         begin
   361         dmg:= 0;
   360         dmg:= 0;