chessnut made one a long time ago
here it is:(has the ability to turn off and only works in a query window)
Code:
on *:text:*:?:{ 
  if (%intell == on) { 
    var %t $ticks 
    sockopen alice. $+ %t www.pandorabots.com 80 
    sockmark alice. $+ %t $mid($md5($address($nick,2)),16) $nick $regsubex($1-,/([^\w])/Sg,$+(%,$base($asc(\1),10,16,2))) 
  } 
} 
on *:sockopen:alice.*:{ 
  tokenize 32 $sock($sockname).mark 
  var %u $+(&botcust2=,$1&input=,$3) 
  sockwrite -n $sockname POST /pandora/talk?botid=f5d922d97e345aa1&skin=custom_input HTTP/1.1 
  sockwrite -n $sockname Host: www.pandorabots.com 
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded 
  sockwrite -n $sockname Content-Length: $len(%u .) 
  sockwrite -n $sockname $crlf %u 
} 
on *:sockread:alice.*:{ 
  if (!$sockerr) { 
    var %s 
    $event %s 
    if $regex(%s,^.*<em>(.*?)<\/em><\/b>$) { 
      msg $gettok($sock($sockname).mark,2,32) $regml(1) 
      sockclose $sockname 
    } 
  } 
} 
alias intell { 
  if ($1 == on) { 
    set %intell on 
    echo 2 Intell is now on 
  } 
  elseif ($1 == off) { 
    unset %intell 
    echo 2 Intell is now off 
  } 
}
alias ai { 
  if ($1 == on) { 
    set %intell on 
    echo 2 Intell is now on 
  } 
  elseif ($1 == off) { 
    unset %intell 
    echo 2 Intell is now off 
  } 
}

type /ai <on/off> to turn/off