Down Script For A Bot

on $*:TEXT:/^[~`!@^&.]down \S+?\.\S+$/i:*: {
  sockclose Down
  set %Down# $iif($chan,$chan,$nick)
  set %DownURL / $+ $2
  sockopen Down www.downforeveryoneorjustme.com 80
}

on *:SOCKOPEN:Down: {
  sockwrite -n Down GET %DownURL HTTP/1.1
  sockwrite -n Down Host: www.downforeveryoneorjustme.com
  sockwrite Down $crlf
}

on *:SOCKREAD:Down: {
  sockread %Down
  while ($sockbr) {
    if (class="domain" isin %Down) {
      msg %Down# $regsubex(%Down,/(<.+?>)+/g,)
      unset %Down*
      sockclose Down
      return
    }
    sockread %Down
  }
}