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