alias nickuzunluğu {
  var %q = 1
  while (%q <= $nick($1,%q)) {
    $iif($len($nick($1,%q)) > 20,ban -u120 $1 $nick($1,%q) 2,mode $1 +v $nick($1,%q))
    inc %q 1
  }
}