Anonymous

alias tv {
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen tvrage http://www.tvrage.com 80
}
on *:sockopen:tvrage:{
  sockwrite -n $sockname GET http://www.tvrage.com/quickinfo.php?show= $+ %tvrage.temp
}
on *:sockread:tvrage:{
  if ($sockerr) {
    echo -a Error opening tvrage socket.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    window @tvrage
    tv_rage $replace($replace(%temptext,@,$chr(32)),^,$chr(32))
  }
}
alias tv_rage {
  if (No Show == $1-2) {
    aline -ap @tvrage No show information found.
  }
  if (Show Name == $1-2) {
    aline -ap @tvrage Show Name: $3-
  }
  if (Show URL == $1-2) {
    aline -ap @tvrage Show URL: $3-
  }
  if (Premiered == $1) {
    aline -ap @tvrage Premiered: $2
  }
  if (Episode == $2) {
    var %ep $3
    var %date $gettok($1-,-1,32)
    var %name $remove($3-, $+ %ep $+ , $+ %date $+)
    if (Latest == $1) {
      aline -ap @tvrage Latest Show: %ep - %name - %date
    }
    if (Next == $1) {
      aline -ap @tvrage Next Show:  %ep - %name - %date
    }
  }
  if (Country == $1) {
    aline -ap @tvrage Country: $2-
  }
  if (Status == $1) {
    aline -ap @tvrage Status: $2-
  }
  if (Classification == $1) {
    aline -ap @tvrage Classification: $2-
  }
}