Loads a random quote from www.chucknorrisisgod.com on !chuck :)

alias chuckfact {
  sockopen chuck chucknorrisisgod.com 80
}
on *:SOCKOPEN:chuck: {
  if ($sockerr > 0) {
    return
    sockclose chuck
    %inuse = 0
    echo -a Socket Error.
  }
  else {
    sockwrite -n chuck GET /rand.php HTTP/1.1
    sockwrite -n chuck Host: chucknorrisisgod.com $+ $str($crlf,2)
  }
}
on *:SOCKREAD:chuck: {
  if ($sockerr) {
    halt
  }
  var %text
  sockread %text
  if ($regex(%text,/<td valign='top' nowrap># (\d+)</td><td width='100%' colspan='2'>(.+)</td></tr><tr><td>/i)) {
    msg %chan Random Chuck quote $chr(35) $+ $regml(1) $+ : $regml(2)
    sockclose chuck
    %inuse = 0
  }
}
on *:TEXT:*:#: {
  if ($1- == !chuck) {
    if (%inuse == 0) {
      chuckfact
      %chan = $chan
      %inuse = 1
    }
  }
}