--- deliantra/server/lib/cf.pm 2012/11/18 09:53:57 1.608 +++ deliantra/server/lib/cf.pm 2012/11/20 14:30:22 1.609 @@ -3278,6 +3278,36 @@ 1 } +=item $client->update_command_faces + +=cut + +our @COMMAND_FACES; # [normal commands, emotes, dm commands] + +sub cf::client::update_command_faces { + my ($self) = @_; + + my @faces = ( + $COMMAND_FACES[0], + $COMMAND_FACES[1], + $self->pl->ob->flag (cf::FLAG_WIZ) ? $COMMAND_FACES[2] : () + ); + + $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 + +=cut + +sub cf::client::set_command_faces { + @COMMAND_FACES = @_; +} + cf::client->attach ( on_connect => sub { my ($ns) = @_;