/*
 * just add this like any other command to mud.h tables.c and cedit it to add
 * it online..
 * -Gangien <gangien@dod.hpi.net>
 * Basically I just copied do_where and took out the in_area check you could
 * also add a check in the normal do_where and if there immortal don't do the
 * area check.. but I think it'd be annoying
 */

void do_immwhere( CHAR_DATA *ch, char *argument )
{
    char arg[MAX_INPUT_LENGTH];
    CHAR_DATA *victim;
    DESCRIPTOR_DATA *d;
    bool found;

    one_argument( argument, arg );

    set_pager_color( AT_PERSON, ch );
    if ( arg[0] == '\0' )
    {
        pager_printf( ch, "Players located in &BDawn of Demise.\n\r" )
;
        found = FALSE;
        for ( d = first_descriptor; d; d = d->next )
            if ( (d->connected == CON_PLAYING || d->connected == CON_EDITING )
            && ( victim = d->character ) != NULL
            &&   !IS_NPC(victim)
            &&   victim->in_room
            &&   can_see( ch, victim ) )
            {
                found = TRUE;
/*              if ( CAN_PKILL( victim ) )
                  set_pager_color( AT_PURPLE, ch );
                else
                  set_pager_color( AT_PERSON, ch );
*/
                pager_printf_color( ch, "&P%-13s  ", victim->name );
                /*if ( CAN_PKILL( victim ) && victim->pcdata->clan
                && victim->pcdata->clan->clan_type != CLAN_ORDER
                && victim->pcdata->clan->clan_type != CLAN_GUILD )
                  pager_printf_color( ch, "%-18s\t", victim->pcdata->clan->badge );
                else if ( CAN_PKILL( victim ) )
                  send_to_pager_color( "(&wUnclanned&P)\t", ch );
                else
                  */send_to_pager( "\t\t\t", ch );
                pager_printf_color( ch, "&P%s", victim->in_room->name );
            	pager_printf_color( ch, "&G[&WVNUM %d&G]\n\r", victim->in_room->vnum );
	}
        if ( !found )
       send_to_char_color( "None\n\r", ch );
    }
    else
    {
        found = FALSE;
        for ( victim = first_char; victim; victim = victim->next )
            if ( victim->in_room
            &&   !IS_AFFECTED(victim, AFF_HIDE)
            &&   !IS_AFFECTED(victim, AFF_SNEAK)
            &&   can_see( ch, victim )
            &&   is_name( arg, victim->name ) )
            {
                found = TRUE;
                pager_printf( ch, "%-28s %s",
                    PERS(victim, ch), victim->in_room->name );
                pager_printf_color( ch, "&G[&WVNUM %d&G]\n\r", victim->in_room->vnum );
	 	break;
            }
        if ( !found )
            act( AT_PLAIN, "You didn't find any $T.", ch, NULL, arg, TO_CHAR );
    }

    return;
}