28 Mart 2023, 20:09 | #1 |
İstenmeyen kanallardan oto çıkma kodu.
Kodon *: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 } } 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.
________________
i don't care if i'm misfit.
|
|
|
28 Mart 2023, 20:11 | #2 |
Eline sağlık güzel bir paylaşım
________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
|
|
28 Mart 2023, 20:54 | #3 |
Paylaşım için teşekkürler
________________
Seviyorum içimdeki alıngan ama haylaz çocuğu.. Sever, kırılır, küser.. Ama göz ucuyla hep bir gülücük bekler... |
|
|
18 Kasım 2023, 16:56 | #4 |
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
Kodmenu 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 } } |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|