Checks a website with www.isup.me
[!@]is(up|down) website

;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))
   } 
}