// /wizards/kalinash/bin/_langs.c // Shows what languages a player knows // Also shows numeric proficiency values // By Kalinash@Nightmare on 16 Dec 93 #include <std.h> inherit DAEMON; int cmd_langs(string str) { string *lang, tmp; int amt, x; object ob; if(!str || str=="me") { str=(string)this_player()->query_name(); } if(!ob=find_player(str)) { notify_fail(capitalize(str)+" is not in our reality.\n"); return 0; } if(ob->query_invis() && !archp(this_player())) { notify_fail(capitalize(str)+" is not in our reality.\n"); return 0; } lang = ob->query_all_languages(); amt = sizeof(lang); if(!amt) { notify_fail("They know no languages!\n"); return 0; } message("my_action", ob->query_cap_name()+" knows the following " "languages :\n", this_player()); for(x=0;x<amt;x++) { tmp = lang[x]; tmp = arrange_string(tmp, 15); tmp += ob->query_lang_prof(lang[x]); x++; if(x<amt) { tmp = arrange_string(tmp, 20); tmp += lang[x]; tmp = arrange_string(tmp, 35); tmp += ob->query_lang_prof(lang[x]); } message("my_action", tmp, this_player()); } return 1; } void help() { message("help", "Usage : langs <who>\n\nThis is a wizard " "command to show the langues and proficiencies " "of players.", this_player()); return; }