| … | |
… | |
| 170 | |
170 | |
| 171 | for my $pl (cf::player::list) { |
171 | for my $pl (cf::player::list) { |
| 172 | ++$count{$pl->ob->region->longname}; |
172 | ++$count{$pl->ob->region->longname}; |
| 173 | } |
173 | } |
| 174 | |
174 | |
| 175 | my $msg = "In the world currently there are:\n\n" |
175 | my $msg = "T<In the world currently there are:>\n\n" |
| 176 | . join "", map { sprintf "C<%2d >player(s) %s\r", $count{$_}, $_ } sort keys %count; |
176 | . join "", map { sprintf " C<%3d >player(s) %s\r", $count{$_}, $_ } sort keys %count; |
| 177 | |
177 | |
| 178 | $ob->send_msg ("c/who" => $msg, cf::NDI_REPLY | cf::NDI_CLEAR); |
178 | $ob->send_msg ("c/who" => $msg, cf::NDI_REPLY | cf::NDI_CLEAR); |
| 179 | }; |
179 | }; |
| 180 | |
180 | |
| 181 | cf::register_command hiscore => sub { |
181 | cf::register_command hiscore => sub { |
