Kod

on *:input:#: {
  if $regex($1-,/^[\.!]identlist$/Si) {
    if $read(identler.txt) == $null {
      echo -a Herhangi bir ident yasaklanmamış
    }
    else {
      msg # Yasak ident listesi sıralanıyor...
      .play # identler.txt 1000 
    }
  }
  if $regex($1-,/^[\.!]identsil/Si) && $read(identler.txt,w,$2) {
    write $+(-dl,$2) identler.txt
    echo -a $qt($2) listeden silindi.
  }
  elseif $regex($1-,/[\.!]identsil/Si) && !$read(identler.txt,w,$2) {
    echo -a $qt($2) yasak listesinde yok.
  }
  if $regex($1-,/^[\.!]ident$/Si) {
    if (!$2) {
      echo -a  ident belirtmelisiniz. ( .ident yasaklanıcakident )
    }
  }
  elseif $regex($1-,/[\.!]ident\s/Si) && !$read(identler.txt,w,$2) {
    write identler.txt $2
    echo -a $qt($2) listeye eklendi
  }
}
on *:join:#: {
  $iif($read(identler.txt,w,$gettok($gettok($ial($nick,1), 1, 64), 2, 33)), gzline $nick : Kural ihlali yaptınız, return)
}