107     end;

   107     end;

   108 

   108 

   109 begin

   109 begin

   110 bonuses.Count:= 0;

   110 bonuses.Count:= 0;

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

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

   113 Gear:= GearsList;

   112 Gear:= GearsList;

   114 while Gear <> nil do

   113 while Gear <> nil do

   115       begin

   114       begin

   116       case Gear.Kind of

   115       case Gear.Kind of

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

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

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

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

   126                        end;

   125                        end;

   127            end;

   126            end;

   128       Gear:= Gear.NextGear

   127       Gear:= Gear.NextGear

   129       end;

   128       end;

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

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

   132    with KnownExplosion do

   130    with KnownExplosion do

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

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

   134 end;

   132 end;

   135 

   133