/* * I ain't touching THIS one.. *quiver* // Z */ varargs mixed creator_file(string file, int author) { string *str; if (!file || !stringp(file)) return "NOONE"; str = explode(file, "/") - ({ "" }); if (sizeof(str)<2) return 0; switch (str[0]) { case "secure" : return get_root_uid(); case "obj" : if (sizeof(str) > 2 && str[1] == "secure") return "ims"; case "global" : case "table" : case "std" : case "baseobs" : case "items": case "room" : case "cmds" : return get_bb_uid(); case "net" : return "Network stuff"; case "tmp" : if (str[1] != "mon-shad") return 0; return "monster"; case "failsafe" : return "failsafe"; case "d" : if (sizeof(str) < 3) return 0; if (!author) return capitalize(str[1]); return ("/d/"+str[1]+"/master")->author_file(str); case "w" : if (sizeof(str) < 3) if (str[1] == "common" || str[1] == "development" || str[1] == "meeting") return "womble-frog"; else return 0; return str[1]; } } /* creator_file() */ mixed author_file(mixed bing) { return creator_file(bing, 1); } /* author_file() */ mixed domain_file(mixed bing) { string str; str = creator_file(bing); if (!str) return str; if (str[0] >= 'A' && str[0] <= 'Z') return str; return "Creator"; } /* domain_file() */