#---------------------------------------------------------------------
# whoami.tcl
# TCL script for IRC bot eggdrop
#
# Upon a public !whoami, the bot tells if it recognises you or not.
# This script can be helpfull if you are not sure whether or not the
# bot recognises you.
#
# v0: 16-Mar-2002
#---------------------------------------------------------------------

bind pub - !whoami whoami

proc whoami { nick uhost hand chan text } {

   if {[validuser $hand]} {
      set response "$nick, I recognise you as \002$hand\002"
   } else {
      set response "$nick, I don't know you, sorry."
   }

   puthelp "PRIVMSG $chan :$response"

}

putlog "Loaded (version 0): Whoami."