Untitled

;////////////// RANDOM FACTS (for Abs)////////////////////
alias fact { 
  var %sockname = fact_ $+ $ticks
  set $+(%,$($ticks,2)) $chan
  sockopen %sockname randomfunfacts.com 80
}
alias -l htmlfree {
  var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:sockopen:fact_*:{
  var %sw = sockwrite -n $sockname
  %sw Host: randomfunfacts.com
  %sw Connection: Close
  %sw
}
on *:sockread:fact_*:{
  if ($sockerr) { echo -a * Error | halt }
  sockread %temp
  echo -a %temp
  if (*<strong><i>* iswm %temp) {
    echo -a * Whoo! In the IF statement!
    var %chan = $($+(%,$remove($sockname,fact_)),2)
    msg %chan $htmlfree(%temp)
    unset $+(%,$remove($sockname,fact_))
  }
}
on *:TEXT:.fact*:#: {
  fact
}