… | |
… | |
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) = @_; |