| … | |
… | |
| 47 | cf::register_command who => sub { |
47 | cf::register_command who => sub { |
| 48 | my ($ob, $arg) = @_; |
48 | my ($ob, $arg) = @_; |
| 49 | |
49 | |
| 50 | $ob->speed_left ($ob->speed_left - 4); |
50 | $ob->speed_left ($ob->speed_left - 4); |
| 51 | |
51 | |
| 52 | $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who"), $arg), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
52 | $ob->contr->ns->send_msg (log => (join "\n\n", who_listing $ob->may ("extended_who"), $arg), cf::NDI_DK_ORANGE); |
| 53 | }; |
53 | }; |
| 54 | |
54 | |
| 55 | cf::register_command seen => sub { |
55 | cf::register_command seen => sub { |
| 56 | my ($pl, $args) = @_; |
56 | my ($pl, $args) = @_; |
| 57 | |
57 | |
