613                     if abs(subrate) > 2000 then inc(Rate,subrate);

   613                     if abs(subrate) > 2000 then inc(Rate,subrate);

   614                     end

   614                     end

   615                 end

   615                 end

   616             end;

   616             end;

   617 

   617 

   619     RealRateExplosion:= BadTurn

   619     RealRateExplosion:= BadTurn

   620 else

   620 else

   621     RealRateExplosion:= rate;

   621     RealRateExplosion:= rate;

   622 end;

   622 end;

   623 

   623 

   699                 end

   699                 end

   700             end

   700             end

   701         else

   701         else

   702             hadSkips:= true;

   702             hadSkips:= true;

   703 

   703 

   705     RateShove:= BadTurn

   705     RateShove:= BadTurn

   706 else

   706 else

   707     RateShove:= rate * 1024;

   707     RateShove:= rate * 1024;

   708 ResetTargets

   708 ResetTargets

   709 end;

   709 end;

   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                 end

   807                 end

   808             end;

   808             end;

   809 

   809 

   811     RateShotgun:= BadTurn

   811     RateShotgun:= BadTurn

   812 else

   812 else

   813     RateShotgun:= rate * 1024;

   813     RateShotgun:= rate * 1024;

   814 ResetTargets;

   814 ResetTargets;

   815 end;

   815 end;

   837                     inc(rate, Score div 3)

   837                     inc(rate, Score div 3)

   838                 else

   838                 else

   839                     inc(rate, Score div 3 * friendlyfactor div 100)

   839                     inc(rate, Score div 3 * friendlyfactor div 100)

   840             end;

   840             end;

   841 

   841 

   843     RateHammer:= BadTurn

   843     RateHammer:= BadTurn

   844 else

   844 else

   845     RateHammer:= rate * 1024;

   845     RateHammer:= rate * 1024;

   846 end;

   846 end;

   847 

   847