/*
+--------------------------------------------------------------
| TV Rage v1.0 - by FamilyGuy
+--------------------------------------------------------------
| This is a script written for the IRC client mIRC, and is
| primarily ment for using on a mIRC based bot.
+--------------------------------------------------------------
*/
#tvrage on
on 1:TEXT:!tvrage *:#:{
  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)))
}
#tvrage end
alias tvrage {
  sockopen tvrage services.tvrage.com 80
  sockmark tvrage $1 $+(/tools/quickinfo.php?show=,$2) $iif($3,$3,)
}

on 1:SOCKOPEN:tvrage:{
  sockwrite -n $sockname GET $gettok($sock(tvrage).mark,2,32) HTTP/1.0
  sockwrite -n $sockname Host: services.tvrage.com
  sockwrite -n $sockname $crlf
}

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: %tvrage.network
    $iif(%tvrage.last,.msg $1 10Last Episode: $+($chr(40),S:,$replace($gettok(%tvrage.last, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.last, 2, 94) $+($chr(40),%last.date,$chr(41)),)
    $iif(%tvrage.next,.msg $1 10Next Episode: $+($chr(40),S:,$replace($gettok(%tvrage.next, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.next, 2, 94) $+($chr(40),%next.date,$chr(41)) $iif(%tvrage.airtime, @ $airtime(%tvrage.airtime),),)
    .msg $1 10Status: %tvrage.status 10URL:  $+ %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) } }

on $*:text:/[@!.]rage */Si:#: {
  if ($left($1-,1) == @) {
    msg $chan Use Commands As !tvrage (Search) I.E !tvrage House.

  }
  else .notice $nick Use Command as !tvrage (Search) I.E !tvrage House.