Contratar seguro de vida barato no es exactamente lo mejor para ti. Antes de comprar un seguro de vida, debe de considerar algo importa...
Categories
viernes, 19 de abril de 2013
Suscribirse a:
Comentarios (Atom)
;==========================================
; EXTRACCION DE HOROSCOPO
;==========================================
on *:Text:*!horoscopo*:#: {
if ( $2 == $null ) { .notice $nick La forma Correcta de usarlo es !horoscopo | return }
if ( $istok(Aries.Tauro.Geminis.Cancer.Leo.Virgo.Libra.Escorpio.Sagitario.Capricornio.Acuario.Piscis,$2,46) == $false ) {
.notice $nick $nick el signo no es valido
return
}
dihoroscopo $2
Msg $chan 4Signo $2 - $fechita
}
alias dihoroscopo {
sockclose horo
set %horochan $chan
set %signo $1
set %horoscopo.w off
sockopen horo www.horo-scopo.es 80
}
on 1:sockopen:horo: {
sockwrite -tn $sockname GET /webmasters/horoscopo/horoscopo-de-hoy.php?signo= $+ %signo HTTP/1.0
sockwrite -tn $sockname Accept: *.*, *\/*
sockwrite -tn $sockname Range: bytes=0-
sockwrite -tn $sockname Host: www.horo-scopo.es
;sockwrite -tn $sockname Connection: close
sockwrite -tn $sockname $crlf
}
on 1:sockread:horo:{
if ( $sockerr > 0 ) { return }
:releesock
sockread %horoscopo
if ( $sockbr == 0 ) { return }
if ( %horoscopo == $null ) { goto releesock }
if ( $len(%horoscopo) > 900 ) { %horoscopo = $left(%horoscopo,899) }
if (