![]() |
| | #1 |
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. 👍 2
________________ Stay strong, trust your instincts. Set your spirit free, never forget your spiritual side. Even in the midst of hardships, there is always a light to guide your way. | |
| |
| | #2 |
| Eline sağlık güzel bir paylaşım 👍 1
________________ Zaman zaman vazgeçmeli insan,rahatlamak için… Hayatın kendisine ait olmayan bir şeymiş gibi geçip gidişini izlemeli. ∞ ![]() | |
| |
| | #3 |
| Paylaşım için teşekkürler 👍 1
________________ Gönül nasıl derin bir kederde... ![]() ![]() | |
| |
| | #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
}
} 👍 1 | |
| |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
| |