Code:

set url "www.pilkanozna.pl" proc get_news {nick uhost handle channel text} { global url set sock [socket $url 80] fconfigure $sock -buffering line -buffersize 1000 puts $sock "GET /pn.php?dzial=online HTTP/1.0" puts $sock "Host: www.pilkanozna.pl" puts $sock "" puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; WindowsNT 5.0)" flush $sock while {![eof $sock]} { gets $sock body regexp -all {<td align=right>(.*?)</td>} $body _ team1 regexp -all {<td align=center>(.*?)</td>} $body _ result regexp -all {<td align=left>(.*?)</td>} $body _ team2}if {[eof $sock]} { close $sock } regsub -all {(<.+?>)} $team1"" team1 regsub -all {(<.+?>)} $result"" result regsub -all {(<.+?>)} $team2"" team2 puthelp "PRIVMSG $channel :[lindex $team1][lindex $result][lindex $team2]"}bind pub - !score get_news