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.6 by root, Thu Mar 30 15:44:48 2006 UTC vs.
Revision 1.9 by root, Mon Jun 19 10:15:10 2006 UTC

1#! perl 1#! perl
2 2
3sub on_login { 3sub on_login {
4 my ($ob, $host) = @_; 4 my ($pl, $host) = @_;
5
6 $pl->ob->set_ob_key_value (schmorplog_last_login => time);
5 7
6 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n", 8 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
7 $ob->name, $host; 9 $pl->ob->name, $host;
10
11 0
8} 12}
9 13
10sub on_logout { 14sub on_logout {
11 my ($ob, $host) = @_; 15 my ($pl, $host) = @_;
16
17 $pl->ob->set_ob_key_value (schmorplog_last_logout => time);
12 18
13 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n", 19 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
14 $ob->name, $host; 20 $pl->ob->name, $host;
21
22 0
15} 23}
16 24
17sub on_shout { 25sub on_shout {
18 my ($ob, $msg) = @_; 26 my ($ob, $msg) = @_;
19 27
20 cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", 28 cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
21 $ob->name, $msg; 29 $ob->name, $msg;
30
31 0
22} 32}
23 33
24sub on_player_death { 34sub on_player_death {
25 my ($ob) = @_; 35 my ($ob) = @_;
26 36
27 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n", 37 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
28 $ob->name; 38 $ob->name;
39
40 0
29} 41}
42
43sub on_player_load {
44 my ($ob, $path) = @_;
45
46 $ob->set_ob_key_value (schmorplog_last_load => time);
47
48 0
49}
50
51sub on_player_save {
52 my ($ob, $path) = @_;
53
54 $ob->set_ob_key_value (schmorplog_last_save => time);
55
56 0
57}

Diff Legend

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