Code:

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 horoscopeproc 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 $dset c 0set bool 0foreach 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]"}