1 | #! perl |
1 | #! perl |
|
|
2 | #CONVERSION: NONE |
2 | |
3 | |
3 | sub do_help { |
4 | sub do_help { |
4 | my ($board, $who, $npc) = @_; |
5 | my ($board, $who, $npc) = @_; |
5 | $who->reply ($npc, |
6 | $who->reply ($npc, |
6 | "Help for $board\n" |
7 | "Help for $board\n" |
… | |
… | |
31 | for (@$cont) { |
32 | for (@$cont) { |
32 | $who->message ("<$idx> $_->[0]: $_->[1]", cf::NDI_BROWN | cf::NDI_UNIQUE); |
33 | $who->message ("<$idx> $_->[0]: $_->[1]", cf::NDI_BROWN | cf::NDI_UNIQUE); |
33 | $idx++; |
34 | $idx++; |
34 | } |
35 | } |
35 | } else { |
36 | } else { |
36 | $who->message ("I'm empty.", cf::NDI_BROWN | cf::NDI_UNIQUE); |
37 | $who->message ("$board is empty.", cf::NDI_BROWN | cf::NDI_UNIQUE); |
37 | } |
38 | } |
38 | 1 |
39 | 1 |
39 | } |
40 | } |
40 | |
41 | |
41 | sub do_remove { |
42 | sub do_remove { |