on *:TEXT:!tv *:#TearDrop-CreW,#SiC,#TearDrop-Chat:{
  ;if (%aflood. [ $+ [ $nick ] ]) { halt }
  set -u5 %aflood. [ $+ [ $nick ] ] 1
  if (!$2) { msg # Syntax: .tvrage [--info[=item]] <show> | return }
  tvrage # $iif(*-info=* iswm $2 && $3,$replace($3-,$chr(32),$chr(43)) $2,$replace($2-,$chr(32),$chr(43)))
}
on *:INPUT:#TearDrop-CreW,#SiC:{
  if (!tv isin $1 && $2 != $null) {
    if (!$2) { msg # Syntax: .tvrage [--info[=item]] <show> | return }
    tvrage # $iif(*-info=* iswm $2 && $3,$replace($3-,$chr(32),$chr(43)) $2,$replace($2-,$chr(32),$chr(43)))
} }
alias tvrage {
  sockclose tvrage
  sockopen tvrage services.tvrage.com 80
  sockmark tvrage $1 $+(/tools/quickinfo.php?show=,$2) $iif($3,$3,)
}
on 1:SOCKOPEN:tvrage:{
  if (!$sockerr) {
    sockwrite -n tvrage GET $gettok($sock(tvrage).mark,2,32) HTTP/1.0
    sockwrite -n tvrage Host: services.tvrage.com
    sockwrite -n tvrage $crlf
  }
  else {
    msg $gettok($sock($sockname).mark,1,32)) TVRage services are overloaded right now, pls. try again later.
  }
}
on 1:SOCKREAD:tvrage:{
  var %tvrage.source | sockread %tvrage.source
  if ($regex(%tvrage.source,/Show Name@(.*)/)) { set %tvrage.show $regml(1) }
  if ($regex(%tvrage.source,/Show URL@(.*)/)) { set %tvrage.url $regml(1) }
  if ($regex(%tvrage.source,/Premiered@(.*)/)) { set %tvrage.premiered $regml(1) }
  if ($regex(%tvrage.source,/Started@(.*)/)) { set %tvrage.started $regml(1) }
  if ($regex(%tvrage.source,/Ended@(.*)/)) { set %tvrage.ended $regml(1) }
  if ($regex(%tvrage.source,/Latest Episode@(.*)/)) { set %tvrage.last $regml(1) }
  if ($regex(%tvrage.source,/Next Episode@(.*)/)) { set %tvrage.next $regml(1) }
  if ($regex(%tvrage.source,/Country@(.*)/)) { set %tvrage.country $regml(1) }
  if ($regex(%tvrage.source,/Status@(.*)/)) { set %tvrage.status $regml(1) }
  if ($regex(%tvrage.source,/Classification@(.*)/)) { set %tvrage.classification $regml(1) }
  if ($regex(%tvrage.source,/Genres@(.*)/)) { set %tvrage.genres $regml(1) }
  if ($regex(%tvrage.source,/Network@(.*)/)) { set %tvrage.network $regml(1) }
  if ($regex(%tvrage.source,/Airtime@(.*)/)) { set %tvrage.airtime $regml(1) }
  if ($regex(%tvrage.source,/Runtime@(.*)/)) { set %tvrage.runtime $regml(1) minutes }
}
on 1:SOCKCLOSE:tvrage:{
  tokenize 32 $sock(tvrage).mark
  if (!$3) {
    if (!%tvrage.next && !%tvrage.last) { msg $1 No show matching $qt($replace($gettok($2,2,61),$chr(43),$chr(32))) was found. | unset %tvrage.* | return }
    var %next.date $gettok($gettok(%tvrage.next,3,94),1,47) $iif($len($gettok($gettok(%tvrage.next,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.next,3,94),2,47)),$gettok($gettok(%tvrage.next,3,94),2,47)) $gettok($gettok(%tvrage.next,3,94),3,47)
    var %last.date $gettok($gettok(%tvrage.last,3,94),1,47) $iif($len($gettok($gettok(%tvrage.last,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.last,3,94),2,47)),$gettok($gettok(%tvrage.last,3,94),2,47)) $gettok($gettok(%tvrage.last,3,94),3,47)
    msg $1 10Show: %tvrage.show 10Network:4 %tvrage.network 
    $iif(%tvrage.last,msg $1 10Last Episode: $+(S,$replace($gettok(%tvrage.last, 1, 94),x,E)) $gettok(%tvrage.last, 2, 94) $+(%last.date),)
    $iif(%tvrage.next,msg $1 10Next Episode: $+(S,$replace($gettok(%tvrage.next, 1, 94),x,E)) $gettok(%tvrage.next, 2, 94) $+(%next.date) $iif(%tvrage.airtime, @ $airtime(%tvrage.airtime),),)
    msg $1 10Status:4 %tvrage.status 10URL:4 %tvrage.url $+ 
  }
  elseif (*-info=* iswm $3) {
    noop $regex($3,/info=(.*)/) | var %tvrage.info $regml(1)
    var %i 1, %x $numtok(%tvrage.info,44), %y
    while (%x >= %i) {
      if ($regex($gettok(%tvrage.info,%i,44),/(url|premiered|started|ended|last|next|country|status|classification|genres|network|airtime|runtime)/)) {
        var %y %y $ucfirst($gettok(%tvrage.info,%i,44)) $+ : ( $iif(%tvrage. [ $+ [ $gettok(%tvrage.info,%i,44) ] ],$v1,N/A) )
      }
      inc %i
    }
    msg $1 10 $+ %tvrage.show $+ : %y
  }
  unset %tvrage.*
}
alias airtime { if ($isid) { return $regsubex($1,/.* at (\d{2}:\d{2}) (\w{2})/, \1\2) } }