--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/06/28 21:17:01	1.46
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/07/11 19:53:23	1.58
@@ -85,16 +85,93 @@
    $fh->flush;
 }
 
+sub _stat_numdiff {
+   my ($self, $name, $old, $new) = @_;
+
+   my $diff = $new - $old;
+
+   $diff = 0.01 * int $diff * 100;
+
+   0.1 >= abs $diff ? ()
+      : $diff < 0 ? "$name$diff" : "$name+$diff"
+}
+
+sub _stat_skillmaskdiff {
+   my ($self, $name, $old, $new) = @_;
+
+   my $diff = $old ^ $new
+      or return;
+
+   my @diff = map
+                 {
+                    $diff & $_
+                       ?  (($new & $_ ? "+" : "-") . $self->{spell_paths}{$_})
+                       : ()
+                 }
+              sort { $a <=> $b } keys %{$self->{spell_paths}};
+
+   join "", @diff
+}
+
+# all stats that are chacked against changes
+my @statchange = (
+   [&CS_STAT_STR          => \&_stat_numdiff, "Str"],
+   [&CS_STAT_INT          => \&_stat_numdiff, "Int"],
+   [&CS_STAT_WIS          => \&_stat_numdiff, "Wis"],
+   [&CS_STAT_DEX          => \&_stat_numdiff, "Dex"],
+   [&CS_STAT_CON          => \&_stat_numdiff, "Con"],
+   [&CS_STAT_CHA          => \&_stat_numdiff, "Cha"],
+   [&CS_STAT_POW          => \&_stat_numdiff, "Pow"],
+   [&CS_STAT_WC           => \&_stat_numdiff, "Wc"],
+   [&CS_STAT_AC           => \&_stat_numdiff, "Ac"],
+   [&CS_STAT_DAM          => \&_stat_numdiff, "Dam"],
+   [&CS_STAT_SPEED        => \&_stat_numdiff, "Speed"],
+   [&CS_STAT_WEAP_SP      => \&_stat_numdiff, "WSp"],
+   [&CS_STAT_MAXHP        => \&_stat_numdiff, "HP"],
+   [&CS_STAT_MAXSP        => \&_stat_numdiff, "Mana"],
+   [&CS_STAT_MAXGRACE     => \&_stat_numdiff, "Grace"],
+   [&CS_STAT_WEIGHT_LIM   => \&_stat_numdiff, "Weight"],
+   [&CS_STAT_SPELL_ATTUNE => \&_stat_skillmaskdiff, "attuned"],
+   [&CS_STAT_SPELL_REPEL  => \&_stat_skillmaskdiff, "repelled"],
+   [&CS_STAT_SPELL_DENY   => \&_stat_skillmaskdiff, "denied"],
+   [&CS_STAT_RES_PHYS     => \&_stat_numdiff, "phys"],
+   [&CS_STAT_RES_MAG      => \&_stat_numdiff, "magic"],
+   [&CS_STAT_RES_FIRE     => \&_stat_numdiff, "fire"],
+   [&CS_STAT_RES_ELEC     => \&_stat_numdiff, "electricity"],
+   [&CS_STAT_RES_COLD     => \&_stat_numdiff, "cold"],
+   [&CS_STAT_RES_CONF     => \&_stat_numdiff, "confusion"],
+   [&CS_STAT_RES_ACID     => \&_stat_numdiff, "acid"],
+   [&CS_STAT_RES_DRAIN    => \&_stat_numdiff, "drain"],
+   [&CS_STAT_RES_GHOSTHIT => \&_stat_numdiff, "ghosthit"],
+   [&CS_STAT_RES_POISON   => \&_stat_numdiff, "poison"],
+   [&CS_STAT_RES_SLOW     => \&_stat_numdiff, "slow"],
+   [&CS_STAT_RES_PARA     => \&_stat_numdiff, "paralyse"],
+   [&CS_STAT_TURN_UNDEAD  => \&_stat_numdiff, "turnundead"],
+   [&CS_STAT_RES_FEAR     => \&_stat_numdiff, "fear"],
+   [&CS_STAT_RES_DEPLETE  => \&_stat_numdiff, "depletion"],
+   [&CS_STAT_RES_DEATH    => \&_stat_numdiff, "death"],
+   [&CS_STAT_RES_HOLYWORD => \&_stat_numdiff, "godpower"],
+   [&CS_STAT_RES_BLIND    => \&_stat_numdiff, "blind"],
+);
+
 sub stats_update {
    my ($self, $stats) = @_;
 
-   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;
-      $self->{prev_exp} = $exp;
+   if (my $prev = $self->{prev_stats}) {
+      if (my $diff = $stats->{+CS_STAT_EXP64} - $prev->{+CS_STAT_EXP64}) {
+         $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5);
+      }
+
+      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 => $msg, fg => [0.8, 1, 0.2, 1], timeout => 10);
+      }
    }
 
+   $self->{prev_stats} = { %$stats };
+
    ::update_stats_window ($stats);
 }
 
@@ -345,9 +422,9 @@
 }
 
 sub face_update {
-   my ($self, $facenum, $face) = @_;
+   my ($self, $facenum, $face, $changed) = @_;
 
-   $self->{tilecache}->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes
+   $self->{tilecache}->put ($face->{id} => $face->{image}) if $changed;
 
    $self->set_texture ($face->{id} => delete $face->{image});
 }
