alias tv { %tv.a = 1 | sockopen tv yle.fi 80 }
on *:text:!tv:#:{ 
  if (!%aika) { set %aika $ctime }
  if ($calc($ctime - %aika) >= 1800) {
    var %tv.c = # 
    sockopen tv yle.fi 80
    set %aika $ctime
  }
  else {
    inc %aika.1
    if (%aika.1 > 10) {
      msg # $nick $+ : Älä floodaa!
      set %aika 0
    }
  }
}
on *:sockopen:tv:{ 
  sockwrite -n $sockname GET /ohjelmaopas/index.php?&co[]=tv1&co[]=tv2&co[]=mtv&co[]=nel&co[]=sub HTTP/1.1
  sockwrite -n $sockname Host: yle.fi
  sockwrite -n $sockname
}
on *:sockread:tv:{
  if ($sockerr) { echo -est Socket virhe skriptissä: !tv | halt }
  sockread %tv.t
  if (%tv.x) {
    if (#b8b isin %tv.t) { %tv.q = $left($gettok(%tv.t,4,62),-3) $left($gettok(%tv.t,$iif(href isin %tv.t,11,10),62),-3) }
    if (top isin %tv.t && #b8b !isin %tv.t) { %tv.q = %tv.q $iif(%tv.q,$chr(47)) $left($gettok(%tv.t,4,62),-3) $left($gettok(%tv.t,$iif(href isin  %tv.t,10,9),62),$iif(href isin %tv.t,-3,-4)) }
    if (/tab isin %tv.t || $numtok(%tv.q,47) > 2) {
      $iif(%tv.a,echo -at * ,msg) %tv.c %tv.x $+ : $iif(%tv.q,%tv.q,ei ohjelmaa.)
      if (%tv.x == Subtv) { unset %tv.* | sockclose $sockname | halt }
      unset %tv.q %tv.x
    }
  }
  if (b>TV1</ isin %tv.t) { set %tv.x TV1 }
  if (b>TV2</ isin %tv.t) { set %tv.x TV2 }
  if (b>MTV3</ isin %tv.t) { set %tv.x MTV3 }
  if (b>Nelonen</ isin %tv.t) { set %tv.x Nelonen }
  if (b>Subtv</ isin %tv.t) { set %tv.x Subtv }
}