| … | |
… | |
| 61 | $pl->send_msg ($cf::SAY_CHANNEL); |
61 | $pl->send_msg ($cf::SAY_CHANNEL); |
| 62 | $pl->send_msg ($cf::CHAT_CHANNEL); |
62 | $pl->send_msg ($cf::CHAT_CHANNEL); |
| 63 | }, |
63 | }, |
| 64 | ); |
64 | ); |
| 65 | |
65 | |
|
|
66 | # TODO: remove once safe |
| 66 | cf::register_command listen => sub { |
67 | cf::register_command listen => sub { |
| 67 | my ($pl, $msg) = @_; |
|
|
| 68 | my $player = cf::player::find_active $pl->name; |
|
|
| 69 | |
|
|
| 70 | if ($msg ne "") { |
|
|
| 71 | $msg = 10 if $msg > 10; |
|
|
| 72 | |
|
|
| 73 | my $prev_listen = $player->listening; |
|
|
| 74 | $player->listening ($msg); |
|
|
| 75 | if ($prev_listen == $player->listening) { |
|
|
| 76 | $pl->message ("Your verbose level stays at $prev_listen.", cf::NDI_REPLY); |
|
|
| 77 | } else { |
|
|
| 78 | $pl->message ("Your verbose level is now " . $player->listening . ". (previously: $prev_listen)", cf::NDI_REPLY); |
|
|
| 79 | } |
|
|
| 80 | } else { |
|
|
| 81 | $pl->message ("Your verbose level is " . $player->listening . ".", cf::NDI_REPLY); |
|
|
| 82 | } |
|
|
| 83 | }; |
68 | }; |
| 84 | |
69 | |
| 85 | cf::register_command cointoss => sub { |
70 | cf::register_command cointoss => sub { |
| 86 | my ($ob, $msg) = @_; |
71 | my ($ob, $msg) = @_; |
| 87 | |
72 | |
