--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/26 19:14:33	1.2
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/27 10:32:35	1.5
@@ -54,7 +54,7 @@
 sub stats_update {
    my ($self, $stats) = @_;
 
-   if (my $exp = $stats->{CS_STAT_EXP64}) {
+   if (my $exp = $stats->{+CS_STAT_EXP64}) {
       my $diff = $exp - $self->{prev_exp};
       $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5)
          if exists $self->{prev_exp} && $diff;
@@ -621,4 +621,9 @@
    }
 }
 
+sub player_update {
+   my ($self, $player) = @_;
+   $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000);
+}
+
 1;