--- deliantra/server/ext/chat.ext	2007/10/20 05:16:44	1.35
+++ deliantra/server/ext/chat.ext	2008/04/11 01:15:49	1.39
@@ -1,6 +1,6 @@
 #! perl # depends=irc mandatory
 
-# implement a replacement for the built-in say/chat/shout/tell/reply commands
+# implement a replacement for the built-in say/chat/shout/tell commands
 # adds ignore/unignore functionality
 
 use NPC_Dialogue;
@@ -257,6 +257,19 @@
       self => {
       },
    },
+   smother => {
+      noparams => {
+         other => "<self> makes weird facial contortions",
+         self => "All the lonely people..",
+      },
+      params => {
+         target => "<self> smothers you with kisses.",
+         other => "<self> smothers <other> with kisses.",
+         self => "You smother <other> with kisses.",
+      },
+      self => {
+      },
+   },
    wink => {
       noparams => {
          other => "<self> winks suggestively.",
@@ -738,7 +751,7 @@
 
             $emote{other}  ||= "<self> is eyeing <other> quizzically.";
             $emote{self}   ||= "You are still nuts.";
-            $emote{target} ||= "You get the distinct feeling that <other> is nuts.";
+            $emote{target} ||= "You get the distinct feeling that <self> is nuts.";
 
             $emote{self}   =~ s/<other>/$tname/;
             $emote{target} =~ s/<self>/$name/;
@@ -772,7 +785,7 @@
    
    my $name = $pl->name;
    
-   send_msg $pl, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say"
+   send_msg $_, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say"
       for grep $pl->on_same_map_as ($_->ob), cf::player::list;
 };