Full Shitlist V2 addonu
Irc de yetkili olduğunuz kanallarda istemediğiniz nick / ip li kiþilerin
otomatik engellenmesini sağlar.
Shitlist addonu yazıyorum dediğimde hep: shitlistin daha neresini
düzeyde değiştirebilirsin mircde kullanıcı ekle: …. katılmak kullan atsın diye
cevap geldi. Nesinin değiştirilebileceğinin örneği karşınızda.
- Özellikleri:
- Addonun neye göre arama yapabileceğini seçebilirsiniz.
- Addonu isterseniz tüm kanallarda veya belli kanallarda aktif edebilirsiniz
- Aktif edilen kanallarda hangi modda aktif olacağını seçebilirsiniz
- Eğer kullanıcının kick Mesajında o kanalda OLMASINI istemediğiniz bir yazı
Geçiyorsa addonun onu otomatik silmesini sağlayabilirsiniz.
- Kullanıcıya göre kick mesajı yazma özgürlüğünüz artık mevcut
- Exclusive search özeliği eklendi
Yüklemek için:
shitlist.rar dosyasının içindeki Shitlist klasorunu mirc’in dizinine açın
1. mirc de remoteyi açıp menüden file> girip Shitlist klasorundeki yük
shitlist.mrc dosyasını seçin.
2. komut olarak / load-rs Shitlist \ shitlist.mrc yazmanız yeterli
eğer addonu farklı bir dizine açmayı planlıyorsanız oku.txt ve shitlist.ini
dosyalarınıda shitlist.mrc dosyasını bulunduğu klasore kopyalamak zorundasınız.
[Version 2.0.2]
- $ Shitlist (-o1) ile shitlistin kapalı olup olmadığı kontrol edilsede
kapalı iken gereksiz işlem yapmaması için gruplar eklendi.
[Version 2.0.1]
- Kick mesajlarına [,] ler eklendimi silinmesi giderildi
[Version 2.0]
- Diğalog komple yeniden yazıldı değiştir buttonları benim şu ana kadar hiç bir
addonda ve scriptte görmediğim şekilde Efektif olarak Kullanıcıya kolaylık
Sağlayacak şekilde tasarlandı.
- Tüm kanallarda aktif olmasının yanında istediğiniz kanalları Ekleyebilmeniz
sağlandı.
- Her Kullanıcıya ayrı ayrı mesajı yazabilmeniz sağlandı kick
kick mesajlarında:
- Kullanıcıya yazılan tekme Mesajında bağzı kanallar için istenmeyen kelimeleri silme
eklendi.
- Her kanala göre hangi modu seçerseniz (+ ohaq) o modda iseniz Çalıştırma opsiyonu eklendi.
- Shitlistin taramayı hangi kriterlere göre yapabileceği kullanıcı tarafından seçilebilecek.
- Exclusive arama eklendi:
Shitlistteki kanal ayarlarına göre, o kanalda op yada halfop aldığınızda otomatik
arama yapıp shitlisttekileri kanaldan atar. Şuanda kanaldaki seçilen moddan bağımsız
çalışmakta (sadece + oh modlarında çalışmakta + qa Eklenecek).
[Version 1.1]
- Nick değiştirince kullanıcıyı tarayıp yakalaması sağlandı
[Version 1.0]
- Userları rahatça ekleyip kaldırabileceğiniz dialog yapıldı
-, Parçası, metin ol tarihinde eylem da aktif edilmesi sağlandı
———————————–
Shitlist
[initload]
N0 = Shitlist * siktir *!*@* [9] [Bulunan Kriter:
n1 = Shitlist * yarak *!*@* [9] [Bulunan Kriter:
N2 = Shitlist * yar * rak *!*@* [9] [Bulunan Kriter:
N3 = Shitlist * Skik *!*@* [9] [Bulunan Kriter:
n4 = Shitlist * zkik *!*@* [9] [Bulunan Kriter:
n5 = Shitlist * subyan * ci *!*@* [9] [Bulunan Kriter:
n6 = Shitlist * abaza *!*@* [9] [Bulunan Kriter:
N7 = Shitlist * gotc *!*@* [9] [Bulunan Kriter:
N8 = Shitlist * gotv *!*@* [9] [Bulunan Kriter:
N9 = Shitlist * bekliyorum *!*@* [9] [Bulunan Kriter:
n10 = Shitlist * evlenecek *!*@* [9] [Bulunan Kriter:
n11 = Shitlist * siki *!*@* [9] [Bulunan Kriter:
N12 = Shitlist * Ziki *!*@* [9] [Bulunan Kriter:
N13 = Shitlist * zuku *!*@* [9] [Bulunan Kriter:
N14 = Shitlist * zuke *!*@* [9] [Bulunan Kriter:
N15 = Shitlist * sike *!*@* [9] [Bulunan Kriter:
N16 = Shitlist * sie *!*@* [9] [Bulunan Kriter:
[Shitlist]
Options = 0,1,1,1,1,1,1,1,1,1,90,0 hoaq
dKickMsg = Bulunan Kriter:
# test = [+ hoaq] [hadi, len, ordan, adi]
—————————————–
Shitlist
;———————————
on *: load: (
$ eğer sürüm <6,16 (echo-at? 7 [? 5Shitlist? 7]? 5: bu addon mirc 6,16 ‘ya göre yazılmıştır siz daha düşük bir versiyon kullanıyorsunuz! düzgün çalışmayabilir … )
var% i = $ ini ($+(”,$ scriptdir, shitlist.ini “), initload, 0)
while% i (
% tempstr = $ var readini ($+(”,$ scriptdir, shitlist.ini “), initload, $ ini ($+(”,$ scriptdir, shitlist.ini”), initload,% i))
if! $ ulist ($ gettok (% tempstr, 2,32), Shitlist, 1) (
. auser-a% tempstr
)
Aralık% i 1
)
echo-at? 7 [? 5Shitlist? 7]? 5: Yüklendi. çalıştırmak için / Shitlist yazmanız yeterli.
)
alias Shitlist (
Eğer $ (isid
if! $ 1 & & $ iletişim (Shitlist) (dialog-m Shitlist ShitlistTable)
if $ regex ($ 1, ^-a $) (
var% i = $ ulist (*, Shitlist, 0)
while% i (
$ remove ($ gettok ($ ulist (*, Shitlist,% i) eğer 1,32), $ 2 -) (goto var-a)
Aralık% i 1
)
. auser bir Shitlist $ + ($ 2 -,!*@*) [6] $+([,$ nick (Shitlist, dKickMsg),])
: var-bir
)
if $ regex ($ 1, ^-r $) (
if $ gettok ($ ulist ($ 2, Shitlist, 1). info, 1,32) = [6] (
if $ input ($ 2 Nicki menüsünden değil Shitlist dialogundan nicklist ve $ ulist ($ 2, Shitlist, 1) yi içeriyor yinede shitlisten çıkarmak istiyormusunuz eklenmiş?) (
. ruser $ ulist ($ 2, Shitlist, 1)
)
)
else (. ruser $ ulist ($ 2, Shitlist, 1))
)
)
else (
$ remove ($ 1, eğer ^-) ($ XM
var% i = $ calc ($ count ($ 2 -,;) + 1),% shitline = $ null
while% i (
= $ gettok ($ 2 -% shitline,% i, 59)
if% shitline (gettok (% shitline, $ (% shitline, 2,32 ),:,$ chr (44)) $ gettok (% shitline, 3 -, 32)) gettok ($ yerine 1,32) Shitlist $ did
Aralık% i 1
)
null return $
)
if $ regex ($ 1, ^-x $) (
var% i = $ null,% retval = $ null,% x = $ calc ($ count ($ 2 -,;) + 1),% shitline = $ null
while% x (
= $ gettok ($ gettok ($ 2 -,%% shitline x 59), 2,32) |% i = $ gettok (% shitline, 1,58)
while% i <= $ gettok (% shitline, 3,58) (% retval = $ + (% retval,% i, $ chr (44)) | inc% i $ gettok (% shitline, 2,58))
x, 59), 1,32) Shitlist (% retval, -1) $ gettok ($ gettok ($ 2 -,% x 59), 4 -, 32) sol $% $ gettok ($ gettok ($ 2 -, did
% retval = $ null | Aralık% x 1
)
null return $
)
if $ regex ($ 1, ^-o.) ($ ($ 1,-o) kaldırın (Shitlist, Seçenekler) nick $ gettok (return $ 44)))
if $ regex ($ 1, ^-c $) (
if $ gettok ($ gettok ($ nick (Shitlist, Seçenekler), 12,44), 1,32) | | $ nick (Shitlist, $ 2 -) (
var% modları = $ ($ kaldırmak yerine ($ gettok ($ iif ($ v1 == 1, $ gettok ($ gettok ($ nick (Shitlist, Seçenekler), 12,44), 2,32), $ v1), 1,32 ),[+,]), bir, &, o, q, @ ~, h, $ chr (37))
$ regex ($ nick ($ 2 -, $ me). pnick ,$+([,% modları,])) ($ true) if
$ return false
)
)
if $ regex ($ 1, ^-m $) (
if $ nick (Shitlist, $ 2) (var% septext = $ ($ mid ($ gettok ($ ifmatch, 2,32), 2, $ calc ($ len ($ gettok ($ ifmatch, 2,32)) – yerine 2 )),|, \ |, $ chr (44 ),|,., \., *, \ *,?, \?, /, \ /, ^, \ ^, $, \ $,[,$ chr (1 ),],$ chr (4), $ chr (40 ),$+( \, $ chr (40)), $ chr (41 ),$+( \, $ chr (41))))
var% i = $ regsub ($ mid ($ gettok ($ ulist ($ 3). bilgileri, 2 -, 32), 2, $ calc ($ len ($ gettok ($ ulist ($ 3). bilgileri, 2 -, 32 )) – 2 )),$+(/,% septext, / g), $ null,% septext)
, $ 3, (% septext,
)
)
)
alias shitlist_play (if $ 5 & & $ Shitlist (-c, $ 3) (ban-k $ 3 -))
iletişim ShitlistAboutTable (
Başlık “Shitlist v2″
size -1 -1 246 131
seçeneği dBu
metin “Eklenti: Shitlist”, 1, 3 1 61 8
text “Sürüm: 2.0.2″, 2, 3 10 61 8
metin “Mirc Sürüm: 6,16″, 3, 3 19 61 8
metin “Yazar: Alience”, 4, 3 29 61 8
metin “URL:”, 5, 3 38 11 8
box “”, 7, 0 47 245 69
metin “Shitlist addonunda özel search’ü özellik ial’in OLMASINI onu kanala çekilerek edilmesini gerektirmektedir (Liste sınırı o yüzden konmuştur). Eğer komut dosyası kullanıyorsanız ve scriptiniz otomatik güncelleme iali ediyorsa yada uzak de ial’i olan güncelleme ve açık de bu girince mirc açtıysanız eden herhangi bir güncelleme bağzı durumlarda çalışmamasına etki eder diğer fonksiyonları kesinlikle sorunsuz çalışacaktır varsa aþaðýdaki sekmeyi işaretleyin. Normal mirc kullanıyosanız ve biraz önce okuduğunuzdan birşey anlamadıysanız ve başka addonda yüklemediyseniz aþaðýdaki sekmeyi ellememeniz tavsiye olunur. Ial’in güncelleme edilip edilmemesi addonun sadece özel searchinin kod. “, 8, 4 54 234 48
kontrol “ial Shitlist update’i devre dışı bırak.”, 9, 4 103 93 10
kontrol “Yapılan Değişiklikler”, 10, 1 117 59 10
“”, 11, 1 127 244 125 okuyun çok hsbar vsbar gizlemek değiştir
düğmesi “& Kapat”, 12, 208 253 37 12, iptal sakla
düğmesi “& Kapat”, 13, 208 118 37 12, ok
)
iletişim ShitlistTable (
Başlık “Shitlist v2″
size -1 -1 184 168
seçeneği dBu
kontrol “Shitlist addonu deaktif”, 1, 2 2 62 10
metin “Addonu shitlist’teki kişiler için Aşağıdaki işlemlerde tarayacak şekilde ayarla:”, 2, 4 13 180 8
kontrol “Kanala girince”, 3, 10 21 45 9
kontrol “kanaldan çıkınca”, 4, 10 30 55 9
kontrol “Kanala mesaj yazınca (notice / me / metin)”, 5, 10 39 105 9
kontrol “Kanalda nick değiştirince”, 6, 10 48 70 9
kontrol “Kanalda shitlist’tekine modu verilince (+ voh)”, 7, 10 57 120 9
kontrol “Kanalda shitlist’tekinden modu alınınca (-voh)”, 8, 10 66 120 9
kontrol “ping / finger cekerse”, 9, 10 75 67 9 vs
kontrol “Özele mesaj yazınca”, 10, 10 84 62 9
kontrol “Özel arama:”, 11, 2 95 50 9
metin “Eğer listesi”, 12, 12 106 42 8 kanal
“”, 13, 55 105 20 10 değiştir
metin ” ‘den küçükse searchi aktif et.”, 14, 76 106 73 8
metin “Özel arama: Shitlist’te kanalda op yada yarı op aldığınızda shitlistinizde olan nick varsa otomatik Tarar ve işleme sokar. değil: ialinizi eden kod yoksa otomatik güncelleme ial gereklidir eğer? ‘ne tıklayınız”, 15, 6 118 177 32U
; Sekme2
kontrol “Tüm kanallarda aktif et”, 16, 3 2 68 10, gizlemek
text “Kanal:”, 17, 3 14 17 8, gizlemek
“, 21 13 161 10, 18 gizlemek değiştir
metin “Eğer kanalda aþaðýdaki modlara sahipsem uygula:”, 19, 3 24 122 8, gizlemek
kontrol “+ h”, 20, 22 33 19 10, gizlemek
kontrol “+ o”, 21, 43 33 19 10, gizlemek
kontrol “+ a”, 22, 65 33 19 10, gizlemek
kontrol “+ q”, 23, 86 33 19 10, gizlemek
metin “Bu kanal için eğer shitlist’teki kişinin Mesajında aşağıdakiler geçiyorsa otomatik olarak kick. Kelimeler arasına virgül sebebinden sil tekme koymanız gereklidir (örn: ulen, hiyar)”, 24, 3 42 178 22, gizlemek
“”, 25, 2 65 180 10, gizlemek değiştir
2 75 141 77, hsbar vsbar boyutunu gizlemek listesi 26,
düğmesi “Ekle”, 27, 145 77 37 12, gizlemek
düğmesi “Değiştir”, 28, 145 90 37 12, gizlemek
düğmesi “Sil”, 29, 145 103 37 12, gizlemek
; tab3
text “Nick / ip:”, 30, 2 4 20 8, gizlemek
“”, 31, 23 3 157 10, gizlemek değiştir
metin “maskesi:”, 32, 7 15 16 8, gizlemek
33, 24 14 55 100, damla boyutunu gizlemek combo
text “Kick mesajı:”, 34, 2 27 30 8, gizlemek
düğmesi “Default’u yükle”, 35, 75 26 45 9, gizlemek
düğmesi “Varsayılan olarak kaydet”, 36, 122 26 58 9, gizlemek
“”, 37, 2 36 179 10, gizlemek değiştir
2 47 141 105, hsbar vsbar boyutunu gizlemek listesi 38,
düğmesi “Ekle”, 39, 144 49 37 12, gizlemek
düğmesi “Değiştir”, 40, 144 62 37 12, gizlemek
düğmesi “Sil”, 41, 144 75 37 12, gizlemek
Radyo “Genel”, 42, 1 157 27 10, push
radyo “Kanal”, 43, 29 157 27 10, push
radyo “Liste”, 44, 57 157 27 10, push
düğmesi “”, 45, 107 154 37 12, iptal iptal
düğmesi “Tamam”, 46, 145 154 37 12, ok
düğmesi “?”, 47, 85 157 10 10
)
on *: dialog: Shitlist :*:*: (
$ eğer devent == init (
$ Shitlist (-xm,-ca 33 * nick *!*@*;- bir 33 nick *!*@*;- bir 33 * nick !*@*;- bir 33 nick !*@*;- bir 33 *! * ident *@*; bir 33 *! * ident @ *; bir 33 *! ident *@*;- bir 33 *! ident @ *; bir 33 *! ip * @;-c 42)
var% i = $ ulist (*, Shitlist, 0)
while% i (
$ Shitlist (-xm,-a 38 $ ulist (*, Shitlist,% i) $ ulist (*, Shitlist,% i). info)
Aralık% i 1
)
if $ nick (Shitlist, Seçenekler) (
$ Shitlist (-xm,-ra 13 $ Shitlist (-O11) $ iif ($ Shitlist (-o1); c-1) $ iif ($ Shitlist (-O2);-c 3) $ iif ($ Shitlist (-o3); c-4) $ iif ($ Shitlist (-o4); c-5) $ iif ($ Shitlist (-o5);-c 6) $ iif ($ Shitlist (-o6) ;-c 7) $ iif ($ Shitlist (-o7); c-8) $ iif ($ Shitlist (-o8);-c 9) $ iif ($ Shitlist (-o9); c-10) $ iif ($ Shitlist (-Ø10);-c 11) $ iif ($ gettok ($ Shitlist (-O12), 1,32) == 1; c-16))
$ remove if ($ Shitlist (-O12), h | o | a | q) (
$ Shitlist (-xm, $ iif (h isin $ Shitlist (-O12);-c 20) $ iif (o isin $ Shitlist (-O12);-c 21) $ iif (a isin $ Shitlist (-O12 );-c 22) $ iif (q isin $ Shitlist (-O12); c-23))
)
)
var% i = $ nick (Shitlist, 0). öğe
while% i (
if $ regex ($ nick (Shitlist,% i). öğe ,^#.) ($ Shitlist (-xm,-a 26 $ nick (Shitlist,% i). öğe $ nick (Shitlist,% i). verisi) )
Aralık% i 1
)
$ (1) did eğer. devlet == 1 ($ Shitlist (-x,-b 2:1:41) |. disable # Shitlist)
$ (1) did eğer. devlet == 0 (. # Shitlist izin)
$ (11) did eğer. devlet == 0 ($ Shitlist (-xm,-b 13))
$ did (16) eğer. devlet == 1 ($ Shitlist (-xm,-b 18:25:26:27:28:29))
)
$ eğer devent == sclick (
if $ did == 1 (
$ (1) did eğer. devlet == 1 (. disable # Shitlist | $ Shitlist (-x,-b 2:1:41))
$ (1) did eğer. devlet == 0 (. (-xm,-e $ + (2:3:4:5:6:7:8:9:10:11:12, Shitlist # Shitlist | $ izin $ iif ($ (11) yaptı. devlet == 1,: 13),: 14:15:16:17, $ iif ($ did (16). devlet == 0,: 18),: 19:20: 21:22:23:24, $ iif ($ did (16). devlet == 0,: 25),: 26:27:28:29:30:31:32:33:34:35:36:37 : 38:39:40:41)))
)
$ eğer == 42 ($ Shitlist did (-x,-v 1:1:15;-h 16:1:41))
$ eğer == 43 ($ Shitlist did (-x,-v 16:1:29;-h 30:1:41;-h 1:1:15))
$ eğer == 44 ($ Shitlist did (-x,-h 16:1:29;-v 30:1:41;-h 1:1:15))
$ eğer == 11 ($ iif ($ did (11) yaptı. devlet == 1, $ Shitlist (-xm,-e 13), $ Shitlist (-xm,-b 13)))
$ eğer == 16 ($ iif ($ did (16) yaptı. devlet == 1, $ Shitlist (-xm,-b 18:25:26:27:28:29), $ Shitlist (-xm,-e 18:25:26:27:28:29)))
if $ did == 27 (
$ Shitlist (-xm,-ra 18 $ strip ($ did (18 ),$+(^,$ chr (35 ))),$ (18 ),$+($ did ($ iif ($ regex ($ kaldır chr (35), $ (18 ))),$ chr (32 ),!,?))) yaptı
$ did (18) == $ if chr (35) (return)
var% i = $ did (26). hatları
while% i (
$ chr if ($ (26,% i), 1,32) == $ did (18) ($ Shitlist (-xm,-c% 26 i) | goto var) did
Aralık% i 1
)
$ Shitlist (-xm,-a 26 $ (18) $+([+,$ iif ($ did did (20). devlet, h), $ iif ($ (21) yaptı. devlet, o), $ iif ($ did (22). eyalet,), $ iif ($ did (23). devlet, q)]) $+([,$ (25 ),])) yaptı
: var
$ Shitlist (-xm,-fra 18)
)
$ eğer == 28 & & $ did (26) yaptı. seltext (
$ did (28) == Değiştir if (
var% dmodes = $ ($ gettok ($ did (26). seltext, 2,32 ),[+,]),% dcencore kaldırmak = $ mid ($ gettok ($ did (26). seltext, 3,32) , 2, $ calc ($ len ($ gettok ($ did (26). seltext, 3,32)) – 2))
$ Shitlist (-xm,-b 16:26:27:29;-ra 28 Tamam;-kalkış 18 $ gettok ($ did (26). seltext, 1,32);-ra% 25 dcencore $ iif (h isin % dmodes;-c 20) $ iif (o isin% dmodes;-c 21) $ iif (bir işin% dmodes;-c 22) $ iif (q isin% dmodes; c-23);-u 20:21:22:23)
)
if $ did (28) == Tamam (
$ Shitlist (-xm,-ra 18 $ strip ($ did (18 ),$+(^,$ chr (35 ))),$ (18 ),$+($ did ($ iif ($ regex ($ kaldır chr (35), $ (18 ))),$ chr (32 ),!,?))) yaptı
$ did (18) == $ if chr (35) (return)
var% i = $ did (26). hatları
while% i (
$ chr if ($ (26,% i), 1,32) == $ did (18) & & $ did (26) yaptı. SEL! =% i (goto exist0)
Aralık% i 1
)
$ Shitlist (-xm,-o 26 $ did (26). SEL $ (18) $+([+,$ iif ($ did did (20). devlet, h), $ iif ($ (21) yaptı. devlet, o), $ iif ($ did (22). eyalet,), $ iif ($ did (23). devlet, q)]) $+([,$ (25 ),])) yaptı
: exist0
$ Shitlist (-xm,-fra 18;-e 16:26:27:29;-ra 28 Değiştir)
)
)
$ eğer == 29 & & $ did (26) yaptı. seltext ($ Shitlist (-xm,-c 26 1;-D 26 $ did (26). SEL))
$ varsa)) == 35) ($ Shitlist (-xm,-ra 37 $ nick (Shitlist, dKickMsg yaptı
$ eğer == 36 (hadd Shitlist $ did (37)) dKickMsg yaptı
$ eğer == 39 & & $ did (31) (did
$ Shitlist (-xm,-ra 31 $ (33), Nick, $ (31), $ chr (32)), ident, $ did (31), ip mi, mi (31 $ ($ kaldırmak did ($ yerine )))
var% i = $ did (38). hatları
while% i (
$ chr if ($ (38,% i), 1,32) == $ did (31) ($ Shitlist (-xm,-c% 38 i) | goto exist1) did
Aralık% i 1
)
$ Shitlist (-xm,-a 38 $ (31) $+([,$ did (33) yaptı. sel,]) $+([,$ (37 ),])) yaptı
. auser bir Shitlist $ (31) $+([,$ did (33) yaptı. sel,]) $+([,$ did (37),])
: exist1
$ Shitlist (-xm,-fra 31)
)
$ eğer == 40 & & $ did (38) yaptı. seltext (
$ did (40) == Değiştir if (
var% dkick = $ mid ($ gettok ($ did (38). seltext, 3 -, 32), 2, $ calc ($ len ($ gettok ($ did (38). seltext, 3 -, 32)) — 2)),% dshitstr = $ gettok ($ did (38). seltext, 1,32)
$ Shitlist (-xm,-b 38:39:41;-ra 40 Tamam;-$ (33) did ($ iif ($ kaldırmak fra 31. sel == 9 | | $ did (33). sel == 7 , $ right (% dshitstr, -1),% dshitstr ),*!*@*,*!*@,!*@*,*@*,@*,*!*,*!);-ra% 37 dkick;-c 33 $ ($ gettok ($ did (38). seltext, 2,32 ),[,])) kaldır
)
if $ did (40) == Tamam (
$ gettok ($ did (38). seltext, 1,32) Shitlist. ruser
$ Shitlist (-xm,-ra 31 $ (33), Nick, $ (31), $ chr (32)), ident, $ did (31), ip mi, mi (31 $ ($ kaldırmak did ($ yerine )))
var% i = $ did (38). hatları
while% i (
$ chr if ($ (38,% i), 1,32) == $ did (31) & & $ did (38) yaptı. SEL! =% i (goto exist2)
Aralık% i 1
)
$ Shitlist (-xm,-co 38 $ did (38). SEL $ (31) $+([,$ did (33) yaptı. sel,]) $+([,$ (37 ),])) yaptı
. auser bir Shitlist $ (31) $+([,$ did (33) yaptı. sel,]) $+([,$ did (37),])
: exist2
$ Shitlist (-xm,-e 38:39:41;-ra 40 Değiştir;-fr 31)
)
)
$ eğer == 41 & & $ did (38) yaptı. seltext $ gettok ($ did (38). seltext, 1,32) | $ Shitlist (. ruser Shitlist (-xm,-c 38 1;-D 38 $ did (38). SEL))
if $ did == 46 (
if $ nick (Shitlist) (var% default = $ nick (Shitlist, dKickMsg) |. hfree Shitlist)
hmake Shitlist 150
. hadd Shitlist dKickMsg% varsayılan
. hadd Shitlist Seçenekler $ + ($ (1) yaptı. devlet, $ chr (44), $ (3) yaptı. devlet, $ chr (44), $ did (4). devlet, $ chr (44), $ (5) yaptı. devlet, $ chr (44), $ did (6). devlet, $ chr (44), $ did (7). devlet, $ chr (44), $ did (8). devlet, $ chr (44), $ did (9). devlet, $ chr (44), $ did (10). devlet, $ chr (44), $ (11) yaptı. devlet, $ chr (44), $ iif ( $ did (13) == $ null, 0, $ (13)) did, $ chr (44), $ did (16). devlet $ + ($ iif ($ did (20). devlet, h), $ iif ($ (21) yaptı. devlet, o), $ iif ($ did (22). eyalet,), $ iif ($ did (23). devlet, q)))
var% i = $ did (26). hatları
while% i (
hadd Shitlist $ did (26,% i)
Aralık% i 1
)
)
(if $ dialog (shitlistabout) (if $ iletişim == 47 did-m shitlistabout ShitlistAboutTable))
)
$ eğer devent değiştir == (
if $ did == 13 (
= $ regsub ($ var% x = $ null,% i (13 ),/([^ 0-9]) / g, $ null,% x) did
$ Shitlist (-xm,-ra% 13 x)
)
)
)
on *: dialog: shitlistabout :*:*: (
$ eğer devent == init ($ iif ($ group (#) shitlist_ial! = on, did-c $ dname 9) | loadbuf-o $ dname 11 $+(”,$ scriptdir, oku.txt “) | did — $ dname 11,12) h
$ eğer devent == sclick (
$ eğer == 9 ($ iif ($ did (9) yaptı. == 1,. disable # shitlist_ial devlet. # shitlist_ial izin))
if $ did == 6 (. $ did (6)) koşmak
if $ did == 10 (
$ did (10). devlet == 1 (
iletişim-) $ $ dialog ($ dname dname var. x $ dialog ($ dname). y $ dialog ($ dname). CW 533
$ dname 13 did-h | did-v $ dname 11,12
)
else (
iletişim-) $ $ dialog ($ dname dname var. x $ dialog ($ dname). y $ dialog ($ dname). CW 262
-$ dname 11,12 saat did did-v 13 $ dname |
)
)
)
)
;———————————
; Shitlist Etkinlikler –
; Başlama Tarihi: 4/12/2005 –
;———————————
on *: start: (if $ nick (Shitlist) (. hmake Shitlist 150 |. hload-i Shitlist $+(”,$ scriptdir, shitlist.ini “) Shitlist | write-c $+(”,$ scriptdir, temp.shitlist “)))
on *: exit: (if $ nick (Shitlist) (. hsave-io Shitlist $+(”,$ scriptdir, shitlist.ini “) Shitlist))
# Shitlist Doğum
Shitlist Doğum: join: #: (if $ Shitlist (-c, $ chan) & & $ Shitlist (-O2) & & $ Shitlist (-o1) (ban-k $ chan $ nick 2 $ Shitlist (-m, $ chan , $ nick)))
Shitlist Doğum: part: #: (if $ Shitlist (-c, $ chan) & & $ Shitlist (-o3) & & $ Shitlist (-o1) () chan $ nick 2) $ yasağı
Shitlist Doğum: metin :*:#: (if $ Shitlist (-c, $ chan) & & $ Shitlist (-o4) & & $ Shitlist (-o1) (ban-k $ chan $ nick 2 $ Shitlist (-m, $ chan, $ nick)))
Shitlist Doğum: fark :*:#: (if $ Shitlist (-c, $ chan) & & $ Shitlist (-o4) & & $ Shitlist (-o1) (ban-k $ chan $ nick 2 $ Shitlist (-m, $ chan, $ nick)))
Shitlist Doğum: eylem :*:#: (if $ Shitlist (-c, $ chan) & & $ Shitlist (-o4) & & $ Shitlist (-o1) (ban-k $ chan $ nick 2 $ Shitlist (-m, $ chan, $ nick)))
Shitlist Doğum: metin :*:?: (
if ($ Shitlist (-o9) & & $ Shitlist (-o1)) (
var% i = $ comchan ($ nick, 0)
while% i (
$ eğer Shitlist (-c, $ comchan ($ nick,% i)) (ban-k $ comchan ($ nick,% i) $ nick 2 $ Shitlist (-m, $ comchan ($ nick,% i) $ nick))
Aralık% i 1
)
)
)
on *: nick: (
if ($ ulist ($ fulladdress, Shitlist) | | $ ulist ($ newnick, Shitlist)) & & ($ Shitlist (-o5) & & $ Shitlist (-o1)) (
var% i = $ comchan ($ newnick, 0)
while% i (
$ eğer Shitlist (-c, $ comchan ($ newnick,% i)) (ban-k $ comchan ($ newnick,% i) $ newnick 2 $ Shitlist (-m, $ comchan ($ newnick,% i) $ iif ($ ulist ($ fulladdress, Shitlist), $ nick, $ newnick)))
Aralık% i 1
)
)
)
ctcp *: *: (
if $ ulist ($ fulladdress, Shitlist) & & ($ Shitlist (-o8) & & $ Shitlist (-o1)) (
var% i = $ comchan ($ nick, 0)
while% i (
$ eğer Shitlist (-c, $ comchan ($ nick,% i)) (ban-k $ comchan ($ nick,% i) $ nick 2 $ Shitlist (-m, $ comchan ($ nick,% i) $ nick))
Aralık% i 1
)
halt
)
)
on *: rawmode: #: (
$ eğer modu (0). op & & $ Shitlist (-Ø10) & & $ Shitlist (-o1) & & $ nick ($ chan, 0) <= $ Shitlist (-O11) (
var% i = $ mode (0). op
while% i (
if $ modu (% i). op == $ me & & $ Shitlist (-c, $ chan) (
var% x = $ nick ($ chan, 0, a, oh)
. remini $+(”,$ scriptdir, temp.shitlist “) $ chan
“) $+([,$ chan, $+(",$ scriptdir, temp.shitlist yazmak])
while% x (
if $ ulist ($ address ($ nick ($ chan,% x, a, oh), 5), Shitlist) (yazmak $+(”,$ scriptdir, temp.shitlist “) $ chan $ nick ($ chan,% x, a, oh) 2 $ Shitlist (-m, $ chan, $ nick ($ chan,% x, a, oh)))
Aralık% x 1
)
$ oyna. + (-saqt, $ chan) shitlist_play $+(”,$ scriptdir, temp.shitlist “) 3500
)
if $ ulist ($ adres ($ mod (% i). op, 5), Shitlist) & & $ Shitlist (-c, $ chan) & & $ Shitlist (-o6) & & $ Shitlist (-o1) (ban — k $ chan $ mode (% i). op 2 $ Shitlist (-m, $ chan, $ modu (% i). op))
Aralık% i 1
)
)
$ eğer modu (0). & & $ Shitlist (-Ø10) & & $ yardım Shitlist (-o1) & & $ nick ($ chan, 0) <= $ Shitlist (-O11) (
var% i = $ mode (0). yardım
while% i (
if $ modu (% i) Shitlist (-c, $ chan) (me & & $ == $ yardım.
var% x = $ nick ($ chan, 0, a, oh)
. remini $+(”,$ scriptdir, temp.shitlist “) $ chan
“) $+([,$ chan, $+(",$ scriptdir, temp.shitlist yazmak])
while% x (
if $ ulist ($ address ($ nick ($ chan,% x, a, oh), 5), Shitlist) (yazmak $+(”,$ scriptdir, temp.shitlist “) $ chan $ nick ($ chan,% x, a, oh) 2 $ Shitlist (-m, $ chan, $ nick ($ chan,% x, a, oh)))
Aralık% x 1
)
$ oyna. + (-saqt, $ chan) shitlist_play $+(”,$ scriptdir, temp.shitlist “) 3500
)
if $ ulist ($ adres ($ mod (% i)., 5), Shitlist) & & $ Shitlist (-c, $ chan) & & $ Shitlist (-o6) & & $ Shitlist (-o1) (ban yardım — k $ chan $ mode (% i). yardım 2 $ Shitlist (-m, $ chan, $ modu (% i). yardım))
Aralık% i 1
)
)
$ eğer modu (0). voice & & $ Shitlist (-o6) & & $ Shitlist (-o1) (
var% i = $ mode (0). ses
while% i (
if $ modu (% i). voice! = $ me & & $ ulist ($ adres ($ mod (% i). ses, 5), Shitlist) & & $ Shitlist (-c, $ chan) (ban-k $ chan $ modu (% i). Ses 2 $ Shitlist (-m, $ chan, $ modu (% i). ses))
Aralık% i 1
)
)
$ eğer modu (0). deop & & $ Shitlist (-o7) & & $ Shitlist (-o1) (
var% i = $ mode (0). deop
while% i (
if $ ulist ($ adres ($ mod (% i). ses, 5), Shitlist) & & $ Shitlist (-c, $ chan) (ban-k $ chan $ mode (% i). Ses 2 $ Shitlist (– m, $ chan, $ modu (% i). ses))
Aralık% i 1
)
)
$ eğer modu (0). dehelp & & $ Shitlist (-o7) & & $ Shitlist (-o1) (
var% i = $ mode (0). dehelp
while% i (
if $ ulist ($ adres ($ mod (% i). dehelp, 5), Shitlist) & & $ Shitlist (-c, $ chan) (ban-k $ chan $ mode (% i). dehelp 2 $ Shitlist (– m, $ chan, $ modu (% i). dehelp))
Aralık% i 1
)
)
$ eğer modu (0). devoice & & $ Shitlist (-o7) & & $ Shitlist (-o1) (
-a::: $ 1 – echo
var% i = $ mode (0). devoice
while% i (
if $ ulist ($ adres ($ mod (% i). devoice, 5), Shitlist) & & $ Shitlist (-c, $ chan) (ban-k $ chan $ mode (% i). devoice 2 $ Shitlist (– m, $ chan, $ modu (% i). devoice))
Aralık% i 1
)
)
)
# Shitlist sonu
# Doğum shitlist_ial
raw 329: *: (if $ Shitlist (-Ø10) & & $ nick ($ 2,0) <= $ Shitlist (-O11) (% shitlist_silence_ial_update = 1 set |. kim $ 2))
raw 352: *: (if (% shitlist_silence_ial_update) (halt))
raw 315: *: (if (% shitlist_silence_ial_update) (unset% shitlist_silence_ial_update | halt))
# shitlist_ial sonu
;———————————
; Shitlist Menüler –
; Başlama Tarihi: 8/12/2005 –
;———————————
menü nicklist (
Shitlist
. Ayarlar: / Shitlist
.-
. $ iif ($ $ 1 = $ me & & $ ulist ($ $ 1, Shitlist), seçiliyi ekle): / Shitlist-a $ 1 $
. $ iif ($ $ 1 = $ me & & $ ulist ($ $ 1, Shitlist), seçiliyi çıkar): / Shitlist-r $ $ 1
)
menü kanal, menubar (
.-
Shitlist: / Shitlist
)
Yapım Kodlama: Aliance
