Alice AI socket for st34lthx

alias urlencode return $replacex($regsubex($$1-,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2))),$chr(32),+,$chr(43),%2B)

alias alice {
  var %ticks $ticks
  set $+(%,alice.,%ticks,.msgtype) echo -a
  set $+(%,alice.,%ticks,.input) $urlencode($1-)
  sockopen $+(alice.,%ticks) noneevr2.r00t.la 80
}


on *:sockopen:alice*: {
  sockwrite -nt $sockname GET $+(/ALICE.php?in=,$($+(%,alice.,$remove($sockname,alice.),.input),2)) HTTP/1.1
  sockwrite -nt $sockname Host: noneevr2.r00t.la
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:alice*: {
  if ($sockerr) {
    echo -a SOCKET ERROR: $sockerr
    halt
  }
  inc $+(%,alice.,$remove($sockname,alice.),.counter)
  sockread -f %sockreader
  if ($($+(%,alice.,$remove($sockname,alice.),.counter),2) == 9) {
    $($+(%,alice.,$remove($sockname,alice.),.msgtype),2) %sockreader
    unset $+(%,alice.,$remove($sockname,alice.),.*)
    sockclose $sockname
  }
}