package require http

;# scriptin kullanılacağı kanal:
 set nbachan "#bitturk"
 
 ;# kaç satır listelensin:
 set satr "6"
 
 ;# komutu kullanma yetkileri:
 set nbaflags "-|-"
 
 ;# komut/trigger işareti/sembolü ne olsun:
 set semb "."
 
 ;# komutu ne olacak:
 set kmt "nba"
 
 bind pub $::nbaflags $::semb$::kmt nba:stream
 
 proc nba:stream {nick uhost hand chan arg} {  
   ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
   set url [::http::geturl "http://nbaliveonline.tv/streaming/" -timeout 60000]
   set data [::http::data $url]
   ::http::cleanup $url
   set x "WATCH NBA TV / ESPN"
   set i 0
   puthelp "privmsg $chan :\00304NBA\003 maçları / \00304Yayın\003 akışları listeleniyor..."
   foreach line [split $data "\n"] {
     while {$i < [expr {$::satr - 1}] && [regexp -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line g a b e]} {
      regexp -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line g a b e
      regsub -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line "" line
        set e [string map -nocase {
      "Jan" "Ocak" "Feb" "Şubat" "Mar" "Mart" "Apr" "Nisan" 
      "May" "Mayıs" "Jun" "Haziran" "Jul" "Temmuz" "Aug" "Ağustos" 
      "Sep" "Eylül" "Oct" "Ekim" "Nov" "Kasım" "Dec" "Aralık"} [join $e]]
      if {[regexp $b $x]} {
      puthelp "privmsg $::nbachan :\00306$b\003 \00309|\003 \037\00312$a\037\003"
      } else {
      puthelp "privmsg $::nbachan :\00306$e\003 \00309|\003 \00304$b\003 \00309|\003 \037\00312$a\037\003"
      incr i
      }
    }
  }
}

putlog "ok..."