alias chuck {
  sockopen chuck. [ $+ [ $nick ] ] 4q.cc 80
}
on *:SOCKOPEN:chuck.*: {
  sockwrite -nt $sockname GET /index.php?pid=fact&person=chuck HTTP/1.0
  sockwrite -nt $sockname Host: 4q.cc
  sockwrite -nt $sockname
}
on *:SOCKREAD:chuck.*: {
  var %chuck. [ $+ [ $right($sockname,-6) ] ] 
  sockread -f %chuck. [ $+ [ $right($sockname,-6) ] ]
  if ($gettok($striphtml(%chuck. [ $+ [ $right($sockname,-6) ] ]),1-3,32) == And now a) {
    sockread -f %chuck. [ $+ [ $right($sockname,-6) ] ]
    echo -a [ $+ [ $right($sockname,-6) ] ] $replace($striphtml(%chuck. [ $+ [ $right($sockname,-6) ] ]),",")
    sockclose $sockname
  }
}
alias striphtml {
  var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x)
  return %x
}