set channel "#vhost" set operid "flood" set operpass "floodflood" bind evnt - init-server oper bind pub -|- !vhost vhost bind join -|- * join proc oper init-server { putserv "OPER $::operid $::operpass" } proc join {nick host handle chan } { if { $chan == $::...