… | |
… | |
84 | print $fh "$ts ", @a, "\n"; |
84 | print $fh "$ts ", @a, "\n"; |
85 | $fh->flush; |
85 | $fh->flush; |
86 | } |
86 | } |
87 | |
87 | |
88 | sub _stat_numdiff { |
88 | sub _stat_numdiff { |
89 | my ($self, $old, $new) = @_; |
89 | my ($self, $name, $old, $new) = @_; |
90 | |
90 | |
91 | my $diff = $new - $old; |
91 | my $diff = $new - $old; |
92 | $diff > 0 ? "+$diff" : $diff |
92 | |
|
|
93 | $diff = 0.01 * int $diff * 100; |
|
|
94 | |
|
|
95 | 0.1 >= abs $diff ? () |
|
|
96 | : $diff < 0 ? "$name$diff" : "$name+$diff" |
93 | } |
97 | } |
94 | |
98 | |
95 | sub _stat_skillmaskdiff { |
99 | sub _stat_skillmaskdiff { |
96 | my ($self, $old, $new) = @_; |
100 | my ($self, $name, $old, $new) = @_; |
97 | |
101 | |
98 | my $diff = $old ^ $new; |
102 | my $diff = $old ^ $new |
|
|
103 | or return; |
99 | |
104 | |
100 | my @diff = map |
105 | my @diff = map |
101 | { |
106 | { |
102 | $diff & $_ |
107 | $diff & $_ |
103 | ? (($new & $_ ? "+" : "-") . $self->{spell_paths}{$_}) |
108 | ? (($new & $_ ? "+" : "-") . $self->{spell_paths}{$_}) |
… | |
… | |
156 | if (my $diff = $stats->{+CS_STAT_EXP64} - $prev->{+CS_STAT_EXP64}) { |
161 | if (my $diff = $stats->{+CS_STAT_EXP64} - $prev->{+CS_STAT_EXP64}) { |
157 | $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5); |
162 | $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5); |
158 | } |
163 | } |
159 | |
164 | |
160 | if ( |
165 | if ( |
161 | my @diffs = map { |
166 | my @diffs = map $_->[1]->($self, $_->[2], $prev->{$_->[0]}, $stats->{$_->[0]}), @statchange |
162 | $stats->{$_->[0]} != $prev->{$_->[0]} |
|
|
163 | ? $_->[2] . $_->[1]->($self, $prev->{$_->[0]}, $stats->{$_->[0]}) : (); |
|
|
164 | } |
|
|
165 | @statchange |
|
|
166 | ) { |
167 | ) { |
167 | my $msg = "<b>stat change</b>: " . (join " ", @diffs); |
168 | my $msg = "<b>stat change</b>: " . (join " ", @diffs); |
168 | $self->{statusbox}->add ($msg, group => $msg, fg => [0.8, 1, 0.2, 1], timeout => 10); |
169 | $self->{statusbox}->add ($msg, group => $msg, fg => [0.8, 1, 0.2, 1], timeout => 10); |
169 | } |
170 | } |
170 | } |
171 | } |