BaroqueW

# Set the nick the bot uses on IRC, and on the botnet unless you specify a
# separate botnet-nick, here.
set nick "Mybot"
set identpass "mypass"   # set the variables used to register (identpass, nickserv, identcmd)
set nickserv "NickServ@services.dal.net"   # It is safer to use the full nickserv identifier, not jut "nickserv"
set identcmd "IDENTIFY"

# Set the alternative nick which the bot uses on IRC if the nick specified
# by ’set nick’ is unavailable. All ‘?’ characters will be replaced by random
# numbers.
set altnick "MybotX?"

# Set what should be displayed in the real-name field for the bot on IRC.
# This can not be blank, it has to contain something.
set realname "It’s my bot"

# This is a Tcl script to be run immediately after connecting to a server.
bind evnt – init-server evnt:init_server

proc evnt:init_server {type} {
  global botnick nickserv identcmd identpass # don’t forget to tell the script to use the global variables we defined above
  putquick "MODE $botnick +i-ws"
  putquick "PRIVMSG $nickserv :$identcmd $identpass"  # we will identify on connect
}

# All this is new
# Upon receiving "*This nickname is owned by someone else.*", we will try to identify
bind notc – "*This nickname is owned by someone else.*" identify:notc
proc identify:notc { nick uhost handle text dest } {
 global botnick nickserv identcmd identpass
  if { $nick == $nickserv } {
    puthelp "PRIVMSG $nickserv :$identcmd $identpass"
      putlog "Identifying : $nickserv (as $botnick)"
       }
       }