maps/perl/schmorplog.ext

#! perl

sub on_login {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
      $event->{activator}->name, $event->{message};
}

sub on_logout {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
      $event->{activator}->name, $event->{message};
}

sub on_shout {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
      $event->{activator}->name, $event->{message};
}

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

   cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
      $event->{who}->name;
}
Revision:	1.2
Committed:	Fri Feb 3 22:52:51 2006 UTC (18 years, 3 months ago) by root
Branch:	MAIN
Changes since 1.1:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#! perl
2
3			sub on_login {
4			my ($event) = @_;
5
6			cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
7			$event->{activator}->name, $event->{message};
8			}
9
10			sub on_logout {
11			my ($event) = @_;
12
13			cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
14			$event->{activator}->name, $event->{message};
15			}
16
17			sub on_shout {
18			my ($event) = @_;
19
20	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
21	root	1.1	$event->{activator}->name, $event->{message};
22			}
23
24			sub on_player_death {
25			my ($event) = @_;
26
27	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
28	root	1.1	$event->{who}->name;
29			}