alias ball {
    var %8ball = $rand(1,11)
    describe $chan is shaking up the 8ball...
    if (%8Ball == 1) msg $1 4,1Hell Yeah!! 
    if (%8Ball == 2) msg $1 4,1Hell No!!
    if (%8Ball == 3) msg $1 4,1First Where's The Money? 
    if (%8Ball == 4) msg $1 4,1I'll Make a decision later.
    if (%8Ball == 5) msg $1 4,1Maybe.
    if (%8Ball == 6) msg $1 4,1Definitely!
    if (%8Ball == 7) msg $1 4,1Try again later.
    if (%8Ball == 8) msg $1 4,1It's a maybe.
    if (%8Ball == 9) msg $1 4,1Do I have to answer that one, really come on, is that even a question?
    if (%8Ball == 10) msg $1 4,1Yeah, Sure.
    if (%8Ball == 11) msg $1 4,1Nope, Sorry.                
  }
on $*:text:/[!@](8ball|magicball)/:#: {
ball $iif($left($1,1) == !,notice $nick,msg $chan)
}
alias 8ball {
ball $chan
}