299 var s: shortstring;

   299 var s: shortstring;

   300     a: TAmmoType;

   300     a: TAmmoType;

   301 	i: Integer;

   301 	i: Integer;

   302 begin

   302 begin

   303 Gear^.Message:= gm_Destroy;

   303 Gear^.Message:= gm_Destroy;

   304 case Gear^.Pos of

   306 case Gear^.Pos of

   305        posCaseUtility,

   307        posCaseUtility,

   306        posCaseAmmo: begin

   308        posCaseAmmo: begin

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

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

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

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