| … | |
… | |
| 67 | |
67 | |
| 68 | warn "QUIT: ", $pl->ob->name, " from ", $pl->ns->host; |
68 | warn "QUIT: ", $pl->ob->name, " from ", $pl->ns->host; |
| 69 | }, |
69 | }, |
| 70 | on_death => sub { |
70 | on_death => sub { |
| 71 | my ($pl) = @_; |
71 | my ($pl) = @_; |
| 72 | ext::irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer); |
72 | ext::irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer_name); |
| 73 | |
73 | |
| 74 | $pl->ob->set_ob_key_value (schmorplog_death_count => |
74 | $pl->ob->set_ob_key_value (schmorplog_death_count => |
| 75 | 1 + $pl->ob->get_ob_key_value ("schmorplog_death_count")); |
75 | 1 + $pl->ob->get_ob_key_value ("schmorplog_death_count")); |
| 76 | }, |
76 | }, |
| 77 | on_load => sub { |
77 | on_load => sub { |
