| Toprak | 05 Aralık 2014 18:23 |
Alıntı:
off Nickli Üyeden Alıntı
(Mesaj 1041563835)
ama karaliste dediğimde $ulist dediki badları göstermiyor nick değiştirme çalışıyor ama girişte badnick atma çalışmıyor birde kardeşim nick değişimde muaf nickler ekleye bilirmiyiz.
| Buyur =) Kod:
on *:nick: {
if $istok(nick1 nick2 nick3,$newnick,32) { return }
if $ulist($newnick,bad,*) {
var %:new 1 | while (%:new <= $comchan($newnick,0)) {
if $regex($nick($comchan($newnick,%:new),$me).pnick,/(@|&|%|~|\.)/i) {
mode $comchan($newnick,%:new) +b $address($newnick,2) | kick $comchan($newnick,%:new) $newnick 2Kanalında Badnick Yasaktir.
}
inc %:new
}
}
}
alias -l _buser { .guser bad $1 3 }
alias -l _rbuser { .ruser bad $1 3 }
alias -l _luser { dialog -m _blacklist _blacklist }
alias -l _blist {
did -r _blacklist 11
var %_btotal = $ulist(*,bad,0), %_b = 1
while (%_b <= %_btotal) {
did -a _blacklist 11 $ulist(*,bad,%_b)
inc %_b
}
}
alias karaliste /dialog -m _blacklist _blacklist
dialog _blacklist {
title "Bad NicK List"
size -1 -1 150 110
option dbu
text "Nicki Yazıp Ekleyin:" , 10 , 10 5 95 10 , left
combo 11 , 10 15 95 85 , extsel sort autohs autovs
edit "" , 12 , 10 95 95 10 , read autohs
button "&Ekle" , 20 , 115 35 30 20 ,flat
button "&Sil" , 30 , 115 60 30 20 , flat
button "O.K." , 40 , 115 85 30 20 , ok, flat
}
on *:dialog:_blacklist:init:*:_blist
on *:dialog:_blacklist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null && $level($did(11).text) != bad) {
var %_badd = $did(11).text
.auser bad %_badd
_blist
did -o $dname 12 1 %_badd Bad Nick Listesine ekLendi...
}
}
if ($did == 30) {
if ($did(11).text != $null && $level($did(11).text) == bad) {
var %_brem = $did(11).text
.ruser bad %_brem
_blist
did -o $dname 12 1 %_brem Bad Nick Listesinden SiLindi...
}
}
}
on bad:join:#:{
if $istok(nick1 nick2 nick3,$nick,32) { return }
if $regex($nick(#,$me).pnick,/(@|&|%|~|\.)/i) { mode # +b $nick | kick # $nick $chan 2Kanalında Badnick Yasaktir.
}
}
|
