void send_beep(object o_user, mixed t_user, string t_mud) { if(objectp(t_user)) t_user = lower_case(t_user->query_name()); else if(stringp(t_user)) t_user = lower_case(t_user); else return; find_object(I3_CHDMOD)->sendToUser("beep", o_user->query_name(), t_mud, t_user, 0); }
nomask int query_mortal(mixed player) { if (objectp(player)) { if (!player <-"/sys/obj/player") { return 0; } player = player->query_name(); } else { argcheck(stringp(player), 1, "player object or string"); } return !query_wizard(player); }
int query_admin(mixed player) { if(objectp(player)) { if( !player<-"/sys/lib/player" ) { return 0; } player = player->query_name(); } else { argcheck( stringp( player ), 1, "player object or string" ); } return SECURE_D->query_admin( player ) ; }
varargs void send_error(mixed o_user, string t_mud, mixed t_user, string err_code, string err_msg, mixed *packet) { if(intp(o_user)) o_user = 0; else if(objectp(o_user)) o_user = o_user->query_name(); else if(stringp(o_user)) o_user = lower_case(o_user); else o_user = 0; if(intp(t_user)) t_user = 0; else if(objectp(t_user)) t_user = t_user->query_name(); else if(stringp(t_user)) t_user = lower_case(t_user); else t_user = 0; find_object(I3_CHDMOD)->sendToUser("error", o_user, t_mud, t_user, ({ err_code, err_msg, packet ? packet : 0 }) );
string pluralize(mixed single) { int x; string str, tmp; if(!single) return single; if(objectp(single)) { if(str = (string)single->query("plural name")) return str; else str = (string)single->query_name(); } else str = (string)single; if(!str) return str; x = strlen(str); if(ABNORMAL[str]) return ABNORMAL[str]; if(x > 2 && str[x-3..x-1] == "man") return str[0..x-3]+"en"; if(x > 1) { tmp = str[x-2..x-1]; switch(tmp) { case "ts": return str+""; case "ch": case "sh": return str+"es"; case "ff": case "fe": return str[0..x-3]+"ves"; case "us": return str[0..x-3]+"i"; case "um": return str[0..x-3]+"a"; case "ef": return str+"s"; } } tmp = str[x-1..x-1]; // 2 bug fixes by Whit if(str[sizeof(str)-2..sizeof(str)] == "ts") return str; if(str[sizeof(str)-2..sizeof(str)] == "es") return str; switch(tmp) { case "s": return str+"es"; case "o": case "x": return str+"es"; case "wolf": return str[0..x-4]+"wolves"; case "f": return str[0..x-2]+"ves"; case "y" : return str[0..x-2]+"ies"; } return str+"s"; }