well i was bored soi made an 8ball script.
on *:TEXT:!8ball*:#:{
/set %8ball $rand(1,6)
if (%8ball == 1) .msg $chan 4,1No!
if (%8ball == 2) .msg $chan 12,1Yes
if (%8ball == 3) .msg $chan 8,1Maybe
if (%8ball == 4) .msg $chan 9,1of course
if (%8ball == 5) .msg $chan 11,1Are you crazy?!?!
if (%8ball == 6) .msg $chan 7,1How should I know?
}