This is my first TCL, i scripted mIRC for years, but tcl, not a lot.

It is basic and extremely simple.

master (global +m) can use !autovoice on|off

+v is given uppon channel join when enabled.

catch {bind pub m !autovoice channel:avs}
catch {bind join - * chan:vsjoin}

setudef flag avs

proc channel:avs {nick uhost hand chan arg} {

    switch -exact -- $arg {
        "on" {
            channel set $chan +avs
            putserv "PRIVMSG $chan :auto +v is now ON on $chan"
        }
        "off" {
            channel set $chan -avs
            putserv "PRIVMSG $chan :auto +v is now OFF on $chan"
        }
    }
}

proc chan:vsjoin {nick uhost hand chan} {
    if {[channel get $chan avs]} {
              putquick "MODE $chan +v $nick"
    }
}