--- deliantra/server/ext/schmorplog.ext	2008/09/01 09:12:42	1.21
+++ deliantra/server/ext/schmorplog.ext	2008/09/19 01:39:45	1.22
@@ -1,4 +1,4 @@
-#! perl # depends=irc
+#! perl # depends=irc mandatory
 
 # statistics-package
 
@@ -84,12 +84,17 @@
    },
    on_death => sub {
       my ($pl) = @_;
-      ext::irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer_name);
+
+      my $msg = $pl->expand_cfpod (sprintf "%s was killed by %s.", $pl->ob->name, $pl->killer_name);
+      ext::irc::do_notice ($msg);
 
       ++$pl->ob->{stats_death}{$pl->killer_name};
 
       $pl->ob->kv_set (schmorplog_death_count =>
          1 + $pl->ob->kv_get ("schmorplog_death_count"));
+
+      $_->send_msg ("" => $msg, cf::NDI_VERBATIM)
+         for cf::player::list;
    },
    on_load => sub {
       my ($pl, $path) = @_;