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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.163 by root, Wed Aug 22 21:17:32 2007 UTC vs.
Revision 1.167 by root, Tue Aug 28 01:23:47 2007 UTC

    if (
       my @diffs = map $_->[1]->($self, $_->[2], $prev->{$_->[0]}, $stats->{$_->[0]}), @statchange
    ) {
       my $msg = "<b>stat change</b>: " . (join " ", @diffs);
-      $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 10);
+      $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 20);
    }
    $self->update_stats_window ($stats, $prev);
    $self->{prev_stats} = { %$stats };
    for (@order) {
       my ($idx, $name) = @$_;
       my $val = $stats->{$idx};
-      next if $prev->{$idx}[1] == $val->[1];
+      next if $prev->{$idx}[1] eq $val->[1];
       my $sw = $self->{skillwid}{$idx};
       $sw->[0]->set_text (::formsep ($val->[1]));
       $sw->[1]->set_text ($val->[0] * 1);
       $sw->[2]->set_value (@$val);
-      #$::GAUGES->{sklprg}->set_label ($name);
+      $::GAUGES->{sklprg}->set_label ("$name %d%%");
       $::GAUGES->{sklprg}->set_value (@$val);
-   }
-}
-sub macro_send {
-   my ($self, $macro) = @_;
-   for my $cmd (@{ $macro->{action} }) {
-      $self->send_command ($cmd);
    }
 }
 sub user_send {
    my ($self, $command) = @_;
    $self->{record}->($command)
       if $self->{record};
    $self->logprint ("send: ", $command);
    $self->send_command ($command);
-   ::status ($command);
 }
 sub record {
    my ($self, $cb) = @_;

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