--- deliantra/server/ext/chat.ext	2007/03/01 13:01:37	1.9
+++ deliantra/server/ext/chat.ext	2007/03/01 13:14:10	1.10
@@ -74,6 +74,24 @@
    }
 };
 
+cf::register_command orcknuckle => sub {
+   my ($pl, $msg) = @_;
+   my @orcknuckle =  ("none", "beholder", "ghost", "knight", "princess", "dragon", "orc");
+
+   my $name = $pl->name;
+
+   my ($i, $j, $k, $l) = ((int rand 5) + 1, (int rand 5) + 1, (int rand 5) + 1, (int rand 6) + 1);
+   my $result = "$orcknuckle[$i], $orcknuckle[$j], $orcknuckle[$k], $orcknuckle[$l]";
+
+   for my $other ( grep { $pl->on_same_map_as ($_->ob) } cf::player::list ) {
+      next
+         if $other->ob == $pl;
+      $other->ob->message ("$name rolls $result!", cf::NDI_GREY | cf::NDI_UNIQUE);
+   }
+      
+   $pl->message ("You roll $result!", cf::NDI_GREY | cf::NDI_UNIQUE);
+};
+
 my $emotes = {
    growl => {
       noparams => {