| … | |
… | |
| 52 | } |
52 | } |
| 53 | |
53 | |
| 54 | sub stats_update { |
54 | sub stats_update { |
| 55 | my ($self, $stats) = @_; |
55 | my ($self, $stats) = @_; |
| 56 | |
56 | |
| 57 | if (my $exp = $stats->{CS_STAT_EXP64}) { |
57 | if (my $exp = $stats->{+CS_STAT_EXP64}) { |
| 58 | my $diff = $exp - $self->{prev_exp}; |
58 | my $diff = $exp - $self->{prev_exp}; |
| 59 | $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5) |
59 | $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5) |
| 60 | if exists $self->{prev_exp} && $diff; |
60 | if exists $self->{prev_exp} && $diff; |
| 61 | $self->{prev_exp} = $exp; |
61 | $self->{prev_exp} = $exp; |
| 62 | } |
62 | } |
| … | |
… | |
| 619 | $::INV->set_items ($self->{container}{$item->{container}}) |
619 | $::INV->set_items ($self->{container}{$item->{container}}) |
| 620 | } |
620 | } |
| 621 | } |
621 | } |
| 622 | } |
622 | } |
| 623 | |
623 | |
|
|
624 | sub player_update { |
|
|
625 | my ($self, $player) = @_; |
|
|
626 | $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000); |
|
|
627 | } |
|
|
628 | |
| 624 | 1; |
629 | 1; |
