| … | |
… | |
| 73 | } |
73 | } |
| 74 | |
74 | |
| 75 | 1 |
75 | 1 |
| 76 | }; |
76 | }; |
| 77 | |
77 | |
| 78 | sub on_apply { |
78 | cf::register_attachment messageboard => |
|
|
79 | on_apply => sub { |
| 79 | my ($ev, $npc, $who) = @_; |
80 | my ($npc, $who) = @_; |
| 80 | $who->reply ($npc, "Hello, i'm a talking board, 'say help' to get help"); |
81 | $who->reply ($npc, "Hello, i'm a talking board, 'say help' to get help"); |
| 81 | do_list ($npc->name, $who, $npc); |
82 | do_list ($npc->name, $who, $npc); |
| 82 | 1; |
83 | cf::override; |
| 83 | } |
84 | }, |
|
|
85 | ; |
| 84 | |
86 | |
| 85 | package CFBoard; |
87 | package CFBoard; |
|
|
88 | |
| 86 | use POSIX qw/strftime/; |
89 | use POSIX qw/strftime/; |
| 87 | use CFDB; |
90 | use CFDB; |
| 88 | |
91 | |
| 89 | my $BOARDDB = CFDB->new (db_file => cf::localdir . "/crossfireboard.perl"); |
92 | my $BOARDDB = CFDB->new (db_file => cf::localdir . "/crossfireboard.perl"); |
| 90 | |
93 | |
