proc cmd:assign {nick uhost hand channel arg} {
  global botnick botchan salon ndb bnick
  if {$channel == $botchan} {
    set salon [lindex $arg 0]
    set ndb [lrange $arg 1 end]
    set nick bnick
    channel add $salon
  }
}

proc join:assign { nick uhost hand channel } {
  global botnick salon ndb bnick
  if {[isop $bnick $salon]} {
    putserv "privmsg BotServ :assign $ndb $salon"
    channel remove $salon
  }
}