Revision: | 1.6 |
Committed: | Mon Jun 11 22:18:03 2007 UTC (17 years, 1 month ago) by root |
Branch: | MAIN |
CVS Tags: | rel-2_82, rel-2_81, rel-2_80, rel-3_1, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, rel-2_52, rel-2_53, rel-2_32, rel-2_90, rel-2_92, rel-2_93, rel-2_78, rel-2_61, rel-2_43, rel-2_42, rel-2_41, HEAD |
Changes since 1.5: | +1 -1 lines |
Log Message: | add some deps |
# | Content |
---|---|
1 | #! perl # depends=irc |
2 | |
3 | cf::object::attachment "log_say", |
4 | on_say => sub { |
5 | my ($self, $pl, $msg) = @_; |
6 | |
7 | my $name = $self->name; |
8 | ext::irc::do_notice (sprintf "[$name-fon] %s: %s\n", $pl->ob->name, $msg); |
9 | }, |
10 | ; |
11 | |
12 | cf::player::attachment "log_told", |
13 | on_tell => sub { |
14 | my ($self, $other, $msg) = @_; |
15 | |
16 | my $name = $self->ob->name; |
17 | ext::irc::do_notice ("[$name->$other]: $msg\n"); |
18 | }, |
19 | on_told => sub { |
20 | my ($self, $pl, $msg) = @_; |
21 | |
22 | my $name = $self->ob->name; |
23 | ext::irc::do_notice (sprintf "[%s->$name]: %s\n", $pl->ob->name, $msg); |
24 | }, |
25 | ; |
26 |