bind join - "#monchan *!*@*" join_autovoice_monchan
 
 
proc join_autovoice_monchan {nick userhost handle chan} {
        if {![botisop $chan]} { return 0 }
 
        if {![isvoice $nick $chan] && ![isop $nick $chan]} {
                utimer 10 [list voice_monchan $chan $nick]
        }
 
        return 0
}
 
 
proc voice_monchan {chan nick} {
        if {![botisop $chan]} { return 0 }
 
        if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} { 
                putserv "MODE $chan +v $nick"
        }
        return 0
}