hedgewars/uAIMisc.pas
changeset 15355 09fc16926855
parent 14764 b3fa6a19fc25
child 15366 381c828865e7
equal deleted inserted replaced
15354:dff37ac61dcf 15355:09fc16926855
   797                         end
   797                         end
   798                     else if (dmg+fallDmg) >= abs(Score) then
   798                     else if (dmg+fallDmg) >= abs(Score) then
   799                         begin
   799                         begin
   800                         dead:= true;
   800                         dead:= true;
   801                         Targets.reset:= true;
   801                         Targets.reset:= true;
   802                         if dX < 0.035 then
   802                         if gdX < 0.035 then
   803                             begin
   803                             begin
   804                             subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);
   804                             subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);
   805                             if abs(subrate) > 2000 then inc(Rate,subrate div 1024)
   805                             if abs(subrate) > 2000 then inc(Rate,subrate div 1024)
   806                             end;
   806                             end;
   807                         if Score > 0 then
   807                         if Score > 0 then