maps/perl/schmorplog.ext

#! perl

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

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

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

   cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
      $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.6
Committed:	Thu Mar 30 15:44:48 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.5:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#! perl
2
3	sub on_login {
4	my ($ob, $host) = @_;
5
6	cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
7	$ob->name, $host;
8	}
9
10	sub on_logout {
11	my ($ob, $host) = @_;
12
13	cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
14	$ob->name, $host;
15	}
16
17	sub on_shout {
18	my ($ob, $msg) = @_;
19
20	cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
21	$ob->name, $msg;
22	}
23
24	sub on_player_death {
25	my ($ob) = @_;
26
27	cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
28	$ob->name;
29	}