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;

   305 case Gear^.Pos of

   305 case Gear^.Pos of

   306        posCaseUtility,

   306        posCaseUtility,

   307        posCaseAmmo: begin

   307        posCaseAmmo: begin

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

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

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

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