… | |
… | |
255 | self => "You kiss <other>.", |
255 | self => "You kiss <other>.", |
256 | }, |
256 | }, |
257 | self => { |
257 | self => { |
258 | }, |
258 | }, |
259 | }, |
259 | }, |
|
|
260 | smother => { |
|
|
261 | noparams => { |
|
|
262 | other => "<self> makes weird facial contortions", |
|
|
263 | self => "All the lonely people..", |
|
|
264 | }, |
|
|
265 | params => { |
|
|
266 | target => "<self> smothers you with kisses.", |
|
|
267 | other => "<self> smothers <other> with kisses.", |
|
|
268 | self => "You smother <other> with kisses.", |
|
|
269 | }, |
|
|
270 | self => { |
|
|
271 | }, |
|
|
272 | }, |
260 | wink => { |
273 | wink => { |
261 | noparams => { |
274 | noparams => { |
262 | other => "<self> winks suggestively.", |
275 | other => "<self> winks suggestively.", |
263 | self => "Have you got something in your eye?", |
276 | self => "Have you got something in your eye?", |
264 | }, |
277 | }, |
… | |
… | |
736 | |
749 | |
737 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
750 | my %emote = %{ $emotes->{$emotion}->{params} || {} }; |
738 | |
751 | |
739 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
752 | $emote{other} ||= "<self> is eyeing <other> quizzically."; |
740 | $emote{self} ||= "You are still nuts."; |
753 | $emote{self} ||= "You are still nuts."; |
741 | $emote{target} ||= "You get the distinct feeling that <other> is nuts."; |
754 | $emote{target} ||= "You get the distinct feeling that <self> is nuts."; |
742 | |
755 | |
743 | $emote{self} =~ s/<other>/$tname/; |
756 | $emote{self} =~ s/<other>/$tname/; |
744 | $emote{target} =~ s/<self>/$name/; |
757 | $emote{target} =~ s/<self>/$name/; |
745 | $emote{other} =~ s/<other>/$tname/; |
758 | $emote{other} =~ s/<other>/$tname/; |
746 | $emote{other} =~ s/<self>/$name/; |
759 | $emote{other} =~ s/<self>/$name/; |
… | |
… | |
770 | cf::register_command me => sub { |
783 | cf::register_command me => sub { |
771 | my ($pl, $msg) = @_; |
784 | my ($pl, $msg) = @_; |
772 | |
785 | |
773 | my $name = $pl->name; |
786 | my $name = $pl->name; |
774 | |
787 | |
775 | send_msg $pl, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say" |
788 | send_msg $_, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say" |
776 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
789 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
777 | }; |
790 | }; |
778 | |
791 | |
779 | cf::register_command say => sub { |
792 | cf::register_command say => sub { |
780 | my ($ob, $msg) = @_; |
793 | my ($ob, $msg) = @_; |