; tvrage/w1zkid
; private\temp.mrc
alias tv {
  sockopen tvrage www.tvrage.com 80
  set -u3 %search $1-
}

on *:SOCKOPEN:tvrage: { var %s = sockwrite -tn $sockname
  var %search_r $replace(%search,$chr(32),$+(%,20)) | unset %search
  %s GET /quickinfo.php?show= $+ %search_r HTTP/1.1
  %s Host: www.tvrage.com | %s
}

on *:sockread:tvrage: { var %t,%c,%p,%n,%s,%g,%p,%o,%q,%l,%0
  sockread -f %t
  while ($sockbr) {
    sockread -f %t
    if (%t) {
      var %o = $gettok(%t,1,64),%q = $gettok(%t,2,64) | tokenize 32 %t
      if (%o == Show name) { var %s = %q }
      if (%o == Latest Episode) { var %1 = $gettok($gettok($replace(%q,^,$chr(32)),-1,32),1-2,47) 
        var %l = $gettok($replace(%q,^,$chr(32)),1,32) $+($chr(40),$gettok(%1,2,47),.,$gettok(%1,1,47),$chr(41))
      }
      if (%o == Next Episode) { var %1 = $gettok($gettok($replace(%q,^,$chr(32)),-1,32),1-2,47) 
        var %n = $gettok($replace(%q,^,$chr(32)),1,32) $+($chr(40),$gettok(%1,2,47),.,$gettok(%1,1,47),$chr(41))
      }
      if (%o == Classification) { var %c = %q }
      if (%o == Show URL) { var %0 = $gettok(%t,2,64) }
      if (%o == Country) { var %p = %q }
      if (%o == Genres) { var %g = $replace(%q,$chr(124),$chr(149)) }
      if ($1-2 == No Show) { echo -a no }
    }
  }
  sockclose $sockname
  echo -a  $+ %s 7:: %c $+ \ $+ %p 7:: Last: %l 7:: Next: %n 7:: %0
}