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

bool
is_ignoring (CharData * ch, const char *name, flag_t bit)
{
  int pos;

  if (ch == NULL || NullStr (name))
    return false;

  if (IsNPC (ch))
    return false;

  for (pos = 0; pos < MAX_IGNORE; pos++)
    {
      if (NullStr (ch->pcdata->ignore[pos]))
	break;

      if (is_name (ch->pcdata->ignore[pos], name))
	{
	  if (bit == 0
	      || IsSet (ch->pcdata->ignore_flags[pos], bit | IGNORE_ALL))
	    return true;
	}
    }

  return false;
}

Do_Fun (do_ignore)
{
  CharData *victim;
  char arg[MIL];
  int pos;
  bool found = false;
  CharData *wch;
  flag_t iValue;

  argument = one_argument (argument, arg);

  if (IsNPC (ch))
    return;

  if (NullStr (arg))
    {
      Buffer *output = new_buf ();

      bprintln (output, "People you are ignoring:");
      bprintln (output, draw_line (ch, "-=", 0));
      for (pos = 0; pos < MAX_IGNORE; pos++)
	{
	  if (NullStr (ch->pcdata->ignore[pos]))
	    break;
	  found = true;
	  bprintlnf (output, "[%02d] %-12s", pos + 1,
		     ch->pcdata->ignore[pos]);
	}
      if (!found)
	bprintln (output, "No one.");
      found = false;
      pos = 0;
      bprintln (output, NULL);
      bprintln (output, "People online who are ignoring you:");
      bprintln (output, draw_line (ch, "-=", 0));
      for (wch = player_first; wch != NULL; wch = wch->next_player)
	{
	  if (!can_see (ch, wch) || !is_ignoring (wch, ch->name, 0))
	    continue;
	  pos++;
	  found = true;
	  bprintlnf (output, "[%02d] %s", pos, wch->name);
	}
      if (!found)
	bprintln (output, "No one.");
      bprintln (output, NULL);
      bprintlnf
	(output,
	 "Use '%s list' to show possible flags, use '%s <name> <flag>' to set a flags.",
	 n_fun, n_fun);
      sendpage (ch, buf_string (output));
      free_buf (output);
      return;
    }

  if (NullStr (argument))
    {
      if (!str_cmp (arg, "list"))
	{
	  show_flags (ch, ignore_flags);
	  return;
	}
      found = false;

      for (pos = 0; pos < MAX_IGNORE; pos++)
	{
	  if (NullStr (ch->pcdata->ignore[pos]))
	    break;

	  if (found)
	    {
	      replace_str (&ch->pcdata->ignore[pos - 1],
			   ch->pcdata->ignore[pos]);
	      free_string (ch->pcdata->ignore[pos]);
	      ch->pcdata->ignore[pos] = NULL;
	      ch->pcdata->ignore_flags[pos - 1] =
		ch->pcdata->ignore_flags[pos];
	      continue;
	    }

	  if (!str_cmp (arg, ch->pcdata->ignore[pos]))
	    {
	      free_string (ch->pcdata->ignore[pos]);
	      ch->pcdata->ignore[pos] = NULL;
	      ch->pcdata->ignore_flags[pos] = 0;
	      found = true;
	    }
	}
      if (found)
	{
	  chprintlnf (ch, "You stop ignoring %s.", capitalize (arg));
	  return;
	}
    }
  else
    {
      for (pos = 0; pos < MAX_IGNORE; pos++)
	{
	  if (NullStr (ch->pcdata->ignore[pos]))
	    break;

	  if (!str_cmp (arg, ch->pcdata->ignore[pos]))
	    {
	      found = true;
	      break;
	    }
	}
      if (!found)
	{
	  chprintln (ch, "They are not on your ignore list.");
	  return;
	}
    }

  if (pos >= MAX_IGNORE)
    {
      chprintln (ch, "You can't ignore anymore people");
      return;
    }

  if ((victim = get_char_world (ch, arg)) == NULL)
    {
      chprintln (ch, "That character isn't online.");
      return;
    }
  else
    {
      if (IsNPC (victim))
	{
	  chprintln (ch, "Ignore a mob?  I don't think so.");
	  return;
	}

      if (ch == victim)
	{
	  chprintln (ch, "I don't think you really want to ignore yourself.");
	  return;
	}

      if (!is_exact_name (victim->name, arg))
	{
	  chprintln (ch, "You must spell out their entire name.");
	  return;
	}

      if (IsImmortal (victim))
	{
	  chprintln (ch, "You're not going to ignore us that easily!");
	  return;
	}
    }
  if (NullStr (argument))
    {
      replace_str (&ch->pcdata->ignore[pos], capitalize (arg));
      ch->pcdata->ignore_flags[pos] = IGNORE_CHANNELS;
      chprintlnf (ch, "You now ignore %s.", capitalize (arg));
      chprintlnf
	(ch,
	 "Use '%s list' to show possible flags, use '%s <name> <flag>' to set a flags.",
	 n_fun, n_fun);
    }
  else if ((iValue = flag_value (ignore_flags, argument)) != NO_FLAG)
    {
      set_on_off (ch, &ch->pcdata->ignore_flags[pos], iValue,
		  FORMATF ("%s ignore flag set for %s.",
			   flag_string (ignore_flags, iValue),
			   ch->pcdata->ignore[pos]),
		  FORMATF ("%s ignore flag removed for %s.",
			   flag_string (ignore_flags, iValue),
			   ch->pcdata->ignore[pos]));
      return;
    }
  else
    {
      chprintlnf (ch, "Valid flags for %s are:", arg);
      print_all_on_off (ch, ignore_flags, ch->pcdata->ignore_flags[pos]);
    }
  return;

}