649                     else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));

   649                     else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));

   650                     if abs(subrate) > 2000 then inc(Rate,subrate div 1024);

   650                     if abs(subrate) > 2000 then inc(Rate,subrate div 1024);

   651                     end

   651                     end

   652                 end

   652                 end

   653             end;

   653             end;

   655 end;

   656 end;

   656 

   657 

   657 function RateShotgun(Me: PGear; gdX, gdY: real; x, y: LongInt): LongInt;

   658 function RateShotgun(Me: PGear; gdX, gdY: real; x, y: LongInt): LongInt;

   658 var i, dmg, fallDmg, baseDmg, rate, subrate, erasure: LongInt;

   659 var i, dmg, fallDmg, baseDmg, rate, subrate, erasure: LongInt;

   659     pX, pY, dX, dY: real;

   660     pX, pY, dX, dY: real;