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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Ident Yasaklama / MsL (https://www.ircforumlari.net/mirc-parca-kodlar/983514-ident-yasaklama-msl.html)

Mylife 15 Temmuz 2022 22:41
Ident Yasaklama / MsL
 
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.

SNOOPY 16 Temmuz 2022 09:26
Cevap: Ident Yasaklama / MsL
 
Zamanlama manidar güzel iş yapmışsın :hahah:

Mylife 16 Temmuz 2022 09:58
Cevap: Ident Yasaklama / MsL
 
Alıntı:
SNOOPY Nickli Üyeden Alıntı (Mesaj 1042703318)
Zamanlama manidar güzel iş yapmışsın :hahah:
Herşey sizler için :a23:

Çöl 05 Ekim 2025 23:41
Cevap: Ident Yasaklama / MsL
 
Alıntı:
Mylife Nickli Üyeden Alıntı (Mesaj 1042703203)
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.


selam aleykum hocam emegınıze saglık bu guzel koda belırledıgımz ıdent harıcı farklı rastgele gırıs ıdentlerı yasaklamak mumkun mu? tesekkur ederım.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:38.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk