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;

   cf::ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);

   0
}

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;

   cf::ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);

   0
}

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

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

   0
}

sub on_player_death {
   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);

   0
}
Revision:	1.10
Committed:	Wed Aug 2 16:59:48 2006 UTC (17 years, 9 months ago) by elmex
Branch:	MAIN
Changes since 1.9:	+6 -0 lines
Log Message:	added irc gateway extension
#	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.9
11	elmex	1.10	cf::ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);
12
13	root	1.9	0
14	root	1.1	}
15
16			sub on_logout {
17	root	1.7	my ($pl, $host) = @_;
18	root	1.1
19	root	1.8	$pl->ob->set_ob_key_value (schmorplog_last_logout => time);
20
21	root	1.1	cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
22	root	1.7	$pl->ob->name, $host;
23	root	1.9
24	elmex	1.10	cf::ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);
25
26	root	1.9	0
27	root	1.1	}
28
29			sub on_shout {
30	root	1.5	my ($ob, $msg) = @_;
31	root	1.1
32	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
33	root	1.5	$ob->name, $msg;
34	root	1.9
35			0
36	root	1.1	}
37
38			sub on_player_death {
39	root	1.5	my ($ob) = @_;
40	root	1.1
41	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
42	root	1.6	$ob->name;
43	root	1.9
44	elmex	1.10	cf::ext::schmorp_irc::do_notice (sprintf "%s died a quick and not very horrible death", $ob->name);
45
46	root	1.9	0
47	root	1.1	}
48	root	1.8
49			sub on_player_load {
50			my ($ob, $path) = @_;
51
52			$ob->set_ob_key_value (schmorplog_last_load => time);
53	root	1.9
54			0
55	root	1.8	}
56
57			sub on_player_save {
58			my ($ob, $path) = @_;
59
60			$ob->set_ob_key_value (schmorplog_last_save => time);
61	root	1.9
62			0
63	root	1.8	}