on *:connect:.timer 0 1 idlekntrl
alias idlekntrl if $idle >= 12000 && !$regex($me,/(-yok$)/i) { yal | .nick $+($me) }
alias yal var %m = 1 | while $chan(%m) { if $count($nick($chan(%m),$me).pnick,@,&,~) { mode $chan(%m) -oa $me $me } | inc %m }

kodu böyle düzelttim ama bazen çalışmıyor nedendir.