IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Kasım 2016, 18:00   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
/* Ame Amsg Muaf Kanal Eklentisi */


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu channel { - » Ame-Amsg-Muaf:/dncr - } dialog dncr { title "I-DNCR Ame\Amsg" size -1 -1 240 126 option dbu edit "" 11, 10 26 60 10 list 3, 10 36 60 70 button "Ekle", 4, 78 28 32 12 button "Sil", 5, 78 48 33 12 edit "" 12, 130 26 60 10 list 6, 130 36 60 70 button "Ekle", 7, 196 28 33 12 button "Sil", 8, 196 48 33 12, tab 2 box "Muaf Ame ekleyiniz", 9, 5 14 110 90 box "Muaf Amsg ekleyiniz", 19, 125 14 110 90 button "Tamam", 10, 5 110 230 10, ok } alias dncr { .dialog -m dncr dncr } alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } } alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } } on *:dialog:amele:init:*:{ if (%muafame) .didtok $dname 3 32 $ifmatch if (%muafamsg) .didtok $dname 6 32 $ifmatch } on *:dialog:dncr:sclick:*: { ;ame için muafiyet if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } } if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } } ;amsg için muafiyet if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } } if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu channel { - » Ame-Amsg-Muaf:/dncr - } dialog dncr { title "I-DNCR Ame\Amsg" size -1 -1 240 126 option dbu edit "" 11, 10 26 60 10 list 3, 10 36 60 70 button "Ekle", 4, 78 28 32 12 button "Sil", 5, 78 48 33 12 edit "" 12, 130 26 60 10 list 6, 130 36 60 70 button "Ekle", 7, 196 28 33 12 button "Sil", 8, 196 48 33 12, tab 2 box "Muaf Ame ekleyiniz", 9, 5 14 110 90 box "Muaf Amsg ekleyiniz", 19, 125 14 110 90 button "Tamam", 10, 5 110 230 10, ok } alias dncr { .dialog -m dncr dncr } alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } } alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } } on *:dialog:amele:init:*:{ if (%muafame) .didtok $dname 3 32 $ifmatch if (%muafamsg) .didtok $dname 6 32 $ifmatch } on *:dialog:dncr:sclick:*: { ;ame için muafiyet if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } } if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } } ;amsg için muafiyet if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } } if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
ame, amsg, eklentisi, kanal, muaf
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kanal Temizleme Remotesi Goaxinqi Hazır Kodlar 0 15 Haziran 2016 15:28