Welcome Guest | RSS
Predb.org Announcer v0.6 - mIRC Land
Home | Predb.org Announcer v0.6 - mIRC Land | Sign Up | Log In
I have removed the ads. Any ads you see are by ucoz.
 
[ New messages · Members · Forum rules · Search · RSS ]
  • Page 1 of 1
  • 1
Forum moderator: Wikked  
mIRC Land » mIRC Scripts » mIRC Bot Scripts » Predb.org Announcer v0.6
Predb.org Announcer v0.6
OrFeAsGrDate: Sunday, 18/03/2018, 2:30:45 AM | Message # 1
OrFeAsGr -- http://humanity.ucoz.com --
Group: Administrators
Messages: 6
Reputation: 0
Status: Offline
Code

;;; Scripts by OrFeAsGr mirc-land.tk Support my art work: http://orfeas.tk ;;;;
;;; v0.6 18/03/2018 ;;;
;;; Code updated because of the site source code being changed (AAAGAIN) ;;;
;;; No new features ;;;
on *:TEXT:*:#:{
  if (!predb == $1) {
    if ($timer(predb).secs) {
      .timerpredb off
      .msg $predbch 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 $predbch Pre Announce Started.
    }
  }
  if (!presearch == $1) {
    unset %predbsearch
    if ($3) {
      set %predbsearch.q $3-
      if ($2 isnum 1-10) {
        set %predbsearch.page $2
      }
      elseif ($2 !isnum 1-10) { msg $chan USAGE: !presearch <page>  <search term>  (page can be a number from 1 to 10) | return }
      sockopen -e predbsearch predb.org 443
      set %predbsearch.chan $chan
      msg $chan Type !prestop to stop the results.
    }
    elseif (!$3) { msg $chan USAGE: !presearch <page>  <search term>  (page can be a number from 1 to 10) }
  }
  if (!prestop == $1) {
    .timerpredbsearch* off
    endpredb
  }
  if (!predbrecent == $1) {
    set %predbrecent.num $iif($2 isnum, $v1, 20)
    sockopen -e predbrecent predb.org 443
    set %predbrecent.chan $chan
  }
}

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

on *:SOCKOPEN:predbsearch: {
  sockwrite -nt $sockname GET $+(/search/,%predbsearch.q,/all,$iif(%predbsearch.page, $+(/page/,$v1), $null)) HTTP/1.1
  sockwrite -nt $sockname Host: predb.org
  sockwrite $sockname $crlf
}

