bind msg - opver op_ver
proc op_ver {n u h a} {
if {onchan $n "#Ops"} {
  global gnick
 set gnick $n
        set kanal [lindex $a 0]
 putserv "sajoin $n $kanal"
      putserv "PRIVMSG operserv :raw :chanserv mode $kanal +o $n"
   }
   }