I kinda tweaked a earlier post of someone.

You can find here: http://www.hawkee.com/snippet/2714/

The script works like:

!rsfact
--Did you know that: ~~?

!addfact [people on the same network only]

--Adding fact to the list, Please wait.....
--Succesfully added the requested rsfact to the list.

I also added floodcontrols, the @rsfact command to make it public & some timers that will make the command look cooler.

Type:

/write rsfact.txt
/run rsfact.txt

Open this link and copy and paste this to it and save it:

http://www.pastebin.org/164652

on *:text:!rsfact*:#: { 

var %rsfact = $read(rsfact.txt)

if ( %rsfact == $null ) { 
  if ($(,$+(%,flood1,$nick))) { return }
    set -u3 $+(%,flood1,$nick)
notice $nick Error: Unable to find a fact, try again later
return
}

else {
if ($(,$+(%,flood,$nick))) { return }
notice $nick Did you know that: %rsfact ?
.timer 1 2 notice $nick Want another rsfact? Type !rsfact again!
      set -u3 $+(%,flood,$nick)
 return
}

on *:text:@rsfact*:#: { 

var %rsfact1 = $read(rsfact.txt)

if ( %rsfact1 == $null ) { return }
  if ($(,$+(%,flood4,$nick))) {
    set -u3 $+(%,flood4,$nick)
notice $nick Error: Unable to find a fact, try again later
return
}

else {
if ($(,$+(%,flood6,$nick))) { return }
msg $chan Did you know that: %rsfact1 ?
.timer 1 2 notice $nick Want another rsfact? Type !rsfact again!
      set -u3 $+(%,flood6,$nick)
 return
}

on *:text:!addfact*:#: {
if ($address($nick,2) != $address($me,2)) { notice $nick You are not a moderator, so you cant use this command. | return }
}

else {
notice $nick Adding fact to the list, Please wait....
/write rsfact.txt $2-
.timer 1 2 notice $nick Succesfully added the requested rsfact to the list.
return
 } 
}