/****************************************************************************
 * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame      |   \\._.//   *
 * -----------------------------------------------------------|   (0...0)   *
 * SMAUG 1.4 (C) 1994, 1995, 1996, 1998  by Derek Snider      |    ).:.(    *
 * -----------------------------------------------------------|    {o o}    *
 * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus,      |   / ' ' \   *
 * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek,      |~'~.VxvxV.~'~*
 * Tricops, Fireblade, Edmond, Conran                         |             *
 * ------------------------------------------------------------------------ *
 * Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael        *
 * Chastain, Michael Quan, and Mitchell Tse.                                *
 * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,          *
 * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.     *
 * ------------------------------------------------------------------------ *
 *			Specific object creation module			    *
 ****************************************************************************/

#include <sys/types.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "mud.h"



void make_puddle args((CHAR_DATA * ch, OBJ_DATA * cont));


/*
 * Make a fire.
 */
void make_fire(ROOM_INDEX_DATA * in_room, sh_int timer)
{
  OBJ_DATA *fire;

  fire = create_object(get_obj_index(OBJ_VNUM_FIRE), 0);
  fire->timer = number_fuzzy(timer);
  obj_to_room(fire, in_room);
  return;
}

/*
 * Make a trap.
 */
OBJ_DATA *make_trap(int v0, int v1, int v2, int v3)
{
  OBJ_DATA *trap;

  trap = create_object(get_obj_index(OBJ_VNUM_TRAP), 0);
  trap->timer = 0;
  trap->value[0] = v0;
  trap->value[1] = v1;
  trap->value[2] = v2;
  trap->value[3] = v3;
  return trap;
}


/*
 * Turn an object into scraps.		-Thoric
 */
void make_scraps(OBJ_DATA * obj)
{
  char buf[MAX_STRING_LENGTH];
  OBJ_DATA *scraps, *tmpobj;
  CHAR_DATA *ch = NULL;

  separate_obj(obj);
  scraps = create_object(get_obj_index(OBJ_VNUM_SCRAPS), 0);
  scraps->timer = number_range(5, 15);

  /* don't make scraps of scraps of scraps of ... */
  if (obj->pIndexData->vnum == OBJ_VNUM_SCRAPS)
  {
    STRFREE(scraps->short_descr);
    scraps->short_descr = STRALLOC("some debris");
    STRFREE(scraps->description);
    scraps->description = STRALLOC("Bits of debris lie on the ground here.");
  }
  else
  {
    sprintf(buf, scraps->short_descr, obj->short_descr);
    STRFREE(scraps->short_descr);
    scraps->short_descr = STRALLOC(buf);
    sprintf(buf, scraps->description, obj->short_descr);
    STRFREE(scraps->description);
    scraps->description = STRALLOC(buf);
  }

  if (obj->carried_by)
  {
    act(AT_OBJECT, "$p falls to the ground in scraps!", obj->carried_by, obj, NULL, TO_CHAR);
    if (obj == get_eq_char(obj->carried_by, WEAR_WIELD)
        && (tmpobj = get_eq_char(obj->carried_by, WEAR_DUAL_WIELD)) != NULL)
      tmpobj->wear_loc = WEAR_WIELD;

    obj_to_room(scraps, obj->carried_by->in_room);
  }
  else if (obj->in_room)
  {
    if ((ch = obj->in_room->first_person) != NULL)
    {
      act(AT_OBJECT, "$p is reduced to little more than scraps.", ch, obj, NULL, TO_ROOM);
      act(AT_OBJECT, "$p is reduced to little more than scraps.", ch, obj, NULL, TO_CHAR);
    }
    obj_to_room(scraps, obj->in_room);
  }
  if ((obj->item_type == ITEM_CONTAINER || obj->item_type == ITEM_KEYRING
       || obj->item_type == ITEM_QUIVER || obj->item_type == ITEM_CORPSE_PC) && obj->first_content)
  {
    if (ch && ch->in_room)
    {
      act(AT_OBJECT, "The contents of $p fall to the ground.", ch, obj, NULL, TO_ROOM);
      act(AT_OBJECT, "The contents of $p fall to the ground.", ch, obj, NULL, TO_CHAR);
    }
    if (obj->carried_by)
      empty_obj(obj, NULL, obj->carried_by->in_room);
    else if (obj->in_room)
      empty_obj(obj, NULL, obj->in_room);
    else if (obj->in_obj)
      empty_obj(obj, obj->in_obj, NULL);
  }
  extract_obj(obj);
}


/*
 * Make a corpse out of a character.
 */
