Syntax:
!filler animeName episodeNr
Example:
Credits for $htmlencode alias goes to Noutrious
alias htmlencode { return $regsubex($regsubex($replace($1-,&,&,<,<,>,>),/&#(\d+?);/g,$chr(\1)),/&#x([\dA-F][\dA-F]);/g,$chr($base(\1,16,10))) }
on *:TEXT:!filler*:#: {
if ($sock(animeFiller)) .sockclose animeFiller
var -g %message = msg #, %anime = $2, %episodeNr = $3
sockopen animeFiller www.animefillerlist.com 80
}
on *:input:*: {
if ($1 == !filler) {
if ($sock(animeFiller)) .sockclose animeFiller
var -g %message = msg #, %anime = $2, %episodeNr = $3
sockopen animeFiller www.animefillerlist.com 80
}
}
on *:SOCKOPEN:animeFiller: {
sockwrite -nt $sockname GET /shows/ $+ %anime HTTP/1.1
sockwrite -nt $sockname Host: www.animefillerlist.com
sockwrite $sockname $crlf
}
on *:SOCKREAD:animeFiller: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
if ($regex(%sockreader, <tr class=".*" id="eps- $+ %episodeNr $+ ">(.*)<\/tr>)) {
var %temp = $regml(1)
if ($regex(%temp, <td class="Type"><span>(.*)<\/span><\/td>)) {
var %type = $regml(1)
}
if ($regex(%temp, <a href=".*" rel=".*">(.*)<\/a>)) {
var %title = $regml(1)
}
if ($regex(%temp, <td class="Date">(.*)<\/td>)) {
var %airdate = $regml(1)
%message $+(12Episode %episodeNr Title: 4,$htmlencode(%title) 12,Type: 4,%type 12Airdate: 04,%airdate)
unset %message %episodeNr %anime
sockclose animeFiller
}
}
}
}