/* Find a char in the room. */
CHAR_DATA *get_char_room( CHAR_DATA *ch, char *argument )
{
    char arg[MAX_INPUT_LENGTH];
    CHAR_DATA *rch;
    int number, count, vnum;

    number = number_argument( argument, arg );
    	
	if ( !str_cmp( arg, "self" ) )
		return ch;

    if ( get_trust(ch) >= LEVEL_CODER && is_number( arg ) )
		vnum = atoi( arg );
    else
		vnum = -1;

    count  = 0;

    for ( rch = ch->in_room->first_person; rch; rch = rch->next_in_room )
	if ( can_see( ch, rch ) 
	&& (((nifty_is_name( arg, rch->name ) || (IS_NPC(rch) && nifty_is_name( arg, rch->pcdata->title ))) 
	|| (IS_NPC(rch) && vnum == rch->pIndexData->vnum))))
	{
	    if ( number == 0 && !IS_NPC(rch) )
			return rch;
	    else
	    if ( ++count == number )
			return rch;
	}
    	
	if ( vnum != -1 )
		return NULL;

/* If we didn't find an exact match, run through the list of characters
   again looking for prefix matching, ie gu == guard. Added by Narn, Sept/96 */
    count  = 0;

    for ( rch = ch->in_room->first_person; rch; rch = rch->next_in_room )
    {
		if ( !can_see( ch, rch ) || (!nifty_is_name_prefix( arg, rch->name ) 
		&& (IS_NPC(rch) || (!IS_NPC(rch) && !nifty_is_name_prefix( arg, rch->pcdata->title )))))
	    	continue;
	
		if ( number == 0 && !IS_NPC(rch) )
	    	return rch;
		else
		if ( ++count == number )
	    	return rch;
    }
	return NULL;
}

/* True if char can see victim. */
bool can_see( CHAR_DATA *ch, CHAR_DATA *victim )
{
    if ( !victim )            /* Gorog - panicked attempt to stop crashes */
       	return FALSE;
    
    if ( victim->position == POS_FIGHTING || victim->position < POS_SLEEPING )
		return TRUE;

    if ( !ch )
    {
      	if ( IS_AFFECTED(victim, AFF_INVISIBLE)
      	||   IS_AFFECTED(victim, AFF_HIDE)
      	||   xIS_SET(victim->act, PLR_WIZINVIS) ) 
			return FALSE;
      	else
			return TRUE;
    }

    if ( ch == victim )
		return TRUE;

    if ( !IS_NPC(victim)
    &&   xIS_SET(victim->act, PLR_WIZINVIS)
    &&   get_trust( ch ) < victim->pcdata->wizinvis )
		return FALSE;

    if ( victim->position == POS_FIGHTING || victim->position < POS_SLEEPING )
		return TRUE;
	
    if ( victim->position == POS_FIGHTING || victim->position < POS_SLEEPING )
		return TRUE;

/* SB */
    if ( IS_NPC(victim)   
    &&   xIS_SET(victim->act, ACT_MOBINVIS)
    &&   get_trust( ch ) < victim->mobinvis )
        return FALSE;

    if ( !IS_NPC(ch) && xIS_SET(ch->act, PLR_HOLYLIGHT) )
		return TRUE;
	
/* The miracle cure for blindness? -- Altrag */
    if ( !IS_AFFECTED(ch, AFF_TRUESIGHT) )
    {
		if ( IS_AFFECTED(ch, AFF_BLIND) )
	  		return FALSE;

		if ( room_is_dark( ch->in_room ) && !IS_AFFECTED(ch, AFF_INFRARED) )
	  		return FALSE;

		if ( IS_AFFECTED(victim, AFF_INVISIBLE) && !IS_AFFECTED(ch, AFF_DETECT_INVIS) )
	  		return FALSE;

		if ( IS_AFFECTED(victim, AFF_HIDE)
		&&   !IS_AFFECTED(ch, AFF_DETECT_HIDDEN)
		&&   !victim->fighting
		&&   ( IS_NPC(ch) ? !IS_NPC(victim) : IS_NPC(victim) ) )
	  		return FALSE;
    }    
    return TRUE;
}

/* Description macros. */
#define DISGUISE(ch)            ((!nifty_is_name(ch->name, ch->pcdata->title)) ?   \
								1 : 0)
#define PERS(ch, looker)		( can_see( (looker), (ch) ) ?		\
								( IS_NPC(ch) ? (ch)->short_descr	\
								: ((get_trust(looker) <= LEVEL_IMMORTAL) ? (DISGUISE(ch) ? ch->pcdata->title : (ch)->name ) : (ch)->name)) : ( IS_IMMORTAL(ch) ? "A Great One" : "someone" ))

#define MORPHPERS(ch, looker)   ( can_see( (looker), (ch) ) ?           \
                                (ch)->morph->morph->short_desc       \
                                : "someone" )

#0 0x004861df in get_char_room (ch=0xa229038, argument=0x239cb0 "someone") at handler.c:1864