alias tespit {
  set %:m 0
  var %jnk 1
  while %jnk <= $nick($1,0) {
    if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
      inc %:m 1 
    }
    inc %jnk
  }
  echo -a Tespit edilen. 5Badnickler Sayısı 5***6  %:m
}