alias chuck {
  var %rrr = $r(1,9)
  set $+(%,cway.,$(%rrr)) $iif($1 == -s,msg $active,echo -a)
  sockopen $+(chuck.,$(%rrr)) 4q.cc 80
}
on *:sockopen:chuck.*:{
  sockwrite -nt $sockname GET /index.php?pid=fact&person=chuck HTTP/1.1
  sockwrite -nt $sockname Host: 4q.cc
  sockwrite -nt $sockname $crlf
}
on *:sockread:chuck.*:{
  if ($sockerr) {
    $($+(%,cway.,$right($sockname,1)),2) $+($chr(91),$chr(3),03,CHUCK-ERR,$chr(3),$chr(93)) Script error - retry later
    unset $+(%,cway.,$right($sockname,1))
  }
  else {
    var %ee
    sockread %ee
    if (*<p>*</p>*iswm %ee) {
      $($+(%,cway.,$right($sockname,1)),2) $+($chr(91),$chr(3),03,CHUCK,$chr(3),$chr(93)) $remove(%ee,<p>,</p>)
      unset $+(%,cway.,$right($sockname,1))
      sockclose $sockname
    }
  }
}