bool spec_clan_guard( CHAR_DATA *ch )
{
	char *message;
	CHAR_DATA *victim;
	CHAR_DATA *v_next;

	if ( !IS_AWAKE(ch) || ch->fighting != NULL )
	return FALSE;

	for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
	{
	v_next = victim->next_in_room;

		if ( victim == NULL )
		return FALSE;

		if ( IS_NPC(victim) )
		return FALSE;

	/* say something, then move em out */
		switch (number_range(0,6))
		{
		default : message = NULL;
			break;
		case 0: message = "$n says 'Thou shalt not barbeque on sunday'\n\r";
			break;
		case 1: message = "$n looks at you and cackles wildly!\n\r";
			break;
		case 2: message = "$n asks 'Do they call you Unforgiven?'\n\r";
			break;
		case 3: message = "$n says 'Thou shalt not enjoy false Jeremias'\n\r";
			break;
		case 4: message = "$n says 'Thou shalt not covet thy neighbors baby backs'\n\r";
			break;	
		case 5: message = "$n says 'Do not take the name of Jeremias in vain'\n\r";
			break;
		case 6: message = "$n utters the words 'see ya later fool'\n\r";
			break;
		}

		if (message != NULL)
		act(message,ch,NULL,victim,TO_ALL);

		char_from_room(victim);
		char_to_room(victim, (get_room_index(ROOM_VNUM_TEMPLE)));
		do_look( victim, "auto" );
		return TRUE;
	}
	return FALSE;
}
