… | |
… | |
257 | }; |
257 | }; |
258 | |
258 | |
259 | cf::register_command brace => sub { |
259 | cf::register_command brace => sub { |
260 | my ($ob, $arg) = @_; |
260 | my ($ob, $arg) = @_; |
261 | |
261 | |
262 | $ob->contr->braced (!(length $arg ? !$arg : $ob->contr->ns->braced)); |
262 | $ob->contr->braced (!(length $arg ? !$arg : $ob->contr->braced)); |
263 | $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced."); |
263 | $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced."); |
264 | }; |
264 | }; |
265 | |
265 | |
266 | cf::register_command sound => sub { |
266 | cf::register_command sound => sub { |
267 | my ($ob, $arg) = @_; |
267 | my ($ob, $arg) = @_; |