// Petrarch // Merentha Lib 1.0 // finger.c #include <std.h> inherit USER; varargs string get_player_info(string name, int x) { object ob=this_object(); string ret, e; string cname, gender, _class, race, level; if(!file_exists("/save/users/"+name[0..0]+"/"+name+".o")) return "No such player named "+name+" in "+mud_name()+"."; if(e=catch( restore_object("/save/users/"+name[0..0]+"/"+name+".o") )) return "Error retreaving data: "+e; cname=query_cap_name(); gender=query_gender(); _class=query_class(); race=query_race(); level=""+query_level(); if(!x) x=75; ret=center("%^RED%^"+ arrange_string(cname?cname:"",x/4)+ "%^GREEN%^"+ arrange_string(gender?gender:"",7)+ arrange_string(race?race:"",7)+ "%^ORANGE%^"+ arrange_string("level "+(level?level:"1"),9)+ arrange_string(_class?_class:"",x/4),x-4); call_out("remove",0); return border(ret,"Finger Information for "+cname, x); } varargs string get_player_list(int x) { object *people=users(); string ret=""; int i=sizeof(people); if(!x) x=75; while(i--) { ret+=center("%^RED%^"+ arrange_string(people[i]->query_cap_name(),x/4)+ "%^GREEN%^"+ arrange_string(people[i]->query_gender(),7)+ arrange_string(people[i]->query_race(),7)+ "%^ORANGE%^"+ arrange_string("level "+people[i]->query_level(),9)+ arrange_string(people[i]->query_class(),x/4),x-4)+"\n"; } return border(ret,mud_name()+" Players Online", x); }