##############################################################################################################
##############################################################################################################
# Horoscopo en español (basado en HoroEsp - Realizado por Joan joanlion@yahoo.es) & Modificado por
# _u2pop_ (u2pop@live.com)
#
# Cuando me encontre con este script el mismo ya no funcionaba, por lo que
# me dispuse a ponerlo en funcionamiento. Por suerte se realizaron dos
# modificaciones en el codigo fuente y con eso fue suficiente.
#
#
# Cualquier consulta me pueden encontrarme en #Republica_Dominicana o #Ayuda_irc en ChatHispano
#
# Para su funcionamiento es NECESARIO contar con http.tcl
#
##############################################################################################################
##############################################################################################################
#
# Versión del sctipt tcl
#
set shver "2.0"
##############################################################################################################
#
# Uso: !horoscopo <SignoZodiaco> (donde <SignoZodiaco> es tu signo zodiacal)
#
# También se puede utilizar /msg nickdelbot !horoscopo <SignoZodiaco>
#
# Nota: La información del hosroscopo es suministrada por HoroscopoFree.Com
#
##############################################################################################################
#Configuración:
##########
# Canales donde se permite el uso por comando al canal, son (lista separada por espacios)
set shorochans "#canal"
# Sin considerar los canales de arriba, en estos canales SOLAMENTE
# se repondera via PRIVMSG (privado) al usuario en teoria segun el HoroEsp:
set shoroquiet ""
# Tiempo de espera a obtener la URL (no cambiar):
set shtout "30000"
##############################################################################################################
package require http 2.3
bind pub - !horoscopo shoro
bind pub - .horoscopo shoro
bind pub - ?horoscopo shoro
bind pub - !signo shoro
bind pub - .signo shoro
bind pub - ?signo shoro
bind msg - !horoscopo shoromsg
bind msg - .horoscopo shoromsg
bind msg - !signo shoromsg
bind msg - .signo shoromsg
set shorochans [string tolower $shorochans]
set shoroquiet [string tolower $shoroquiet]
proc shoromsg {nick uhost hand text} {
if {![onchan $nick]} {return}
shoro $nick $uhost $hand privmsg $text
return
}
proc shoro {nick uhost hand chan text} {
set chan [string tolower $chan];
if {([lsearch -exact $::shorochans $chan] == -1) && ($chan != "privmsg")} {return}
if {([lsearch -exact $::shoroquiet $chan] != -1) || ($chan == "privmsg")} {set chan $nick}
set signs "Aries Tauro Geminis Cancer Leo Virgo Libra Escorpio Sagitario Capricornio Acuario Piscis"
set signlc [string tolower $signs]
set text [string trim [string tolower $text]]
set sign [split $text]
if {[lsearch -exact $signlc $sign] == -1} {
puthelp "NOTICE $nick :Porfavor utiliza el comando !signo <SignoZodiaco> los signos válidos son: $signs Ejemplo !horoscopo aries"
return
} else {
set shurl "http://es.horoscopofree.com/object/html/iframe-sign-$sign"
catch {set page [::http::geturl $shurl -timeout $::shtout]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
puthelp "PRIVMSG $chan :Error: No hay conexion..Intenta mas tarde."
::http::cleanup $page
return
}
if { [::http::status $page] == "timeout" } {
puthelp "PRIVMSG $chan :Error: Conexion fuera de Tiempo."
::http::cleanup $page
return
}
set html [::http::data $page]
::http::cleanup $page
set shout ""
if {[regexp {</strong>(.*?)<a href=} $html match shout]} {
set shout [string trim $shout]
regsub -all {\n} $shout {} shout
# word wrapper
set j 0
set shct 0
foreach line [split $shout \n] {
if {$line != ""} {
set len 375
set splitChr " "
set out [set cur {}]; set i 0
foreach word [split $line $splitChr] {
if {[incr i [string len $word]]>$len} {
lappend out [join $cur $splitChr]
set cur [list $word]
set i [string len $word]
incr j
} else {
lappend cur $word
}
incr i
}
lappend out [join $cur $splitChr]
foreach line2 $out {
if {$shct == 0} {
set line2 [linsert $line2 0 \002[string totitle $sign]\002:]
incr shct
if {$j >= 1} {
set line2 [linsert $line2 end \002(con't)\002]
set j [expr $j - 1]
}
} else {
set line2 [linsert $line2 0 \002([string totitle $sign] con't)\002]
if {$j >= 1} {
set line2 [linsert $line2 end \002(con't)\002]
set j [expr $j - 1]
}
}
puthelp "PRIVMSG $chan :$line2"
}
}
}
} else {
puthelp "PRIVMSG $chan :Lo siento, no puedo encontrar tu horoscopo, intentalo mas tarde!!!"
}
}
}
putlog "\002horoscopo.tcl $shver por _u2pop_ - Cargado...\002"
Apparently u2pop code this returns and cuts the horoscope. It has a disorder when it launches the horoscope. Some friend to correct the order of release in this tcl.
example: (Current horoscope with disorder)
<12@Arnold_X-P> .signo virgo
<03@Kantuta> (Virgo con't) tu pareja logra darte la calma que necesitas.
<03@Kantuta> Virgo: Hoy estarás intratable, demostrarás nerviosismo al punto que se leerá en tu cara deberás cambiar esta actitud porque quien tienes a tu alrededor reaccionará alejándose de ti. En el trabajo, te sentirás oprimido y esta situación te pondrá mucha ansiedad y miedo, tú podrás lograr todo lo que te propones no tienes nada que temer. En el amor, todo continua por el camino justo, (con't)
(the correct is)
<12@Arnold_X-P> .signo virgo
<03@Kantuta> Virgo: Hoy estarás intratable, demostrarás nerviosismo al punto que se leerá en tu cara deberás cambiar esta actitud porque quien tienes a tu alrededor reaccionará alejándose de ti. En el trabajo, te sentirás oprimido y esta situación te pondrá mucha ansiedad y miedo, tú podrás lograr todo lo que te propones no tienes nada que temer. En el amor, todo continua por el camino justo, tu pareja logra darte la calma que necesitas.
the detail is on the line 120 and 126 foreach line2 $out {
please someone help correct this crossing tcl throwing this in the horoscope we greatly appreciate it
