Kod

alias talk_control {
.timer_talk_control 1 10 talk_control
var %i $hget(talk_idle,0).item
while (%i) {
if $calc($ticks - $hget(talk_idle,%i).data) > 6000 {
tokenize 58 $hget(talk_idle,%i).item
if ($me isop $1) mode $1 -v $2
}
dec %i
}
}
on *p:#X: if ($opnick == $me) talk_control
on *:deop:#X: if ($opnick == $me) timer_talk_control off
on *:voice:#X:hadd -m talk_idle $+($chan,:,$vnick) $ticks
on *:devoice:#X: hdel talk_idle $+($chan,:,$vnick) $ticks
on *:text:*:#X: if ($hget(talk_idle,$+($chan,:,$nick))) hadd -m talk_idle $+($chan,:,$nick) $ticks