Stuff

alias chuck {
  var %rrr = $r(1,9)
  set $+(%,cway.,$(%rrr)) $iif($1 == -s,msg $active,echo -a)
  sockopen $+(chuck.,$(%rrr)) www.chucknorrisfacts.com 80
}
on *:sockopen:chuck.*:{
  sockwrite -nt $sockname GET $+(/page,$r(1,9),.html) HTTP/1.1
  sockwrite -nt $sockname Host: www.chucknorrisfacts.com
  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 (*<li>* iswm %ee) {
      $($+(%,cway.,$right($sockname,1)),2) $+($chr(91),$chr(3),03,CHUCK,$chr(3),$chr(93)) $remove(%ee,<li>)
      unset $+(%,cway.,$right($sockname,1))
      sockclose $sockname
    }
  }
}