--- deliantra/maps/perl/schmorp-irc.ext	2006/10/01 23:57:54	1.18
+++ deliantra/maps/perl/schmorp-irc.ext	2006/11/26 02:37:53	1.19
@@ -25,6 +25,12 @@
       if $CON;
 }
 
+sub users {
+   $CON
+      ? grep $_ ne $CON->nick, keys %{ $CON->channel_list->{$BOTCHAN} || {} }
+      : () 
+}
+
 sub handle_fcmd {
    my ($name, $me, $msg) = @_;