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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.60 by root, Sun Jul 16 23:43:46 2006 UTC vs.
Revision 1.61 by root, Wed Jul 19 23:00:07 2006 UTC

       [0.11, 0.56, 1.00],
       [0.93, 0.46, 0.00],
       [0.18, 0.54, 0.34],
       [0.56, 0.73, 0.56],
       [0.80, 0.80, 0.80],
-      [0.55, 0.41, 0.13],
+      [0.75, 0.61, 0.20],
       [0.99, 0.77, 0.26],
       [0.74, 0.65, 0.41],
    );
    $self->logprint ("info: ", $text);
    my ($type, $msg) = split / /, $data, 2;
    if ($type eq "msg") {
       my ($msg, @kw) = split /\x00/, $msg;
+      utf8::decode $_ for ($msg, @kw);
       $self->{kw}{$_} = 1 for @kw;
       $msg = "\n" . CFClient::UI::Label::escape $msg;
       my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->{kw} };
       my @link;
 }
 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;
+   utf8::encode $msg;
+   $self->{conn}->send ("ext npc_dialog_tell $self->{token} $msg");
 }
 sub destroy {
    my ($self) = @_;

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