| … | |
… | |
| 31 | for (@$cont) { |
31 | for (@$cont) { |
| 32 | $who->message ("<$idx> $_->[0]: $_->[1]", cf::NDI_BROWN | cf::NDI_UNIQUE); |
32 | $who->message ("<$idx> $_->[0]: $_->[1]", cf::NDI_BROWN | cf::NDI_UNIQUE); |
| 33 | $idx++; |
33 | $idx++; |
| 34 | } |
34 | } |
| 35 | } else { |
35 | } else { |
| 36 | $who->message ("I'm empty.", cf::NDI_BROWN | cf::NDI_UNIQUE); |
36 | $who->message ("$board is empty.", cf::NDI_BROWN | cf::NDI_UNIQUE); |
| 37 | } |
37 | } |
| 38 | 1 |
38 | 1 |
| 39 | } |
39 | } |
| 40 | |
40 | |
| 41 | sub do_remove { |
41 | sub do_remove { |
| … | |
… | |
| 73 | } |
73 | } |
| 74 | |
74 | |
| 75 | 1 |
75 | 1 |
| 76 | }; |
76 | }; |
| 77 | |
77 | |
| 78 | sub on_apply { |
78 | cf::register_attachment board => |
|
|
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 | |
