--- deliantra/server/ext/chat.ext	2008/12/18 02:49:22	1.46
+++ deliantra/server/ext/chat.ext	2009/01/25 23:56:13	1.47
@@ -762,15 +762,6 @@
    };
 }
 
-cf::register_command me => sub {
-   my ($pl, $msg) = @_;
-   
-   my $name = $pl->name;
-   
-   send_msg $_, $cf::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;
-};
-
 cf::register_command say => sub {
    my ($ob, $msg) = @_;
 
@@ -826,10 +817,9 @@
    }
 };
 
-cf::register_command chat => sub {
-   my ($ob, $msg) = @_;
 
-   utf8::decode $msg;
+sub _chat {
+   my ($ob, $msg) = @_;
 
    my $pl = $ob->contr;
 
@@ -839,15 +829,29 @@
       my $name = $ob->name;
       my $NOW = time;
 
-      cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg;
-      send_irc ("[%s] %s", $name, $msg);
+      cf::LOG cf::llevDebug, sprintf "QBERT %s\n", $name, $msg;
+      send_irc ($msg);
 
-      send_msg $_, $cf::CHAT_CHANNEL => "$name chats: $msg", cf::NDI_BLUE | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_chat"
+      send_msg $_, $cf::CHAT_CHANNEL => $msg, cf::NDI_BLUE | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_chat"
          for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW } cf::player::list;
 
    } else {
       $pl->send_msg ($cf::CHAT_CHANNEL => "Chat what?", cf::NDI_BLUE | cf::NDI_DEF | cf::NDI_REPLY);
    }
+}
+
+cf::register_command chat => sub {
+   my ($ob, $msg) = @_;
+
+   utf8::decode $msg;
+   _chat $ob, $ob->name . " chats: $msg";
+};
+
+cf::register_command me => sub {
+   my ($ob, $msg) = @_;
+   
+   utf8::decode $msg;
+   _chat $ob, "* " . $ob->name . " $msg";
 };
 
 cf::register_command shout => sub {