| … | |
… | |
| 46 | ext::schmorp_irc::do_notice (sprintf "%s quit the game", $pl->ob->name); |
46 | ext::schmorp_irc::do_notice (sprintf "%s quit the game", $pl->ob->name); |
| 47 | }, |
47 | }, |
| 48 | on_death => sub { |
48 | on_death => sub { |
| 49 | my ($pl) = @_; |
49 | my ($pl) = @_; |
| 50 | ext::schmorp_irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer); |
50 | ext::schmorp_irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer); |
|
|
51 | |
|
|
52 | $pl->ob->set_ob_key_value (schmorplog_death_count => |
|
|
53 | 1 + $pl->ob->get_ob_key_value ("schmorplog_death_count")); |
| 51 | }, |
54 | }, |
| 52 | on_load => sub { |
55 | on_load => sub { |
| 53 | my ($pl, $path) = @_; |
56 | my ($pl, $path) = @_; |
| 54 | $pl->ob->set_ob_key_value (schmorplog_last_load => time); |
57 | $pl->ob->set_ob_key_value (schmorplog_last_load => time); |
| 55 | }, |
58 | }, |
