Güzel bir küfür koruma
Güzel  bir  küfür korumaGüzel  bir  küfür korumaGüzel  bir  küfür korumaGüzel  bir  küfür koruma
Güzel  bir  küfür koruma

imgres

iletişim kufur {
başlığı “Küfür korumasi [yemin]”
boyutu -1 -1 138 186
seçenek dBu
düzenlemek “”, 1, 7 10 61 10
liste 2, 7 22 60 50, boyut
düğmesi “MDI”, 3, 7, 74 27 12, yassı
düğmesi “Sil”, 4, 39 74 27 12, flat
“Opları (@)”, 5, 21, 85 41, 10 düz kontrol
“Voiceler (@)”, 6, 85 10 42 10, düz kontrol
combo 7, 7 102 52 51, boyut
düğmesi “MDI”, 8, 7, 154 24 9, düz
düğmesi “Sil”, 9, 35 154 23 9, flat
kutusu “Küfür LİSTESİ”, 13, 3 2 71 88
kutusu “Ayrılan Nickler”, 14, 3. 92 63 76
kutusu “Ayrılan Kanallar”, 15, 73 92 62 76
kutusu “Ayır”, 16, 78 2 56 33
düğmesi “Sil”, 10, 106 154 23 9, flat
düğmesi “Ekle”, 11, 78 154 24 9, flat
combo 12, 78 102 52 51, boyut
kutusu “İşlemler”, 17, 78 37 56 53
radyo “Opersem Kline”, 18, 83 47 47 10, flat
radyo düz, 83 57 47, 10, 19 “Opersem Kill”
radyo “Opsam Kick”, 20, 83 67 47 10, flat
“Banla”, 21, 83 77 27 10, düz kontrol
düğmesi “Kapat”, 22, 97 171 37 12, düz ok
}
alias kufur {/ dialog-m kufur kufur}
* Doğum: iletişim: kufur: init: *: {
(isfile $ (kufur.txt) == $ false) {write-c kufur.txt} | else {loadbuf-o $ DNAME 2 kufur.txt}
(% knickler) eğer. didtok $ DNAME 7 32 $ ifmatch
(% kufkanal) eğer. didtok $ DNAME 12 32 $ ifmatch
if (% klineat) {. did-c $ DNAME 18}
if (% killat) {. did-c $ DNAME 19}
if (% kickat) {. did-c $ DNAME 20}
if (% banla) {. did-c $ DNAME 21}
if (% Oplar Şirkette) {. did-c $ DNAME 5}
if (% vlar) {. did-c $ DNAME 6}
}
* Doğum: iletişim: kufur: sclick: *: {
if ($ == 18 yaptım) {if ($ (18) devlet == 1 yaptım.) {set% klineat |. unset% killat |.. unset% kickat} |. else {unset% klineat}}
if ($ == 19 yaptım) {if ($ (19) devlet == 1 yaptım.) {set% killat |. unset% klineat |.. unset% kickat} |. else {unset% killat}}
if ($ == 20 yaptım) {if ($ (20) devlet == 1 yaptım.) {set% kickat |. unset% killat |.. unset% klineat} |. else {unset% kickat}}
if ($ == 21 yaptım) {if ($ (21) devlet == 1 yaptım.) {set% banla} |.. else {unset% banla}}
($ == 3 yaptım) {yazmak kufur.txt $ did (1) | did-a $ DNAME 2 $ did (1) | did-r $ DNAME 1} if
if ($ == 4 yaptım) {write-dl $ + $ did (2) sel kufur.txt |.. did-d $ DNAME 2 $ did (2) sel}
if ($ == 8 yaptım) {if ($ (7) = $ null yaptım!) {set-u% sk $ did (7) | if (% sk) && ($ Istok (% knickler,% sk! 32)) {set% knickler $ addtok (% knickler,% sk, 32) |. did-a $ DNAME 7% sk}}}
. did-d $ DNAME | ($ == 9 yaptım) {if ($. (7) sel> 0 yaptım) {set% knickler $ remtok (.% knickler, $ (7) yaptım seltext, 1,32) ise 7 $ did (7) sel |. did-c $ DNAME 7 1}}
! ($ == 11 yaptım) {($ (12) = $ null yaptım) {set-u% ek $ yaptıysam (12) ise | if (% ek) && ($ Istok (% kufkanal,% ek, 32)) {set% kufkanal $ addtok (% kufkanal,% ek, 32) |. did-a $ DNAME% 12 ek}}}
. did-d $ DNAME | ($ == 10 yaptım) {if ($. (12) sel> 0 yaptım) {set% kufkanal $ remtok (.% kufkanal, $ did (12) seltext, 1,32) ise 12 $ did (12) sel |. did-c $ DNAME 12 1}}
if ($ == 5 yaptım) {on ($ (5) Devlet == 1 yaptım.) {set% Oplar Şirkette} if |.. else {unset% Oplar Şirkette}}
if ($ == 6 yaptım) {if ($ (6) Devlet == 1 yaptım.) {set% vlar} |.. else {unset% vlar}}
}
* Doğum: text: *: #: {
$ Istok (% kufkanal, #, 32) == $ true ise {halt}
Eğer $ Istok (% knickler, $ nick, 32) == $ true {halt}
if ($ nick isop #) && (% Oplar Şirkette == on) {return}
if ($ nick isvo #) && (% vlar == on) {return}
1 $ korukufurden -
}
alias korukufurden {
var% HR $ strip ($ 1 -),% _: $ lines (kufur.txt)
while (% _ :) {
(kufur.txt,% _ :) iswm% HR iswm% HR {salt if $
if (% banla == üzerinde) {. modunda $ chan + b wildsite $}
if (% klineat == üzerinde) {. kline $ nick lutfen kufur etmeyin}
if (% killat == üzerinde) {. öldürmek $ nick lutfen kufur etmeyin}
if (% kickat == üzerinde) {. tekme $ chan $ nick lutfen kufur etmeyin}
dönmek
}
Aralık% _:
}
}

imgres

Farkı Hissedin!. Geveze mIRC Burada>> Burdan>>> > > > İNDİR

Yorum yaz