diff -ruN infobot-devel/src/Irc.pl infobot-devel-new/src/Irc.pl
--- infobot-devel/src/Irc.pl    Tue Oct 26 13:09:09 1999
+++ infobot-devel-new/src/Irc.pl        Tue Oct 26 13:27:43 1999
@@ -141,5 +141,6 @@
        } else {
            &status(">>> $nick ($user\@$host) has joined $chan");
        }
+       &IrcNickHook($nick,$chan);
     } elsif ($type=~/QUIT/) {
        $chan=~s/\r//;
diff -ruN infobot-devel/src/IrcHooks.pl infobot-devel-new/src/IrcHooks.pl
--- infobot-devel/src/IrcHooks.pl       Tue Oct 26 13:09:09 1999
+++ infobot-devel-new/src/IrcHooks.pl   Tue Oct 26 13:27:00 1999
@@ -54,6 +54,14 @@
     return;
 }

+sub IrcNickHook {
+       my($who,$where)=@_;
+       if(getparam("nickbitch") and &nickometer($who)>90) {
+               # Not sure I trust $talkchan, but anyway.
+               &say("k3w1 |\\|1k, $who!!!");
+       }
+}
+
 sub hook_dcc_request {
     my($type, $text) = @_;
     if ($type =~ /chat/i) {($who)>90)