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");
   }

}