… | |
… | |
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 | |