Foro IRcap

buenas,joikervg el bot que pides lo tienes para descargar en google. se llama manbot

Hola,queria saber si me pueden ayudar con este codigo que no me suelta las noticias ,las noticias son sacadas de rtve.es On *:CONNECT:{
  joinall
  timernt 0 05 nt
}
on *:sockopen:nt:{
  var %o sockwrite -tn $sockname
  %o GET /rss/temas_tiempo.xml HTTP/1.0
  %o Host: www.rtve.es
  ;%o User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko)
  %o Connection: Keep-Alive
  %o $crlf
}
on *:sockread:nt:{
  sockread -f %nt
  if <item> isin %nt {

    set %item si
  }
  if <title> isin %nt && %item == si {
    set %titulo $xmltag(%nt,title)
    set %title si
    halt
  }

  if <description> isin %nt && %title == si {
    set %description  $sinhtml($xmltag($remove($unicode($xmltag(%nt,description)),<em>),li))
    if %ult != %titulo {   
      .amsg 2T1iempo   4[2R1tve4]  1 $utf8(%titulo)  $+ $utf8($iif(%description, |2 %description)) 
      set %ult %titulo
    }
    if %ult == %titulo {
      unset %item
      unset %title 
      unset %description
      unset %titulo
      unset %nnt
      sockclose $sockname
      halt
    }
    unset %item
    unset %title 
    unset %description
    unset %titulo
    unset %nnt
    sockclose $sockname
    halt
  }
}


on *:sockclose:nt:{
  unset %item %title %titulo %descripcion %titulo %nnt
  unset %nnt
}
alias nospam {
  set -u0 %x $nospam2($1)
  return $remove(%x,http://,http,www.,.com,.org,.net,.es,.ve,&lt,&amp;,#309,:,;p,&gt,;;a,;p&gt;;a,width=130,&lt;/p&gt;&lt;br clear="all"/&gt;,item,title)
}
alias nospam2 {
  return $1
  var %a 1
  while %a <= $numtok($1,32) {
    set -u0 %o %o $gettok($1,%a,32)
    if href= !isin  $gettok($1,%a,32)  http://*.* !iswm $gettok($1,%a,32) && $count($gettok($1,%a,32),/) < 1 if &lt !isin %o && align= !isin %o && heigh !isin %o && border="0" !isin %o && width= !isin %o &&  :p& !isin %o { 
      set -u0 %ns %ns $gettok($1,%a,32)
    }
    inc %a
  }
  return %ns
}
alias xmltag { var %a = $pos($1,< $+ $2) , %b = $pos($1,</ $+ $2 $+ >) , %c = $pos($1,< $+ $2 $+ />) | if (%c) { return } | else { return $gettok($mid($1,%a,$calc(%b - %a)),2,62) } }
alias nt {
  if $sock(nt) { sockclose nt }
  sockopen nt www.rtve.es 80
}
alias utf8 { return $replace($remove($1-,Â),á,á,ó,ó,ú,ú,í,í,é,é,ñ,ñ,Ó,Ó,ç,ç,Á,Á,ü,ü,Ú,Ú,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,&quot;,",&ntilde;,ñ,&ordf;,ª,&ccedil;,ç,&ldquo;,«,&rdquo;,»,&iexcl;,¡,ñ,ñ,&ordm;,º,&uuml;,ü,ú,ú,á,á) }
alias unicode { return $replace($1,&lt;,<,&gt;,>,&amp;,&,&quot;,",&aacute;,á,&agrave;,à,&eacute;,é,&egrave;,è,&iacute;,í,&igrave;,ì,&oacute;,ó,&ograve;,ò,&uacute;,ú,&ugrave;,ù,&auml;,ä,&acirc;,â,&euml;,ë,&ecirc;,ê,&iuml;,ï,&icirc;,î,&ouml;,ö,&ocirc;,ô,&uuml;,ü,&ucirc;,û,&aring;,å,&atilde;,ã,&ccedil;,ç,&ntilde;,ñ,&Yacute;,Ý,&otilde;,õ,&yacute;,ý,&Oslash;,Ø,&yuml;,ÿ,&oslash;,ø,&THORN;,Þ,&ETH;,Ð,&thorn;,þ,&eth;,ð,&AElig;,Æ,&szlig;,ß,&aelig;,æ,&frac14;,¼,&nbsp;,$chr(32),&frac12;,½,&iexcl;,¡,&frac34;,¾,&pound;,£,&copy;,©,&yen;,¥,&reg;,®,&sect;,§,&ordf;,ª,&curren;,¤,&sup2;,²,&brvbar;,¦,&macr;,¯,&not;,¬,&laquo;,«,&acute;,´,&uml;,¨,&raquo;,»,&cedil;,¸,&iquest;,¿) }
alias sinhtml {
  var %a =  $+ $1- $+ 
  if (< !isin $gettok(%a,1,62)) { if (> isin %a) %a =  $+ $gettok(%a,2-,62) }
  :L1 | if (*<*>* iswm %a) { %a = $gettok(%a,1,60) $+ $gettok(%a,2-,62) | goto L1 }
  return $replace($remove($gettok(%a,1,60),),&nbsp;,$chr(32))
}

hola bien facil como usar una vpn si usas ircap sepas q deja un registro aunq uses la vpn asi q borralo jajajajaajj

Post viejo pero te voy a responder por si lo necesitas todavía.

;Si quieres que funcione para todos los canales usas "on *:JOIN:*:{" si quieres un canal especifico usas "on *:JOIN:#AquiTuCanal:{"
on *:JOIN:*:{
  ctcp $nick VERSION
}

on *:CTCPREPLY:*:{
  if (lightIRC 1.3.2 Build 135 isin $1-) && ($me isop $chan) {
    ;Si quieres que funcione para todos los canales usas "mode $chan +v $nick" si quieres un canal especifico usas "mode #AquiTuCanal +v $nick"
    mode $chan +v $nick
  }
}

Cabe aclarar que si es un canal con demasiadas entradas y salidas de usuarios te puede ocasionar caída por flood.

Ya ha pasado casi un año pero ahí te va y no expulsas a la ip, expulsas al nick y baneas a la ip.

on *:JOIN:#:{
  if (palabra1 isin $nick) || (palabra2 isin $nick)  || (palabra3 isin $nick)  || (palabra4 isin $nick)  || (palabra5 isin $nick) {
    if ($me isop $chan {
      ;Te dejo los diferentes tipos de ban y tu eliges el que quieras usar, el que mencionas a la *!*@IP es el metodo $address($nick,2)
      ;Banea *!ident@host.dominio
      mode $chan +b $address($nick,0)
      ;Banea *!*ident@host.dominio
      mode $chan +b $address($nick,1)
      ;Banea *!*@host.dominio
      mode $chan +b $address($nick,2)
      ;Banea *!*ident@host.dominio
      mode $chan +b $address($nick,3)
      ;Banea *!*@host.dominio
      mode $chan +b $address($nick,4)
      ;Banea nick!ident@host.dominio
      mode $chan +b $address($nick,5)
      ;Banea nick!*ident@host.dominio
      mode $chan +b $address($nick,6)
      ;Banea nick!*@host.dominio
      mode $chan +b $address($nick,7)
      ;Banea nick!*ident@host.dominio
      mode $chan +b $address($nick,8)
      ;Banea nick!*@host.dominio
      mode $chan +b $address($nick,9)
      kick $chan $nick Aquí va tu mensaje.
    }
  }
}