/**************************************************************************
*  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 "tables.h"
#include "olc.h"
#include "interp.h"

FlagTable *
flag_lookup (const char *name, FlagTable * f)
{
  if (NullStr (name))
    return NULL;

  while (f->name != NULL)
    {
      if (!str_prefix (name, f->name))
	return f;
      f++;
    }
  return NULL;
}

ClanData *
clan_lookup (const char *name)
{
  ClanData *clan;

  for (clan = clan_first; clan; clan = clan->next)
    {
      if (tolower (name[0]) == tolower (clan->name[0]) &&
	  !str_prefix (name, clan->name))
	return clan;
    }

  return NULL;
}


RaceData *
race_lookup (const char *name)
{
  RaceData *race;

  for (race = race_first; race != NULL; race = race->next)
    {
      if (tolower (name[0]) == tolower (race->name[0]) &&
	  !str_prefix (name, race->name))
	return race;
    }

  return NULL;
}

Lookup_Fun (liq_lookup)
{
  int liq;

  for (liq = 0; liq_table[liq].liq_name != NULL; liq++)
    {
      if (tolower (name[0]) == tolower (liq_table[liq].liq_name[0]) &&
	  !str_prefix (name, liq_table[liq].liq_name))
	return liq;
    }

  return -1;
}

Lookup_Fun (stance_lookup)
{
  int st;

  for (st = 0; st < MAX_STANCE; st++)
    {
      if (!str_prefix (name, stance_table[st].name))
	return st;
    }
  return -1;
}

HelpData *
help_lookup (const char *keyword)
{
  HelpData *pHelp;
  char temp[MIL], argall[MIL];

  argall[0] = '\0';

  while (!NullStr (keyword))
    {
      keyword = one_argument (keyword, temp);
      if (!NullStr (argall))
	strcat (argall, " ");
      strcat (argall, temp);
    }

  for (pHelp = help_first; pHelp != NULL; pHelp = pHelp->next)
    if (is_name (argall, pHelp->keyword))
      return pHelp;

  return NULL;
}

CmdData *
cmd_lookup (const char *name)
{
  int hash;
  CmdData *pCmd;

  if (NullStr (name))
    return NULL;

  hash = tolower (name[0]) % MAX_CMD_HASH;

  for (pCmd = command_hash[hash]; pCmd; pCmd = pCmd->next_hash)
    if (!str_prefix (name, pCmd->name))
      return pCmd;

  return NULL;
}

DeityData *
deity_lookup (const char *arg)
{
  DeityData *i;

  for (i = deity_first; i; i = i->next)
    if (!str_prefix (arg, i->name))
      return i;

  return NULL;
}

Lookup_Fun (tzone_lookup)
{
  int i;

  for (i = 0; i < MAX_TZONE; i++)
    {
      if (!str_cmp (name, tzone_table[i].name))
	return i;
    }

  for (i = 0; i < MAX_TZONE; i++)
    {
      if (is_name (name, tzone_table[i].zone))
	return i;
    }

  for (i = 0; i < MAX_TZONE; i++)
    {
      if (atoi (name) - 1 == i)
	return i;
    }

  return -1;
}

AreaData *
area_lookup (const char *arg)
{
  AreaData *pArea;

  for (pArea = area_first; pArea; pArea = pArea->next)
    {
      if (is_number (arg) && atoi (arg) == pArea->vnum)
	return pArea;

      else if (tolower (arg[0]) == tolower (pArea->name[0])
	       && !str_prefix (arg, pArea->name))
	return pArea;

      else if (tolower (arg[0]) == tolower (pArea->file_name[0])
	       && !str_prefix (arg, pArea->file_name))
	return pArea;

    }
  return NULL;
}

RoomIndex *
area_begin (AreaData * pArea)
{
  RoomIndex *pRoom;
  vnum_t vnum;

  for (vnum = pArea->min_vnum; vnum <= pArea->max_vnum; vnum++)
    if (vnum > 0 && (pRoom = get_room_index (vnum)) != NULL)
      return pRoom;

  return NULL;
}

Lookup_Fun (channel_lookup)
{
  int i;

  for (i = 0; i < top_channel; i++)
    {
      if (!str_prefix (name, channel_table[i].name))
	return i;
    }
  return -1;
}


SocialData *
social_lookup (const char *name)
{
  SocialData *i;

  for (i = social_first; i; i = i->next)
    if (!str_cmp (name, i->name))
      return i;

  return NULL;
}

Lookup_Fun (get_direction)
{
  if (!str_cmp (name, "n") || !str_cmp (name, "north"))
    return DIR_NORTH;
  if (!str_cmp (name, "e") || !str_cmp (name, "east"))
    return DIR_EAST;
  if (!str_cmp (name, "s") || !str_cmp (name, "south"))
    return DIR_SOUTH;
  if (!str_cmp (name, "w") || !str_cmp (name, "west"))
    return DIR_WEST;
  if (!str_cmp (name, "u") || !str_cmp (name, "up"))
    return DIR_UP;
  if (!str_cmp (name, "d") || !str_cmp (name, "down"))
    return DIR_DOWN;

  return -1;
}