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

Do_Fun (do_btalk)
{
  if (!ch || IsNPC (ch))
    return;

  public_ch (n_fun, ch, argument, gcn_buddy);
  return;
}

Do_Fun (do_buddy)
{
  CharData *fch;
  char arg[MIL];
  int pos;
  bool found = false;

  if (IsNPC (ch))
    {
      chprintln (ch, "Mobiles don't have buddies =).");
      return;
    }

  argument = one_argument (argument, arg);

  if (NullStr (arg))
    {
      if (NullStr (ch->pcdata->buddies[0]))
	{
	  chprintln (ch, "You have no buddies!");
	  return;
	}
      chprintln (ch, CTAG (_BTALK1) "Your " CTAG (_BTALK2) "Buddies"
		 CTAG (_BTALK1) ":{x");
      for (pos = 0; pos < MAX_BUDDY; pos++)
	{
	  if (NullStr (ch->pcdata->buddies[pos]))
	    break;
	  fch = get_char_world (NULL, ch->pcdata->buddies[pos]);
	  chprintlnf (ch, CTAG (_BTALK1) "%02d)" CTAG (_BTALK2)
		      " %-12s %s{x", pos + 1,
		      capitalize (ch->pcdata->buddies[pos]), (!fch
							      ||
							      !can_see
							      (ch,
							       fch)) ?
		      "{R(Offline){x" : check_buddy (fch,
						     ch) ==
		      -1 ? "{M(Wannabe){x" : !fch->desc ? "{C(LinkDead){x"
		      : "{G(Online){x");
	}
      return;
    }
  else if (!str_prefix (arg, "clear"))
    {
      for (pos = 0; pos < MAX_BUDDY; pos++)
	{
	  if (NullStr (ch->pcdata->buddies[pos]))
	    break;
	  replace_str (&ch->pcdata->buddies[pos], "");
	}
      chprintln (ch, "No one is your buddy!");
      return;
    }
  else if (!str_prefix (arg, "wannabe"))
    {
      chprintln (ch, CTAG (_BTALK1)
		 "People online who want to be your buddy:{x");
      for (fch = player_first; fch != NULL; fch = fch->next_player)
	{
	  if (check_buddy (fch, ch) != -1 && check_buddy (ch, fch) == -1)
	    {
	      chprintlnf (ch, CTAG (_BTALK1) "- " CTAG (_BTALK2)
			  "%-12s{x", fch->name);
	      found = true;
	    }
	}
      if (!found)
	chprintln (ch, CTAG (_BTALK1) "- " CTAG (_BTALK2) "No one.{x");
      return;
    }
  else if (!str_prefix (arg, "deny"))
    {
      if ((fch = get_char_world (ch, argument)) == NULL || IsNPC (fch))
	{
	  chprintln (ch, "They aren't online.");
	  return;
	}
      if (fch == ch)
	{
	  chprintln (ch, "Deny yourself from being your buddy.... ok then.");
	  return;
	}
      if (check_buddy (fch, ch) != -1 && check_buddy (ch, fch) == -1)
	{
	  for (pos = 0; pos < MAX_BUDDY; pos++)
	    {
	      if (NullStr (fch->pcdata->buddies[pos]))
		break;
	      if (found)
		{
		  replace_str (&fch->pcdata->buddies[pos - 1],
			       fch->pcdata->buddies[pos]);
		  fch->pcdata->buddies[pos] = NULL;
		  continue;
		}
	      if (!str_prefix (ch->name, fch->pcdata->buddies[pos]))
		{
		  chprintlnf (fch, "%s doesn't want to be your buddy.",
			      ch->name);
		  chprintlnf
		    (ch,
		     "You inform %s you don't want to be their buddy.",
		     fch->name);
		  replace_str (&fch->pcdata->buddies[pos], "");
		  found = true;
		}
	    }

	  if (!found)
	    {
	      bugf ("%s isn't a wannabe of %s", ch->name, fch->name);
	      return;
	    }
	}
      else
	chprintln (ch, "They don't want to be your buddy.");
      return;
    }
  else
    {
      for (pos = 0; pos < MAX_BUDDY; pos++)
	{
	  if (NullStr (ch->pcdata->buddies[pos]))
	    break;
	  if (found)
	    {
	      replace_str (&ch->pcdata->buddies[pos - 1],
			   ch->pcdata->buddies[pos]);
	      free_string (ch->pcdata->buddies[pos]);
	      continue;
	    }
	  if (!str_prefix (arg, ch->pcdata->buddies[pos]))
	    {
	      if ((fch = get_char_world (ch, ch->pcdata->buddies[pos]))
		  != NULL)
		{
		  if (check_buddy (fch, ch) != -1)
		    chprintlnf (fch, "%s is no longer your buddy.", ch->name);
		  else
		    chprintlnf (fch,
				"%s no longer wants to be your buddy.",
				ch->name);
		}
	      chprintlnf (ch, "%s is no longer your buddy.",
			  capitalize (arg));
	      replace_str (&ch->pcdata->buddies[pos], "");
	      found = true;
	    }
	}

      if (found)
	return;

      if (pos >= MAX_BUDDY)
	{
	  chprintln (ch, "Too many people, remove a name.");
	  return;
	}
      if ((fch = get_char_world (ch, arg)) == NULL)
	{
	  if (!file_exists (pfilename (arg, PFILE_NORMAL)))
	    {
	      chprintln (ch, "That character doesn't exist.");
	      return;
	    }

	  replace_str (&ch->pcdata->buddies[pos], capitalize (arg));
	  chprintlnf (ch, "You are now buddies with %s, who is offline.",
		      capitalize (arg));
	  return;
	}
      if (fch == ch)
	{
	  chprintln (ch, "Are you that lonely?");
	  return;
	}
      if (IsNPC (fch))
	{
	  chprintln (ch, "Uh, nope.");
	  return;
	}

      replace_str (&ch->pcdata->buddies[pos], capitalize (arg));
      if (check_buddy (fch, ch) == -1)
	chprintlnf (ch, "You are now a wannabe buddy of %s.",
		    capitalize (ch->pcdata->buddies[pos]));
      else
	chprintlnf (ch, "You are now buddies with %s.",
		    capitalize (ch->pcdata->buddies[pos]));
      if (check_buddy (fch, ch) == -1)
	chprintlnf (fch,
		    "%s wants to be your buddy. (see 'buddy wannabe')",
		    ch->name);
      else
	chprintlnf (fch, "%s is now your buddy.", ch->name);
      return;
    }
}

int
check_buddy (CharData * ch, CharData * fch)
{
  int pos;

  if (!ch || !fch)
    return -1;

  if (IsNPC (ch) || IsNPC (fch))
    return -1;

  for (pos = 0; pos < MAX_BUDDY; pos++)
    {
      if (NullStr (ch->pcdata->buddies[pos]))
	break;
      if (is_name (fch->name, ch->pcdata->buddies[pos]))
	return pos;
    }
  return -1;
}