egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2016-07-14T13:43:02-04:00 https://forum.eggheads.org/app.php/feed/topic/20178 2016-07-14T13:43:02-04:00 2016-07-14T13:43:02-04:00 https://forum.eggheads.org/viewtopic.php?p=105252#p105252 <![CDATA[help with web sockets]]>
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

Statistics: Posted by Arnold_X-P — Thu Jul 14, 2016 1:43 pm

]]> 2016-07-03T04:46:45-04:00 2016-07-03T04:46:45-04:00 https://forum.eggheads.org/viewtopic.php?p=105226#p105226 <![CDATA[help with web sockets]]> u2pop tienes idea de como modificar el len =375 ?

Lo que deseo es que compare un número de caracteres, pero que no corte la oración sino encuentra un punto.

Habría que poner un comparador que si len es menor o igual que 375 y el último caracter de la oración es un punto, que pase a la segunda línea.

Alguna idea?

Statistics: Posted by juanamores — Sun Jul 03, 2016 4:46 am

]]> 2016-06-20T16:44:41-04:00 2016-06-20T16:44:41-04:00 https://forum.eggheads.org/viewtopic.php?p=105203#p105203 <![CDATA[help with web sockets]]>
Justamente ese fue el que traté de modificar y no me funcionaba ;)

Statistics: Posted by juanamores — Mon Jun 20, 2016 4:44 pm

]]> 2016-06-18T22:41:09-04:00 2016-06-18T22:41:09-04:00 https://forum.eggheads.org/viewtopic.php?p=105191#p105191 <![CDATA[Horoscopo.tcl en Español]]>

Code: 

##############################################################################################################    ##############################################################################################################    # 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"

Statistics: Posted by u2pop — Sat Jun 18, 2016 10:41 pm

]]> 2016-06-18T04:16:35-04:00 2016-06-18T04:16:35-04:00 https://forum.eggheads.org/viewtopic.php?p=105189#p105189 <![CDATA[help with web sockets]]> I need a horoscope in Spanish and I found a website that takes a lot of time online.
home page: http://www.elhoroscopodehoy.es/
signs URLs examples:
for ARIES
http://www.elhoroscopodehoy.es/horoscopo-hoy/aries.php
for TAURUS
http://www.elhoroscopodehoy.es/horoscopo-hoy/tauro.php

For each sign is added to the home page:
horoscopo-hoy/the_sign_is.php



I only began it, there are messages in spanish if you need any traslation please ask for them:

Code: 

##############################################################################################################package require http 2.3bind pub - !sign signsbind msg - !sign signsmsgset horochans [string tolower $horochans]set horopriv [string tolower $horopriv]proc signsmsg {nick uhost hand text} {if {![onchan $nick]} {return}signs $nick $uhost $hand privmsg $textreturn}proc signs {nick uhost hand chan text} {set chan [string tolower $chan];if {([lsearch -exact $::horochans $chan] == -1) && ($chan != "privmsg")} {return}if {([lsearch -exact $::horopriv $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 "PRIVMSG $chan :Por favor usa un Signo válido: $signs"return} else {set hurl"http://www.elhoroscopodehoy.es/horoscopo-hoy/$sign.php"catch {set page [::http::geturl $hurl -timeout $::urlwait]} errorif {[string match -nocase "*couldn't open socket*" $error]} {puthelp "PRIVMSG $nick :Error: No hay conexión..Intenta mas tarde"::http::cleanup $pagereturn}if { [::http::status $page] == "timeout" } {puthelp "PRIVMSG $nick :Error: Conexion fuera de Tiempo."::http::cleanup $pagereturn}set html [::http::data $page]::http::cleanup $page##########I arrived upto here..............I don't have the code to retrieve data ........#############}}

Statistics: Posted by juanamores — Sat Jun 18, 2016 4:16 am

]]>