Çevrimdışı

operim op'a cıkmadan calısmasını istiyorum bu kodun bakarmısınız lütfen

alias bdnick { dialog -m bdnick bdnick }
alias xxb { dialog -x bdnick bdnick }
dialog bdnick {
title "BadNick Ayarlar"
size -1 -1 137 178
option dbu
box "İşlemler", 1, 6 4 125 39
radio "Kick+Ban", 2, 17 14 50 10
radio "Kille", 3, 17 29 50 10
radio "Akill", 4, 74 13 50 10
button "Tamam" 15, 65 158 56 15, size
text "ßy uMuT", 16, 7 159 51 8, center
box "Bad Nickler", 8, 6 46 125 107
radio "qline", 9, 74 29 50 10
edit "", 10, 11 56 57 14
list 11, 12 75 56 72, size
button "Ekle" 12, 77 56 47 14, size
button "Sil" 13, 77 80 47 14, size
}

alias badnick { var %_ = 1 | while $read(badnick.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }

on *:join:#: {
if (%bad == 1) {
if $badnick($nick) {
if ($me isop $chan) && (%badban == 1) { .ban -k # $nick Badnick! }
if (%badkill == 1) { .kill $nick Badnick! }
if (%badakill == 1) { .ak $nick Badnick! }
if (%badqline == 1) { .qline $nick 14Bu 5Nickin 14Kullanılması 5Yasaklanmıştır.. }
}
}
}
on *:nick:{ if $badnick($newnick) { var %_ = 1, %d = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %d | kick $v2 $newnick kötü nick: %d } | inc %_ } } }
on *:dialog:bdnick:init:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 11 badnick.txt }
if (%badban == 1) { .did -c $dname 2 }
if (%badkill == 1) { .did -c $dname 3 }
if (%badakill == 1) { .did -c $dname 4 }
if (%badqline == 1) { .did -c $dname 9 }
}
on *:dialog:bdnick:sclick:*: {
if ($did == 12) { write badnick.txt $did(10) | did -a $dname 11 $did(10) | did -r $dname 10 }
if ($did == 13) { write -dl $+ $did(11).sel badnick.txt | did -d $dname 11 $did(11).sel }
if ($did == 15) { .timer 1 0 .xxb }
if ($did == 4) { if ($did(4).state == 1) { .set %badakill 1 | .unset %badkill | .unset %badban | .unset %badqline } | else { .unset %badakill 0 } }
if ($did == 3) { if ($did(3).state == 1) { .set %badkill 1 | .unset %badakill | .unset %badban | .unset %badqline } | else { .unset %badkill 0 } }
if ($did == 2) { if ($did(2).state == 1) { .set %badban 1 | .unset %badkill | .unset %badakill | .unset %badqline } | else { .unset %badban 0 } }
if ($did == 9) { if ($did(9).state == 1) { .set %badqline 1 | .unset %badkill | .unset %badakill | .unset %badban } | else { .unset %badqline 0 } }
}
menu * {
BadNickKoruma:/bdnick
}

 

Çevrimdışı

Hımm evet bu diyalogu ben yapmıştım. Saten opa cıkmadan kill akill ve qline atıyor. Senin istegin opa cıkmadan ban atmakmıdır ?

 

Çevrimdışı

if ($me isop $chan) && (%badban == 1) { .ban -k # $nick Badnick! }
olan satiri
.ban -k # $nick Badnick!
olarak degistir

 

Çevrimdışı

güzel