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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.218 by root, Thu Apr 8 19:11:21 2010 UTC vs.
Revision 1.225 by root, Sat Nov 10 18:29:32 2012 UTC

 use DC::Item;
 use base 'Deliantra::Protocol::Base';
 our $TEX_DIALOGUE = new_from_resource DC::Texture
-         "dialogue.png", minify => 1, mipmap => 1;
+        "dialogue.png", minify => 1, mipmap => 1;
 our $TEX_NOFACE = new_from_resource DC::Texture
         "noface.png", minify => 1, mipmap => 1, wrap => 1;
 sub MIN_TEXTURE_UNUSED() { 1 }#d#
    my ($class, %arg) = @_;
    my $self = $class->SUPER::new (%arg,
       setup_req => {
          extmap => 1,
-         excmd  => 1,
          widget => 2,
          %{$arg{setup_req} || {}},
       },
    );
+   $self->update_fx_want;
+   my $exp_guard = $self->addme_guard;
+   my $skl_guard = $self->addme_guard;
+   my $spl_guard = $self->addme_guard;
+   $self->send_exti_req (resource => qw(exp_table skill_info spell_paths), sub {
+      my ($exp, $skl, $spl) = @_;
+      $self->register_face_handler ($exp, sub {
+         my ($face) = @_;
+         undef $exp_guard;
+         $self->{exp_table} = $self->{json_coder}->decode (delete $face->{data});
+         $_->() for values %{ $self->{on_exp_update} };
+      });
+      $self->register_face_handler ($skl, sub {
+         my ($face) = @_;
+         undef $skl_guard;
+         my $info = $self->{json_coder}->decode (delete $face->{data});
+         $self->{skill_info} = { map { CS_STAT_SKILLINFO + $_ => $info->[$_][0] } 0 .. $#$info };
+      });
+      $self->register_face_handler ($spl, sub {
+         my ($face) = @_;
+         undef $spl_guard;
+         my $info = $self->{json_coder}->decode (delete $face->{data});
+         $self->{spell_paths} = { map { (1 << $_) => $info->[$_][0] } 0 .. $#$info };
+      });
+      ()
+   });
    $self->{map_widget}->clr_commands;
    my @cmd_help = map {
       $_->[DC::Pod::N_KW][0] =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
       $self->{noface} = my $tex = $TEX_NOFACE;
       $self->{map}->set_texture (2, @$tex{qw(name w h s t)}, @{$tex->{minified}});
    }
 #   $self->{expire_count} = DC::DB::FIRST_TILE_ID; # minimum non-fixed tile id
-#   $self->{expire_w} = EV::timer 1, 1, sub {
+#   $self->{expire_w} = AE::timer 1, 1, sub {
 #      my $count = (int @{ $self->{texture} } / MIN_TEXTURE_UNUSED) || 1;
 #
 #      for ($self->{map}->expire_textures ($self->{expire_count}, $count)) {
 #         warn DC::SvREFCNT $self->{texture}[$_];
 #         $self->{texture}[$_]->unload;
    $self->{mapcache} = "mapcache_$self->{host}_$self->{port}";
    $self
 }
+   #$self->send_exti_req (nickmon => 1, sub { use Data::Dump; ddx \@_ });#d#
+#sub ext_nicklist { shift; use Data::Dump; ddx \@_; } #d#
 sub update_fx_want {
    my ($self) = @_;
    $self->send_exti_msg (fx_want => {
       3 => !!$::CFG->{bgm_enable},   # FT_MUSIC
    });
 }
 sub ext_capabilities {
    my ($self, %cap) = @_;
-   $self->update_fx_want;
-   $self->send_exti_req (resource => "exp_table", sub {
-      my ($exp_table) = @_;
-      $self->register_face_handler ($exp_table, sub {
-         my ($face) = @_;
-         $self->{exp_table} = $self->{json_coder}->decode (delete $face->{data});
-         $_->() for values %{ $self->{on_exp_update} || {} };
-      });
-      ()
-   });
    if (my $ts = $cap{tileset}) {
       if (my ($default) = grep $_->[2] & 1, @$ts) {
          $self->{tileset} = $default;
          $self->{tilesize} = $default->[3];
    if (my @diffs =
           (
              ($stats->{+CS_STAT_EXP64} > $prev->{+CS_STAT_EXP64} ? ($stats->{+CS_STAT_EXP64} - $prev->{+CS_STAT_EXP64}) . " experience gained" : ()),
              map {
                 $stats->{$_} && $prev->{$_}
                    && $stats->{$_}[1] > $prev->{$_}[1] ? "($self->{skill_info}{$_}+" . ($stats->{$_}[1] - $prev->{$_}[1]) . ")" : ()
              } sort { $a <=> $b } keys %{$self->{skill_info}}
           )
    ) {
       my $msg = join " ", @diffs;
 }
 sub feed_map1a {
    my ($self, $data) = @_;
-   my $missing = $self->{map}->map1a_update ($data, $self->{setup}{extmap});
+   my $missing = $self->{map}->map1a_update ($data);
    my $delay;
    for my $tile (@$missing) {
       next if $self->{delay}{$tile};
    my ($self, $flags, $prompt) = @_;
    $prompt = $LAST_QUERY unless length $prompt;
    $LAST_QUERY = $prompt;
-   $self->{query}-> ($self, $flags, $prompt);
+   $self->{query}->($self, $flags, $prompt);
 }
 sub sanitise_xml($) {
    local $_ = shift;
    tan          => 12,
 );
 our @CF_COLOR = (
    [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00],
-   [1.00, 1.00, 1.00],
+   [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00],
-   [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55]
+   [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55],
    [1.00, 0.00, 0.00],
    [1.00, 0.54, 0.00],
    [0.11, 0.56, 1.00],
    [0.93, 0.46, 0.00],
    [0.18, 0.54, 0.34],
    } else {
       $self->logprint ("msg: ", $text);
       return if $color < 0; # negative color == ignore if not understood
       my $fg = $CF_COLOR[$color & NDI_COLOR_MASK] || [1, 0, 0];
-      ## try to create single paragraphs of multiple lines sent by the server
-      # no longer neecssary with TRT servers
-      #$text =~ s/(?<=\S)\n(?=\w)/ /g;
       ::message ({
          fg     => $fg,
          markup => $text,
          type   => $type,
    my $version = JSON::XS->new->encode ($self->{s_version});
    $::SERVER_INFO->set_markup (
       "server <tt>$self->{host}:$self->{port}</tt>\n"
     . "protocol version <tt>$version</tt>\n"
-    . "minimap support $yesno[$self->{setup}{mapinfocmd} > 0]\n"
-    . "extended command support $yesno[$self->{setup}{extcmd} > 0]\n"
-    . "examine command support $yesno[$self->{setup}{excmd} > 0]\n"
     . "editing support $yesno[!!$self->{editor_support}]\n"
-    . "map attributes $yesno[$self->{setup}{extmap} > 0]\n"
-    . "big image protocol support $yesno[$self->{setup}{fxix} > 0]\n"
     . "client support $yesno[$self->{cfplus_ext} > 0]"
       . ($self->{cfplus_ext} > 0 ? ", version $self->{cfplus_ext}" : "") ."\n"
     . "map size $self->{mapw}×$self->{maph}\n"
    );
       $self->send_ext_req (lookat => $x, $y, sub {
          my (%msg) = @_;
          if (exists $msg{npc_dialog}) {
             # start npc chat dialog
-            $self->{npc_dialog} = new DC::NPCDialog::
+            $self->{w}{npc_dialog} = new DC::NPCDialog::
                token => $msg{npc_dialog},
                title => "$msg{npc_dialog}[0] (NPC)",
                conn  => $self,
             ;
          }
 }
 sub destroy {
    my ($self) = @_;
-   (delete $self->{npc_dialog})->destroy
+   $_->destroy
-      if $self->{npc_dialog};
+      for values %{ $self->{w} };
    $self->SUPER::destroy;
    %$self = ();
 }
    #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1
    if ($self->{conn}) {
       $self->{conn}->send_ext_msg (npc_dialog_end => $self->{id}) if $self->{id};
-      delete $self->{conn}{npc_dialog};
+      delete $self->{conn}{w}{npc_dialog};
       $self->{conn}->disconnect_ext ($self->{id});
    }
    $self->SUPER::destroy;
 }

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents): Revision 1.218 by root, Thu Apr 8 19:11:21 2010 UTC vs. Revision 1.225 by root, Sat Nov 10 18:29:32 2012 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.218 by root, Thu Apr 8 19:11:21 2010 UTC vs.
Revision 1.225 by root, Sat Nov 10 18:29:32 2012 UTC