Simul efun: real_file - get the real file name of an object

Synopsis:
	string real_file(mixed object)

Description:
	Gives the real file_name of an object, that is, removes "#<number>"
	if the object's a clone.
	Argument can be either an object or its filename (string).

Return values:
	returns the given string after stripping all after '#'
	returns 0 if object is neither an object nor a string

Example:
	object adventurer = "obj/player#19799";
	if (real_file(adventurer) == "obj/player")
		write("This an adventurer and not a monster.\n");

See also: efun/file_name