#whoiscns off
raw 319:*: {
  .haltdef
  var %jnk 1
  while $ulist(*,badkanal,%jnk) {
    if $ifmatch isin $remove($3-,:,+,%,@,&,~,.) { 
      ban -k %channels $2 2 Dışarı..
    }
    inc %jnk 
  }
}
#whoiscns end
on *:input:#:{
  if $1 == !cinseltara && $me isop $active {
    set %channels $chan
    .enable #whoiscns
    .timer 1 15 .disable #whoiscns $(|) unset %channels
    var %cnk 1
    while %cnk <= $nick($chan,0) {
      if $me != $nick($chan,%cnk) { whois $nick($chan,%cnk) }
      inc %cnk
    }
  }
}