Tekil Mesaj gösterimi
Alt 06 Mayıs 2009, 15:24   #7
Çevrimdışı
Heidi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Shitlist addonu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog shitlist { title "mIRC ShitList" size -1 -1 348 244 box "Configuration", 1, 6 5 336 231 box "List", 2, 16 21 151 154 list 3, 26 39 130 125, size sorted box "Options", 4, 170 21 162 81 text "Nick:", 5, 179 47 30 13 edit "", 6, 212 39 109 22, multi return autohs button "Add", 7, 183 68 65 23 button "Del", 8, 252 68 65 23 box "Status", 10, 171 102 81 73 radio "On", 11, 180 119 60 23, push group radio "Off", 12, 180 143 60 23, push box "Action", 13, 254 102 78 56 radio "Kick", 14, 262 120 51 13, group radio "Kick+Ban", 15, 262 136 64 13 box "Message", 17, 16 175 235 49 edit "", 18, 26 192 214 22, multi return autohs button "Done", 19, 260 191 76 23, ok } on *:dialog:shitlist:*:*: { if $devent = init { didtok shitlist 3 32 %st.list did -a shitlist 18 %st.msg if (%st.status == on) { did -c shitlist 11 } elseif (%st.status == off) { did -c shitlist 12 } if (%st.reason == k) { did -c shitlist 14 } elseif (%st.reason = kb) { did -c shitlist 15 } } if $devent = sclick { if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.list $didtok(shitlist,3,32) | . auser Shit $did(6).text did -r shitlist 6 } } if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist Shit $did(3).sel | set %st.list $didtok(shitlist,3,32) } } if $did = 11 { .set %st.status on | .enable #shitlist } if $did = 12 { .set %st.status off | .disable #shitlist } if $did = 14 { .set %st.reason k } if $did = 15 { .set %st.reason kb } } if $devent = edit { if $did = 18 { .set %st.msg $did(18) } } } #shitlist off on Shit:Join:#: { if ($me isop $chan) { if (%st.reason == k) { kick $chan $nick %st.msg } | elseif (%st.reason == kb) { ban $chan $nick 3 | kick $chan $nick %st.msg } } } #shitlist end menu status,channel { - mIRC Shitlist:/dialog -m shitlist shitlist -

Kod üzerindeki birkaç çakışmadan dolayı oluşan problemleri gidermek adına yeniden düzenledim.
Katkılarından dolayı CesuryureK'e teşekkür ederim..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver