Gammon Forum

void do_scan( CHAR_DATA *ch, char *argument )
{
    ROOM_INDEX_DATA *was_in_room;
    EXIT_DATA *pexit;
    sh_int dir = -1;
    sh_int dist;
    sh_int max_dist = 8;

    set_char_color( AT_ACTION, ch );

    if ( IS_AFFECTED( ch, AFF_BLIND ) )
    {
  send_to_char( "Not very effective when you're blind...\n\r", ch );
  return;
    }
 
//    if ( argument[0] == '\0' )
//    {
//  send_to_char( "Scan in a direction...\n\r", ch );
//  return;
//    }

//    if ( ( dir = get_door( argument ) ) == -1 )
//    {
//  send_to_char( "Scan in WHAT direction?\n\r", ch );
//  return;
//    }

    was_in_room = ch->in_room;
    act( AT_GREY, "Scanning $t...", ch, dir_name[dir], NULL, TO_CHAR );
    act( AT_GREY, "$n scans $t.", ch, dir_name[dir], NULL, TO_ROOM );

    if ( IS_VAMPIRE( ch ) )
    {
  if ( time_info.hour < 21 && time_info.hour > 5 )
  {
      send_to_char( "You have trouble seeing clearly through all the "
    "light.\n\r", ch );
      max_dist = 1;
  }
    }

    if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
    {
  act( AT_GREY, "You can't see $t.", ch, dir_name[dir], NULL, TO_CHAR );
  return;
    }

    if ( ch->level < 50 ) --max_dist;
    if ( ch->level < 40 ) --max_dist;
    if ( ch->level < 30 ) --max_dist;

    for ( dist = 1; dist <= max_dist; )
    {
  if ( IS_SET(pexit->exit_info, EX_CLOSED) )
  {
      if ( IS_SET(pexit->exit_info, EX_SECRET)
      ||   IS_SET(pexit->exit_info, EX_DIG) )
    act( AT_GREY, "Your view $t is blocked by a wall.", ch,
        dir_name[dir], NULL, TO_CHAR );
      else
    act( AT_GREY, "Your view $t is blocked by a door.", ch, 
        dir_name[dir], NULL, TO_CHAR );
      break;
  }
  if ( room_is_private( pexit->to_room )
  &&   ch->level < LEVEL_BUILDER )
  {
      act( AT_GREY, "Your view $t is blocked by a private room.", ch, 
    dir_name[dir], NULL, TO_CHAR );
      break;
  }
  char_from_room( ch );
  char_to_room( ch, pexit->to_room );    
  set_char_color( AT_RMNAME, ch );
  send_to_char( ch->in_room->name, ch );
  send_to_char( "\n\r", ch );
  show_list_to_char( ch->in_room->first_content, ch, FALSE, FALSE );
  show_char_to_char( ch->in_room->first_person, ch );

  switch( ch->in_room->sector_type )
  {
      default: dist++; break;
      case SECT_AIR:
    if ( number_percent() < 80 ) dist++; break;
      case SECT_INSIDE:
      case SECT_FIELD:
      case SECT_UNDERGROUND:
    dist++; break;
      case SECT_FOREST:
      case SECT_CITY:
      case SECT_DESERT:
      case SECT_HILLS:
    dist += 2; break;
      case SECT_WATER_SWIM:
      case SECT_WATER_NOSWIM:
    dist += 3; break;
      case SECT_MOUNTAIN:
      case SECT_UNDERWATER:
      case SECT_OCEANFLOOR:
    dist += 4; break;
  }

  if ( dist >= max_dist )
  {
      act( AT_GREY, "Your vision blurs with distance and you see no "
    "farther $t.", ch, dir_name[dir], NULL, TO_CHAR );
      break;
  }
  if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
  {
      act( AT_GREY, "Your view $t is blocked by a wall.", ch, 
    dir_name[dir], NULL, TO_CHAR );
      break;
  }
    }
  
    char_from_room( ch );
    char_to_room( ch, was_in_room );

    return;
}

// if ( ( dir = get_door( argument ) ) == -1 )
// {
// send_to_char( "Scan in WHAT direction?\n\r", ch );
// return;
// }