on *:NICK:{
  if ($level($newnick) == 8) {
    if (%bShun == on) { shun $newnick +1d %blogo }
    if (%bkill == on) { kill $newnick %blogo }
    if (%bakill == on) { os killclones $newnick }
    if (%bK-Line == on) { kline $newnick +1d %blogo }
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        if (%bkick == on) { kick %e $newnick %blogo }
        if (%bban == on) { ban %e $newnick 2 }
        if (%bSamode == on) { samode %e +b $newnick  }
      }
      inc %Cnk
    }
  }
}
on @8:join:#:{ 
  if (%bkick == on) { kick # $nick %blogo }
  if (%bban == on) { ban # $nick }
  if (%bShun == on) { shun $nick +1d %blogo }
  if (%bSamode == on) { samode # +b $nick  }
  if (%bakill == on) { os killclones $nick }
  if (%bkill == on) { kill $nick %blogo }
  if (%bK-Line == on) { kline $nick +1d %blogo }
}
dialog baddn {
  title "Karadeniz TEAM"
  size -1 -1 151 82
  option dbu
  box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79
  combo 2, 89 10 57 53, size
  button "Ekle", 3, 89 69 25 9
  button "Sil", 4, 122 69 25 9
  box "", 6, 88 65 28 15
  check " K-Line ", 8, 56 37 27 10
  check " KiLL", 9, 56 27 21 10
  edit "", 10, 9936 30 23 12, disable
  text "Saniye", 11, 562 32 21 8, disable
  box "Ayir", 12, 3 2 82 18
  box "Badnick Ceza", 112, 2 20 83 40
  check "@plar", 13, 5 8 34 10
  check "+v", 14, 47 8 30 10
  check " AKiLL", 7, 56 47 27 10
  check " Kick", 15, 5 37 21 10
  check " Ban", 16, 5 27 21 10
  check " Shun", 17, 29 36 26 10
  check "Samode +b", 18, 5 47 40 10
  box "", 5, 121 65 28 15
  icon 19, 3 65 80 14,  usr\avatar\WeiL.jpg, 0
  box "", 20, 2 59 83 22
}

alias baddn { .dialog -m baddn baddn }
on *:dialog:baddn:init:*:{
  if %b@plar == on { did -c $dname 13 }
  if %b+v == on  { did -c $dname 14 }
  if %bK-Line == on { did -c $dname 8 }
  if %bkill == on { did -c $dname 9 } 
  if %bakill == on { did -c $dname 7 }
  if %bShun == on { did -c $dname 17 }
  if %bban == on { did -c $dname 16 }
  if %bKick == on  { did -c $dname 15 }
  if %bSamode == on { did -c $dname 18 }
  did -a $dname 10 %banvaxt
  if ($ulist(*,8,0) != $null) {  var %i = 1 | while $ulist(*,8,%i) { did -a $dname 2 $v1 | inc %i  } } 
}
on *:dialog:baddn:sclick:*:{
  if $istok(7 8 9 13 14 15 16 17 18,$did,32) {  $iif($did($did).state == 1,set %b $+ $gettok($did($did).text,1,32) on,.set %b $+ $gettok($did($did).text,1,32) off) }
  if ($did == 3) {  if ($did(2) != $null) { did -a $dname 2 $did(2) |  .auser 8 $did(2)  } }
  if ($did == 4) { if $did(2).seltext { .ruser 8 $did(2).seltext | did -d $dname 2 $did(2).sel } }
}
on *:dialog:baddn:edit:*:{
  %banvaxt = $did(10)
}

on 1:text:*:#: {
  if ($nick isop #) && (%@plar == on) { return }
  if ($nick isvo #) && (%+v == on) { return }
  kfur $1-
}

alias kfur {
  var %x $strip($1-) , %i $numtok(%soyush,444)
  while (%i) {
    if ($gettok(%soyush,%i,444) iswm %x) || ($gettok(%soyush,%i,444) isin %x) {
      if (%kick == on) { kick # $nick %kfurlogo }
      if (%ban == on) { ban # $nick 2 }
      if (%shun == on) { shun $nick +1d %kfurlogo }
      if (%samode == on) { samode # +b $nick }
      if (%akill == on) { os killclones $nick }
      if (%kill == on) { kill $nick %kfurlogo }
      if (%K-Line == on) { kline $nick +1d %kfurlogo }
      return
    }
    dec %i
  }
}

dialog kfur {
  title "Karadeniz TeaM"
  size -1 -1 151 82
  option dbu
  box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79
  combo 2, 89 10 57 53, size
  button "Ekle", 3, 89 69 25 9
  button "Sil", 4, 122 69 25 9
  box "", 6, 88 65 28 15
  check " K-Line ", 8, 56 37 27 10
  check " KiLL", 9, 56 27 21 10
  edit "", 10, 9936 30 23 12, disable
  text "Saniye", 11, 562 32 21 8, disable
  box "Ayir", 12, 3 2 82 18
  box "Küfür Ceza", 112, 2 20 83 40
  check "@plar", 13, 5 8 34 10
  check "+v", 14, 47 8 30 10
  check " AKiLL", 7, 56 47 27 10
  check " Kick", 15, 5 37 21 10
  check " Ban", 16, 5 27 21 10
  check " Shun", 17, 29 36 26 10
  check "Samode +b", 18, 5 47 40 10
  box "", 5, 121 65 28 15
  icon 19, 3 65 80 14, usr\avatar\WeiL.jpg, 0
  box "", 20, 2 59 83 22
}

alias kfur { .dialog -m kfur kfur }
on *:dialog:kfur:init:*:{
  if %@plar == on { did -c $dname 13 }
  if %+v == on { did -c $dname 14 }
  if %K-Line == on { did -c $dname 8 }
  if %KiLL == on { did -c $dname 9 } 
  if %AKiLL == on { did -c $dname 7 }
  if %Shun == on { did -c $dname 17 }
  if %Ban == on { did -c $dname 16 }
  if %Kick == on { did -c $dname 15 }
  if %Samode == on { did -c $dname 18 }
  if (%soyush) didtok $dname 2 444 $ifmatch
  did -a $dname 10 %banvaxt
}
on *:dialog:kfur:sclick:*:{
  if $istok(7 8 9 13 14 15 16 17 18,$did,32) { var %d = % $+ | $iif($did($did).state == 1,set % $+ $gettok($did($did).text,1,32) on,.set % $+ $gettok($did($did).text,1,32) off) }
  if ($did == 3) { if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,444)) { .set %soyush $addtok(%soyush,%artir,444) | did -a $dname 2 %artir } } }
  if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,444) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
}
on *:dialog:kfur:edit:*:{ %banvaxt = $did(10) }