on *:text:*:#parejas,#cornudos: {
  var %pedofilo $lower($nick)
  var %antipedofilos $strip($1-)
  alias antipedofilos {
    set %antipedofilos_n1 1
    goto antipedofilos1
    :antipedofilos1 {
      if $gettok($read(addons/chatzona/pedofilos/antipedofilos_excluir.txt,%antipedofilos_n1),1,32) == %pedofilo {
        unset %antipedofilos_n1 | goto antipedofilos_end9
      }
      if %antipedofilos_n1 >= $lines(addons/chatzona/pedofilos/antipedofilos_excluir.txt) { goto antipedofilos_end }
    }
    inc %antipedofilos_n1
    goto antipedofilos1
    :antipedofilos_end {
      unset %antipedofilos_n1 | set %antipedofilos_n1 1 | goto antipedofilos2
    }
    :antipedofilos2 {
      if $gettok($read(addons/chatzona/pedofilos/antipedofilos_text_excluir.txt,%antipedofilos_n1),1,32) isin %antipedofilos {
        unset %antipedofilos_n1 | goto antipedofilos_end9
      }
      if %antipedofilos_n1 >= $lines(addons/chatzona/pedofilos/antipedofilos_text_excluir.txt) { goto antipedofilos_end2 }
    }
    inc %antipedofilos_n1
    goto antipedofilos2
    :antipedofilos_end2 {
      unset %antipedofilos_n1 | set %antipedofilos_n1 1 | goto antipedofilos3
    }
    :antipedofilos3 {
      if $gettok($read(addons/chatzona/pedofilos/antipedofilos1_prohibir.txt,%antipedofilos_n1),1,32) isin %antipedofilos {
        echo @killclones mato a %pedofilo en $chan por: %antipedofilos $timestamp
        msg oper dline %pedofilo $gettok($read(addons/chatzona/pedofilos/antipedofilos1_prohibir.txt,%antipedofilos_n1),2-,32)
        unset %antipedofilos_n1 | halt
      }
      if %antipedofilos_n1 >= $lines(addons/chatzona/pedofilos/antipedofilos1_prohibir.txt) { goto antipedofilos_end1 }
    }
    inc %antipedofilos_n1
    goto antipedofilos3
    :antipedofilos_end1 {
      unset %antipedofilos_n1 | goto antipedofilos_end9
    }
    :antipedofilos_end9 {
      halt
    }
  }
}