Çevrimdışı

on @8:join:#:mode # +b $ulist($address($nick,5),$ulevel,1) | kick # $nick 4BAD Nick 12Tespit Edildi.Bilgi Icin 4/motd 12Yazınız.. %logo } }
alias shitconf if $dialog(Shitlist) == $null dialog -m shitlist shitlist
dialog shitlist {
title "Kotu Nick Koruma"
size -1 -1 200 265
button "Tamam", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
box "Kotu Nickler", 3, 5 5 190 145
edit "*", 4, 10 165 180 20, autohs
box "Eklenecek Nick'i Girin", 5, 5 150 190 45
button "Ekle", 6, 20 200 70 20
box "Not:", 7, 5 225 190 35
text "Nick Silmek İcin Nick'e Cift Tiklayin", 8, 25 240 180 45
}
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:dialog:shitlist:dclick:2:{ .ruser 8 $did(2).seltext | did -d shitlist 2 $did(2).sel }
on *:dialog:shitlist:sclick:6:{ if ($did(4) != $null) { did -a shitlist 2 $did(4) | .auser 8 $did(4) | did -fr shitlist 4 } }
on *:dialog:shitlist:init:*:{
if ($ulist(*,8,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,8,0)) {
inc %cnt.shit 1
did -a shitlist 2 $ulist(*,8,%cnt.shit)
}
unset %cnt.shit
}
}


Kendimin kullandığı ve gayette iyi çalışıyor. Umarım işinizi görür.

 

Çevrimdışı

kardeş Güzelde Bu nasıl ÇaLışacak ?

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

Çevrimdışı

McKruGer Nickli Üyeden Alıntı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Aynısı yaptım ama menüde çıkmıyor :S

 

Çevrimdışı

Linkte anlatıldığı şekilde scriptine eklediysen /shitconf yazınca çıkar.
Eğer illa menulerde çıksın istiyosan kodun başına
menu channel,query {
.Badnick:/shitconf
}

ekleyebilirsin. ( channel= kanal menüsü, query=özel menüsü, status=statüs menüsü, menubar=en üsteki menude v.s)

 

Çevrimdışı

Ya bunun hızlı çalısması için ne yapmalıyım büyük kanallarda çalısmıyor yada hızlı 1 bad nick koruması bilen varmı ?