on *:text:!fact:#: { if (%rand.fact && !$($+(%,factflood,.,$nick),2)) { set -u3 $+(%,factflood,.,$nick) on | $rf } }
alias rf { if (%rand.fact) { if ($sock(fact)) .sockclose fact | set %fact.chan $chan | sockopen fact www.randomfunfacts.com 80 } }
on *:SOCKOPEN:fact: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: www.randomfunfacts.com
  sockwrite -nt $sockname $crlf
}
alias -l tagfree { var %b,%p | %p = $regsub($1-,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%b) | %b = $remove(%b,$chr(9),&reg,;) | return %b }
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Random Fact Code. 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:SOCKREAD:fact: {
  if ($sockerr) { msg %fact.chan Error: $sockname }
  else {
    var %fact.rand
    sockread %fact.rand
    if (*<i>* iswm %fact.rand ) { msg %fact.chan 04Random Fact: $+(15,$chr(40),$chr(32),14,$tagfree(%fact.rand),15,$chr(32),$chr(41))  | unset %fact.chan | sockclose fact }
  }
}
menu menubar,channel {
  .Turn Random Fact $iif(%rand.fact,OFF,ON):{ $iif(%rand.fact,unset %rand.fact,set %rand.fact on) | echo -a Random Fact Code Is Now $iif(%rand.fact,ON,OFF) }
}