| … | |
… | |
| 734 | for grep { $ob->on_same_map_as ($_->ob) && $_ != $ob} cf::player::list; |
734 | for grep { $ob->on_same_map_as ($_->ob) && $_ != $ob} cf::player::list; |
| 735 | |
735 | |
| 736 | $pl->send_msg ($emote{self}, cf::NDI_GREY | cf::NDI_REPLY | cf::NDI_VERBATIM); |
736 | $pl->send_msg ($emote{self}, cf::NDI_GREY | cf::NDI_REPLY | cf::NDI_VERBATIM); |
| 737 | } elsif ($tname) { |
737 | } elsif ($tname) { |
| 738 | my $target = cf::player::find $tname |
738 | my $target = cf::player::find $tname |
| 739 | or return send_msg $pl, tell_channel $tname, "$tname is not around.", cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat"; |
739 | or return send_msg $pl, tell_channel $tname, "The player called $tname is not known to this poor server.", |
|
|
740 | cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat"; |
|
|
741 | |
|
|
742 | $target->ob->active |
|
|
743 | or return send_msg $pl, tell_channel $tname, "$tname is not around. H<$tname must be logged in.>", |
|
|
744 | cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat"; |
| 740 | |
745 | |
| 741 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
746 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
| 742 | |
747 | |
| 743 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
748 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
| 744 | $emote{self} ||= "You are still nuts."; |
749 | $emote{self} ||= "You are still nuts."; |
