IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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)

}

Kullanım;

.ident yasaklanacakident => Yasaklı ident ekler

.identsil yasağıkaldırılacakident => Yasaklı ident listesinden belirtilen identi siler

.identlist => Yasaklanan ident listesini görmenizi sağlar.

Not: Yasaklanan ident listesinde olan bir değer eğer herhangi bir kanala girerse gzline atarak sunucudan uzaklaştırır. Bunu ban ve kick olarak da kullanabilirsiniz hazırladığım kişi xline olarak istediği için öyle bıraktım ben. Kullanırken dikkatli olmanızda fayda var.