All pastes #413541 Raw Edit

Someone

public text v1 · immutable
#413541 ·published 2007-03-28 14:38 UTC
rendered paste body
on *:TEXT:*[*-*PRE*-*]*:#nukie: {
  var %section = $remove($strip($3),$chr(40),$chr(41))
  var %rls = $remove($5,$chr(40) $+ ,14 $+ $chr(41))
  var %grp = $gettok(%rls,2,45)
  var %tvok = XOR|LOL|2HD|FQM|RiVER|FoV|AFFiNiTY|BiA|KYR|GOTHiC|ORENJi|SFM|iNGOT|CaRaT|PiX|hV|NoTV|LOKi|DIMENSION|CTU|NBS|YesTV|MiNT|SAiNTS|SYS
  alias regtest {
    var %temp = $replace(%rls,_,.)
    var %temp = $regsubex(%temp,.S\d\dE\d\d.,.)
    var %temp = $regsubex(%temp,.20\d\d.\d\d.\d\d,.)
    var %temp = $regsubex(%temp,.19\d\d,.)
    var %temp = $regsubex(%temp,.20\d\d,.)
    var %temp = $remove(%temp,.WS,.PDTV,.HR.HDTV,.AC3.5.1,.REPACK,.HDTV,.INTERNAL,.PROPER,.INT,.XVID,.x264,.720p,.swedish,.NORWEGiAN,.DSR,.FS,.dvdrip,.rip,.divx,.dvd,.svcd,.vcd,.ntsc,.pal,.nordic,.dvdscr,.ts,.screener,.ac3)
    ;var %temp = $replace(%temp,.-,-)
    return $gettok(%temp,1,45)
  }
  if (*DVDRip* iswm %rls) { halt }
  if (*TV* iswm %section) && (%grp isin %tvok) {
    pgr Release: %rls Details: $regtest(%rls) - %grp / %section
  }
  { goto tvrage }
  alias tv {
    set %tvrage.temp %sname
    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 4Show 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-
  }
} 

}
alias pgr {
if ($window(@void.debug) == $null) { window -aE @void.debug }
aline @void.debug $1-

}
}