| … | |
… | |
| 16 | |
16 | |
| 17 | sub do_help { |
17 | sub do_help { |
| 18 | my ($guildrules, $who, $npc) = @_; |
18 | my ($guildrules, $who, $npc) = @_; |
| 19 | $who->reply ($npc, |
19 | $who->reply ($npc, |
| 20 | "Help for $guildrules\n" |
20 | "Help for $guildrules\n" |
| 21 | ."List of commands:\n\n" |
21 | . "List of commands:\n\n" |
| 22 | ."- list\n" |
22 | . " - list\n" |
| 23 | ."- write <message>\n" |
23 | . " - write <message>\n" |
| 24 | ."- remove <id>\n" |
24 | . " - remove <id>\n" |
| 25 | ); |
25 | ); |
| 26 | } |
26 | } |
| 27 | |
27 | |
| 28 | sub do_write { |
28 | sub do_write { |
| 29 | my ($guildrules, $msg, $who, $npc) = @_; |
29 | my ($guildrules, $msg, $who, $npc) = @_; |