void make_corpse(CHAR_DATA * ch, CHAR_DATA * killer)
{
  char buf[MAX_STRING_LENGTH];
  OBJ_DATA *corpse;
  OBJ_DATA *obj;
  OBJ_DATA *obj_next;
  char *name;

  if (IS_NPC(ch))
  {
    name = ch->short_descr;
    corpse = create_object(get_obj_index(OBJ_VNUM_CORPSE_NPC), 0);
    corpse->timer = 6;
    if (ch->gold > 0)
    {
      if (ch->in_room)
      {
        ch->in_room->area->gold_looted += ch->gold;
        sysdata.global_looted += ch->gold / 100;
      }
      obj_to_obj(create_money(ch->gold), corpse);
      ch->gold = 0;
    }

/* Cannot use these!  They are used.
	corpse->value[0] = (int)ch->pIndexData->vnum;
	corpse->value[1] = (int)ch->max_hit;
*/
/*	Using corpse cost to cheat, since corpses not sellable */
    corpse->cost = (-(int) ch->pIndexData->vnum);
    corpse->value[2] = corpse->timer;
  }
  else
  {
    name = ch->name;
    corpse = create_object(get_obj_index(OBJ_VNUM_CORPSE_PC), 0);
    if (in_arena(ch))
      corpse->timer = 0;
    else
      corpse->timer = 40;
    corpse->value[2] = (int) (corpse->timer / 8);
    corpse->value[4] = ch->level;
    if (CAN_PKILL(ch) && sysdata.pk_loot)
      xSET_BIT(corpse->extra_flags, ITEM_CLANCORPSE);
    /* Pkill corpses get save timers, in ticks (approx 70 seconds)
       This should be enough for the killer to type 'get all corpse'. */
    if (!IS_NPC(ch) && !IS_NPC(killer))
      corpse->value[3] = 1;
    else
      corpse->value[3] = 0;
  }

  if (CAN_PKILL(ch) && CAN_PKILL(killer) && ch != killer && sysdata.pk_loot)
  {
    sprintf(buf, "%s", killer->name);
    STRFREE(corpse->action_desc);
    corpse->action_desc = STRALLOC(buf);
  }

  /* Added corpse name - make locate easier , other skills */
  sprintf(buf, "corpse %s", name);
  STRFREE(corpse->name);
  corpse->name = STRALLOC(buf);

  sprintf(buf, corpse->short_descr, name);
  STRFREE(corpse->short_descr);
  corpse->short_descr = STRALLOC(buf);

  sprintf(buf, corpse->description, name);
  STRFREE(corpse->description);
  corpse->description = STRALLOC(buf);

  for (obj = ch->first_carrying; obj; obj = obj_next)
  {
    obj_next = obj->next_content;
    /* don't put perm player eq in the corpse */
    if (!IS_NPC(ch) && IS_OBJ_STAT(obj, ITEM_PERMANENT))
      continue;
    obj_from_char(obj);
    if (IS_OBJ_STAT(obj, ITEM_INVENTORY) || IS_OBJ_STAT(obj, ITEM_DEATHROT))
      extract_obj(obj);
    else if (IS_OBJ_STAT(obj, ITEM_DEATHDROP))
    {
      obj_to_room(obj, ch->in_room);
      oprog_drop_trigger(ch, obj);      /* mudprogs */
    }
    else
      obj_to_obj(obj, corpse);
  }

  obj_to_room(corpse, ch->in_room);
  return;
}


void make_puddle(CHAR_DATA * ch, OBJ_DATA * cont)
{
  OBJ_DATA *obj;
  OBJ_DATA *obj_next;
  char buf[20];
  char buf2[70];
  bool found = FALSE;

  for (obj = ch->in_room->first_content; obj; obj = obj_next)
  {
    if (obj->pIndexData->item_type == ITEM_PUDDLE)
    {
      if (obj->value[2] == cont->value[2])
      {
        obj->value[1] += cont->value[1];
        obj->value[3] += cont->value[3];
        obj->timer = number_range(2, 4);
        found = TRUE;
        break;
      }
    }
    obj_next = obj->next_content;
  }

  if (!found)
  {
    obj = create_object(get_obj_index(OBJ_VNUM_PUDDLE), 0);
    obj->timer = number_range(2, 4);
    obj->value[1] += cont->value[1];
    obj->value[2] = cont->value[2];
    obj->value[3] = cont->value[3];
    obj_to_room(obj, ch->in_room);
  }

  if (obj->value[1] > 15)
    sprintf(buf, "large");
  else if (obj->value[1] > 10)
    sprintf(buf, "rather large");
  else if (obj->value[1] > 5)
    sprintf(buf, "rather small");
  else
    sprintf(buf, "small");
  sprintf(buf2, "There is a %s puddle of %s.", buf,
          (obj->value[2] >= LIQ_MAX ? "water" : liq_table[obj->value[2]].liq_name));
  obj->description = STRALLOC(buf2);
  return;
}


void make_blood(CHAR_DATA * ch)
{
  OBJ_DATA *obj;
  OBJ_DATA *obj_next;

  for (obj = ch->in_room->first_content; obj; obj = obj_next)
  {
    if (obj->pIndexData->vnum == OBJ_VNUM_BLOOD)
    {
      obj->description = STRALLOC("A large pool of spilled blood lies here.");
      obj->value[1] += number_range(3, UMIN(5, ch->level));
      obj->timer = number_range(2, 4);
      return;
    }
    obj_next = obj->next_content;
  }

  obj = create_object(get_obj_index(OBJ_VNUM_BLOOD), 0);
  obj->timer = number_range(2, 4);
  obj->value[1] = number_range(3, UMIN(5, ch->level));
  obj_to_room(obj, ch->in_room);
}


void make_bloodstain(CHAR_DATA * ch)
{
  OBJ_DATA *obj;

  obj = create_object(get_obj_index(OBJ_VNUM_BLOODSTAIN), 0);
  obj->timer = number_range(1, 2);
  obj_to_room(obj, ch->in_room);
}


/*
 * make some coinage
 */
OBJ_DATA *create_money(int amount)
{
  char buf[MAX_STRING_LENGTH];
  OBJ_DATA *obj;

  if (amount <= 0)
  {
    bug("Create_money: zero or negative money %d.", amount);
    amount = 1;
  }

  if (amount == 1)
  {
    obj = create_object(get_obj_index(OBJ_VNUM_MONEY_ONE), 0);
  }
  else
  {
    obj = create_object(get_obj_index(OBJ_VNUM_MONEY_SOME), 0);
    sprintf(buf, obj->short_descr, amount);
    STRFREE(obj->short_descr);
    obj->short_descr = STRALLOC(buf);
    obj->value[0] = amount;
  }

  return obj;
}