Simul efun: slash_neat_file - returns a path with the "~" notation

Synopsis:
	string slash_neat_file(mixed object)

Description:
	Replaces "/players/wiz/..." by "~wiz/..." for neat display purposes.
	Does not implicate real_file(object).
	Argument can either be an object or its filename (string).

Return value:
	returns a file (or object) path shortened with ~ if possible

Examples:
	slash_neat_file("/players/snake/castle" returns "~snake/castle"
        "/"+neat_file(find_player("snake")) might return "/obj/wizard#42817"

Note:
	It works only for filenames WITH the leading slash and returns such.
	The "~" notation only works on the "shell" in Nemesis - when you
	are logged in. It does NOT work in LPC code!

See also: lib/neat_file, efun/file_name, lib/real_file