ON $*:text:/^[!@](rand(om)?)?fact/Si:#: { 
  if (%hlchannel == off) {
    inc %r 
    set $+(%,fact.return.,%r) $iif($left($1,1) == @, msg $chan, notice $nick) 
    sockopen $+(fact.,%r) www.randomfunfacts.com 80 
  } 
}

ON *:SOCKOPEN:fact.*: { 
  sockwrite -nt $sockname GET / HTTP/1.1 
  sockwrite -nt $sockname Host: $+(www.randomfunfacts.com,$crlf,$crlf) 
} 

ON *:SOCKREAD:fact.*: { 
  if ($sockerr) { $($+(%,fact.return.,%r),2) Socket Error: $sockerr } 
  else { 
    var %fact 
    sockread %fact 
    if (*<td bordercolor="#FFFFFF"><font face="Verdana" size="4"><strong><i>* iswm %fact) {  
      $($+(%,fact.return.,%r),2) $htmlfree(%fact) 
      unset %fact* 
      sockclose $sockname 
    } 
  } 
} 
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
} 

on *:TEXT:!randoff:#: { 
  if (%hlchannel == on) notice $nick 14 The !randomfact command has already been disabled.
  elseif ($address($nick,2) != $address($me,2)) && ($nick !isop $chan) notice $nick 14You are not Tkavil314 or an 4@op14 in $chan $+ . Please contact either to turn this off.
  elseif (%hlgame == on) notice $nick Unable to process command.
  else { 
    set %hlhannel on
    amsg 7 $+ $me $+ 's 14 The !randomfact command is now disabled.
  }
}

on *:TEXT:!randon:#: { 
  if (%hlchannel == off) notice $nick 14 The !randomfact comamnd is already enabled.
  elseif (($address($nick,2) != $address($me,2)) && ($nick !isop $chan)) notice $nick 14You are not 7Tkavil314 or an 4@op14 in $chan $+ . Please contact either to turn this off.
  else { 
    set %hlchannel off
    amsg 7 $+ $me $+ 's 14 The !randomfact command has been re-enabled. 
  }
}