rgxban {
  ;Eger nick, dizilişleri farklı olarak 3 harften fazla ise.
  if $len($regsubex($1,/(.)\1+/g,\1)) > 3 {
    var %tst, %rgx, %ban = $regsub($regsubex($1,/(.)\1+/g,\1),/(?<=^|(.))/g,$chr(42), %rgx)
    %tst = $regsubex($replace($remove(%rgx,$chr(42)),i,?,L,?,o,?),/(.)\1+/g,\1))
    ;eger sonuç sadece soru işaretlerinden ibaret ise soru işaretlerini devreye sokma.
    return $iif($len(%tst) > 3,$+($replace(%rgx,i,?,L,?,o,?),!*@*),$+(%rgx,!*@*))
  }
  else {
    return $1
  }
}