/**************************************************************************
*  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
*  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
*                                                                         *
*  Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael         *
*  Chastain, Michael Quan, and Mitchell Tse.                              *
*                                                                         *
*  In order to use any part of this Merc Diku Mud, you must comply with   *
*  both the original Diku license in 'license.doc' as well the Merc       *
*  license in 'license.txt'.  In particular, you may not remove either of *
*  these copyright notices.                                               *
*                                                                         *
*  Much time and thought has gone into this software and you are          *
*  benefiting.  We hope that you share your changes too.  What goes       *
*  around, comes around.                                                  *
***************************************************************************
*       ROM 2.4 is copyright 1993-1998 Russ Taylor                        *
*       ROM has been brought to you by the ROM consortium                 *
*           Russ Taylor (rtaylor@hypercube.org)                           *
*           Gabrielle Taylor (gtaylor@hypercube.org)                      *
*           Brian Moore (zump@rom.org)                                    *
*       By using this code, you have agreed to follow the terms of the    *
*       ROM license, in the file Rom24/doc/rom.license                    *
***************************************************************************
*          1stMud ROM Derivative (c) 2001-2004 by Markanth                *
*            http://www.firstmud.com/  <markanth@firstmud.com>            *
*         By using this code you have agreed to follow the term of        *
*             the 1stMud license in ../doc/1stMud/LICENSE                 *
***************************************************************************/


#include "merc.h"
#include "interp.h"

char *const distance[4] = {
  "right here.", "nearby to the %s.", "not far %s.",
  "off in the distance %s."
};

Proto (void scan_list, (RoomIndex *, CharData *, int, int));
Proto (void scan_char, (CharData *, CharData *, int, int));

Do_Fun (do_scan)
{
  char arg1[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH];
  RoomIndex *scan_room;
  ExitData *pExit;
  int door, depth;

  argument = one_argument (argument, arg1);

  if (NullStr (arg1))
    {
      act ("$n looks all around.", ch, NULL, NULL, TO_ROOM);
      chprintln (ch, "Looking around you see:");
      scan_list (ch->in_room, ch, 0, -1);

      for (door = 0; door < MAX_DIR; door++)
	{
	  if ((pExit = ch->in_room->exit[door]) != NULL)
	    scan_list (pExit->u1.to_room, ch, 1, door);
	}
      return;
    }
  else if ((door = get_direction (arg1)) == -1)
    {
      chprintln (ch, "Which way do you want to scan?");
      return;
    }

  act ("You peer intently $T.", ch, NULL, dir_name[door], TO_CHAR);
  act ("$n peers intently $T.", ch, NULL, dir_name[door], TO_ROOM);
  sprintf (buf, "Looking %s you see:" NEWLINE, dir_name[door]);

  scan_room = ch->in_room;

  for (depth = 1; depth < 4; depth++)
    {
      if ((pExit = scan_room->exit[door]) != NULL)
	{
	  scan_room = pExit->u1.to_room;
	  scan_list (pExit->u1.to_room, ch, depth, door);
	}
    }
  return;
}

void
scan_list (RoomIndex * scan_room, CharData * ch, int depth, int door)
{
  CharData *rch;

  if (scan_room == NULL)
    return;
  for (rch = scan_room->person_first; rch != NULL; rch = rch->next_in_room)
    {
      if (rch == ch)
	continue;
      if (!IsNPC (rch) && rch->invis_level > get_trust (ch))
	continue;
      if (can_see (ch, rch))
	scan_char (rch, ch, depth, door);
    }
  return;
}

void
scan_char (CharData * victim, CharData * ch, int depth, int door)
{
  char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH];

  buf[0] = '\0';

  if (IsQuester (ch) && victim == ch->pcdata->quest.mob)
    strcat (buf, "{r[{RTARGET{r]{x ");
  if (Gquester (ch) && IsNPC (victim) &&
      is_gqmob (ch->gquest, victim->pIndexData->vnum) != -1)
    strcat (buf, "(Gquest) ");
  strcat (buf, Pers (victim, ch));
  strcat (buf, ", ");
  sprintf (buf2, distance[depth], dir_name[door]);
  strcat (buf, buf2);

  chprintln (ch, buf);
  return;
}