--- deliantra/server/lib/cf.pm	2006/07/16 17:51:40	1.21
+++ deliantra/server/lib/cf.pm	2006/07/19 08:50:42	1.22
@@ -349,6 +349,22 @@
    unlink "$path.cfperl";#d##TODO#remove
 };
 
+#############################################################################
+# core extensions - in perl
+
+# rough implementation of a future "reply" method that works
+# with dialog boxes.
+sub cf::object::player::reply($$;$) {
+   my ($self, $msg, $flags) = @_;
+
+   $flags = cf::NDI_WHITE unless @_ >= 3;
+
+   $self->message ($msg, $flags);
+}
+
+#############################################################################
+# initialisation
+
 register "<global>", __PACKAGE__;
 
 unshift @INC, maps_directory "perl";