| … | |
… | |
| 87 | $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
87 | $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
| 88 | |
88 | |
| 89 | 1 |
89 | 1 |
| 90 | }; |
90 | }; |
| 91 | |
91 | |
|
|
92 | cf::register_command whereami => sub { |
|
|
93 | my ($ob) = @_; |
|
|
94 | |
|
|
95 | my $reg = $ob->region; |
|
|
96 | $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg)); |
|
|
97 | |
|
|
98 | 1 |
|
|
99 | }; |
|
|
100 | |
| 92 | cf::register_command applymode => sub { |
101 | cf::register_command applymode => sub { |
| 93 | my ($ob, $arg) = @_; |
102 | my ($ob, $arg) = @_; |
| 94 | my @types = ("nochoice", "never", "always"); |
103 | my @types = ("nochoice", "never", "always"); |
| 95 | my $mapping = { |
104 | my $mapping = { |
| 96 | nochoice => 1, |
105 | nochoice => 1, |
