Well here it is. 8ball refined!

This will automatically create the needed text file to read from plus put some default entries in it for you when its loaded.

Triggers are :

!8ball
!add8ball
!del8ball

!8ball is fairly obvious ask a question get a reply.
!add8ball allows people with the proper permissions add replies directly to the .txt file for future use
!del8ball allows people with the proper permissions to delete replies from the .txt

for bot owners theres Nick protection of sorts. replace "PUT YOUR NICK HERE" in this line :
if (PUT YOUR NICK HERE isin $2-) { $_jibb($chan) } with your own nick.

Not sure im totally done with this one but enjoy for now. As always im open to ideas and suggestions.

on *:LOAD: {
  echo -a JibbaNet 8ball v1.0 Loaded
  echo -a 8ball.txt + Default Replies written.
  write $scriptdir8ball.txt Ask again later
  write $scriptdir8ball.txt Not a chance
  write $scriptdir8ball.txt As I see it, yes
  write $scriptdir8ball.txt Better not tell you now
  write $scriptdir8ball.txt Cannot predict now
  write $scriptdir8ball.txt Concentrate and ask again
  write $scriptdir8ball.txt Don't count on it
  write $scriptdir8ball.txt It is certain
  write $scriptdir8ball.txt It is decidedly so
  write $scriptdir8ball.txt Most likely
  write $scriptdir8ball.txt My reply is no
  write $scriptdir8ball.txt My sources say no
  write $scriptdir8ball.txt Outlook good
  write $scriptdir8ball.txt Outlook not so good
  write $scriptdir8ball.txt Reply hazy, try again
  write $scriptdir8ball.txt Signs point to yes
  write $scriptdir8ball.txt Very doubtful
  write $scriptdir8ball.txt Without a doubt
  write $scriptdir8ball.txt Yes
  write $scriptdir8ball.txt Yes - definitely
  write $scriptdir8ball.txt You may rely on it
  write $scriptdir8ball.txt Do I Look Like I Care?
  write $scriptdir8ball.txt Yeah, Right
  write $scriptdir8ball.txt Ask a better question
  write $scriptdir8ball.txt Well, $rand(1,50) years, $rand(17,364) days, $rand(0,23) hours, $rand(0,59) minutes, and some odd seconds...wait, what was the question?
  write $scriptdir8ball.txt lol, seriously? You can ask me any question and you ask " $+ $2- $+ "
  write $scriptdir8ball.txt zzzZZZzzz
  write $scriptdir8ball.txt screw off, ask later
  write $scriptdir8ball.txt hell no!
  write $scriptdir8ball.txt how the hell should i know?
  write $scriptdir8ball.txt penis!
  write $scriptdir8ball.txt ah too drunk, i'll just say yes....
  write $scriptdir8ball.txt SCREW OFF YOU SMELL
  write $scriptdir8ball.txt why the hell not? sure!
  write $scriptdir8ball.txt 01110101010101100001100101001000100100011001011001111010100100001001000010010
  write $scriptdir8ball.txt Give me a cookie and I will say yes
  write $scriptdir8ball.txt thats what she said
  write $scriptdir8ball.txt i'm to lazy to choose
  write $scriptdir8ball.txt ohhhhhhh..... shiny.....
  write $scriptdir8ball.txt hello, is this thing on? i said NO!
  write $scriptdir8ball.txt ask again.. ah never
  write $scriptdir8ball.txt uh no frigging way
  write $scriptdir8ball.txt $@Q%Q##_I(_(@#)^*#$_@!_%(*~!*)&@%!*%^@!
  write $scriptdir8ball.txt Your mommy said no 
}

on *:TEXT:*:#: {
  var %a = 1
  var %totlines = $lines($scriptdir8ball.txt)
  if ($1 == !add8ball) { 
    if ($regex($nick($chan,$nick).pnick,[&~])) {
      if ($2) {
        while (%a <= %totlines) {
          if ($2- == $read($scriptdir8ball.txt, %a)) { set %_8ballfound 1 }
          inc %a
        }
        if (%_8ballfound) { msg $chan $+(,",$2-,",) has already been added. | unset %_8ballfound  }
        else {
          write $scriptdir8ball.txt $2-
          msg $chan $+(,",$2-,",) has been added to the reply list.
        }
      }
      else { msg $chan No Reply Was Stated. }
    }
    else { msg $chan access denied }
  }
  elseif ($1 == !del8ball) {
    if ($regex($nick($chan,$nick).pnick,[&~])) {
      if ($2) {
        while (%a <= %totlines) {
          if ($2- == $read($scriptdir8ball.txt, %a)) { set %_8ballfound2 %a }
          inc %a
        }
        if (%_8ballfound2) { write -dl $+ %_8ballfound2 $scriptdir8ball.txt | msg $chan $+(,",$2-,",) has been deleted. | unset %_8ballfound2 %a }
        else { msg $chan No Matching Entries Found }
      }
      else { msg $chan Please Enter Something To Delete. }
    }
    else { msg $chan access denied }
  }
  elseif ($1 == !8ball) {
    if ($2) {
      var %8ball = $read($scriptdir8ball.txt,n, $rand(1,$lines($scriptdir8ball.txt)))
      if (PUT YOUR NICK HERE isin $2-) { $_jibb($chan) }
      else { msg $chan %8ball }
    }
    else { msg $chan Please Enter A Question Silly }
  }
}

alias -l _jibb {
  var %chan = $1
  var %jibb = $rand(1,4)
  if (%jibb = 1) { msg %chan $nick If you dont stop picking on him im gonna kick u in the nutz! }
  if (%jibb = 2) { msg %chan $nick flattery will get you nowhere }
  if (%jibb = 3) { msg %chan $nick Ill lick you for 0.50 cents }
  if (%jibb = 4) { msg %chan im sorry $nick hes not here right now can i help you? }
}