| … | |
… | |
| 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 |
42 | "* " . $pl->ob->name . "/" . $pl->ob->level . ($pl->ob->flag (cf::FLAG_WIZ) ? " [WIZ] " : "") |
| 43 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
43 | ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN); |
| 44 | } |
44 | } |
| 45 | } |
45 | } |
| 46 | } |
46 | } |
| 47 | } |
47 | } |
