--- deliantra/maps/perl/chat.ext	2006/07/21 08:22:02	1.23
+++ deliantra/maps/perl/chat.ext	2006/07/21 08:24:47	1.24
@@ -273,7 +273,9 @@
    my ($who, $args) = @_;
 
    if (my ($login) = $args =~ /(\S+)/) {
-      if (cf::player::find $login) {
+      if ($login eq $who->name) {
+         $who->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE);
+      } elsif (cf::player::find $login) {
          $who->message ("$login is right here on this server!", cf::NDI_UNIQUE);
       } elsif (cf::player::exists $login
                and stat sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($login) x 2) {