Code:

proc wellcome {by to where cat} {  putserv "NOTICE $by :$to is the $cat on $where"  putserv "NOTICE $to :Wellcome $to!"  putserv "NOTICE $to :$by adding you as $cat no $where."  pushmode $where +o $to}bind pub X|X .addnew add_newproc add_new {n u h c a} {  global botnick newflags  if {[lindex $a 0] == ""} {putserv "NOTICE $n :Command: .addnew <nickname>"      return 1  }   set newop [lindex $a 0]  if {[onchan $newop $c] == 0} {putserv "NOTICE $n :$newop is not in $c!"      return 1  }  set exflags "+ofCX"    set newhost "$newop!*@*"  if {[validuser $newop] == 1} {     if {[lsearch [getuser $newop hosts] $newhost] == "-1"} {       putserv "NOTICE $n :$newop is not in my DB. Adding flags and hostmask."       chattr $newop |+$exflags $c       setuser $newop hosts $newhost       putserv "CHANSERV ACCESS $c ADD $newop 5"       wellcome $n $newop $c "new op"       return 1     } {       putserv "NOTICE $n :$newop is alread in my DB. Changing flags."       chattr $newop |+$exflags $c       putserv "CHANSERV ACCESS $c ADD $newop 5"       wellcome $n $newop $c new op"     return 1 }  }    if {[finduser $newhost] != "*"} { putserv "NOTICE $n :$newop\[$newhost\] is now: [finduser $newhost]" return 1  }   adduser $newop $newhost    if {[chattr $newop |+$exflags $c] == "*"} {  putserv "NOTICE $n :Error!"return 1  }  wellcome $n $newop $c "new op"  save}