on me:*:JOIN:#channelhere:.timerAV. $+ $chan 0 10 autovoice $chan
on me:*:PART:#ChannelHere:.timerAV. $+ chan off
on @*:TEXT:*:#ChannelHere:{
if (($nick isreg $chan) && ($len($1-) >= 15)) mode $chan +v $nick
}
alias autovoice {
if ($me !isop $1) return
var %x = $nick($1,0), %idlers
while (%x) {
if (($nick($1,%x).idle >= 1200) && ($nick($1,%x) isvoice $1)) {
var %idlers = %idlers $nick($1,%x)
if ($numtok(%idlers,32) == $modespl) {
mode $1 $+(-,$str(v,$numtok(%idlers,32)) %idlers
var %idlers
}
}
dec %x
}
if (%idlers) mode $1 $+(-,$str(v,$numtok(%idlers,32)) %idlers
}