--- deliantra/server/ext/commands.ext	2008/09/08 18:34:35	1.68
+++ deliantra/server/ext/commands.ext	2008/09/11 17:56:09	1.69
@@ -83,7 +83,7 @@
    my $reply =
        "The first column is the name of the body location.\r"
      . "The second column is how many of those locations your body has.\r"
-     . "The third column is how many slots in that location are available.\r";
+     . "The third column is how many slots in that location are available.\n\n";
 
    $reply .= sprintf " %-20s %3s %5s\n", "Location", "You", "Avail";
    for (0 .. cf::NUM_BODY_LOCATIONS - 1) {
@@ -148,8 +148,8 @@
    my $map = $observe->map
       or return;
 
-   my $msg = sprintf "%s (%s) %s\r", $map->name, $map->path, $observe->region->longname;
-   $msg .= sprintf "players: %d difficulty: %d size: %d start: %dx%d timeout: %d",
+   my $msg = sprintf "%s (%s)\r%s", $map->name, $map->path, $observe->region->longname;
+   $msg .= sprintf "\rplayers: %d difficulty: %d size: %d start: %dx%d timeout: %d",
               (scalar $map->players), $map->difficulty, $map->width, $map->height, $map->enter_x, $map->enter_y, $map->timeout
       if $ob->flag (cf::FLAG_WIZ);
 
@@ -160,7 +160,7 @@
    my ($ob) = @_;
 
    my $reg = $ob->contr->observe->region;
-   $ob->send_msg ("c/who" => (sprintf "You are %s.\n%s", $reg->longname, $reg->msg), cf::NDI_REPLY | cf::NDI_CLEAR);
+   $ob->send_msg ("c/who" => (sprintf "You are %s.\n\n%s", $reg->longname, $reg->msg), cf::NDI_REPLY | cf::NDI_CLEAR);
 };
 
 cf::register_command whereabouts => sub {
@@ -173,7 +173,7 @@
    }
 
    my $msg = "In the world currently there are:\n\n"
-           . join "", map "$count{$_} player(s) $_\n\n", sort keys %count;
+           . join "", map { sprintf "C<%2d >player(s) %s\r", $count{$_}, $_ } sort keys %count;
 
    $ob->send_msg ("c/who" => $msg, cf::NDI_REPLY | cf::NDI_CLEAR);
 };