Code:

bind pub - !nreg nregproc nreg { nick u handle chan text } {  if {[string tolower $chan] == "#nickreg"} {  set ::nreg(nick) [lindex [split $text] 0]  set ::nreg(pw) [lindex [split $text] 1]  set ::nreg(email) [lindex [split $text] 2]  putserv "notice NickServ :info $::nreg(nick)"   }}bind notc - * notc_nickserv  proc notc_nickserv { nick address handle text dest } { set 3 [lindex [split $text] 2] if {[string match -nocase "NickServ" $nick] && [string match -nocase "is" $3]} { putserv "privmsg #support :This nickname is already registered. Please take another one!" return 0 } if {[string match -nocase "NickServ" $nick] && [string match -nocase "*is not registered*" $text]} { utimer 1 [list putserv "qline $::nreg(nick) :registering"] utimer 2 [list set nick $::nreg(nick)] utimer 3 [list putserv "privmsg NickServ :REGISTER $::nreg(nick) $::nreg(pw) $::nreg(email)"] utimer 4 [list putserv "privmsg NickServ :SET protect on"] utimer 5 [list set nick IrcBot2]utimer 6 [list putserv "unqline $::nreg(nick)"] return 0 } if {[string match -nocase "NickServ" $nick] && [string match -nocase "*The nickname*has now been registered to you*" $text]} { set registered_nick [lindex [split $text] 2] putserv "globops :NickServ: The nickname \002${registered_nick}\002 has now been registered!" return 0 } else { return 0 } }