maps/perl/schmorplog.ext

#! perl

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;
}

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;
}

sub on_shout {
   my ($ob, $msg) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
      $ob->name, $msg;
}

sub on_player_death {
   my ($ob) = @_;

   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);
}
Revision:	1.8
Committed:	Sun Apr 2 20:44:23 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.7:	+16 -0 lines
Log Message:	experimentally save some extra info
#	User	Rev	Content
1	root	1.1	#! perl
2
3			sub on_login {
4	root	1.7	my ($pl, $host) = @_;
5	root	1.1
6	root	1.8	$pl->ob->set_ob_key_value (schmorplog_last_login => time);
7
8	root	1.1	cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
9	root	1.7	$pl->ob->name, $host;
10	root	1.1	}
11
12			sub on_logout {
13	root	1.7	my ($pl, $host) = @_;
14	root	1.1
15	root	1.8	$pl->ob->set_ob_key_value (schmorplog_last_logout => time);
16
17	root	1.1	cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
18	root	1.7	$pl->ob->name, $host;
19	root	1.1	}
20
21			sub on_shout {
22	root	1.5	my ($ob, $msg) = @_;
23	root	1.1
24	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
25	root	1.5	$ob->name, $msg;
26	root	1.1	}
27
28			sub on_player_death {
29	root	1.5	my ($ob) = @_;
30	root	1.1
31	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
32	root	1.6	$ob->name;
33	root	1.1	}
34	root	1.8
35			sub on_player_load {
36			my ($ob, $path) = @_;
37
38			$ob->set_ob_key_value (schmorplog_last_load => time);
39			}
40
41			sub on_player_save {
42			my ($ob, $path) = @_;
43
44			$ob->set_ob_key_value (schmorplog_last_save => time);
45			}