on *:join:#:{ 
  if ($me isop $chan) { 
    var %x = 1 
    while (%x <= $lines(slist.txt)) { 
      if ($read(slist.txt, %x) ison $chan) { 
        mode $chan +b $address($read(slist.txt, %x),3) 
        kick $chan $read(slist.txt, %x) $readini(listanegra.ini, $nick, lista) 
      } 
      elseif ($read(slist.txt, %x) isin $address($nick,2)) {
        mode $chan +b $address($nick,3)
        kick $chan $nick adicionado a lista negra
      }  
      inc %x
    }
  }
}
;este code faz parte de uma shitlist...so q nesse mesmo evento em algumas vezes o mesmo codigo anda
;apresentando confrontos ( bugs ) com alguns ips q nao estao na lista
;ja foi feito alguns testes e ainda nao descobri onde se encontra a parte em que causa o confronto


;a ''slist.txt'' e onde ficam armazenados todos os nicks ips prefixos ou users 
;a ''listanegra.ini'' e onde ficam os motivos sendo ''nick'' lista motivo 
;nesse arquivo ini so consegui colocar o motivo pro nick pq na hora do evento on join ele so consegue
;buscar o nick que contém no arquivo se possive queria saber como adicionar um motivo pra prefixos 
;de ip ou users q ele possa ler no evento on join