| … | |
… | |
| 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->flag (cf::FLAG_WIZ) ? " [WIZ] " : "") |
42 | "* " . $pl->ob->name . "/" . $pl->ob->level . " " . $pl->ob->race . " " |
|
|
43 | .($pl->ob->flag (cf::FLAG_WIZ) ? " [WIZ] " : "") |
| 43 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
44 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
| 44 | } |
45 | } |
| 45 | } |
46 | } |
| 46 | } elsif ($msg =~ /^\!tell/) { |
47 | } elsif ($msg =~ /^\!tell/) { |
| 47 | my (undef, $target, $tmsg) = split / /, $msg, 3; |
48 | my (undef, $target, $tmsg) = split / /, $msg, 3; |