on *:SOCKOPEN:predbrecent: {
  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 (!%predblastid) || (%predblastid != %id) { set %predblastid %id | set %pridfound 1 }
    elseif (%predblastid == %id) { sockclose $sockname }
    ;;; %predblastid is not a typo. the dot is missing on purpose :) ;;;
  }
  if (%pridfound) && (*td>*</td* iswm %predb) { unset %pridfound | set %predb.time $gettok($gettok(%predb,2,62),1,60) }
  if (*href="/cats* iswm %predb) { set %predb.catl $+(www.predb.org,$gettok(%predb,2,34)) | set %predb.cat $gettok(%predb,7,34) }
  if (*a href="/group/* iswm %predb) { set %predb.grpl $+(www.predb.org,$gettok(%predb,2,34)) | set %predb.grp $gettok(%predb,4,34) }
  if (*a href="/post/* iswm %predb) {
    set %predb.rls $gettok(%predb,4,34)
    sockclose $sockname
    msg $predbch %predb.time Ago. Category: %predb.catl $remove(%predb.cat,<,>,/a,/font,/td) Group: %predb.grpl %predb.grp Title: %predb.rls
    inc %counterpredb
    if (%counterpredb == 5000) { .timer 1 5 msg $predbch Predb.org mIRC Announcer Scripted by OrFeAsGr! mIRC Scripts & More: http://mirc-land.tk - My art work: http://orpheusgr.tk | unset %counterpredb }
    unset %predb.*
  }
}

on *:SOCKREAD:predbsearch: {
  var %predb
  sockread %predb
  if (*tr class="post" id=* iswm %predb) { set %pridfound 1 | set %predbsearch.id $gettok(%predb,4,34) }
  if (%pridfound) && (*td>*</td* iswm %predb) { unset %pridfound | set %predbsearch.time $gettok($gettok(%predb,2,62),1,60) }
  if (*href="/cats* iswm %predb) { set %predbsearch.catl $+(www.predb.org,$gettok(%predb,2,34)) | set %predbsearch.cat $gettok(%predb,7,34) }
  if (*a href="/group/* iswm %predb) { set %predbsearch.grpl $+(www.predb.org,$gettok(%predb,2,34)) | set %predbsearch.grp $gettok(%predb,4,34) }
  if (*a href="/post/* iswm %predb) {
    .timerendpredb off
    set %predbsearch.rls $gettok(%predb,4,34)
    inc %predbsearch.resc 2
    $+(.timerpredbsearch,%predbsearch.resc) 1 %predbsearch.resc msg %predbsearch.chan %predbsearch.time Ago. Category: %predbsearch.catl $remove(%predbsearch.cat,<,>,/a,/font,/td) Group: %predbsearch.grpl %predbsearch.grp Title: %predbsearch.rls $+(https://predb.org/post/,%predbsearch.id,/)
    .timerendpredb 1 5 endpredb
  }
}

on *:SOCKREAD:predbrecent: {
  var %predb
  sockread %predb
  echo -at %predb
  if (*tr class="post" id=* iswm %predb) { set %pridfound 1 | set %predbrecent.id $gettok(%predb,4,34) }
  if (%pridfound) && (*td>*</td* iswm %predb) { unset %pridfound | set %predbrecent.time $gettok($gettok(%predb,2,62),1,60) }
  if (*href="/cats* iswm %predb) { set %predbrecent.catl $+(www.predb.org,$gettok(%predb,2,34)) | set %predbrecent.cat $gettok(%predb,7,34) }
  if (*a href="/group/* iswm %predb) { set %predbrecent.grpl $+(www.predb.org,$gettok(%predb,2,34)) | set %predbrecent.grp $gettok(%predb,4,34) }
  if (*a href="/post/* iswm %predb) {
    .timerendpredb off
    set %predbrecent.rls $gettok(%predb,4,34)
    inc %predbrecent.resc 2
    $+(.timerpredbrecent,%predbrecent.resc) 1 %predbrecent.resc msg %predbrecent.chan %predbrecent.time Ago. Category: %predbrecent.catl $remove(%predbrecent.cat,<,>,/a,/font,/td) Group: %predbrecent.grpl %predbrecent.grp Title: %predbrecent.rls $+(https://predb.org/post/,%predbrecent.id,/)
    if ($calc(%predbrecent.resc / 2) == %predbrecent.num) { .timerendpredbrecent off | endpredbrecent }
    .timerendpredbrecent 1 5 endpredbrecent
  }
}

alias predbch {
  return YOUR_CHAN(s)_HERE
  ;;seperate multiple channels with a comma -> , (e.g #Home,#chat,#cafe)
}

alias endpredb { sockclose predbsearch | unset %predbsearch.* }
alias endpredbrecent { sockclose predbrecent | unset %predbrecent.* }

;;; Scipted by OrFeAsGr http://mirc-land.tk - Support my art work: http://orpheusgr.tk ;;;


How People Treat Others Is A Direct Reflection Of How They feel About Their Selves ---- http://humanity.ucoz.com ----
 
kork_41Date: Tuesday, 17/07/2018, 8:19:13 AM | Message # 2
Rookie
Group: Users
Messages: 1
Reputation: 0
Status: Offline
The script still working?

Thanks!
 
OrFeAsGrDate: Friday, 27/07/2018, 3:36:40 AM | Message # 3
OrFeAsGr -- http://humanity.ucoz.com --
Group: Administrators
Messages: 6
Reputation: 0
Status: Offline
Quote
The script still working?

Thanks!

Yep just checked it! This version works! smile
 
mIRC Land » mIRC Scripts » mIRC Bot Scripts » Predb.org Announcer v0.6
  • Page 1 of 1
  • 1
Search:

Copyright MyCorp © 2018