--- deliantra/server/ext/chat.ext	2007/02/28 19:23:21	1.5
+++ deliantra/server/ext/chat.ext	2007/02/28 19:32:56	1.7
@@ -633,6 +633,7 @@
       },
    },
 };
+
 for my $emotion (keys %$emotes) {
    cf::register_command $emotion => sub {
       my ($ob, $tname) = @_;
@@ -642,6 +643,12 @@
          
          if ($tname eq $name) {
             my $emote = $emotes->{$emotion}->{self};
+
+            $emote->{other} = "You look away from <self>."
+               if !$emote->{other};
+            $emote->{self} = "My god! Is that LEGAL?"
+               if !$emote->{self};
+
             $emote->{other} =~ s/<self>/$name/;
             
             for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
@@ -656,6 +663,14 @@
                or return $ob->reply (undef, "$tname is not around.");
             
             my $emote = $emotes->{$emotion}->{params};
+
+            $emote->{other} = "<self> is eyeing <other> quizzically."
+               if !$emote->{other};
+            $emote->{self} = "You are still nuts."
+               if !$emote->{self};
+            $emote->{target} = "You get the distinct feeling that <other> is nuts."
+               if !$emote->{target};
+
             $emote->{self} =~ s/<other>/$tname/;
             $emote->{target} =~ s/<self>/$name/;
             $emote->{other} =~ s/<other>/$tname/;
@@ -672,6 +687,11 @@
          } else {
             my $emote = $emotes->{$emotion}->{noparams};
             $emote->{other} =~ s/<self>/$name/;
+
+            $emote->{other} = "<self> dances with glee."
+               if !$emote->{other};
+            $emote->{self} = "You are a nut."
+               if !$emote->{self};
             
             for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
                next
@@ -682,8 +702,6 @@
             $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
          }
       };
-
-      1
    };
 }