ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/schmorplog.ext
(Generate patch)

Comparing deliantra/maps/perl/schmorplog.ext (file contents):
Revision 1.3 by elmex, Fri Mar 24 23:29:18 2006 UTC vs.
Revision 1.4 by root, Sat Mar 25 04:47:56 2006 UTC

… …
3sub on_login { 3sub on_login {
4 my ($event) = @_; 4 my ($event) = @_;
5 5
6 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n", 6 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
7 $event->{activator}->name, $event->{message}; 7 $event->{activator}->name, $event->{message};
8 0
9} 8}
10 9
11sub on_logout { 10sub on_logout {
12 my ($event) = @_; 11 my ($event) = @_;
13 12
14 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n", 13 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
15 $event->{activator}->name, $event->{message}; 14 $event->{activator}->name, $event->{message};
16 0
17} 15}
18 16
19sub on_shout { 17sub on_shout {
20 my ($event) = @_; 18 my ($event) = @_;
21 19
22 cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", 20 cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
23 $event->{activator}->name, $event->{message}; 21 $event->{activator}->name, $event->{message};
24 0
25} 22}
26 23
27sub on_player_death { 24sub on_player_death {
28 my ($event) = @_; 25 my ($event) = @_;
29 26
30 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n", 27 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
31 $event->{who}->name; 28 $event->{who}->name;
32 0
33} 29}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines