/***************************************************************************
 *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
 *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
 *                                                                         *
 *  Merc Diku Mud improvments 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          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/

/***************************************************************************
*	ROM 2.4 is copyright 1993-1996 Russ Taylor			   *
*	ROM has been brought to you by the ROM consortium		   *
*	    Russ Taylor (rtaylor@efn.org)				   *
*	    Gabrielle Taylor						   *
*	    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			   *
***************************************************************************/

#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "utils.h"

void scan_list args((ROOM_INDEX_DATA * scan_room, CHAR_DATA * ch,
		     sh_int depth, sh_int door));
void scan_char args((CHAR_DATA * victim, CHAR_DATA * ch,
		     sh_int depth, sh_int door));

void do_scan(CHAR_DATA * ch, char *argument)
{
    extern char *const dir_name[];
    char arg1[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH];
    ROOM_INDEX_DATA *scan_room;
    EXIT_DATA *pExit;
    sh_int door, depth;
    int depth_level;

    argument = one_argument(argument, arg1);

    if (arg1[0] == '\0') {
	act("$n looks all around.", ch, NULL, NULL, TO_ROOM);
	send_to_char("{RLooking around you see:{x\n\r", ch);

	for (door = 0; door < 6; door++) {

	    if (ch->level >= 70)
		depth_level = 5;
	    else if (ch->level >= 50)
		depth_level = 4;
	    else if (ch->level >= 30)
		depth_level = 3;
	    else if (ch->level >= 10)
		depth_level = 2;
	    else
		depth_level = 1;

	    scan_room = ch->in_room;

	    for (depth = 1; depth <= depth_level; depth++) {
		if ((pExit = scan_room->exit[door]) != NULL
		    && !IS_SET(pExit->exit_info, EX_CLOSED)) {
		    scan_room = pExit->u1.to_room;
		    scan_list(pExit->u1.to_room, ch, depth, door);
		}
	    }
	}
	return;
    } else if (!str_cmp(arg1, "n") || !str_cmp(arg1, "north"))
	door = 0;
    else if (!str_cmp(arg1, "e") || !str_cmp(arg1, "east"))
	door = 1;
    else if (!str_cmp(arg1, "s") || !str_cmp(arg1, "south"))
	door = 2;
    else if (!str_cmp(arg1, "w") || !str_cmp(arg1, "west"))
	door = 3;
    else if (!str_cmp(arg1, "u") || !str_cmp(arg1, "up"))
	door = 4;
    else if (!str_cmp(arg1, "d") || !str_cmp(arg1, "down"))
	door = 5;
    else {
	send_to_char("Which way do you want to scan?\n\r", ch);
	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:\n\r", dir_name[door]);

    scan_room = ch->in_room;

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

    send_to_char("{x\n\r", ch);
    return;
}

void scan_list(ROOM_INDEX_DATA * scan_room, CHAR_DATA * ch, sh_int depth,
	       sh_int door)
{
    CHAR_DATA *rch;

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

void scan_char(CHAR_DATA * victim, CHAR_DATA * ch, sh_int depth,
	       sh_int door)
{
    extern char *const dir_name[];
    char buf[MAX_INPUT_LENGTH];

    buf[0] = '\0';

    sprintf(buf, "%d %s: ", depth, dir_name[door]);

    if (IS_NPC(victim))
	strcat(buf, "{G");
    else
	strcat(buf, "{x");

    strcat(buf, PERS(victim, ch));
    strcat(buf, "{x\n\r");

    send_to_char(buf, ch);
    return;
}