/* /cmds/creator/stat.c * from the Foundation II LPC Library * a command to view something's stats * created by Descartes of Borg 950409 */ #include <lib.h> inherit LIB_DAEMON; mixed cmd(string args) { string *lines, *arr, *limbs; object ob; string tmp1, tmp2; int i, x, y, cols; if( args == "" || !args ) return 0; if( !(ob = find_player(convert_name(args))) && !(ob = find_living(lower_case(args))) ) return capitalize(args) + " is nowhere to be found."; if( creatorp(ob) ) return "You cannot get stat information on a creator."; cols = ((int *)this_player()->GetScreen())[0]; tmp1 = (string)ob->GetCapName() + " aka " + (string)ob->GetShort() + ", level " + (int)ob->GetLevel() + " " + (string)ob->GetGender(); if( !(tmp2 = (string)ob->GetRace()) ) tmp2 = "blob"; tmp1 += " " + tmp2; if( !(tmp2 = (string)ob->GetClass()) ) tmp2 = "drifter"; tmp1 += " " + capitalize(tmp2); if( tmp2 = (string)ob->GetSpouse() ) tmp1 += " (spouse: " + tmp2 + ")"; lines = ({ center(tmp1, cols) , "" }); lines += ({ center("Health: " +(int)ob->GetHealthPoints() + "/"+ (int)ob->GetMaxHealthPoints() + " Magic: " + (int)ob->GetMagicPoints() + "/" + (int)ob->GetMaxMagicPoints() + " Stamina: " + (int)ob->GetStaminaPoints() + "/" + (int)ob->GetMaxStaminaPoints() + " Carry: " + (int)ob->GetCarriedMass() + "/" + (int)ob->GetMaxCarry(), cols) }); lines += ({ "", "Limbs:" }); limbs = (string *)ob->GetWieldingLimbs(); arr = map((string *)ob->GetLimbs(), (: sprintf("%:-14s%s (%d) %d/%d", $1, ((member_array($1, $(limbs)) == -1) ? " " : "*"), (int)($(ob))->GetLimbClass($1), (int)($(ob))->GetHealthPoints($1), (int)($(ob))->GetMaxHealthPoints($1)) :)); i = sizeof(arr); while(i--) if( (y = strlen(arr[i])) > x ) x = y; x = cols/(x+2); lines += explode(format_page(arr, x), "\n") + ({ "", "Skills:" }); arr = map((string *)ob->GetSkills(), (: sprintf("%:-18s (%d) %d/%d", $1, (int)($(ob))->GetSkillClass($1), (int)($(ob))->GetSkillLevel($1), (int)($(ob))->GetBaseSkillLevel($1)) :)); i = sizeof(arr); while(i--) if( (y = strlen(arr[i])) > x ) x = y; x = cols/(x+2); lines += explode(format_page(arr, x), "\n") + ({ "", "Stats:" }); arr = map((string *)ob->GetStats(), (: sprintf("%:-12s (%d) %d/%d", $1, (int)($(ob))->GetStatClass($1), (int)($(ob))->GetStatLevel($1), (int)($(ob))->GetBaseStatLevel($1)) :)); i = sizeof(arr); x = 0; while(i--) if( (y = strlen(arr[i])) > x ) x = y; x =cols/(x+2); lines += explode(format_page(arr, x), "\n"); this_player()->more(lines, "system"); return 1; }