| 1 | #! perl |
1 | #! perl |
|
|
2 | #CONVERSION: BROKEN, MISSING ON_APPLY |
| 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 { |
