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

int channel_songs[MAX_GLOBAL + 1];

int
song_lookup (const char *name)
{
  int i;

  for (i = 0; i < top_song; i++)
    if (is_name (name, song_table[i].name))
      return i;

  return -1;
}

void
song_update (void)
{
  ObjData *obj;
  CharData *victim;
  RoomIndex *room;
  Descriptor *d;
  char buf[MAX_STRING_LENGTH];
  const char *line;
  int i;


  if (channel_songs[1] >= top_song)
    channel_songs[1] = -1;

  if (channel_songs[1] > -1)
    {
      if (channel_songs[0] >= MAX_LINES ||
	  channel_songs[0] >= song_table[channel_songs[1]].lines)
	{
	  channel_songs[0] = -1;


	  for (i = 1; i < MAX_GLOBAL; i++)
	    channel_songs[i] = channel_songs[i + 1];
	  channel_songs[MAX_GLOBAL] = -1;
	}
      else
	{
	  if (channel_songs[0] < 0)
	    {
	      sprintf (buf, "Music: %s, %s",
		       song_table[channel_songs[1]].group,
		       song_table[channel_songs[1]].name);
	      channel_songs[0] = 0;
	    }
	  else
	    {
	      sprintf (buf, "Music: '%s'",
		       song_table[channel_songs[1]].lyrics[channel_songs[0]]);
	      channel_songs[0]++;
	    }

	  for (d = descriptor_first; d != NULL; d = d->next)
	    {
	      victim = d->original ? d->original : d->character;

	      if (d->connected == CON_PLAYING &&
		  !IsSet (victim->comm, COMM_NOMUSIC) &&
		  !IsSet (victim->comm, COMM_QUIET))
		act_new ("$t", d->character, buf, NULL,
			 TO_CHAR, POS_SLEEPING);
	    }
	}
    }

  for (obj = obj_first; obj != NULL; obj = obj->next)
    {
      if (obj->item_type != ITEM_JUKEBOX || obj->value[1] < 0)
	continue;

      if (obj->value[1] >= top_song)
	{
	  obj->value[1] = -1;
	  continue;
	}



      if ((room = obj->in_room) == NULL)
	{
	  if (obj->carried_by == NULL)
	    continue;
	  else if ((room = obj->carried_by->in_room) == NULL)
	    continue;
	}

      if (obj->value[0] < 0)
	{
	  sprintf (buf, "$p starts playing %s, %s.",
		   song_table[obj->value[1]].group,
		   song_table[obj->value[1]].name);
	  if (room->person_first != NULL)
	    act (buf, room->person_first, obj, NULL, TO_ALL);
	  obj->value[0] = 0;
	  continue;
	}
      else
	{
	  if (obj->value[0] >= MAX_LINES ||
	      obj->value[0] >= song_table[obj->value[1]].lines)
	    {

	      obj->value[0] = -1;


	      obj->value[1] = obj->value[2];
	      obj->value[2] = obj->value[3];
	      obj->value[3] = obj->value[4];
	      obj->value[4] = -1;
	      continue;
	    }

	  line = song_table[obj->value[1]].lyrics[obj->value[0]];
	  obj->value[0]++;
	}

      sprintf (buf, "$p bops: '%s'", line);
      if (room->person_first != NULL)
	act (buf, room->person_first, obj, NULL, TO_ALL);
    }
}

Do_Fun (do_play)
{
  ObjData *juke;
  const char *str;
  char arg[MAX_INPUT_LENGTH];
  int song, i;
  bool global = false;

  str = one_argument (argument, arg);

  for (juke = ch->in_room->content_first; juke != NULL;
       juke = juke->next_content)
    if (juke->item_type == ITEM_JUKEBOX && can_see_obj (ch, juke))
      break;

  if (NullStr (argument))
    {
      cmd_syntax (ch, NULL, n_fun, "list [artist]", "[loud] <song>", NULL);
      chprintln (ch, "Play what?");
      return;
    }

  if (juke == NULL)
    {
      chprintln (ch, "You see nothing to play.");
      return;
    }

  if (!str_cmp (arg, "list"))
    {
      Buffer *buffer;
      int col = 0;
      bool artist = false, match = false;

      buffer = new_buf ();
      argument = str;
      argument = one_argument (argument, arg);

      if (!str_cmp (arg, "artist"))
	artist = true;

      if (!NullStr (argument))
	match = true;

      bprintlnf (buffer, "%s has the following songs available:",
		 juke->short_descr);

      for (i = 0; i < top_song; i++)
	{
	  if (artist &&
	      (!match || !str_prefix (argument, song_table[i].group)))
	    bprintlnf (buffer, "%-39s %-39s", song_table[i].group,
		       song_table[i].name);
	  else if (!artist
		   && (!match || !str_prefix (argument, song_table[i].name)))
	    bprintf (buffer, "%-35s ", song_table[i].name);
	  else
	    continue;
	  if (!artist && ++col % 2 == 0)
	    bprintln (buffer, NULL);
	}
      if (!artist && col % 2 != 0)
	bprintln (buffer, NULL);

      sendpage (ch, buf_string (buffer));
      free_buf (buffer);
      return;
    }

  if (!str_cmp (arg, "loud"))
    {
      argument = str;
      global = true;
    }

  if (NullStr (argument))
    {
      chprintln (ch, "Play what?");
      return;
    }

  if ((global &&channel_songs[MAX_GLOBAL] >
       -1) ||(!global &&juke->value[4] > -1))
    {
      chprintln (ch, "The jukebox is full up right now.");
      return;
    }

  for (song = 0; song < top_song; song++)
    {
      if (!str_prefix (argument, song_table[song].name))
	break;
    }

  if (song >= top_song)
    {
      chprintln (ch, "That song isn't available.");
      return;
    }

  chprintln (ch, "Coming right up.");

  if (global)
    {
      for (i = 1; i <= MAX_GLOBAL; i++)
	if (channel_songs[i] < 0)
	  {
	    if (i == 1)
	      channel_songs[0] = -1;
	    channel_songs[i] = song;
	    return;
	  }
    }
  else
    {
      for (i = 1; i < 5; i++)
	if (juke->value[i] < 0)
	  {
	    if (i == 1)
	      juke->value[0] = -1;
	    juke->value[i] = song;
	    return;
	  }
    }
}