| … | |
… | |
| 170 | for my $pl (cf::player::list) { |
170 | for my $pl (cf::player::list) { |
| 171 | ++$count{$pl->ob->region->longname}; |
171 | ++$count{$pl->ob->region->longname}; |
| 172 | } |
172 | } |
| 173 | |
173 | |
| 174 | my $msg = "In the world currently there are:\n\n" |
174 | my $msg = "In the world currently there are:\n\n" |
| 175 | . join "", map "$count{$_} player(s) in $_\n\n", sort keys %count; |
175 | . join "", map "$count{$_} player(s) $_\n\n", sort keys %count; |
| 176 | |
176 | |
| 177 | $ob->send_msg (log => $msg, cf::NDI_REPLY); |
177 | $ob->send_msg (log => $msg, cf::NDI_REPLY); |
| 178 | }; |
178 | }; |
| 179 | |
179 | |
| 180 | cf::register_command hiscore => sub { |
180 | cf::register_command hiscore => sub { |
