;ILLUMINATI NATION

alias listen {
  var %s $+(listen., $ticks)
  socklisten %s $1
}

on *:SOCKLISTEN:listen.*: {
  if (!$sockerr) {
    var %s $+(accept., $ticks)
    sockaccept %s
    echo -a ACCEPT: $sock(%s).ip
  }
  else {
    sockclose $sockname
  }
}

on *:SOCKREAD:accept.*: {
  if (!$sockerr) {
  var %s
  sockread %s
  echo -a %s
  }
  else {
    sockclose $sockname
  }
}

alias socket {
  var %s $+(socket., $ticks)
  sockopen %s $1 80
  sockmark %s $2-
}

on *:SOCKOPEN:socket.*: {
  if (!$sockerr) {
    var %s sockwrite -nt, %n $sockname
    %s %n GET $sock(%n).mark HTTP/1.1
    %s %n Host: $sock(%n).addr
    %s %n $crlf
  }
  else {
    sockclose $sockname
  }
}

on *:SOCKREAD:socket.*: {
  if (!$sockerr) {
    var %s
    sockread %s
    window -a @socket
    echo @socket %s
  }
  else {
    sockclose $sockname
  }
}