1170     th: LongInt;

  1170     th: LongInt;

  1171     Msg, State: Longword;

  1171     Msg, State: Longword;

  1172 begin

  1172 begin

  1173 AllInactive:= false;

  1173 AllInactive:= false;

  1174 

  1174 

  1176    begin

  1176    begin

  1177    HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;

  1177    HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;

  1178    Msg:= Gear^.Message and not gm_Switch;

  1178    Msg:= Gear^.Message and not gm_Switch;

  1179    DeleteGear(Gear);

  1179    DeleteGear(Gear);

  1180    OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);

  1180    OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);