/**************************************************************************
*  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                    *
***************************************************************************
* The Dawn of Time v1.69q (c)1997-2002 Michael Garratt                    *
* >> A number of people have contributed to the Dawn codebase, with the   *
*    majority of code written by Michael Garratt - www.dawnoftime.org     *
* >> To use this source code, you must fully comply with the dawn license *
*    in licenses.txt... In particular, you may not remove this copyright  *
*    notice.                                                              *
***************************************************************************
*          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"
#include "recycle.h"
#include "data_table.h"
#include "olc.h"

void
init_name_profiles (void)
{
  const char *word2;
  char buf[MSL];
  int i = 0, count;
  NameProfile *nl;

  top_name_profile = 0;
  if (!name_profile_first)
    {
      name_profile_first = new_name_profile ();
      name_profile_first->title = str_dup ("mixed fantasy names");
      name_profile_first->part[0] =
	str_dup ("A Ab Ac Ad Af Agr Ast As Al Adw Adr "
		 "Ar B Br C C C Cr Ch Cad D Dr Dw Ed Eth Et Er El Eow F Fr G Gr Gw Gw "
		 "Gal Gl H Ha Ib Jer K Ka Ked L Loth Lar Leg M Mir N Nyd Ol Oc On P "
		 "Pr R Rh S Sev T Tr Th Th V Y Yb Z W W Wic");
      name_profile_first->part[1] =
	str_dup ("a ae ae au ao are ale ali ay ardo e "
		 "ei ea ea eri era ela eli enda erra i ia ie ire ira ila ili ira igo "
		 "o oa oi oe ore u y");
      name_profile_first->part[2] =
	str_dup ("_ _ _ _ _ _ a and b bwyn baen bard "
		 "c ctred cred ch can d dan don der dric dfrid dus f g gord gan l li "
		 "lgrin lin lith lath loth ld ldric ldan m mas mos mar mond n nydd "
		 "nidd nnon nwan nyth nad nn nnor nd p r ron rd s sh seth sean t th "
		 "th tha tlan trem tram v vudd w wan win win wyn wyn wyr wyr wyth");
      name_profile_first->next = NULL;
    };

  for (nl = name_profile_first; nl != NULL; nl = nl->next)
    {
      top_name_profile++;
      for (i = 0; i < MAX_PARTS; i++)
	{
	  count = 0;
	  word2 = nl->part[i];
	  while (true)
	    {
	      word2 = one_argument (word2, buf);
	      if (NullStr (word2))
		{
		  break;
		}
	      count++;
	    }
	  nl->part_count[i] = count;
	}
    }
}

DataTable name_profile_data_table[] = {
  DTE (STRING, name_profile, title, NULL, NULL, str, NULL),
  DTE (STRING_ARRAY, name_profile, part, MAX_PARTS, NULL, sarray, NULL),
  DTE_END
};

TableSave_Fun (rw_name_profile_data)
{
  rw_list (type, NAMEGEN_FILE, NameProfile, name_profile);
  if (type == act_read)
    init_name_profiles ();
}

NameProfile *
profile_lookup (int which)
{
  NameProfile *nl;
  int i = 0;

  for (nl = name_profile_first; nl; nl = nl->next)
    {
      if (++i >= which)
	break;
    }
  return nl;
}


char *
genname (NameProfile * profile)
{
  static int i;
  static char result[5][100];
  const char *word;
  char buf[MIL];
  int wordnum;
  int count, j;


  ++i, i %= 5;
  result[i][0] = NUL;

  for (j = 0; j < MAX_PARTS; j++)
    {
      word = profile->part[j];
      wordnum = number_range (0, profile->part_count[j]);
      count = 0;
      while (true)
	{
	  word = one_argument (word, buf);
	  if (NullStr (buf))
	    {
	      bugf
		("char * genname(%s) - no word found!!! j=%d, wn=%d, count=%d.",
		 profile->title, j, wordnum, count);
	      break;
	    }
	  if (count == wordnum)
	    {
	      break;
	    }
	  count++;
	}
      if (!NullStr (buf) && buf[0] != '_')
	{
	  strcat (result[i], buf);
	}
    }
  return result[i];
}

Do_Fun (do_genname)
{
  int count, i, profile_num;
  NameProfile *nl;
  char arg[MIL];
  Column Cd;

  if (!name_profile_first)
    {
      chprintln (ch, "Random name generation is currently unavailable.");
      return;
    }

  if (NullStr (argument) || !is_number (argument))
    {
      chprintlnf (ch, "{R%s NAME GENERATOR{x", strupper (mud_info.name));
      chprintlnf (ch, "Syntax: %s <1-%d> <amount>", n_fun, top_name_profile);
      chprintln (ch,
		 "Notes: <profile> relates to the name profile you want to use.");

      for (count = 0, nl = name_profile_first; nl; nl = nl->next)
	{
	  chprintlnf (ch, "%2d> %s", ++count, nl->title);
	}
      return;
    }

  argument = one_argument (argument, arg);

  profile_num = atoi (arg);

  if (!NullStr (argument))
    count = atoi (argument);
  else
    count = 60;

  if (profile_num < 1 || profile_num > top_name_profile
      || (nl = profile_lookup (profile_num)) == NULL)
    {
      chprintln (ch, "Invalid profile number.");
      do_genname (n_fun, ch, "");
      return;
    }

  if (count < 1 || count > 100)
    {
      chprintln (ch,
		 "Please choose a reasonable amount of names to display.");
      return;
    }

  chprintlnf (ch, "{R%s NAME GENERATOR - %s{x", strupper (mud_info.name),
	      strupper (nl->title));

  set_cols (&Cd, ch, 4, COLS_CHAR, ch);

  for (i = 0; i < count; i++)
    {
      print_cols (&Cd, capitalize (genname (nl)));
    }
  cols_nl (&Cd);
}

const char *
get_random_name (void)
{
  NameProfile *nl;

  do
    {
      nl = profile_lookup (number_range (1, top_name_profile));
    }
  while (nl == NULL);

  return capitalize (genname (nl));
}