release date 26/02/2006
seems the webpage is not aviable
help me repair it
http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1286
Code: Select all
package require http
#international horoscope script 0.8 (now public) (1h 21m 20s)
#horoscope script by #@homer in irc.quakenet.org (homer^im^bett)
#easy to use just load and type !horoscope <zodiac> (without the <>)
#contact: fkhg1@web.de
#Aries (Mar. 21 - Apr. 19)
#Taurus (Apr. 20 - May 20)
#Gemini (May 21 - Jun. 21)
#Cancer (Jun. 22 - July 22)
#Leo (July 23 - Aug. 22)
#Virgo (Aug. 23 - Sep. 22)
#Libra (Sep. 23 - Oct. 23)
#Scorpio (Oct. 24 - Nov. 21)
#Sagittarius (Nov. 22 - Dec. 21)
#Capricorn (Dec. 22 - Jan. 19 )
#Aquarius (Jan. 20 - Feb. 18)
#Pisces (Feb. 19 - Mar. 20)
bind pub - !horoscope horoscope
proc horoscope { nick host hand chan text } {
set d [http::geturl http://www.astrologers-online.com/[string tolower [lindex $text 0]].php]
set r [split [http::data $d] \n]
http::cleanup $d
set c 0
set bool 0
foreach x $r {
if {($bool) && ($c < 5)} {
if {$c == 0} { set line [lindex [split $x {<|>}] 2] }
if {$c == 2} { set line [lappend line "Love: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
if {$c == 3} { set line [lappend line "Work: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
if {$c == 4} { set line [lappend line "Communication: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
incr c
}
if {$x == "</form>"} {
set bool 1
}
}
putserv "PRIVMSG $chan :[join $line]"
}
