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

void
do_fusiondance(CHAR_DATA * ch, char *argument)
{
  CHAR_DATA *rch;
  CHAR_DATA *vch;
  CHAR_DATA *dch;               /*dominant fuse char */
  CHAR_DATA *sch;               /*stasis fuse char */
  char arg[MAX_INPUT_LENGTH];
  char arg2[MAX_INPUT_LENGTH];
  bool cright = FALSE;
  bool vright = FALSE;
  bool cleft = FALSE;
  bool vleft = FALSE;
  OBJ_DATA *ro;
  OBJ_DATA *vo;
  OBJ_DATA *po;
  OBJ_DATA *o;
  OBJ_INDEX_DATA *pObjIndex;
  // int sn;
  // int value;
  bool saiyan1 = FALSE, saiyan2 = FALSE;
  bool namek1 = FALSE, namek2 = FALSE;
  bool human1 = FALSE, human2 = FALSE;
  bool halfb1 = FALSE, halfb2 = FALSE;
  bool genie1 = FALSE, genie2 = FALSE;


  argument = one_argument(argument, arg);
  argument = one_argument(argument, arg2);

  if (arg[0] == '\0') {
    ch_printf(ch,
              "\n\rSyntax:  fusiondance (first person) (second person)\n\r");
    ch_printf(ch,
              "\n\rThe order in which you put the two people's names in does not matter.\n\r");
    return;
  }
  if ((rch = get_char_room(ch, arg)) == NULL) {
    ch_printf(ch, "There is nobody here named %s.\n\r", arg);
    return;
  }
  if ((vch = get_char_room(ch, arg2)) == NULL) {
    ch_printf(ch, "There is nobody here named %s.\n\r", arg2);
    return;
  }
  if (IS_NPC(rch) || IS_NPC(vch)) {
    ch_printf(ch, "NPC's cannot fuse.\n\r");
    return;
  }
  if (is_fused(rch)) {
    ch_printf(ch, "%s has already fused before.\n\r", rch->name);
    return;
  }
  if (is_fused(vch)) {
    ch_printf(ch, "%s has already fused before.\n\r", vch->name);
    return;
  }
  if (IS_IMMORTAL(rch) || IS_IMMORTAL(vch)) {
    ch_printf(ch, "Admins may not fuse.\n\r");
    return;
  }
  if (rch->pcdata->clan) {
    ch_printf(ch, "%s must be outcasted from their clan first.\n\r",
              rch->name);
    return;
  }
  if (vch->pcdata->clan) {
    ch_printf(ch, "%s must be outcasted from their clan first.\n\r",
              vch->name);
    return;
  }

  if (is_transformed(rch)) {
    ch_printf(ch, "%s must power down completely first.\n\r", rch->name);
    return;
  }
  if (is_transformed(vch)) {
    ch_printf(ch, "%s must power down completely first.\n\r", vch->name);
    return;
  }
  if ((ro = fusion_item_1(rch)) == NULL) {
    if ((ro = fusion_item_2(rch)) == NULL) {
      ch_printf(ch, "%s is not wearing a needed item..\n\r", rch->name);
      return;
    } else
      cleft = TRUE;
  } else
    cright = TRUE;
  if ((vo = fusion_item_1(vch)) == NULL) {
    if ((vo = fusion_item_2(vch)) == NULL) {
      ch_printf(ch, "%s is not wearing a needed item.\n\r", vch->name);
      return;
    } else
      vleft = TRUE;
  } else
    vright = TRUE;

  if (cright && vright) {
    ch_printf(ch, "One of them must be wearing a needed item.\n\r");
    return;
  }
  if (cleft && vleft) {
    ch_printf(ch, "One of them must be wearing a needed item.\n\r");
    return;
  }
  if (cright && vleft) {
    dch = rch;
    sch = vch;
  } else if (cleft && vright) {
    dch = vch;
    sch = rch;
  } else {
    ch_printf(ch, "Cyris fucked up. Let him know...\n\r");
    return;
  }

  unequip_char(rch, ro);
  unequip_char(vch, vo);
  extract_obj(ro);
  extract_obj(vo);

  pObjIndex = get_obj_index(620);
  po = create_object_new(pObjIndex, 1, ORIGIN_OINVOKE, ch->name);
  po = obj_to_char(po, dch);

  dch->fused[dch->fusions] = STRALLOC(sch->name);
  sch->fused[sch->fusions] = STRALLOC(dch->name);
  dch->fusions++;
  sch->fusions++;
  dch->bck_name = STRALLOC(dch->name);
  sch->bck_name = STRALLOC(sch->name);
  dch->bck_race = dch->race;
  sch->bck_race = sch->race;
  dch->bck_pl = dch->exp;
  sch->bck_pl = sch->exp;
  dch->fusiontimer = 60;
  sch->fusiontimer = 60;

/* Get fusion shit for this --Cyris*/

  if (!str_cmp(get_race(dch), "saiyan"))
    saiyan1 = TRUE;
  if (!str_cmp(get_race(sch), "saiyan"))
    saiyan2 = TRUE;
  if (!str_cmp(get_race(dch), "namek"))
    namek1 = TRUE;
  if (!str_cmp(get_race(sch), "namek"))
    namek2 = TRUE;
  if (!str_cmp(get_race(dch), "human"))
    human1 = TRUE;
  if (!str_cmp(get_race(sch), "human"))
    human2 = TRUE;
  if (!str_cmp(get_race(dch), "halfbreed"))
    halfb1 = TRUE;
  if (!str_cmp(get_race(sch), "halfbreed"))
    halfb2 = TRUE;
  if (!str_cmp(get_race(sch), "genie"))
    genie2 = TRUE;
  if (!str_cmp(get_race(sch), "genie"))
    genie2 = TRUE;

  if ((saiyan1 && namek2)) {
    dch->race = get_race_num("saiyan-n");
    dch->class = get_class_num("saiyan-n");
  } else if ((saiyan2 && namek1)) {
    dch->race = get_race_num("namek-s");
    dch->class = get_class_num("namek-s");
  } else if ((saiyan1 && human2)) {
    dch->race = get_race_num("saiyan-h");
    dch->class = get_class_num("saiyan-h");
  } else if ((saiyan2 && human1)) {
    dch->race = get_race_num("human-s");
    dch->class = get_class_num("human-s");
  } else if ((saiyan1 && halfb2)) {
    dch->race = get_race_num("saiyan-hb");
    dch->class = get_class_num("saiyan-hb");
  } else if ((saiyan2 && halfb1)) {
    dch->race = get_race_num("halfbreed-s");
    dch->class = get_class_num("halfbreed-s");
  } else if ((saiyan1 && saiyan2)) {
    dch->race = get_race_num("saiyan-s");
    dch->class = get_class_num("saiyan-s");
  } else if ((namek1 && halfb2)) {
    dch->race = get_race_num("namek-hb");
    dch->class = get_class_num("namek-hb");
  } else if ((namek2 && halfb1)) {
    dch->race = get_race_num("halfbreed-n");
    dch->class = get_class_num("halfbreed-n");
  } else if ((human1 && namek2)) {
    dch->race = get_race_num("human-n");
    dch->class = get_class_num("human-n");
  } else if ((human2 && namek1)) {
    dch->race = get_race_num("namek-h");
    dch->class = get_class_num("namek-h");
  } else if ((human1 && halfb2)) {
    dch->race = get_race_num("human-hb");
    dch->class = get_class_num("human-hb");
  } else if ((human2 && halfb1)) {
    dch->race = get_race_num("halfbreed-h");
    dch->class = get_class_num("halfbreed-h");
  } else if ((human1 && human2)) {
    dch->race = get_race_num("human-h");
    dch->class = get_class_num("human-h");
  } else if ((namek1 && namek2)) {
    ch_printf(ch, "You cannot fuse like this.");
  } else if ((halfb1 && halfb2)) {
    dch->race = get_race_num("halfbreed-hb");
    dch->class = get_class_num("halfbreed-hb");
  } else if ((human1 && genie2)) {
    dch->race = get_race_num("Human-g");
    dch->class = get_class_num("Human-g");
  } else if ((genie1 && human2)) {
    dch->race = get_race_num("Human-g");
    dch->class = get_class_num("Human-g");
  }
  dch->exp += sch->exp;
  dch->pl = dch->exp;

  /*
   * message sent to dch 
   */

  ch_printf(dch,
            "You life force fuses with %s's causing them to merge with you!\n\r",
            sch->name);

  /*
   * message sent to sch 
   */
  ch_printf(sch,
            "Your body fuses with %s's and you agree to give your namekian power for some reason...\n\r",
            dch->name);

  while ((o = carrying_noquit(sch)) != NULL) {
    obj_from_char(o);
    obj_to_room(o, sch->in_room);
    ch_printf(sch, "&wYou drop %s&w.\n\r", o->short_descr);
  }

  SET_BIT(dch->fusionflags, FUSION_DANCE);
  SET_BIT(sch->fusionflags, FUSION_STASIS);
  do_reserve(ch, dch->name);
  do_reserve(ch, sch->name);
  char_to(sch, ROOM_VNUM_FUSIONSTASIS);
  save_char_obj(dch);
  save_char_obj(sch);

  /*
   * do_sset(ch,strcat(dch->name," all 95"));
   */
  ch_printf(ch, "%s and %s have been fused together.\n\r", dch->name,
            sch->name);
}