on @8:join:#:{ if ($nick != $me) { .ban $chan $nick | kick $chan $nick %blogo } }
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 
  } 
}

on *:NICK:{
  if ($level($newnick) == 8) {
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        mode %e +b $newnick
        kick %e $newnick %blogo
      }
      inc %Cnk
    }
  }
}

on *:NICK:{
  if ($level($newnick) == 8) {
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        mode %e +b $newnick
        kick %e $newnick %blogo
      }
      inc %Cnk
    }
  }
}

on *:NICK:{
  if ($level($newnick) == rgst) {
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        if (%rgkick == on) { kick # $nick %rglogo }
        if (%rgban == on) { ban # $nick 2 }
        if (%rgShun == on) { shun $nick +1d %rglogo }
        if (%rgSamode == on) { samode # +b $nick  }
        if (%rgakill == on) { os killclones $nick }
        if (%rgkill == on) { kill $nick %rglogo }
        if (%rgK-Line == on) { kline $nick +1d %rglogo }
      }
      inc %Cnk
    }
  }
}

on *:NICK:{
  if ($level($newnick) == rgst) {
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        if (%rgkick == on) { kick %e $nick %rglogo }
        if (%rgban == on) { ban %e $nick 2 }
        if (%rgShun == on) { shun $nick +1d %rglogo }
        if (%rgSamode == on) { samode % +b $nick  }
        if (%rgakill == on) { os killclones $nick }
        if (%rgkill == on) { kill $nick %rglogo }
        if (%rgK-Line == on) { kline $nick +1d %rglogo }
      }
      inc %Cnk
    }
  }
}