on *:SOCKREAD:*: {
if ($sockname == mircforum) {
if ($sockerr) { echo -at mIRC Forum Read Error.. | sockclose $sockname }
var %mircforum
sockread %mircforum
if (*a href="/ubbthreads.php/forums* iswm %mircforum) {
set %lmircsforum $remove($gettok(%mircforum,2,62),</a>,</a,amp;)
}
if (*href="/ubbthreads.php/topics/* iswm %mircforum) {
set %lmirclink $remove($gettok($gettok(%mircforum,1,62),2-4,47),<a href=")
set %lmirctop $remove($gettok(%mircforum,2,62),</a>,</a)
}
if (*by* iswm %mircforum) {
set %lmircuser $remove(%mircforum,by,$chr(32))
}
if (*<span class="date">* iswm %mircforum) {
set %lmircdate $replace($remove(%mircforum,@ <span class="date">,</span> <span class="time">,</span><br />),at,$+(at,$chr(32)))
}
if (*span name="body[0]" style="display:block">* iswm %mircforum) {
if ($remove($gettok(%mircforum,2,62),</span>,</span) != %lmirctext) {
set %lmirctext $remove($gettok(%mircforum,2,62),</span>,</span)
sockclose $sockname
var %x = 1
while (%x <= $scon(0)) {
if ($scon(%x).network == Q-net) {
scon %x
}
inc %x
}
msg #msl 14-3Latest mIRC Forum Post14- 7SubForum14:3 %lmircsforum 7Name14:3 %lmirctop 7User14:3 %lmircuser 7Date14:3 %lmircdate 7Link14:3 https://forums.mirc.com/ $+ %lmirclink
msg #msl $+($left(%lmirctext,100),$iif($len(%lmirctext) > 100, ..., $null))
scon 1
msg #Humanity 14-3Latest mIRC Forum Post14- 7SubForum14:3 %lmircsforum 7Name14:3 %lmirctop 7User14:3 %lmircuser 7Date14:3 %lmircdate 7Link14:3 https://forums.mirc.com/ $+ %lmirclink
msg #Humanity $+($left(%lmirctext,100),$iif($len(%lmirctext) > 100, ..., $null))
.timer 1 15 mircforum
}
elseif ($remove($gettok(%mircforum,2,62),</span>,</span) == %lmirctext) {
sockclose $sockname
.timer 1 15 mircforum
}
}
}
}
