Cleverbot website for st34lthx

;this is just the socket part
on *:sockopen:alice*: {
  var %x sockwrite -n $sockname
  %x GET $+(/,clever4java.php?id=b4prFHCirb&s=,$($+(%,alice.,$remove($sockname,alice.),.input),2)) HTTP/1.1
  %x Connection: keep-alive
  %x Accept: text
  %x Accept-Language: en-US,en;q=0.8
  %x Host: noneevr2.com
  %x
}

on *:SOCKREAD:alice*: {
  if ($sockerr) {
    echo -a SOCKET ERROR: $sockerr
    halt
  }
  sockread &t
  var %sockreader $bvar(&t,$calc($bfind(&t,1,13 10 13 10) + 4) $+ -).text
  $($+(%,alice.,$remove($sockname,alice.),.msgtype),2) %sockreader
}

on *:sockclose:alice*: {
  unset $+(%,alice.,$remove($sockname,alice.),.*)
  sockclose $sockname
}