// Petrarch
// Merentha Lib 1.0
// <money>

string help() {
  return "Syntax: money\n\nDisplays how much money you are carrying.";
}

int command() {
mapping money=this_player()->query_money();
string *types=keys(money), ret="";
int i=sizeof(types),m,j;
  
j=this_player()->getenv("SCREEN");
if(!j) j=75;
j-=4;
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);
}
message("command", border(ret, "money", j+4), this_player());
return 1;
}