/* Movement routines (north, south, go, etc.) */

#include "kernel.h"
#include "parse.h"
#include "objects.h"
#include "mobiles.h"
#include "locations.h"
#include "lflags.h"
#include "levels.h"
#include "mflags.h"
#include "sendsys.h"
#include "move.h"
#include "bprintf.h"
#include "objsys.h"
#include "mobile.h"
#include "rooms.h"
#include "fight.h"
#include "uaf.h"

static char *exittxt[] =
{
  "north", "east", "south", "west", "up", "down",
  "n", "e", "s", "w", "u", "d",
  0
};

static int exitnum[] =
{
  1, 2, 3, 4, 5, 6,
  1, 2, 3, 4, 5, 6
};

int
dodirn (int vb)
{
  char block[SETIN_MAX + 200];
  int i, pc, n;
  int newch, drnum, droff;

  if (pfighting (mynum) >= 0) {
    bprintf ("You can't just stroll out of a fight!\n");
    bprintf ("If you wish to leave, you must FLEE in a direction.\n");
    return -1;
  }
  if (iscarrby (OBJ_CATACOMB_CUPSERAPH, mynum)
      && (i = alive ((max_players + MOB_CATACOMB_SERAPH))) != -1
      && ploc (i) == ploc (mynum)) {
    bprintf ("The Seraph says 'I cannot allow you to leave this place "
	     "with the Holy Relic.'\n");
    return -1;
  }
  if (iscarrby (OBJ_CASTLE_RUNESWORD, mynum)
      && ploc ((max_players + MOB_CASTLE_GOLEM)) == ploc (mynum)
      && !EMPTY (pname ((max_players + MOB_CASTLE_GOLEM)))) {
    bprintf ("\001cThe Golem\003 bars the doorway!\n");
    return -1;
  }
  n = vb - 2;			/* Since VERB_NORTH = 2 etc....stupid */

  if (chkcrip () || chksitting ())
    return -1;

  switch (newch = getexit (ploc (mynum), n)) {
  case EX_DOWN_SLIME:
    if (state (OBJ_BLIZZARD_SLIME_PIT) != 0) {
      bprintf ("That doesn't look like a very good idea!\n");
      return -1;
    }
    newch = LOC_BLIZZARD_SLIME;
    break;
  case EX_DEFENDER:
    newch = LOC_CATACOMB_HALL;
    break;
  case EX_GET_STUFF:
    newch = LOC_CATACOMB_CHAMBER;
    break;

  default:

    if (newch >= DOOR && newch < EDOOR) {
      drnum = newch - DOOR;
      droff = /*drnum ^ 1 */ olinked (drnum);	/* other door side */
      if (state (drnum)) {
	if (!EQ (oname (drnum), "door") || isdark ()
	    || EMPTY (olongt (drnum, state (drnum))))
	  bprintf ("You can't go that way.\n");
	else
	  bprintf ("The door is closed.\n");
	return -1;
      }
      newch = obj_loc (droff);
    }
    break;
  }

  if (!exists (newch)) {
    bprintf ("You can't go that way.\n");
    return -1;
  }
  if (chkroom (newch, mynum) && !ltstflg (newch, LFL_MOVE)) {
    bprintf ("A magical force prevents you from entering that room.\n");
    return -1;
  }
  if (ltstflg (newch, LFL_PRIVATE) || ltstflg (newch, LFL_ONE_PERSON)) {
    pc = 0;
    for (i = 0; i < max_players; i++)
      if (!EMPTY (pname (i)) && ploc (i) == newch)
	pc++;
    if (pc > (ltstflg (newch, LFL_PRIVATE) ? 1 : 0)) {
      bprintf ("I'm sorry, that room is currently full.\n");
      return -1;
    }
  }
  /* database.c: North to trapdoor in ORCHOLD */
  if (n == 0) {
    if (ploc (mynum) == LOC_ORCHOLD_DAMP) {
      bprintf ("You fall through a trap door, plummeting to the ground below!\n");
      bprintf ("Dazed, you pick yourself up from the floor to find yourself...\n");
      setploc (mynum, LOC_ORCHOLD_TRAP);
      lookin (ploc (mynum), 0);
      return -1;
    }
  }
  /* Ruins Zone */
  if (newch == LOC_RUINS_SINKHOLE) {
    trapch (LOC_RUINS_SINKHOLE);
    bprintf ("You sink into the goo and find yourself in a lower level!\n");
    setploc (mynum, LOC_RUINS_GOOEY);
    trapch (ploc (mynum));
    return -1;
  }
  if (newch == LOC_RUINS_TELEPORT) {
    trapch (LOC_RUINS_TELEPORT);
    bprintf ("You open your eyes and find yourself in a different room..\n");
    setploc (mynum, LOC_RUINS_TELEPORTEND);
    trapch (ploc (mynum));
    return -1;
  }
  /* FANTASY */
#ifdef LOCMIN_FANTASY
  if (newch == LOC_FANTASY_GAIA1) {
    if ((!iswornby (OBJ_FANTASY_SILVERARMOR, mynum)
	 && !iscarrby (OBJ_FANTASY_SILVERSWORD, mynum))) {
      bprintf ("The Gaia Cave will not let you enter..\n");
      return -1;
    }
    bprintf ("The Gaia Cave seems to like the silver armor "
	     "and sword, you\nare allowed to pass.\n\n");
  }
  if (newch == LOC_FANTASY_AIRSHIP1) {
    bprintf ("The airship begins to take off as you fly over the world..\n");
    setploc (mynum, LOC_FANTASY_CASTLE1);
    trapch (ploc (mynum));
    return -1;
  }
  if (newch == LOC_FANTASY_AIRSHIP2) {
    bprintf ("The airship begins to take off as you fly over the world..\n");
    setploc (mynum, LOC_FANTASY_DFOREST18);
    trapch (ploc (mynum));
    return -1;
  }
#endif

  if (newch == LOC_BLIZZARD_LAVA_PATH2) {
    if (!iswornby (OBJ_BLIZZARD_SHIELD1, mynum)
	&& !iswornby (OBJ_BLIZZARD_SHIELD2, mynum)
	&& !iswornby (OBJ_TREEHOUSE_SHIELD, mynum)
	&& !iswornby (OBJ_CATACOMB_SHIELD, mynum)
	&& !iswornby (OBJ_EFOREST_SHIELD, mynum)) {
      bprintf ("The intense heat drives you back.\n");
      return -1;
    }
    bprintf ("The shield protects you from the worst of the lava's heat.\n");
  }
  if (n == EX_NORTH) {
    for (i = max_players; (!mtstflg (i, MFL_BAR_N) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_N) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 says 'None shall pass!'\n", pname (i));
      return -1;
    }
    if (iscarrby (OBJ_EFOREST_HOPE, mynum) && ploc (mynum) == LOC_EFOREST_STONE) {
      bprintf ("A mysterious force prevents you from going that way.\n");
      return -1;
    }
  }
  if (n == EX_WEST) {

    for (i = max_players; (!mtstflg (i, MFL_BAR_W) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_W) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 gives a warning growl.\n", pname (i));
      bprintf ("\001p%s\003 won't let you go West!\n", pname (i));
      return -1;
    }
  }
  if ((n == 0) || (n == 1) || (n == 2) || (n == 5)) {
    if ((i = alive ((max_players + MOB_EFOREST_ASMADEUS))) != -1
	&& plev (mynum) < LVL_WIZARD
	&& ploc (i) == ploc (mynum)) {
      bprintf ("\001pAsmadeus\003 refuses to let you enter his museum.\n");
      return -1;
    }
  }
  if (n == EX_DOWN) {		/* can't go down unless empty-handed */
    if ((ploc (mynum) == LOC_CATACOMB_BEGGAR || ploc (mynum) == LOC_VALLEY_FALLS)
	&& gotanything (mynum)) {
      if (ploc (mynum) == LOC_CATACOMB_BEGGAR) {
	bprintf ("A mysterious force blocks your passage.\n");
	if (ploc ((max_players + MOB_CATACOMB_BEGGAR)) == ploc (mynum)) {
	  sendf (ploc (mynum),
		 "%s says 'To continue on, you must forego all worldly "
	      "possessions.'\n", pname (max_players + MOB_CATACOMB_BEGGAR));
        }
	return -1;
      } else {
	bprintf ("The steep and slippery sides of the pool make it "
		 "impossible to climb down\nwithout dropping everything "
		 "first.\n");
	return -1;
      }
    }
    for (i = max_players; (!mtstflg (i, MFL_BAR_D) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_D) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 refuses to let you go Down!\n", pname (i));
      return -1;
    }
  }
  if (n == EX_UP) {
    for (i = max_players; (!mtstflg (i, MFL_BAR_U) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_U) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 blocks your way up!\n", pname (i));
      return -1;
    }
#ifdef LOCMIN_ANCIENT
    if ((i = ploc (mynum)) == ploc ((max_players + MOB_ANCIENT_RATTLESNAKE))
	&& alive ((max_players + MOB_ANCIENT_RATTLESNAKE)) != -1
	&& (!ishere (OBJ_ANCIENT_CHAIN) || !ishere (OBJ_ANCIENT_RBLOCK) ||
	    !ishere (OBJ_ANCIENT_RCOINS) || !ishere (OBJ_ANCIENT_RPLATE))) {
      hit_player (max_players + MOB_ANCIENT_RATTLESNAKE, mynum, -1);
      return -1;
    }
#endif
  }
  if (n == EX_SOUTH) {

    if ((i = alive ((max_players + MOB_BLIZZARD_FIGURE))) != mynum && i != -1
	&& ploc (i) == ploc (mynum) && !iswornby (OBJ_BLIZZARD_BLACKROBE, mynum)) {
      bprintf ("\001pThe Figure\003 holds you back!\n");
      bprintf ("\001pThe Figure\003 says 'Only true sorcerors may pass.'\n");
      return -1;
    }
    for (i = max_players; (!mtstflg (i, MFL_BAR_S) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_S) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 holds you back!\n", pname (i));
      return -1;
    }
  }
  if (n == EX_EAST) {
    if ((i = alive ((max_players + MOB_OAKTREE_VIOLA))) != mynum && i != -1
	&& ploc (i) == ploc (mynum) &&
	carries_obj_type (i, OBJ_OAKTREE_FAN) == -1) {
      bprintf ("\001pViola\003 says 'How dare you come to our land!  "
	       "Leave at once!'\n");
      return -1;
    }
    for (i = max_players; (!mtstflg (i, MFL_BAR_E) || ploc (i) != ploc (mynum)
			   || alive (i) == -1) && i < numchars; i++) ;
    if (mtstflg (i, MFL_BAR_E) && alive (i) != -1 && ploc (i) == ploc (mynum)
	&& plev (mynum) < LVL_WIZARD) {
      bprintf ("\001p%s\003 won't let you go East!\n", pname (i));
      return -1;
    }
  }
  if (ltstflg (newch, LFL_ON_WATER)) {
    if (plev (mynum) < LVL_WIZARD && !carries_boat (mynum)) {

      bprintf ("You need a boat to go to sea!\n");
      return -1;
    }
  }
  if (ltstflg (newch, LFL_IN_WATER)) {
    if (plev (mynum) < LVL_WIZARD) {
      bprintf ("You'd surely drown!\n");
      return -1;
    }
  }
  if (n == EX_DOWN && ploc (mynum) == LOC_OAKTREE_LANDING) {
    bprintf ("You slide down the banister.  Wheee!\n");

    send_msg (ploc (mynum), 0, pvis (mynum), LVL_MAX, mynum, NOBODY,
	      "%s slides down the banister shouting 'Yippeee...'\n",
	      pname (mynum));

    send_msg (newch, 0, pvis (mynum), LVL_MAX, mynum, NOBODY,
	      "%s slides down the banister and lands at your feet.\n",
	      pname (mynum));

    if (oloc (OBJ_OAKTREE_MARBLEBUST) == newch) {
      bprintf ("On your way down, you smash a valuable bust.\n");

      send_msg (newch, 0, pvis (mynum), LVL_MAX, mynum, NOBODY,
		"%s smashed a valuable bust on %s way down.\n",
		pname (mynum), his_or_her (mynum));

      destroy (OBJ_OAKTREE_MARBLEBUST);
      create (OBJ_OAKTREE_BUSTBROKEN);
    }
  } else if (mynum < max_players && cur_player->asmortal > 0) {
    send_msg (ploc (mynum), 0, max (LVL_WIZARD, pvis (mynum)), LVL_MAX,
	      mynum, NOBODY, "%s\n",
	      build_setin (block, cur_player->setout, pname (mynum), exittxt[n], NULL));
    send_msg (newch, 0, max (LVL_WIZARD, pvis (mynum)), LVL_MAX,
	      mynum, NOBODY, "%s\n",
	 build_setin (block, cur_player->setin, pname (mynum), NULL, NULL));
    if (pvis (mynum) < LVL_WIZARD) {
      send_msg (ploc (mynum), 0, pvis (mynum), LVL_WIZARD, NOBODY, NOBODY,
		"%s has gone %s.\n", pname (mynum), exittxt[n]);
      send_msg (newch, 0, pvis (mynum), LVL_WIZARD, NOBODY, NOBODY,
		"%s has arrived.\n", pname (mynum));
    }
  } else {

    send_msg (ploc (mynum), 0, pvis (mynum), LVL_MAX, mynum, NOBODY, "%s\n",
	      build_setin (block, cur_player->setout, pname (mynum), exittxt[n], NULL));

    send_msg (newch, 0, pvis (mynum), LVL_MAX, mynum, NOBODY, "%s\n",
	 build_setin (block, cur_player->setin, pname (mynum), NULL, NULL));
  }
  setpfighting (mynum, -1);
  trapch (newch);
  do_follow ();
  return 0;
}

int
dogocom ()
{
  int a = (brkword () == -1) ? get_rand_exit_dir (ploc (mynum))
  : chklist (wordbuf, exittxt, exitnum) - 1;

  if (a < 0 || a >= NEXITS) {
    bprintf ("Go where?\n");
    return -1;
  }
  return dodirn (a + 2);
}