Lfun:	pick_any_obj - force a monster to pick up an object

Synopsis:
	void pick_any_object()

Description:
	The pick_any_obj routine makes the monster pick up an object from the
	environment (if possible). The monsters tries wields or wears the item
	imediately if it is a weapon or armour.

	It is called automatically from the monster's heart beat, if
	set_random_pick has been called, according to the random pick value.

	Before an item is picked up, the function forbid_item_pick is 
	called in the monster with the item's object as parameter. 
        If the function returns true, the item is not picked up.

Return value:
	none

Examples:
	pick_any_object();

Note:
	Wielding weapons and wearing armours is done via the lfun
	use_equiment - see also 'man monster/use_equipment'.

See also: monster/set_random_pick, monster/use_equipment