… | … | ||
---|---|---|---|
199 | }; | 199 | }; |
200 | 200 | ||
201 | cf::register_command whereami => sub { | 201 | cf::register_command whereami => sub { |
202 | my ($ob) = @_; | 202 | my ($ob) = @_; |
203 | 203 | ||
204 | my $reg = $ob->region; | 204 | my $reg = $ob->contr->observe->region; |
205 | $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg)); | 205 | $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg)); |
206 | 206 | ||
207 | 1 | 207 | 1 |
208 | }; | 208 | }; |
209 | 209 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |