on *:text:!8ball *:#:{
  /var %8ball.color $rand(1,14)
  /var %ball.line $read(8ball.txt)
  /msg $chan Thinking on the question, $2-
  /timer 1 1 msg $chan  $+ %8ball.color %8ball.line
}