… | |
… | |
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 { |