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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.34 by elmex, Tue Jun 13 14:35:17 2006 UTC vs.
Revision 1.42 by root, Fri Jun 23 23:54:30 2006 UTC

    print $fh "$ts ", @a, "\n";
    $fh->flush;
 }
 sub stats_update {
    my ($self, $stats) = @_;
    if (my $exp = $stats->{+CS_STAT_EXP64}) {
       my $diff = $exp - $self->{prev_exp};
    $self->{map}->map1a_update ($data);
    $self->{map_widget}->update;
 }
+sub magicmap {
+   my ($self, $w, $h, $x, $y, $data) = @_;
+   $self->{map_widget}->set_magicmap ($w, $h, $x, $y, $data);
+}
 sub flush_map {
    my ($self) = @_;
    my $map_info = delete $self->{map_info}
       or return;
    $self->flush_map;
    delete $self->{neigh_map};
    $self->{map}->clear;
+   delete $self->{map_widget}{magicmap};
 }
 sub load_map($$$) {
    my ($self, $hash, $x, $y) = @_;
       # I love transactions
       for (1..100) {
          my $txn = $CFClient::DB_ENV->txn_begin;
          my $status = $self->{facemap}->db_get (id => $id);
          if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
-            $id = ($id || 16) + 1;
+            $id = ($id || 64) + 1;
             if ($self->{facemap}->put (id => $id) == 0
                 && $self->{facemap}->put ($hash => $id) == 0) {
                $txn->txn_commit;
                goto gotid;
    $text = CFClient::UI::Label::escape $text;
    $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
    $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
-   $self->{logview}->add_paragraph ($color[$color],
+   $self->{logview}->add_paragraph ($color[$color], $_)
-      join "\n", map "$time $_", split /\n/, $text);
+      for map "$time $_", split /\n/, $text;
+   $self->{logview}->scroll_to_bottom;
    $self->{statusbox}->add ($text,
       group        => $text,
       fg           => $color[$color],
       timeout      => $color >= 2 ? 60 : 10,
             $row++;
          } else {
             $::FLOORBOX->add (1, $row, new CFClient::UI::Button
                text        => "More...",
-               on_activate => sub { $::INV_WINDOW->toggle_visibility },
+               on_activate => sub { $::INV_WINDOW->toggle_visibility; 0 },
             );
             last;
          }
       }
    });
          tooltip  => "Close the currently open container (if one is open)",
          on_activate => sub {
             $::CONN->send ("apply $tag") # $::CONN->{open_container}")
                if $tag != 0;
             #if $CONN->{open_container} != 0;
+            0
          },
       );
    }
    $::INVR->set_items ($conn->{container}{$tag});
          return unless $text =~ /\S/;
          $entry->set_text ("");
          $this->send ($text);
+         0
       },
    );
    $vbox->add ($self->{options} = new CFClient::UI::VBox);
-   $self->{close_button} = new CFClient::UI::Button
+   $self->{bye_button} = new CFClient::UI::Button
       text        => "Bye (close)",
       tooltip     => "Use this button to end talking to the NPC. This also closes the dialog window.",
-      on_activate => sub { $this->destroy },
+      on_activate => sub { $this->destroy; 0 },
    ;
    $self->update_options;
    $self->{token} = $self->{conn}->ext_token;
    $self->{conn}->connect_ext ($self->{token} => sub { $this->feed (@_) });
    $self->{conn}->send ("ext npc_dialog_begin $self->{token} $self->{dx} $self->{dy}");
-   $self->{entry}->focus_in;
+   $self->{entry}->grab_focus;
    $self->{textview}->add_paragraph ([1, 1, 0, 1], "<small>[starting conversation with <b>$self->{title}</b>]</small>\n\n");
    $self->show;
    $self
    my ($self) = @_;
    Scalar::Util::weaken $self;
    $self->{options}->clear;
-   $self->{options}->add ($self->{close_button});
+   $self->{options}->add ($self->{bye_button});
    for my $kw (sort keys %{ $self->{kw} }) {
       $self->{options}->add (new CFClient::UI::Button
          text => $kw,
          on_activate => sub {
             $self->send ($kw);
+            0
          },
       );
    }
 }
 sub feed {
    my ($self, $data) = @_;
+   Scalar::Util::weaken $self;
    my ($type, $msg) = split / /, $data, 2;
    if ($type eq "msg") {
       my ($msg, @kw) = split /\x00/, $msg;
       $self->{kw}{$_} = 1 for @kw;
-      $msg = CFClient::UI::Label::escape $msg;
+      $msg = "\n" . CFClient::UI::Label::escape $msg;
       my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->{kw} };
-      $msg =~ s/($match)/<span foreground='#c0c0ff' underline='none'>$1<\/span>/gi; # underline when http-ready, huh.
+      my @link;
+      $msg =~ s{
+         ($match)
+      }{
+         my $kw = $1;
+         push @link, new CFClient::UI::Label
+            markup     => "<span foreground='#c0c0ff' underline='single'>$kw</span>",
+            can_hover  => 1,
+            can_events => 1,
+            on_button_up => sub {
+               $self->send ($kw);
+            };
+         chr 0xfffc
+      }giex;
-      $self->{textview}->add_paragraph ([1, 1, 1, 1], "\n$msg");
+      $self->{textview}->add_paragraph ([1, 1, 1, 1], [$msg, @link]);
+      $self->{textview}->scroll_to_bottom;
       $self->update_options;
    } else {
       $self->destroy;
    }
 sub send {
    my ($self, $msg) = @_;
    $self->{conn}->send ("ext npc_dialog_tell $self->{token} $msg");
    $self->{textview}->add_paragraph ([1, 1, 0, 1], "\n" . CFClient::UI::Label::escape $msg);
+   $self->{textview}->scroll_to_bottom;
 }
 sub destroy {
    my ($self) = @_;
-   #Carp::cluck "debug\n";#d# #todo# enable: destroyx gets called twice because scalar keys {} is 1
+   #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1
    delete $self->{conn}{npc_dialog};
    $self->{conn}->disconnect_ext ($self->{token});
    $self->SUPER::destroy;

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents): Revision 1.34 by elmex, Tue Jun 13 14:35:17 2006 UTC vs. Revision 1.42 by root, Fri Jun 23 23:54:30 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.34 by elmex, Tue Jun 13 14:35:17 2006 UTC vs.
Revision 1.42 by root, Fri Jun 23 23:54:30 2006 UTC