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
#	Content
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	0
9	}
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	0
17	}
18
19	sub on_shout {
20	my ($event) = @_;
21
22	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
23	$event->{activator}->name, $event->{message};
24	0
25	}
26
27	sub on_player_death {
28	my ($event) = @_;
29
30	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
31	$event->{who}->name;
32	0
33	}