| 1 | #! perl |
1 | #! perl |
| 2 | #CONVERSION: BROKEN, MISSING ON_APPLY |
|
|
| 3 | |
2 | |
| 4 | sub do_help { |
3 | sub do_help { |
| 5 | my ($board, $who, $npc) = @_; |
4 | my ($board, $who, $npc) = @_; |
| 6 | $who->reply ($npc, |
5 | $who->reply ($npc, |
| 7 | "Help for $board\n" |
6 | "Help for $board\n" |
| … | |
… | |
| 74 | } |
73 | } |
| 75 | |
74 | |
| 76 | 1 |
75 | 1 |
| 77 | }; |
76 | }; |
| 78 | |
77 | |
| 79 | sub on_apply { |
78 | cf::register_attachment messageboard => |
|
|
79 | on_apply => sub { |
| 80 | my ($ev, $npc, $who) = @_; |
80 | my ($npc, $who) = @_; |
| 81 | $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"); |
| 82 | do_list ($npc->name, $who, $npc); |
82 | do_list ($npc->name, $who, $npc); |
| 83 | 1; |
83 | cf::override; |
| 84 | } |
84 | }, |
|
|
85 | ; |
| 85 | |
86 | |
| 86 | package CFBoard; |
87 | package CFBoard; |
|
|
88 | |
| 87 | use POSIX qw/strftime/; |
89 | use POSIX qw/strftime/; |
| 88 | use CFDB; |
90 | use CFDB; |
| 89 | |
91 | |
| 90 | my $BOARDDB = CFDB->new (db_file => cf::localdir . "/crossfireboard.perl"); |
92 | my $BOARDDB = CFDB->new (db_file => cf::localdir . "/crossfireboard.perl"); |
| 91 | |
93 | |
