on *:TEXT:m~test:#:{
echo Connecting...
/sockopen home home.moptop.info 80
}
on *:sockopen:home:{
echo Trying to communicate...
sockwrite -n home GET /index.php HTTP/1.1
sockwrite -n home Host: home.moptop.info
sockwrite -n home $crlf
}
on 1:sockread:home:{
if ($sockerr > 0) return
var %x | sockread %x
if ($sockbr == 0) return
if (%x == $null) { return }
if ($regex(%x,/(thistext|orthistext|oreventhistext)/g) == 1) {
echo -a $nhtml(%x)
}
}
alias -l nhtml { return $remove($regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,),$chr(9)) }