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

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

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

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

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

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;
   0
}
Revision:	1.3
Committed:	Fri Mar 24 23:29:18 2006 UTC (18 years, 1 month ago) by elmex
Branch:	MAIN
Changes since 1.2:	+4 -0 lines
Log Message:	added some 0 and 1 to the callbacks
#	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	elmex	1.3	0
9	root	1.1	}
10
11			sub on_logout {
12			my ($event) = @_;
13
14			cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
15			$event->{activator}->name, $event->{message};
16	elmex	1.3	0
17	root	1.1	}
18
19			sub on_shout {
20			my ($event) = @_;
21
22	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
23	root	1.1	$event->{activator}->name, $event->{message};
24	elmex	1.3	0
25	root	1.1	}
26
27			sub on_player_death {
28			my ($event) = @_;
29
30	root	1.2	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
31	root	1.1	$event->{who}->name;
32	elmex	1.3	0
33	root	1.1	}