[Mylife ✓]

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.

[TövbekaR ✓]

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

[Rhea ✓]

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

[iLLeTBey ✓]

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 
  }
}