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.9 by root, Mon Jun 19 10:15:10 2006 UTC vs.
Revision 1.10 by elmex, Wed Aug 2 16:59:48 2006 UTC

5 5
6 $pl->ob->set_ob_key_value (schmorplog_last_login => time); 6 $pl->ob->set_ob_key_value (schmorplog_last_login => time);
7 7
8 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n", 8 cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
9 $pl->ob->name, $host; 9 $pl->ob->name, $host;
10
11 cf::ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);
10 12
11 0 13 0
12} 14}
13 15
14sub on_logout { 16sub on_logout {
16 18
17 $pl->ob->set_ob_key_value (schmorplog_last_logout => time); 19 $pl->ob->set_ob_key_value (schmorplog_last_logout => time);
18 20
19 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n", 21 cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
20 $pl->ob->name, $host; 22 $pl->ob->name, $host;
23
24 cf::ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);
21 25
22 0 26 0
23} 27}
24 28
25sub on_shout { 29sub on_shout {
35 my ($ob) = @_; 39 my ($ob) = @_;
36 40
37 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n", 41 cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
38 $ob->name; 42 $ob->name;
39 43
44 cf::ext::schmorp_irc::do_notice (sprintf "%s died a quick and not very horrible death", $ob->name);
45
40 0 46 0
41} 47}
42 48
43sub on_player_load { 49sub on_player_load {
44 my ($ob, $path) = @_; 50 my ($ob, $path) = @_;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines