… | |
… | |
401 | |
401 | |
402 | if ( |
402 | if ( |
403 | my @diffs = map $_->[1]->($self, $_->[2], $prev->{$_->[0]}, $stats->{$_->[0]}), @statchange |
403 | my @diffs = map $_->[1]->($self, $_->[2], $prev->{$_->[0]}, $stats->{$_->[0]}), @statchange |
404 | ) { |
404 | ) { |
405 | my $msg = "<b>stat change</b>: " . (join " ", @diffs); |
405 | my $msg = "<b>stat change</b>: " . (join " ", @diffs); |
406 | $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 10); |
406 | $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 20); |
407 | } |
407 | } |
408 | |
408 | |
409 | $self->update_stats_window ($stats, $prev); |
409 | $self->update_stats_window ($stats, $prev); |
410 | |
410 | |
411 | $self->{prev_stats} = { %$stats }; |
411 | $self->{prev_stats} = { %$stats }; |
… | |
… | |
566 | |
566 | |
567 | for (@order) { |
567 | for (@order) { |
568 | my ($idx, $name) = @$_; |
568 | my ($idx, $name) = @$_; |
569 | my $val = $stats->{$idx}; |
569 | my $val = $stats->{$idx}; |
570 | |
570 | |
571 | next if $prev->{$idx}[1] == $val->[1]; |
571 | next if $prev->{$idx}[1] eq $val->[1]; |
572 | |
572 | |
573 | my $sw = $self->{skillwid}{$idx}; |
573 | my $sw = $self->{skillwid}{$idx}; |
574 | $sw->[0]->set_text (::formsep ($val->[1])); |
574 | $sw->[0]->set_text (::formsep ($val->[1])); |
575 | $sw->[1]->set_text ($val->[0] * 1); |
575 | $sw->[1]->set_text ($val->[0] * 1); |
576 | $sw->[2]->set_value (@$val); |
576 | $sw->[2]->set_value (@$val); |