PreDB.org mIRC Announcer

;;;; OrFeAsGr - http://humanity.ucoz.com - http://orpheusgr.tk ;;;;
on *:TEXT:*:#:{
  if (!predb == $1) {
    if ($timer(predb).secs) {
      .timerpredb off
      .msg #warezhouse Pre Announce Stopped.
    }
    elseif (!$timer(predb).secs) {
      .timer 1 3 sockopen -e predb predb.org 443
      .timerpredb 0 60 sockopen -e predb predb.org 443
      .msg #warezhouse Pre Announce Started.
    }
  }
}

on *:SOCKOPEN:predb: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: predb.org
  sockwrite $sockname $crlf
}

on *:SOCKREAD:predb: {
  var %predb
  sockread %predb
  ;echo -at %predb
  if (*tr class="post" id=* iswm %predb) {
    var %id = $gettok(%predb,4,34)
    if (!%lastid) || (%lastid != %id) { set %lastid %id }
    elseif (%lastid == %id) { sockclose $sockname }
  }
  if (*td class="pretime"* iswm %predb) { set %pretime $gettok($gettok(%predb,2,62),1,60) }
  if (*td class="cat"* iswm %predb) { set %precatl $+(www.predb.org,$gettok(%predb,4,34)) | set %precat $gettok(%predb,6,34) }
  if (*td class="grp"* iswm %predb) { set %pregrpl $+(www.predb.org,$gettok(%predb,4,34)) | set %pregrp $gettok(%predb,6,34) }
  if (*td class="rls"* iswm %predb) {
    set %prerls $gettok(%predb,6,34)
    sockclose $sockname
    msg #warezhouse %pretime Ago. Category: %precatl %precat Group: %pregrpl %pregrp Title: %prerls
  }
}
;;;; OrFeAsGr - http://humanity.ucoz.com - http://orpheusgr.tk ;;;;