void main( string arg ) { int i,j; int hp, max_hp; string *stat_abrvs; string *stat_names; object ob; if(arg != "") { ob = this_player()->query_environment()->find_object( arg ); if( ob == 0 ) { write(arg+" is not here!\n"); ob = 0; } else { if( !ob->is_alive() ) { write("You can't stat the "+arg+"!\n"); ob = 0; } } } else { ob = this_player(); } if(ob) { hp = ob->query_hp(); max_hp = ob->query_max_hp(); stat_abrvs = ({ "str", "con", "end", "dex", "agl", "aim", "int", "wis", "per", "cha", "luc", "spr", "god" }); stat_names = ({"strength ", "constitution", "endurance ", "dexterity ", "agility ", "aim ", "intelligence", "wisdom ", "perception ", "charisma ", "luck ", "spirituality", "god bonus " }); j = 0; write(" stat base bonus \n"); write("-----------------------------------------------\n"); for( i=0; i < sizeof( stat_names ); i++ ) { write("\t"+capitalize(stat_names[i])+" : " +ob->query_stat(stat_abrvs[i]) +"\t" +ob->query_base_stat(stat_abrvs[i]) +"\t" +ob->query_bonus_stat(stat_abrvs[i]) +"\n"); ++j; if( j==3 ) { write("\n"); j = 0; } } write("\n\n\t"+"Hitpoints : "+hp+"/"+max_hp+"\n"); } }