269 var s: shortstring;

   269 var s: shortstring;

   270     a: TAmmoType;

   270     a: TAmmoType;

   271 begin

   271 begin

   272 Gear^.Message:= gm_Destroy;

   272 Gear^.Message:= gm_Destroy;

   273 case Gear^.Pos of

   273 case Gear^.Pos of

   274        posCaseAmmo: begin

   275        posCaseAmmo: begin

   275                     a:= TAmmoType(Gear^.State);

   276                     a:= TAmmoType(Gear^.State);

   276                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);

   277                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);

   277                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven

   278                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven

   278                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))

   279                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))