55     Score: LongInt;

    55     Score: LongInt;

    56      end;

    56      end;

    57 

    57 

    58 TBonuses = record

    58 TBonuses = record

    59           activity: boolean;

    59           activity: boolean;

    61           ar    : array[0..Pred(MAXBONUS)] of TBonus;

    61           ar    : array[0..Pred(MAXBONUS)] of TBonus;

    62        end;

    62        end;

    63 

    63 

    64 Twalkbonuses =  record

    64 Twalkbonuses =  record

    65         Count: Longword;

    65         Count: Longword;

   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;

   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