[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Protocol.pm

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.27 by root, Wed Jun 7 07:00:30 2006 UTC vs.
Revision 1.30 by root, Sun Jun 11 18:41:30 2006 UTC

             $::FLOORBOX->add (1, $row, $_->{desc_widget});
             $row++;
          } else {
             $::FLOORBOX->add (1, $row, new CFClient::UI::Button
-               text => "More...",
+               text        => "More...",
                on_activate => sub { $::INV_WINDOW->toggle_visibility },
             );
             last;
          }
       }
 sub player_update {
    my ($self, $player) = @_;
    $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000);
+}
-   # do it here because it is ignored earlier, and there is no "login" event
+sub logged_in {
+   my ($self) = @_;
+   $self->send_ext_req (cfplus => "version", "1", sub {
+      $self->{cfplus_ext} = $_[0];
+   });
    $self->send_command ("output-sync $::CFG->{output_sync}");
    $self->send_command ("output-count $::CFG->{output_count}");
-   $self->send_command ("pickup $::CFG->{pickup}")
+   $self->send_command ("pickup $::CFG->{pickup}");
+   my @yesno = ("<span foreground='red'>no</span>", "<span foreground='green'>yes</span>");
+   $::SERVER_INFO->set_markup (
+      "server <tt>$self->{host}:$self->{port}</tt>\n"
+    . "protocol version <tt>$self->{version}</tt>\n"
+    . "minimap support $yesno[$self->{setup}{mapinfocmd} > 0]\n"
+    . "extended command support $yesno[$self->{setup}{extcmd} > 0]\n"
+    . "cfplus support $yesno[$self->{cfplus_ext} > 0]\n"
+    . "map size $self->{mapw}×$self->{maph}\n"
+   );
 }
 1;

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