[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.609 by root, Tue Nov 20 14:30:22 2012 UTC vs.
Revision 1.610 by root, Tue Nov 20 14:40:01 2012 UTC

 =item $client->update_command_faces
 =cut
-our @COMMAND_FACES; # [normal commands, emotes, dm commands]
+our %COMMAND_FACE;
 sub cf::client::update_command_faces {
    my ($self) = @_;
-   my @faces = (
+   my @faces = grep $_,
+      $COMMAND_FACE{standard},
-      $COMMAND_FACES[0],
+      $COMMAND_FACE{emote},
-      $COMMAND_FACES[1],
+      $COMMAND_FACE{skill},
-      $self->pl->ob->flag (cf::FLAG_WIZ) ? $COMMAND_FACES[2] : ()
+      $self->pl->ob->flag (cf::FLAG_WIZ) ? $COMMAND_FACE{dm} : (),
-   );
+   ;
    $self->send_face ($_)
       for @faces;
    $self->flush_fx;
    $self->ext_msg (command_list => @faces);
 }
-=item cf::client::set_command_faces $normal_commands, $emotes, $dm_commands
+=item cf::client::set_command_face $type, $commands
 =cut
-sub cf::client::set_command_faces {
+sub cf::client::set_command_face {
-   @COMMAND_FACES = @_;
+   my ($type, $list) = @_;
+   my $idx = &cf::face::set ( #d# ugly forward reference
+      "command_list/$type" => cf::FT_RSRC,
+      JSON::XS->new->utf8->encode ([ sort @$list ])
+   );
+   $COMMAND_FACE{$type} = $idx;
 }
 cf::client->attach (
    on_connect => sub {
       my ($ns) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines