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

Comparing deliantra/maps/perl/commands.ext (file contents):
Revision 1.12 by root, Sun Nov 19 13:50:13 2006 UTC vs.
Revision 1.13 by root, Sun Nov 26 02:37:53 2006 UTC

… …
34 $ob->esrv_update_item (cf::UPD_NAME, $item); 34 $ob->esrv_update_item (cf::UPD_NAME, $item);
35 35
36 1 36 1
37} 37}
38 38
39sub ext::schmorp_irc::users; # HACK: TODO: replace by signal
40
39sub who_listing(;$) { 41sub who_listing(;$) {
40 my ($privileged) = @_; 42 my ($privileged) = @_;
41 43
42 my ($numwiz, $numafk) = (0, 0); 44 my ($numwiz, $numafk) = (0, 0);
43 my @pl; 45 my @pl;
… …
54 push @pl, $pl; 56 push @pl, $pl;
55 } 57 }
56 58
57 ( 59 (
58 "Total Players in The World. (" . (scalar @pl) . ") -- WIZ($numwiz) AFK($numafk) BOT(0)", 60 "Total Players in The World. (" . (scalar @pl) . ") -- WIZ($numwiz) AFK($numafk) BOT(0)",
61 (
59 map { 62 map {
60 my ($pl, $ob) = ($_, $_->ob); 63 my ($pl, $ob) = ($_, $_->ob);
61 64
62 "* " . $ob->name . "/" . $ob->level . " " . (length $pl->own_title ? $pl->own_title : "the " . $pl->title) 65 "* " . $ob->name . "/" . $ob->level . " " . (length $pl->own_title ? $pl->own_title : "the " . $pl->title)
63 . ($pl->peaceful ? " [peaceful]" : " [HOSTILE]") 66 . ($pl->peaceful ? " [peaceful]" : " [HOSTILE]")
64 . ($ob->flag (cf::FLAG_AFK) ? " [AFK]" : "") 67 . ($ob->flag (cf::FLAG_AFK) ? " [AFK]" : "")
65 . ($ob->flag (cf::FLAG_WIZ) ? " [WIZ]" : "") 68 . ($ob->flag (cf::FLAG_WIZ) ? " [WIZ]" : "")
66 . " [" . $pl->client . "]" 69 . " [" . $pl->client . "]"
67 . " [" . ($pl->peaceful || $privileged ? $ob->map->path : $ob->map->region ? $ob->map->region->name : "the unknown") . "]" 70 . " [" . ($pl->peaceful || $privileged ? $ob->map->path : $ob->map->region ? $ob->map->region->name : "the unknown") . "]"
68 . ($privileged ? " " . $pl->host : "") 71 . ($privileged ? " " . $pl->host : "")
69 } sort { (lc $a->ob->name) cmp (lc $b->ob->name) } @pl 72 } sort { (lc $a->ob->name) cmp (lc $b->ob->name) } @pl
73 ),
74 eval { "* IRC: " . join ", ", ext::schmorp_irc::users },
70 ) 75 )
71} 76}
72 77
73cf::register_command who => $cf::TICK, sub { 78cf::register_command who => $cf::TICK, sub {
74 my ($ob, $arg) = @_; 79 my ($ob, $arg) = @_;

Diff Legend

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