alias irct { sockopen irct forums.mirc.com 80 }
on 1:sockopen:irct:{
.sockwrite -n irct GET /ubbthreads.php?ubb=postlist&Board=5 HTTP/1.1
.sockwrite -n irct HOST: forums.mirc.com
.sockwrite -n irct $crlf
}
on 1:sockread:irct:{
if ($sockerr > 0) return
var %x | sockread %x
if ($sockbr == 0) return
if (%x == $null) { return 2 }
if ($regex(%x,/(amp|[u,U]ser)/g) == 2) {
if ($regex(%x,/(amp|[u,U]user|Post)/g) == 3) { %irct = 8,1 $+ $+([,$remove($gettok($replace(%x,<,$chr(32),>,$chr(32)),4-,32),/a),]) $+ }
; Current issue arises when / is present in Token like in brannon's post it will not (crlf) the txt
if ($regex(%x,/(class|small)/g) == 2) { %irct = %irct 15,1was created 8,1 $+ $gettok($replace(%x,<,$chr(32),>,$chr(32)),3,32) $gettok($replace(%x,<,$chr(32),>,$chr(32)),7,32) $+ }
if (small !isin %x) && (nofollow isin %x) { %irct = %irct 15,1 $+ and 8,1 $+ $gettok($replace(%x,<,$chr(32),>,$chr(32)),4,32) 15,1 $+ was the last person to post. | echo -a %irct }
}
}