… | |
… | |
37 | $CON->send_chan ($BOTCHAN, NOTICE => "Total Players in The World. ($numplayers) -- WIZ($numwiz)", $BOTCHAN); |
37 | $CON->send_chan ($BOTCHAN, NOTICE => "Total Players in The World. ($numplayers) -- WIZ($numwiz)", $BOTCHAN); |
38 | |
38 | |
39 | if ($numplayers > 0) { |
39 | if ($numplayers > 0) { |
40 | foreach my $pl (@plist) { |
40 | foreach my $pl (@plist) { |
41 | $CON->send_chan ($BOTCHAN, NOTICE => |
41 | $CON->send_chan ($BOTCHAN, NOTICE => |
42 | "* " . $pl->ob->name . "/" . $pl->ob->level . " " . $pl->ob->race . " " |
42 | "* " . $pl->ob->name . "/" . $pl->ob->level . " " . ( length $pl->own_title ? $pl->own_title : "the " . $pl->title ) . " " |
43 | .($pl->ob->flag (cf::FLAG_WIZ) ? " [WIZ] " : "") |
43 | .($pl->ob->flag (cf::FLAG_WIZ) ? " [WIZ] " : "") |
44 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
44 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
45 | } |
45 | } |
46 | } |
46 | } |
47 | } elsif ($msg =~ /^\!tell/) { |
47 | } elsif ($msg =~ /^\!tell/) { |