--- cf.schmorp.de/maps/perl/schmorplog.ext	2006/02/03 07:25:25	1.1
+++ cf.schmorp.de/maps/perl/schmorplog.ext	2006/08/02 16:59:48	1.10
@@ -1,29 +1,63 @@
 #! perl
 
 sub on_login {
-   my ($event) = @_;
+   my ($pl, $host) = @_;
+
+   $pl->ob->set_ob_key_value (schmorplog_last_login => time);
 
    cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
-      $event->{activator}->name, $event->{message};
+      $pl->ob->name, $host;
+
+   cf::ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);
+
+   0
 }
 
 sub on_logout {
-   my ($event) = @_;
+   my ($pl, $host) = @_;
+
+   $pl->ob->set_ob_key_value (schmorplog_last_logout => time);
 
    cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
-      $event->{activator}->name, $event->{message};
+      $pl->ob->name, $host;
+
+   cf::ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);
+
+   0
 }
 
 sub on_shout {
-   my ($event) = @_;
+   my ($ob, $msg) = @_;
+
+   cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
+      $ob->name, $msg;
 
-   cf::LOG cf::llevDebug, sprintf "QBERT %s: %s\n",
-      $event->{activator}->name, $event->{message};
+   0
 }
 
 sub on_player_death {
-   my ($event) = @_;
+   my ($ob) = @_;
+
+   cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
+      $ob->name;
+
+   cf::ext::schmorp_irc::do_notice (sprintf "%s died a quick and not very horrible death", $ob->name);
+
+   0
+}
+
+sub on_player_load {
+   my ($ob, $path) = @_;
+
+   $ob->set_ob_key_value (schmorplog_last_load => time);
+
+   0
+}
+
+sub on_player_save {
+   my ($ob, $path) = @_;
+
+   $ob->set_ob_key_value (schmorplog_last_save => time);
 
-   cf::LOG cf::llevDebug, sprintf "QBERT %s died\n",
-      $event->{who}->name;
+   0
 }