--- deliantra/server/ext/commands.ext	2007/01/27 23:59:29	1.18
+++ deliantra/server/ext/commands.ext	2007/03/01 13:27:52	1.19
@@ -89,6 +89,13 @@
    1
 };
 
+cf::register_command afk => sub {
+   my ($ob, $arg) = @_;
+
+   $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1);
+   $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
+};
+
 cf::register_command rename => sub {
    my ($ob, $arg) = @_;