rendered paste bodyon *: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-
}
}