From: Mike <claywar@cetlink.net>
Subject: 8-Ball Special Procedure!

Feel like a useless specproc to liven your day?  Try a low feature 8ball!

SPECIAL(ball)
{
  char obj_name[MAX_STRING_LENGTH];

  if (CMD_IS("rub")) {
    argument = one_argument(argument, obj_name);
    if (!(get_obj_in_list_vis(ch, obj_name, ch->carrying)))
      return 0;
    switch (number(1,3)) {
    case 1:
      send_to_char("Yes.\r\n",ch);
      break;
    case 2:
      send_to_char("Maybe.\r\n",ch);
      break;
    case 3:
      send_to_char("No.\r\n",ch);
      break;
    default:
      send_to_char("BUG!!! Please Report!\r\n",ch);
      break;
    }
    return 1;
  }
  return 0;
}
