#! perl

cf::object::attachment "log_say",
   on_say => sub {
      my ($self, $pl, $msg) = @_;
      
      my $name = $self->name;
      ext::schmorp_irc::do_notice (sprintf "[$name-fon] %s: %s\n", $pl->ob->name, $msg);
   },
;

cf::player::attachment "log_told",
   on_tell => sub {
      my ($self, $other, $msg) = @_;
      ext::schmorp_irc::do_notice ("[$self->$other]: $msg\n");
   },
   on_told => sub {
      my ($self, $pl, $msg) = @_;
      
      my $name = $self->ob->name;
      ext::schmorp_irc::do_notice (sprintf "[%s->$name] %s: %s\n", $pl->ob->name, $msg);
   },
;