// Petrarch
// Merentha Lib 1.0
// <score>

string money_string(int j) {
mapping money=this_player()->query_money();
string *types=keys(money), ret="";
int i=sizeof(types),m;
  
if(!i) ret="You have no money.";
else {
  while(i--) {
    if (m=this_player()->query_money(types[i])) 
      types[i]="%^ORANGE%^"+m+" %^GREEN%^"+types[i];
    else types-=({types[i]});
  }
  ret=format_page(types,3,j);
}
return ret;
}

int command() {
    int x,i=this_player()->getenv("SCREEN");
    string line="__BORDER_LINE__";
    if(!i)i=75;
    x=i;
    x=i;
    i-=13;
    i=i/3;
    message("command", border(
        "%^RED%^ Name   : %^GREEN%^"+this_player()->query_cap_name()+
        ", "+this_player()->query_gender()+" "+capitalize(this_player()->query_race())+
        "\n Score  : %^ORANGE%^"+this_player()->query_exp()+
        " (level "+this_player()->query_level()+
        " "+(this_player()->query_class()?this_player()->query_class():"child")+
        ")\n"+
        line+
        "\n%^RED%^ Vitals : "+arrange_string("%^GREEN%^Health %^ORANGE%^"+this_player()->query_hp()+"("+this_player()->query_max_hp()+")",i)+
        arrange_string("%^GREEN%^Magic %^ORANGE%^"+this_player()->query_mp()+"("+this_player()->query_max_mp()+")",i)+
        arrange_string("%^GREEN%^Stamina %^ORANGE%^"+this_player()->query_sp()+"("+this_player()->query_max_sp()+")",i)+
        "\n"+
        line+
        "\n%^RED%^ Stats  : "+
        arrange_string("%^GREEN%^Strength %^ORANGE%^"+this_player()->query_stat("strength"),i)+
        arrange_string("%^GREEN%^Constitution %^ORANGE%^"+this_player()->query_stat("constitution"),i)+
        arrange_string("%^GREEN%^Dexterity %^ORANGE%^"+this_player()->query_stat("dexterity"),i)+
        "\n          "+
        arrange_string("%^GREEN%^Intelligence %^ORANGE%^"+this_player()->query_stat("intelligence"),i)+
        arrange_string("%^GREEN%^Wisdom %^ORANGE%^"+this_player()->query_stat("wisdom"),i)+
        arrange_string("%^GREEN%^Charisma %^ORANGE%^"+this_player()->query_stat("charisma"),i)+
        "\n"+
        line+
        "\n%^RED%^ Money  : "+
        money_string(i*3)
        ,"score",x),this_player());
    return 1;
}
string help() {
    return "Syntax: score\n\nThis command displays your current score and vital statistics.\n\nSee also: stats, skills, cost, money";
}