mIRC Homepage
Posted By: Konrado Need help with socket script... - 16/12/20 08:50 AM
;Edited by: Jethro
on *:sockopen:isup.*: {
tokenize 32 $sock($sockname).mark
sockwrite -nt $sockname GET $+(/,$3) HTTP/1.1
sockwrite -nt $sockname HOST: $sock($sockname).addr
sockwrite -nt $sockname
}
on $*:text:/^([!@])is(up|down) (?<=^| )((?>[a-z]{3,6}\072\/\/|w{3}\.)\S+)/Si:#:{
if !$($+(%,flood.,$nick),2) {
set -u6 $+(%,flood.,$nick) on
var %sock $+(isup.,$r(0000,9999))
sockopen %sock www.isup.me 80
sockmark %sock $iif($regml(1) == @,msg #,notice $nick) $regml(3)
}
}
on *:sockread:isup.*: {
tokenize 32 $sock($sockname).mark
var %reader
sockread %reader
if ($regex(%reader,/(.+)<a href=".+" class="domain">(.+)<\/(a|span)>(.+)/)) {
$1-2 $+($chr(3),10,$regml(1),$chr(3),04,$remove($regml(2),</a>),$chr(3),10,$regml(4))
}
}

eek
© mIRC Discussion Forums