@@ -440,7 +517,7 @@
    $spell->{message} =~ s/\n+$//;
    $spell->{message} ||= "Server did not provide a description for this spell.";
 
-   $::SETUP_SPELLS->add_spell ($spell);
+   $::SPELL_PAGE->add_spell ($spell);
 
    $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
    $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
@@ -448,7 +525,8 @@
 
 sub spell_delete {
    my ($self, $spell) = @_;
-   $::SETUP_SPELLS->remove_spell ($spell);
+
+   $::SPELL_PAGE->remove_spell ($spell);
 }
 
 sub addme_success {
@@ -538,7 +616,7 @@
          } else {
             $::FLOORBOX->add (1, $row, new CFClient::UI::Button
                text        => "More...",
-               on_activate => sub { $::INV_WINDOW->toggle_visibility; 0 },
+               on_activate => sub { ::toggle_player_page ($::INVENTORY_PAGE); 0 },
             );
             last;
          }
@@ -571,64 +649,49 @@
    $::INVR->set_items ($conn->{container}{$tag});
 }
 
-sub update_container {
-   my ($tag) = @_;
+sub update_containers {
+   my ($self) = @_;
+
+   $CFClient::UI::ROOT->on_refresh ("update_containers_$self" => sub {
+      my $todo = delete $self->{update_container}
+         or return;
 
-   $::INVR->set_items ($::CONN->{container}{$::CONN->{open_container}})
-      if $tag == $::CONN->{open_container};
+      for my $tag (keys %$todo) {
+         if ($tag == 0) {
+            update_floorbox;
+            $::INVR->set_items ($self->{container}{0})
+               if $tag == $self->{open_container};
+         } elsif ($tag == $self->{player}{tag}) {
+            $::INV->set_items ($self->{container}{$tag})
+         } else {
+            $::INVR->set_items ($self->{container}{$tag})
+               if $tag == $self->{open_container};
+         }
+      }
+   });
 }
 
 sub container_add {
    my ($self, $tag, $items) = @_;
 
-   #d# print "container_add: container $tag ($self->{player}{tag})\n";
-
-   if ($tag == 0) {
-      update_floorbox;
-      update_container (0);
-   } elsif ($tag == $self->{player}{tag}) {
-      $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $self->{player}->{weight} / 1000);
-      $::INV->set_items ($self->{container}{$self->{player}{tag}})
-   } else {
-      update_container ($tag);
-   }
-
-   # $self-<{player}{tag} => player inv
-   #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
+   $self->{update_container}{$tag}++;
+   $self->update_containers;
 }
 
 sub container_clear {
    my ($self, $tag) = @_;
 
-   #d# print "container_clear: container $tag ($self->{player}{tag})\n";
-
-   if ($tag == 0) {
-      update_floorbox;
-      update_container (0);
-   } elsif ($tag == $self->{player}{tag}) {
-      $::INV->set_items ($self->{container}{$tag})
-   } else {
-      update_container ($tag);
-   }
-
-#   use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
+   $self->{update_container}{$tag}++;
+   $self->update_containers;
 }
 
 sub item_delete {
    my ($self, @items) = @_;
 
-   for (@items) {
-      #d# print "item_delete: $_->{tag} from $_->{container} ($self->{player}{tag})\n";
-
-      if ($_->{container} == 0) {
-         update_floorbox;
-         update_container ($_->{tag});
-      } elsif ($_->{container} == $self->{player}{tag}) {
-         $::INV->set_items ($self->{container}{$self->{player}{tag}})
-      } else {
-         update_container ($_->{container});
-      }
-   }
+   $self->{update_container}{$_->{container}}++
+      for @items;
+   
+   $self->update_containers;
 }
 
 sub item_update {
@@ -636,11 +699,6 @@
 
    #d# print "item_update: $item->{tag} in $item->{container} ($self->{player}{tag}) ($::CONN->{open_container})\n";
 
-   if ($item->{tag} == $self->{player}{tag}) {
-      $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $item->{weight} / 1000);
-      return;
-   }
-
    CFClient::Item::update_widgets $item;
 
    if ($item->{tag} == $::CONN->{open_container} && not ($item->{flags} & F_OPEN)) {
@@ -648,19 +706,15 @@
 
    } elsif ($item->{flags} & F_OPEN) {
       set_opencont ($::CONN, $item->{tag}, CFClient::Item::desc_string $item);
+
    } else {
-      if ($item->{container} == 0) {
-         update_floorbox;
-         update_container (0);
-      } elsif ($item->{container} == $self->{player}{tag}) {
-         $::INV->set_items ($self->{container}{$item->{container}})
-      }
+      $self->{update_container}{$item->{container}}++;
+      $self->update_containers;
    }
 }
 
 sub player_update {
    my ($self, $player) = @_;
-
    $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000);
 }
 
@@ -867,6 +921,7 @@
 
    #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1
 
+   $self->{conn}->send ("ext npc_dialog_end $self->{token}") if $self->{token};
    delete $self->{conn}{npc_dialog};
    $self->{conn}->disconnect_ext ($self->{token});