--- deliantra/server/ext/commands.ext 2007/08/10 05:27:38 1.59 +++ deliantra/server/ext/commands.ext 2007/08/10 05:38:16 1.60 @@ -49,7 +49,7 @@ $ob->speed_left ($ob->speed_left - 4); - $ob->contr->ns->send_msg (log => (join "\n\n", who_listing $ob->may ("extended_who"), $arg), cf::NDI_DK_ORANGE); + $ob->send_msg (log => (join "\n\n", who_listing $ob->may ("extended_who"), $arg), cf::NDI_DK_ORANGE | cf::NDI_REPLY); }; cf::register_command seen => sub { @@ -147,11 +147,12 @@ my $map = $observe->map or return; - $ob->reply (undef, (sprintf "%s (%s) %s", $map->name, $map->path, $observe->region->longname)); - $ob->reply (undef, (sprintf "players: %d difficulty: %d size: %d start: %dx%d timeout: %d", - (scalar $map->players), $map->difficulty, $map->width, $map->height, $map->enter_x, $map->enter_y, $map->timeout)) + + my $msg = sprintf "%s (%s) %s", $map->name, $map->path, $observe->region->longname; + $msg .= sprintf "\n\nplayers: %d difficulty: %d size: %d start: %dx%d timeout: %d", + (scalar $map->players), $map->difficulty, $map->width, $map->height, $map->enter_x, $map->enter_y, $map->timeout if $ob->flag (cf::FLAG_WIZ); - $ob->reply (undef, $map->msg); + $ob->send_msg (log => $msg, cf::NDI_REPLY); }; cf::register_command whereami => sub { @@ -173,14 +174,14 @@ my $msg = "In the world currently there are:\n\n" . join "", map "$count{$_} player(s) in $_\n\n", sort keys %count; - $ob->contr->ns->send_msg (log => $msg, cf::NDI_REPLY); + $ob->send_msg (log => $msg, cf::NDI_REPLY); }; cf::register_command hiscore => sub { my ($ob, $arg) = @_; my $url = $cf::CFG->{hiscore_url}; - $ob->contr->ns->send_msg (log => "See $url", cf::NDI_REPLY); + $ob->send_msg (log => "See $url", cf::NDI_REPLY); }; sub _set_mode($$$@) {