alias idlescan {
    var %wanti 1
    while %wanti <= $nick(#X,0) {
      if !$istok(Muafnick,$nick(#X,%wanti),32) {
        .whois $nick(#X,%wanti) $nick(#X,%wanti)
      }
      inc %wanti
    }
  }

  raw 317:*:{
    if $3 > 600 {
      if (disarida isin $2) || (mesgul isin $2) { halt }
      if ($2 isREG #X) && ($2 ishop #X) { halt }
      else {
        msg #X@ $2 idle suresini asmis! $replace($duration($3),mins,dakika,secs,saniye,hrs ,saat,hr,saat,min,dakika,sec,saniye) | mode #X -oa $2 $2

      }
    }
  }