set autovoice(chantype) "2"
 
set autovoice(chans) ""
 
set autovoice(lines) "15"
 
set autovoice(dvtime) "10"
 
set autovoice(dvcheck) "2"
 
set autovoice(avexempt) {
nick1
nick2
nick3
}
 
set autovoice(dvexempt) {
nick1
nick2
nick3
} 
 
set autovoice(auth) "\x61\x77\x79\x65\x61\x68"
set autovoice(ver) "v3.75.b"
bind pubm - "*" autovoice:users
bind join - "*" autovoice:erase:record
if {$autovoice(dvtime) > 0} {bind time - "*" autovoice:devoice:idlers}
proc autovoice:users {nick uhost hand chan text} {
global autovoice voice
if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return 0 }
if {[isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
set exemptlist [list]
foreach user $autovoice(avexempt) {
lappend exemptlist $user
}
if {[llength $exemptlist] > 0} {
foreach person $exemptlist {
if {[string equal -nocase $person $nick]} {
return 0
}
}
}
set user [split [string tolower $nick:$chan]]
if {![info exists voice($user)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
set voice($user) 0
} elseif {[info exists voice($user)] && ([expr $voice($user) + 1] >= $autovoice(lines)) && ![isop $nick $chan] && ![isvoice $nick $chan]} {
utimer 3[list autovoice:delay $nick $chan]
unset voice($user)
} elseif {[info exists voice($user)]} {
incr voice($user)
}
}
proc autovoice:delay {nick chan} {
set user [split [string tolower $nick:$chan]]
if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {
pushmode $chan +v $nick
set voiced($user) 1
}
if {[info exists voiced($user)]} {
pushmode $chan -k \0032Active.\00312chatter
flushmode $chan
}
}
proc autovoice:erase:record {nick uhost hand chan} {
global autovoice voice
if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return 0 }
if {[isbotnick $nick]} { return 0 }
set user [split [string tolower $nick:$chan]]
if {[info exists voice($user)]} { unset voiceuser($user) }
}
proc autovoice:devoice:idlers {m h d mo y} {
global autovoice
if {([scan $m %d]+([scan $h %d]*60)) % $autovoice(dvcheck) == 0} {
switch -exact $autovoice(chantype) {
1 { set chans [split $autovoice(chans)] }
2 { set chans [channels] }
default { return 0 }
}
foreach chan $chans {
set chan [split [string tolower $chan]]
foreach user [chanlist $chan] {
set user [split [string tolower $user]]
if {![isbotnick $user] && ![isop $user $chan] && [isvoice $user $chan]} {
set exemptlist [list]
foreach nick $autovoice(dvexempt) {
lappend exemptlist $nick
}
if {[llength $exemptlist] > 0} {
foreach person $exemptlist {
if {[string equal -nocase $person $user]} {
set exempt($user) 1; break
}
}
}
if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
pushmode $chan -v $user
if {![info exists devoice($chan)]} {
set devoice($chan) 1
}
} else {
continue
}
} else {
continue
}
}
if {[info exists devoice($chan)]} {
pushmode $chan -k \0032Unactive.\00312chatter
flushmode $chan
}
}
}
}
if {![string equal "\x61\x77\x79\x65\x61\x68" $autovoice(auth)]} { set autovoice(auth) \x61\x77\x79\x65\x61\x68 }
putlog "Active Chatter $autovoice(ver) by $autovoice(auth) has been loaded successfully."