alias tara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick(#,0) {
    %:gnick = $nick(#,%s)
    if ($ulist($+($nick(#,%s), !*@*),koruma,0) >= 1) || ($ulist($+(*!, $regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0) >= 1) { return }
    if %:gnick isreg # && $level(%:gnick $+ !*@*) == badnick {
      inc %:bulunan 1
      mode # +b %:gnick | kick # %:gnick 1 Badnick
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: # - %:bulunan badnick bulundu.
}