Foro IRcap

Buen dia !
soy novato en esto y quisiera saber como conectarme a un cana , que pasos a seguir ?
Gracias

Reto difícil. Los sockets son complicados cuando se utilizan para leer código html porque este suele ser cambiante y dejan inutilizado el script. El siguiente código, en el momento de escribir esto, es capaz de separar los chistes del html, pero eso no significa que en un futuro deje de hacerlo por los cambios que se produzcan en  la citada web. Ahí va:

;==========================================
; EXTRACCION DE CHISTES
;==========================================

alias x {
  unset %chiste
  set %chiste.w off
  sockopen chiste chistepordia.blogspot.mx 80
}
on 1:sockopen:chiste:{
  if ( $sockerr > 0 ) { return }
  sockwrite -tn $sockname GET /search/label/Chiste%20de%20mam%C3%A1?&max-results=10 HTTP/1.1
  sockwrite -tn $sockname Host: chistepordia.blogspot.mx:80
  sockwrite -tn $sockname Connection: close
  sockwrite -tn $sockname $crlf
}
on 1:sockread:chiste:{
  if ( $sockerr > 0 ) { return }
  :releesock
  sockread -f %chiste
  if ( $sockbr == 0 ) { return }
  if  ( %chiste == $null ) { %chiste = - }
  if  ( $len(%chiste)  > 900 ) {  %chiste =  $left(%chiste,899) }
  if ( <div class='post-body entry-content'> isin %chiste ) { set %chiste.w on | goto releesock }
  if (<div style='clear: both;'></div> isin %chiste) { set %chiste.w off }
  if ( %chiste.w == on ) {
    set %chiste $remove(%chiste,&#8212;,&#161;,<br />,&#191;)
    set %chiste $replace(%chiste,ǁ,-,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,¡,¡,Á,Á)
    set %chiste $replace(%chiste,ñ,ñ,ó,ó,á,á,í,í,ú,ú,é,é,ü,ü,©,©,&laquo;,",&raquo;,",&nbsp,$chr(32))
    echo -s %chiste 
  }
  goto releesock
}
on 1:sockclose:chiste: { return }

No ha sido fácil He tardado tres días en hacer que funcione. Saludos

Está hecha un poco "de urgencia" y de la forma más básica posible, pero como siempre digo, todo es mejorable y lo aquí indicado debe servir sólo como inicio del script definitivo. Aquí va el código:

;==========================================
;  BOT LISTA ORDENES
;==========================================

on 1:TEXT:*:#: {

  if ( $1 == !ORDENADD ) {
    if ( $nick !isop $chan ) {
      msg $chan no tienes privilegios para añadir órdenes
      return
    }

    if  ( $2 ) {
      write $mircdir $+ /test.txt $calc($lines($mircdir $+ test.txt) +1) $2-
      msg $chan Orden añadida
    }
  }

  if ( $1 == !ORDEN ) {
    msg $chan Enviando lista de órdenes
    play  $chan $mircdir $+ test.txt 1000
  }

  if ( $1 == !BORRAORDEN ) {
    if ( $nick !isop $chan ) {
      msg $chan no tienes privilegios para borrar órdenes
      return
    }
    if  ( $2 ) & ( $2 isnum ) {
      write -l $2 $mircdir $+ test.txt
      msg $chan orden $2 borrada. La lista queda así:
      play  $chan $mircdir $+ test.txt 1000
    }
  }
}

Debes usar !ORDENADD seguido de la orden, y solo funcionará si eres op en el canal.
Debes usar !ORDEN para ver listadas las órdenes guardadas en el fichero de texto.
Si usas !BORRAORDEN seguido de un número, borrará la orden de esa línea del fichero. Evidentemente hay que ser op para ejecutar este comando.

!ORDENADD y !BORRAORDEN sin parámetros no hacen nada.

Simple, pero funciona, así que.... ¡a retocar!

¿A qué te refieres con que te detectan? ¿Cuando te desconectan es una expulsión de la red?

Hay redes que no permitenn las conexiones por proxy.

Explica con más detalle lo que quieres hacer y cuál es tu problema.