… | |
… | |
158 | |
158 | |
159 | cf::register_command whereami => sub { |
159 | cf::register_command whereami => sub { |
160 | my ($ob) = @_; |
160 | my ($ob) = @_; |
161 | |
161 | |
162 | my $reg = $ob->contr->observe->region; |
162 | my $reg = $ob->contr->observe->region; |
163 | $ob->send_msg ("c/mapinfo" => (sprintf "You are %s.\n%s", $reg->longname, $reg->msg), cf::NDI_REPLY | cf::NDI_CLEAR); |
163 | $ob->send_msg ("c/who" => (sprintf "You are %s.\n%s", $reg->longname, $reg->msg), cf::NDI_REPLY | cf::NDI_CLEAR); |
164 | }; |
164 | }; |
165 | |
165 | |
166 | cf::register_command whereabouts => sub { |
166 | cf::register_command whereabouts => sub { |
167 | my ($ob, $arg) = @_; |
167 | my ($ob, $arg) = @_; |
168 | |
168 | |
… | |
… | |
173 | } |
173 | } |
174 | |
174 | |
175 | my $msg = "In the world currently there are:\n\n" |
175 | my $msg = "In the world currently there are:\n\n" |
176 | . join "", map "$count{$_} player(s) $_\n\n", sort keys %count; |
176 | . join "", map "$count{$_} player(s) $_\n\n", sort keys %count; |
177 | |
177 | |
178 | $ob->send_msg ("c/mapinfo" => $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 { |
182 | my ($ob, $arg) = @_; |
182 | my ($ob, $arg) = @_; |
183 | |
183 | |