#set-nete si pass za bota
set password "bobo123"
# tezi po princip sa ok, ne tryabva da se pipat...
set nsnick "NS"
set csnick "CS"
set nsserv "NS!NickServ@Services"
set csserv "CS!ChanServ@Services"

#ottuk nadolu ne pipai, ili ne plachi ako go razvalish :)
#end of cfgable lines

bind raw -|- NOTICE ident:NickServ

proc ident:NickServ {from keyword arg} {
 global nsnick csnick password nsserv csserv
 set servresp [lindex $arg 1]
 set msg [lrange $arg 0 end]
 if {$from==$nsserv || $from ==$csserv} {
  if {[lindex $arg 2]=="nickname" || [lindex $arg 2]=="identification"} {
   putquick "PRIVMSG $nsnick :IDENTIFY $password"
   putlog "Services requested IDENTIFY.."
  }
 }
}

putlog "TCL | NS IDENTIFY by SmasHinG"