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