egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2014-02-25T01:11:19-04:00 https://forum.eggheads.org/app.php/feed/topic/19626 2014-02-25T01:11:19-04:00 2014-02-25T01:11:19-04:00 https://forum.eggheads.org/viewtopic.php?p=102609#p102609 <![CDATA[problem tcl horoscope]]>

Code: 

### GLOBALS ###set oroscopo(version) 1.5package require httphttp::config -useragent "Mozilla/1.0"### END GLOBALS ###### FLAGS ###setudef flag oroscopo### END FLAGS###### BINDS ###bind pub - !oroscopo oroscopo:requestbind msgm - * oroscopo:pvt:request### END BINDS ###### PROCS ###proc strlastpos { string char {max 0} } {        if { $max == 0} { set max [ string length $string ] }        if { [ string length $string ] <= $max } { return [ string length $string ] }        for { set i 0 } { $i < $max } { incr i } {                if { [ string index $string [ expr $max - $i ] ] == $char } {                        return [ expr $max - $i ]                }        }        return $max}proc max:privmsg:chars { target } {        return [ expr 500 - 1 - [ string length $::nick ] - 30 - [ string length $target ] - 2 ]}proc oroscopo:pvt:request { nick uhost hand arg } {        set arg [ lindex $arg 0 ]        if { [ lsearch -exact {ariete toro gemelli cancro leone vergine bilancia scorpione sagittario capricorno acquario pesci} [ string tolower $arg ] ] == -1 } { return }        regsub -all -- " " $arg "%20" args        set url "http://it.horoscopofree.com/rss/horoscopofree-it.rss"        set http [ http::geturl $url ]        set html [ http::data $http ]        set flag 0        if { [ regexp -nocase -all -- "<item>\[^<\]*<title>($arg)</title>\[^<\]*<link>\[^<\]*</link>\[^<\]*<guid \[^<\]*</guid>\[^<\]*<description><!\[^a-z\]CDATA\[^a-z\](\[^<\]*?)" $html all segno testo ] } {                set testosegno [lindex $testo [lsearch -exact $segno $args]]                set risposta "\037OROSCOPO\037 \002::\002 \037[ string toupper $args ]\037 $testo"                set flag 1        }        if { $flag == 0 } {                putserv "PRIVMSG $nick :\037OROSCOPO\037 \002::\002 \037[strupr $arg]\037 Segno zodiacale non trovato"        } else {                set max_chars [ max:privmsg:chars $nick ]                while { [ string length $risposta ] > 0 } {                        set limit [ strlastpos $risposta " " $max_chars ]                        set risptemp [ string range $risposta 0 $limit ]                        set risposta [ string range $risposta $limit end ]                        if { [ string length $risposta ] != 0 } {                                putserv "PRIVMSG $nick :$risptemp ..."                        } else {                                putserv "PRIVMSG $nick :$risptemp"                        }                }        }}proc oroscopo:request { nick uhost hand chan arg } {        if { [ lsearch -exact [ channel info $chan ] "+oroscopo" ] == -1 } { return }        putlog "OROSCOPO :: request \"!oroscopo $arg\" from $nick!$uhost on $chan"        if { $arg == "" || $arg == "help" } {                 putserv "NOTICE $nick :\037OROSCOPO\037 \002::\002 \037HELP\037 Mostra l'oroscopo per un dato segno zodiacale\037Utilizzo:\037 !oroscopo segno"                 return        }        regsub -all -- " " $arg "%20" args        set url "http://it.horoscopofree.com/rss/horoscopofree-it.rss"        set http [ http::geturl $url ]        set html [ http::data $http ]        set flag 0        if { [ regexp -nocase -all -- "<item>\[^<\]*<title>($arg)</title>\[^<\]*<link>\[^<\]*</link>\[^<\]*<guid \[^<\]*</guid>\[^<\]*<description><!\[^a-z\]CDATA\[^a-z\](\[^<\]*?)" $html all segno testo ] } {                set testosegno [lindex $testo [lsearch -exact $segno $args]]                set risposta "\037OROSCOPO\037 \002::\002 \037[ string toupper $args ]\037 $testo"                set flag 1        }        if { $flag == 0 } {                putserv "PRIVMSG $chan :\037OROSCOPO\037 \002::\002 \037[strupr $arg]\037 Segno zodiacale non trovato"        } else {                set max_chars [ max:privmsg:chars $chan ]                while { [ string length $risposta ] > 0 } {                        set limit [ strlastpos $risposta " " $max_chars ]                        set risptemp [ string range $risposta 0 $limit ]                        set risposta [ string range $risposta $limit end ]                        if { [ string length $risposta ] != 0 } {                                putserv "PRIVMSG $chan :$risptemp ..."                        } else {                                putserv "PRIVMSG $chan :$risptemp"                        }                }        }}### END PROCS ###
The problem is that the tcl show bad hyphenated words. Can you help me? I don't know where to fix. please. Thank you.

Statistics: Posted by Kaa — Tue Feb 25, 2014 1:11 am

]]>