on $*:TEXT:/^[!.@]chuck/Si:#: {
  if ($sock(chuck)) sockclose chuck
  sockopen chuck 4q.cc 80
  set %chuck.msg $iif($mid($1,1,1) == $chr(64),msg #,.notice $nick)
}
on *:sockopen:chuck: {
  if ($sockerr) HALT
  else {
    sockwrite -n $sockname GET /index.php?pid=fact&person=chuck HTTP/1.1
    sockwrite -n $sockname HOST: 4q.cc
    sockwrite -n $sockname $crlf
  }
}
on *:sockread:chuck: {
  if ($sockerr) HALT
  else {
    sockread %chuck
    if ((*</div>* iswm %chuck) && (Chuck Norris isin %chuck)) {
      %chuck.msg 12[04CHUCK NORRIS12] $replace($htmlfree(%chuck),$quot;,")
    }
  }
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }