Isdown socket

on $*:text:/^[!@](isup|downforeveryoneorjustme|up)/Si:#: {
  if ($($+(%,botflood.,$nick),2)) {
    if ($($+(%,botflood.,$nick),2) >= 50) { ignore -u60 $address($nick,0) | msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot. | halt }
    elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
    else { inc -z $+(%,botflood.,$nick) 25 }
  }
  else { inc -z $+(%,botflood.,$nick) 25 }
  if ($sock(isdown)) { msg $chan $nick $+ : Please wait, already working on a link. | echo -a here | halt }
  elseif ($2) {
    set %_isdown.site $2
    set %_isdown.msgtype $iif($left($strip($1),1) == @,msg $chan,notice $nick)
    isup %_isdown.site
  }
}

Alias isup {
  if (!%_isdown.site) {
    set %_isdown.site $1
  }
  if (!%_isdown.msgtype) {
    sockclose isdown
    set %_isdown.msgtype msg $active
  }
  sockClose isdown
  sockOpen isdown www.downforeveryoneorjustme.com 80
}
on *:SockOpen:isdown: {
  set %checksockname $sockname
  .timerCheckSock 1 10 checkifsockopen
  sockwrite -nt isdown GET / $+ %_isdown.site HTTP/1.1
  sockwrite -nt isdown Host: www.downforeveryoneorjustme.com
  sockwrite -nt isdown $crlf
}
on *:SockRead:isdown: {
  var %a
  sockread %a
  if (*class="domain"* iswm %a) {
    set %_isdown.Results $nohtml(%a)
    set %_isdown.results 10 %_isdown.results
    %_isdown.msgtype 12[4ISUP12]10 $+ %_isdown.results
    unset %_isdown.*
    sockclose $sockname
  }
}