From: Mike 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; }