maps/perl/schmorplog.ext

#! perl

cf::attach_to_players
   on_login => sub {
      my ($pl) = @_;
      $pl->ob->set_ob_key_value (schmorplog_last_login => time);
      ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);
   },
   on_logout => sub {
      my ($pl) = @_;
      $pl->ob->set_ob_key_value (schmorplog_last_logout => time);
      ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);
   },
   on_birth => sub {
      my ($pl) = @_;
      ext::schmorp_irc::do_notice (sprintf "%s was just born", $pl->ob->name);
      $pl->ob->set_ob_key_value (schmorplog_birthdate => time);
   },
   on_quit => sub {
      my ($pl) = @_;
      ext::schmorp_irc::do_notice (sprintf "%s quit the game", $pl->ob->name);
   },
   on_death => sub {
      my ($pl) = @_;
      ext::schmorp_irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer);
   },
   on_load => sub {
      my ($pl, $path) = @_;
      $pl->ob->set_ob_key_value (schmorplog_last_load => time);
   },
   on_save => sub {
      my ($pl, $path) = @_;
      $pl->ob->set_ob_key_value (schmorplog_last_save => time);
   },
;
Revision:	1.13
Committed:	Fri Aug 25 15:24:54 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.12:	+5 -5 lines
Log Message:	rename ext:: to safe:: and cf::ext:: to ext::
#	User	Rev	Content
1	root	1.1	#! perl
2
3	root	1.12	cf::attach_to_players
4			on_login => sub {
5			my ($pl) = @_;
6			$pl->ob->set_ob_key_value (schmorplog_last_login => time);
7	root	1.13	ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);
8	root	1.12	},
9			on_logout => sub {
10			my ($pl) = @_;
11			$pl->ob->set_ob_key_value (schmorplog_last_logout => time);
12	root	1.13	ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);
13	root	1.12	},
14			on_birth => sub {
15			my ($pl) = @_;
16	root	1.13	ext::schmorp_irc::do_notice (sprintf "%s was just born", $pl->ob->name);
17	root	1.12	$pl->ob->set_ob_key_value (schmorplog_birthdate => time);
18			},
19			on_quit => sub {
20			my ($pl) = @_;
21	root	1.13	ext::schmorp_irc::do_notice (sprintf "%s quit the game", $pl->ob->name);
22	root	1.12	},
23			on_death => sub {
24			my ($pl) = @_;
25	root	1.13	ext::schmorp_irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer);
26	root	1.12	},
27			on_load => sub {
28			my ($pl, $path) = @_;
29			$pl->ob->set_ob_key_value (schmorplog_last_load => time);
30			},
31			on_save => sub {
32			my ($pl, $path) = @_;
33			$pl->ob->set_ob_key_value (schmorplog_last_save => time);
34			},
35			;