… | |
… | |
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 { |