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- } }