maps/perl/schmorplog.ext

#! perl

sub on_login {
   my ($pl, $host) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
      $pl->ob->name, $host;
}

sub on_logout {
   my ($pl, $host) = @_;

   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;
}
Revision:	1.7
Committed:	Sun Apr 2 15:07:19 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.6:	+4 -4 lines
Log Message:	login/logout get passed a playe,r not pl->ob... maybe fix this because its needlessly confusing?
#	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			cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
7	root	1.7	$pl->ob->name, $host;
8	root	1.1	}
9
10			sub on_logout {
11	root	1.7	my ($pl, $host) = @_;
12	root	1.1
13			cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
14	root	1.7	$pl->ob->name, $host;
15	root	1.1	}
16
17			sub on_shout {
18	root	1.5	my ($ob, $msg) = @_;
19	root	1.1
20	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
21	root	1.5	$ob->name, $msg;
22	root	1.1	}
23
24			sub on_player_death {
25	root	1.5	my ($ob) = @_;
26	root	1.1
27	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
28	root	1.6	$ob->name;
29	root	1.1	}