on *:text:*:#kontrol: {
  if !badekle isin $1 {
    .auser bad $2
    .msg # $2 Listeye Eklenmiştir
  }
  if !badsil isin $1 {
    .ruser bad $2
    .msg # $2 Liste'den Silinmiştir
  }
  if !badlist isin $1 {
    var %s 1 
    while (%s <= $ulist(*,bad,0)) {
      msg # $ulist(*,bad,%s)
      inc %s
    } 
  }
}

on bad:join:#:mode $chan +b $nick | kick $chan $nick sebep...