… | |
… | |
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 afk => sub { |
|
|
93 | my ($ob, $arg) = @_; |
|
|
94 | |
|
|
95 | $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1); |
|
|
96 | $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK"); |
|
|
97 | }; |
|
|
98 | |
92 | cf::register_command rename => sub { |
99 | cf::register_command rename => sub { |
93 | my ($ob, $arg) = @_; |
100 | my ($ob, $arg) = @_; |
94 | |
101 | |
95 | $ob->speed_left ($ob->speed_left - 0.25); |
102 | $ob->speed_left ($ob->speed_left - 0.25); |
96 | |
103 | |