Code:

set voicelines "30"bind pubm - "*" autovoice:usersbind join - "*" erase:recordproc autovoice:users {nick host hand chan text} { global voiceuser voicelines if {[isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 } if {[string match -nocase "#*" $chan]} { set userhost [string tolower $nick:$chan] if {![info exists voiceuser($userhost)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {   set voiceuser($userhost) 1 } elseif {[info exists voiceuser($userhost)] && ($voiceuser($userhost) >= $voicelines) && ![isop $nick $chan] && ![isvoice $nick $chan]} {   utimer [rand 10] [list voice:delay $chan $nick]; unset voiceuser($userhost) } elseif {[info exists voiceuser($userhost)]} {   incr voiceuser($userhost)  } }}proc voice:delay {chan nick} { if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {  putserv "MODE $chan +v-k $nick \0032Active.\00312chatter"  }}proc erase:record {nick host hand chan} { global voiceuser if {[isbotnick $nick]} { return 0 } set userhost [string tolower $nick:$chan] if {[info exists voiceuser($userhost)]} { unset voiceuser($userhost) }}