… | |
… | |
702 | $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE); |
702 | $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE); |
703 | } |
703 | } |
704 | }; |
704 | }; |
705 | }; |
705 | }; |
706 | } |
706 | } |
|
|
707 | |
|
|
708 | cf::register_command me => sub { |
|
|
709 | my ($ob, $msg) = @_; |
|
|
710 | |
|
|
711 | my $name = $ob->name; |
|
|
712 | |
|
|
713 | $_->ob->message ("* $name $msg", cf::NDI_GREY | cf::NDI_UNIQUE) |
|
|
714 | for grep $ob->on_same_map_as ($_->ob), cf::player::list; |
|
|
715 | }; |
707 | |
716 | |
708 | cf::register_command say => sub { |
717 | cf::register_command say => sub { |
709 | my ($who, $msg) = @_; |
718 | my ($who, $msg) = @_; |
710 | |
719 | |
711 | utf8::decode $msg; |
720 | utf8::decode $msg; |