sub shake_the_ball
{
  my ($eb_connection, $eb_sender, $eb_message, $eb_flags) = @_;

  return unless $eb_message =~ /!8ball/;

  my $answer = split(' ', $eb_message) > 1
    ? "You need to ask a question!"
    : "The magic 8 ball says..." . $ball_messages[ rand scalar @ball_messages ] . ".\n";

  GAIM::serv_send_im($eb_connection, $eb_sender, $answer_message, 1);
 
  return 1;
}