--- deliantra/server/lib/cf.pm	2007/08/08 06:24:30	1.328
+++ deliantra/server/lib/cf.pm	2007/08/13 13:10:01	1.331
@@ -1374,6 +1374,16 @@
    $self
 }
 
+=item $player->send_msg ($channel, $msg, $color, [extra...])
+
+=cut
+
+sub send_msg {
+   my $ns = shift->ns
+      or return;
+   $ns->send_msg (@_);
+}
+
 =item $pl->quit_character
 
 Nukes the player without looking back. If logged in, the connection will
@@ -2245,6 +2255,16 @@
    }
 }
 
+=item $object->send_msg ($channel, $msg, $color, [extra...])
+
+=cut
+
+sub cf::object::send_msg {
+   my $pl = shift->contr
+      or return;
+   $pl->send_msg (@_);
+}
+
 =item $player_object->may ("access")
 
 Returns wether the given player is authorized to access resource "access"
@@ -2555,7 +2575,8 @@
          utf8::encode $msg;
 
          if (0 && $msg =~ /\[/) {
-            $self->send_packet ("drawextinfo $color 4 0 $msg")
+            # COMMAND/INFO
+            $self->send_packet ("drawextinfo $color 10 8 $msg")
          } else {
             $msg =~ s/\[\/?(?:b|i|u|fixed|color)[^\]]*\]//g;
             $self->send_packet ("drawinfo $color $msg")
@@ -2726,7 +2747,7 @@
 
   cf::object
      contr pay_amount pay_player map x y force_find force_add
-     insert remove
+     insert remove name archname title slaying race
 
   cf::object::player
      player
@@ -2741,7 +2762,7 @@
 
 for (
    ["cf::object"         => qw(contr pay_amount pay_player map force_find force_add x y
-                               insert remove inv)],
+                               insert remove inv name archname title slaying race)],
    ["cf::object::player" => qw(player)],
    ["cf::player"         => qw(peaceful)],
    ["cf::map"            => qw(trigger)],