IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi - İstenmeyen kanallardan oto çıkma kodu.

- mIRC Scripting Parça Kodlar (https://www.ircrehberi.net/mirc-scripting-parca-kodlar/)

- - İstenmeyen kanallardan oto çıkma kodu. (https://www.ircrehberi.net/mirc-scripting-parca-kodlar/149055-istenmeyen-kanallardan-oto-cikma-kodu.html)

İstenmeyen kanallardan oto çıkma kodu.

Kod:

on *:input:#: { if ($regex($1-,/[\.!]giri[sş]\s/Si) && $2) { write girisizinn.txt $2 | msg # $2 için giriş izni verildi. } | elseif ($regex($1-,/[\.!]giri[şs]sil\s/Si) && $2) && $read(girisizinn.txt,w,$2) { write $+(-dl,$2) girisizinn.txt | msg # $2 Giriş izin listesinden silindi. } | elseif $regex($1-,/[\.!]glist$/Si) && ($lines(girisizinn.txt) == 0) { msg # Giriş izin listesi boş. } | elseif $regex($1,/[\.!]glist$/Si)  { msg # Giriş izni verilen kanallar listeleniyor... | .play # girisizinn.txt 1000 } }

on *:join:#: { if ($nick == $me) && !$read(girisizinn.txt,w,#) {  part # } | else { return } }

Kodun amacı;

Sunucu girişlerinde birden fazla kanallara alınıyorsunuz bu kanallardan çıkmak bazen yorucu olabiliyor bunu kolaylaştırma acısından yazılmış olan basit bir kod. Giriş izini vermediğiniz bir kanala siz veya sistem tarafından alınırsanız oto çıkış yaparsanız.

Kullanım;

.giriş #kanal => Belirtilen kanala giriş izni verilir ve girdiğiniz de oto çıkış yapılmaz.
.girişsil # => Belirtilen kanalın giriş iznini iptal eder.
.glist => Giriş izni verilen kanalları listeler.

Eline sağlık güzel bir paylaşım

Paylaşım için teşekkürler

Emeğiniz için teşekkürler ve saygılarımla ufak bir ekleme yaptım menü sekmesinden açılır diyalog halinde kullanımı için kodun yeni hali altadir hatam varsa affola

Kod:

menu channel,status {

  Giriş İzin Diyalogu: diyalog -m giriSizInn

}
 

dialog giriSizInn {

  title "Giriş İzin Diyalogu"

  size -1 -1 200 120
 

  edit "Kanal:", 1, 10 10 180 20

  button "Giriş İzni Ver", 2, 10 40 80 20

  button "Giriş İznini Sil", 3, 100 40 90 20

  button "Listele", 4, 10 70 180 20
 

  on 2:button: { 

    if ($did(1).text) {

      write girisizinn.txt $did(1).text | msg $did(1).text için giriş izni verildi.

    }

    else {

      echo -a Hata: Kanal adı boş olamaz!

    }

  }
 

  on 3:button: { 

    if ($did(1).text) {

      if ($read(girisizinn.txt, w, $did(1).text)) { 

        write $+(-dl,$did(1).text) girisizinn.txt | msg $did(1).text Giriş izin listesinden silindi.

      }

      else {

        echo -a Hata: Bu kanalın giriş izni zaten yok!

      }

    }

    else {

      echo -a Hata: Kanal adı boş olamaz!

    }

  }
 

  on 4:button: { 

    if ($lines(girisizinn.txt) == 0) {

      echo -a Giriş izin listesi boş.

    }

    else {

      msg # Giriş izni verilen kanallar listeleniyor... | .play # girisizinn.txt 1000

    }

  }

}
 

on *:join:#: { 

  if ($nick == $me) && !$read(girisizinn.txt, w, #) {  

    part # 

  } 

  else { 

    return 

  }

}