alias -l mychan #ates
On *:text:!idle*:$($mychan):{
  if $regex($2,/^a[çÇc]$/i) {
    if ($3 !isnum || $4 !isnum) {
      msg # > Hatali komut kullandiniz.
      msg # > !idle aç kacsndebirkontrol konusmadigisure
      msg # >  Ornek: !idle aç 20 60 (20 sn'de bir kontrol eder, 60 sn konusmamissa devoice eder.) 
      return
    }    
    msg $chan Idle kontrol sistemi aktifleştirildi. $3 Saniyede bir Userların idle süreleri kontrol edilecek $4 saniyeyi aşarlarsa. $mychan Kanalından Devoice edileceklerdir. 
    timeridle off
    timeridle 0 $3 idlekontrol 
    .set %idlesüre $4 
  } 
  if $2 == kapat { 
    .timeridle off 
    unset %idlesüre  
    msg $chan Idle kontrol sistemi kapatıldı. 
  }
}
alias idlekontrol { 
  set -eu2 %_idlekon_ Ok
  var %x = $nick($mychan,0,v) 
  while %x { 
    if ($nick($mychan,%x,v) == $me || $nick($mychan,%x) !isop $mychan) { 
      dec %x 
      goto x 
    } 
    else { 
      whois $nick($mychan,%x,v) 
      dec %x 
    } 
    :x
  } 
} 
raw 317:*:{ 
  if (%_idlekon_ && $3 > %idlesüre) { 
    set -eu1 %nicks_to_be_devoiced %nicks_to_be_devoiced $2
    .timerdevoicenick 1 1 devoicenicks $gettok(%nicks_to_be_devoiced,0,32) %nicks_to_be_devoiced
  } 
}
alias devoicenicks {
  if ($1 <= 12) {
    mode $mychan $+(-,$str(v,$1)) $2-
    tokenize 32 $2-
    msg $* away oldugunuz icin devoice edildiniz. 
  }
  if ($1 > 12) {
    mode $mychan $+(-,$str(v,12)) $2-13
    mode $mychan $+(-,$str(v,12)) $14-25
    tokenize 32 $2-
    msg $* away oldugunuz icin devoice edildiniz. 
  }
}