| … | |
… | |
| 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) = @_; |
