… | |
… | |
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 | }, |
… | |
… | |
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) = @_; |
… | |
… | |
785 | |
798 | |
786 | if ($msg) { |
799 | if ($msg) { |
787 | my $name = $ob->name; |
800 | my $name = $ob->name; |
788 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
801 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
789 | |
802 | |
790 | send_msg $_, $SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob->contr ? cf::NDI_REPLY : 0), "msg_say" |
803 | send_msg $_, $SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY, "msg_say" |
791 | for @plonmap; |
804 | for grep $_ != $ob->contr, @plonmap; |
|
|
805 | $ob->contr->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | cf::NDI_REPLY); |
792 | |
806 | |
793 | # npcs, magic_ears etc. |
807 | # npcs, magic_ears etc. |
794 | # first find all objects and their first-level inventories |
808 | # first find all objects and their first-level inventories |
795 | # within a 5x5 square that have something resembling |
809 | # within a 5x5 square that have something resembling |
796 | # dialogue or support on_say. |
810 | # dialogue or support on_say. |