--- deliantra/maps/perl/schmorplog.ext	2006/04/02 15:07:19	1.7
+++ deliantra/maps/perl/schmorplog.ext	2006/04/02 20:44:23	1.8
@@ -3,6 +3,8 @@
 sub on_login {
    my ($pl, $host) = @_;
 
+   $pl->ob->set_ob_key_value (schmorplog_last_login => time);
+
    cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
       $pl->ob->name, $host;
 }
@@ -10,6 +12,8 @@
 sub on_logout {
    my ($pl, $host) = @_;
 
+   $pl->ob->set_ob_key_value (schmorplog_last_logout => time);
+
    cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
       $pl->ob->name, $host;
 }
@@ -27,3 +31,15 @@
    cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
       $ob->name;
 }
+
+sub on_player_load {
+   my ($ob, $path) = @_;
+
+   $ob->set_ob_key_value (schmorplog_last_load => time);
+}
+
+sub on_player_save {
+   my ($ob, $path) = @_;
+
+   $ob->set_ob_key_value (schmorplog_last_save => time);
+}