Hopefully this is the first WTF Facts script. yea yea, i know i should have used sockets to connect, but honestly, anyone wants, they can create a socket for it. besides its based on my old script JokeBot. Im really not that good with sockets :/ But Hey, as long as im first, thats all i care for!!

on 1:LOAD: /echo 4,1-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
on 1:LOAD: /echo 4,1Hawkee's First What The F*** Facts!-_         Made by Assasin
on 1:LOAD: /echo 4,1-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_

on *:connect: {
  if ($network == *@lucidchat*) {
    window -k0 @commands
  }
}

on *:text:*:#: {

  ;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
  ;Hawkee's First What The F*** Facts!-_         Made by Assasin
  ;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_

  if (!newfact == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($numtok($2-,32) < 3) {
        msg $chan $nick $+ : Your Fact has to be more than 3 words, otherwise its not a Fact.
      }
      else {
        var %topic = $ini(facts.ini,0) + 1
        writeini facts.ini %topic fact $2-
        msg $chan Added new Fact by $nick : $2-
      }
    }
    else {
      msg $chan $nick $+ : It's not usefull fact if you dont input any text you know 3,4(:
    }
  }
  elseif (!deletefact == $1) {
    @commands ( $+ $time $+ ) 4 $+ $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($2 isnum) {
        if ($readini(facts.ini, $2, author) != $null) {
          if ($nick >= 5) {
            writeini facts.ini $2 Fact $2 has been pushed down the window 
            msg $chan Fact $2 has been pushed down the window by $nick
          }
          else {
            msg $chan $nick $+ : You do not meet the required hostmask to use this command
          }
        }
        else {
          msg $chan $nick $+ : No such Fact to delete. 
        }
      }
      else {
      msg $chan $nick $+ : Specify a number, ya fool!      }
    }
  }
  elseif (!delfact == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($2 isnum) {
        if ($readini(facts.ini, $2, author) == $nick) {
          writeini facts.ini $2 Fact Sorry, Fact no. $2 has been deleted by $nick because it does not exist. 
          msg $chan Sorry, Fact no. $2 has been deleted by $nick because it doesnt exist.
          /dec %facts 1

        }
        else {
          msg $chan $nick $+ : You didnt submit that fact - Type !factinfo $2 to see who thought of it
        }
      }
      else {
        msg $chan $nick $+ : Didnt you read the instructions? Looks like your spectacles are dirty -- e.g: !delfact 2
      }
    }
  }
  elseif (!fact == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($readini(facts.ini, $2, author) == $null) {
        msg $chan Have you forgotten the count? the numbers dont go that big $2
      }
      else {
        msg $chan fact $2 $+ : $readini(facts.ini, n, $2, fact)
      }
    }
    else {
      msg $chan Random Fact: $readini(facts.ini, n, $rand(1,$ini(facts.ini,0)), fact)
    }
  }
  elseif (!facts == $1) {
    @commands ( $+ $time $+ ) $nick used $1
    if ($ini(facts.ini,0) > 1) {
      msg $chan There are currently $ini(facts.ini,0) facts
    }
    else {
      msg $chan There is currently $ini(facts.ini,0) facts
    }
  }
  elseif (!randomfact == $1) {
    @commands $nick used $1
    msg $chan Random fact: $readini(facts.ini, n, $rand(1,$ini(facts.ini,0)), fact)
  }
  elseif (!factinfo == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($readini(facts.ini, $2, author) == $null) {
        msg $chan There is no fact $2
      }
      else {
        msg $chan fact no. $2 was stored in $chan on $readini(facts.ini, $2, date) at $readini(facts.ini, $2, time) by $readini(facts.ini, $2, author)
      }
    }
    else {
      msg $chan Please specify a fact no. you'd like to look up the info for.
    }
  }
  elseif (!findfact == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    var %x = 0
    while (%x <= $ini(facts.ini,0)) {
      if ($2- isin $readini(facts.ini, %x, facts)) {
        set %facts %facts + %x
      }
      inc %x
    }
    if ($replace($replace(%facts, +, |), |, $null) == $null) {
      msg $chan " $+ $2- $+ " was not found in any facts
      unset %facts
    }
    else {
      msg $chan " $+ $2- $+ " was found in fact(s): $replace(%facts, +, |) $chr($asc(|))
      unset %facts
    }
  }
}