/****************************************************************************
 * ResortMUD Version 5.0 was mainly programmed by Ntanel, Garinan, Josh,    *
 * Badastaz, Digifuzz, Senir, Kratas, Scion, Shogar and Tagith.             *
 * ------------------------------------------------------------------------ *
 * Copyright (C) 1996 - 2001 Haslage Net Electronics: MudWorld of Lorain,   *
 * Ohio.    ALL RIGHTS RESERVED    See /doc/RMLicense.txt for more details. *
 ****************************************************************************/

/****************************************************************************
 * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame      |   \\._.//   *
 * -----------------------------------------------------------|   (0...0)   *
 * SMAUG 1.4 (C) 1994, 1995, 1996, 1998  by Derek Snider      |    ).:.(    *
 * -----------------------------------------------------------|    {o o}    *
 * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus,      |   / ' ' \   *
 * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek,      |~'~.VxvxV.~'~*
 * Tricops and Fireblade                                      |             *
 * ------------------------------------------------------------------------ *
 * Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael        *
 * Chastain, Michael Quan, and Mitchell Tse.                                *
 * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,          *
 * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.     *
 * ------------------------------------------------------------------------ *
 *			   Rare Item Code Module                            *
 *                       Shadroth - Lands of Shadow                         *
 ****************************************************************************/

#include <dirent.h>
#include "mud.h"
#include "rare.h"

void scan_equipment( void )
{
   DIR *dp;
   struct dirent *dir_entry;
   char dir_name[100];
   int alpha_loop;

   log_string( "Updating rare/unique item counts....." );

   log_string( "Checking player files...." );
   
   for ( alpha_loop = 0; alpha_loop <= 25; alpha_loop++ )
   {
      sprintf( dir_name, "%s%c", PLAYER_DIR, 'a' + alpha_loop );
      dp = opendir( dir_name );
      dir_entry = readdir( dp );
      while ( dir_entry )
      {
         if ( dir_entry->d_name[0] != '.' )
         {
			if (scan_players( dir_name, dir_entry->d_name ))
				log_string( "Found rare/unique items...." );
         }
         dir_entry = readdir( dp );
      }
      closedir( dp );
   }

   log_string( "Checking corpses...." );
   
   sprintf( dir_name, "%s", CORPSE_DIR );
   dp = opendir( dir_name );
   dir_entry = readdir( dp );
   while ( dir_entry )
   {
      if ( dir_entry->d_name[0] != '.' )
      {
         if(scan_corpses( dir_name, dir_entry->d_name ))
			 log_string( "Found rare/unique items." );
      }
      dir_entry = readdir( dp );
   }
   closedir( dp );
   
   return;
}

bool scan_players( char *dirname, char *filename )
{
   FILE *player_file;
   char file_name[MAX_STRING_LENGTH];
   bool found = FALSE;

   sprintf( file_name, "%s/%s", dirname, filename );

   if ( ( player_file = fopen( file_name, "r" ) ) == NULL )
   {
      perror( file_name );
      return found;
   }

   for ( ; ; )
   {
	int vnum, counter = 1;
	char letter;
	char *word;
	OBJ_INDEX_DATA *pObjIndex;

	letter = fread_letter( player_file );
	if ( letter != '#' )
	   continue;

	word = fread_word( player_file );

	if ( !str_cmp( word, "End" ) )
	   break;

	if ( !str_cmp( word, "OBJECT" ) )
	{
	   word = fread_word( player_file );
 
	   if ( !str_cmp( word, "Count" ) )
	   {
		counter = fread_number( player_file );
		word = fread_word( player_file );
	   }

	   if ( !str_cmp( word, "Vnum" ) )
	   {
		vnum = fread_number( player_file );
		if ( ( get_obj_index( vnum ) ) == NULL )
		{
		   bug("Bad obj vnum in limits: %d",vnum );
		}
		else
		{
		   pObjIndex = get_obj_index( vnum );
		   if ( IS_OBJ_STAT(pObjIndex,ITEM_RARE) || IS_OBJ_STAT(pObjIndex,ITEM_UNIQUE) )
		   {
				pObjIndex->count += counter;
				found = TRUE;
		   }
		}
	   }
	}
   }

   fclose( player_file );
   player_file = NULL;
   return found;
}

bool scan_corpses( char *dirname, char *filename )
{
   FILE *corpse_file;
   char file_name[MAX_STRING_LENGTH];
   bool found = FALSE;

   sprintf( file_name, "%s/%s", dirname, filename );

   if ( ( corpse_file = fopen( file_name, "r" ) ) == NULL )
   {
      perror( file_name );
      return found;
   }

   for ( ; ; )
   {
	int vnum, counter = 1, nest = 0;
	char letter;
	char *word;
	OBJ_INDEX_DATA *pObjIndex;

	letter = fread_letter( corpse_file );
	if ( letter != '#' )
	   continue;

	word = fread_word( corpse_file );

	if ( !str_cmp( word, "End" ) )
	   break;

	if ( !str_cmp( word, "OBJECT" ) )
	{
	   word = fread_word( corpse_file );
 
	   if ( !str_cmp( word, "Nest" ) )
	   {
		nest = fread_number( corpse_file );
		word = fread_word( corpse_file );
	   }

	   if ( !str_cmp( word, "Count" ) )
	   {
		counter = fread_number( corpse_file );
		word = fread_word( corpse_file );
	   }

	   if ( !str_cmp( word, "Vnum" ) )
	   {
		vnum = fread_number( corpse_file );
		if ( ( get_obj_index( vnum ) ) == NULL )
		{
		   bug( "Bad obj vnum in limits: %d", vnum );
		}
		else
		{
		   pObjIndex = get_obj_index( vnum );
		   if ( IS_OBJ_STAT(pObjIndex,ITEM_RARE) || IS_OBJ_STAT(pObjIndex,ITEM_UNIQUE) )
		   {
			   pObjIndex->count += counter;
			   found = TRUE;
		   }
		}
	   }
	}
   }

   fclose( corpse_file );
   corpse_file = NULL;

   return found;
}