122     end;

   122     end;

   123 

   123 

   124 begin

   124 begin

   125 bonuses.Count:= 0;

   125 bonuses.Count:= 0;

   126 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color;

   126 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color;

   127 Gear:= GearsList;

   128 Gear:= GearsList;

   128 while Gear <> nil do

   129 while Gear <> nil do

   129       begin

   130       begin

   130       case Gear.Kind of

   131       case Gear.Kind of

   131            gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25);

   132            gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25);

   139                                                                                 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3)

   140                                                                                 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3)

   140                        end;

   141                        end;

   141            end;

   142            end;

   142       Gear:= Gear.NextGear

   143       Gear:= Gear.NextGear

   143       end;

   144       end;

   144 if isAfterAttack and (KnownExplosion.Radius > 0) then

   146 if isAfterAttack and (KnownExplosion.Radius > 0) then

   145    with KnownExplosion do

   147    with KnownExplosion do

   146         AddBonus(X, Y, Radius + 10, -Radius);

   148         AddBonus(X, Y, Radius + 10, -Radius);

   147 end;

   149 end;

   148 

   150