| 1 | #! perl |
1 | #! perl |
| 2 | |
2 | |
| 3 | sub do_help { |
3 | sub do_help { |
| 4 | my ($board, $who, $npc) = @_; |
4 | my ($board, $who, $npc) = @_; |
| 5 | $who->reply ($npc, |
5 | $who->reply ($npc, |
| 6 | "Help for $board\n" |
6 | "Help for $board\n\n" |
| 7 | ."List of commands:\n\n" |
7 | . "List of commands:\n\n" |
| 8 | ."- list\n" |
8 | . " - list\n" |
| 9 | ."- write <message>\n" |
9 | . " - write <message>\n" |
| 10 | ."- remove <id>\n" |
10 | . " - remove <id>\n" |
| 11 | ); |
11 | ); |
| 12 | } |
12 | } |
| 13 | |
13 | |
| 14 | sub do_write { |
14 | sub do_write { |
| 15 | my ($board, $msg, $who, $npc) = @_; |
15 | my ($board, $msg, $who, $npc) = @_; |
