/*
 * Nanny refactoring by Kai Braaten.
 * The SWR2 license applies.
 */

#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include "mud.h"
#include "telnet.h"

#define STARTING_MONEY 1000

/* telopt.c */
void send_echo_on( DESCRIPTOR_DATA *d );
void send_echo_off( DESCRIPTOR_DATA *d );

/*
 * Local function prototypes.
 */
static void nanny_get_name( DESCRIPTOR_DATA * d, char *argument );
static void nanny_get_old_password( DESCRIPTOR_DATA * d, char *argument );
static void nanny_confirm_new_name( DESCRIPTOR_DATA * d, char *argument );
static void nanny_get_new_password( DESCRIPTOR_DATA * d, char *argument );
static void nanny_confirm_new_password( DESCRIPTOR_DATA * d, char *argument );
static void nanny_get_new_sex( DESCRIPTOR_DATA * d, char *argument );
static void nanny_add_skills( DESCRIPTOR_DATA * d, char *argument );
static void nanny_get_want_ripansi( DESCRIPTOR_DATA * d, char *argument );
static void nanny_read_imotd( DESCRIPTOR_DATA * d, char *argument );
static void nanny_read_nmotd( DESCRIPTOR_DATA * d, char *argument );
static void nanny_done_motd( DESCRIPTOR_DATA * d, char *argument );
static void nanny_on_motd_state( DESCRIPTOR_DATA *d );
static void nanny_invalid_constate( DESCRIPTOR_DATA * d, char *argument );
static OBJ_DATA *rgObjNest[MAX_NEST];
extern bool wizlock;

/*
 * External functions.
 */
bool check_parse_name( const char *name );
bool check_playing( DESCRIPTOR_DATA * d, const char *name, bool kick );
bool check_multi( DESCRIPTOR_DATA * d, const char *name );
bool check_reconnect( DESCRIPTOR_DATA * d, const char *name, bool fConn );
void write_ship_list( void );
void mail_count( const CHAR_DATA * ch );

char *generate_skillpackage_table( void );
SKILL_PACKAGE *get_skill_package( const char *argument );

typedef void NANNY_FUN( DESCRIPTOR_DATA * d, char *argument );
static NANNY_FUN *nanny_get_handler( short constate );

/*
 * Main character generation function.
 */
void nanny( DESCRIPTOR_DATA * d, char *argument )
{
  NANNY_FUN *handler = NULL;

  while( isspace( ( int ) *argument ) || !isascii( (int) *argument ) )
    argument++;

  handler = nanny_get_handler( d->connected );
  handler( d, argument );
}

NANNY_FUN *nanny_get_handler( short constate )
{
  switch( constate )
    {
    default:
      return nanny_invalid_constate;

    case CON_GET_NAME:
      return nanny_get_name;

    case CON_GET_OLD_PASSWORD:
      return nanny_get_old_password;

    case CON_CONFIRM_NEW_NAME:
      return nanny_confirm_new_name;

    case CON_GET_NEW_PASSWORD:
      return nanny_get_new_password;

    case CON_CONFIRM_NEW_PASSWORD:
      return nanny_confirm_new_password;

    case CON_GET_NEW_SEX:
      return nanny_get_new_sex;

    case CON_ADD_SKILLS:
      return nanny_add_skills;

    case CON_GET_WANT_RIPANSI:
      return nanny_get_want_ripansi;

    case CON_READ_IMOTD:
      return nanny_read_imotd;

    case CON_READ_NMOTD:
      return nanny_read_nmotd;

    case CON_DONE_MOTD:
      return nanny_done_motd;
    }
}

static void nanny_invalid_constate( DESCRIPTOR_DATA *d, char *argument )
{
  bug( "Nanny: bad d->connected %d.", d->connected );
  close_socket( d, TRUE );
}

static void nanny_get_name( DESCRIPTOR_DATA * d, char *argument )
{
  char buf[MAX_STRING_LENGTH];
  BAN_DATA *pban = NULL;
  bool fOld = FALSE, chk = FALSE;
  CHAR_DATA *ch = NULL;

  if( argument[0] == '\0' )
  {
    close_socket( d, FALSE );
    return;
  }

  argument[0] = UPPER( argument[0] );

  if( !check_parse_name( argument ) )
  {
    write_to_buffer( d, "Illegal name, try another.\r\nName: ", 0 );
    return;
  }

  if( !str_cmp( argument, "New" ) )
  {
    if( d->newstate == 0 )
    {
      /* New player */
      /* Don't allow new players if DENY_NEW_PLAYERS is true */
      if( sysdata.DENY_NEW_PLAYERS == TRUE )
      {
	sprintf( buf,
	    "The mud is currently preparing for a reboot.\r\n" );
	write_to_buffer( d, buf, 0 );
	sprintf( buf,
	    "New players are not accepted during this time.\r\n" );
	write_to_buffer( d, buf, 0 );
	sprintf( buf, "Please try again in a few minutes.\r\n" );
	write_to_buffer( d, buf, 0 );
	close_socket( d, FALSE );
      }

      for( pban = first_ban; pban; pban = pban->next )
      {
	if( ( !str_prefix( pban->name, d->host )
	      || !str_suffix( pban->name, d->host ) ) )
	{
	  write_to_buffer( d,
	      "Your site has been banned from this Mud.\r\n",
	      0 );
	  close_socket( d, FALSE );
	  return;
	}
      }

      for( pban = first_tban; pban; pban = pban->next )
      {
	if( ( !str_prefix( pban->name, d->host )
	      || !str_suffix( pban->name, d->host ) ) )
	{
	  write_to_buffer( d,
	      "New players have been temporarily banned from your IP.\r\n",
	      0 );
	  close_socket( d, FALSE );
	  return;
	}
      }

      sprintf( buf, "\r\nChoosing a name is one of the most important p\
	  arts of this game...\r\n" "Make sure to pick a name appropriate to the character you are going\r\n" "to role play, and be sure that it suits our theme.\r\n" "If the name you select is not acceptable, you will be asked to choose\r\n" "another one.\r\n\r\nPlease choose a name for your character: " );
      write_to_buffer( d, buf, 0 );
      d->newstate++;
      d->connected = CON_GET_NAME;
      return;
    }
    else
    {
      write_to_buffer( d, "Illegal name, try another.\r\nName: ", 0 );
      return;
    }
  }

  if( check_playing( d, argument, FALSE ) == BERR )
  {
    write_to_buffer( d, "Name: ", 0 );
    return;
  }

  fOld = load_char_obj( d, argument, TRUE );

  if( !d->character )
  {
    sprintf( log_buf, "Bad player file %s@%s.", argument, d->host );
    log_string( log_buf );
    write_to_buffer( d,
	"Your playerfile is corrupt...Please notify Thoric@mud.compulink.com.\r\n",
	0 );
    close_socket( d, FALSE );
    return;
  }

  ch = d->character;

  for( pban = first_ban; pban; pban = pban->next )
  {
    if( ( !str_prefix( pban->name, d->host )
	  || !str_suffix( pban->name, d->host ) )
	&& pban->level >= ch->top_level )
    {
      write_to_buffer( d,
	  "Your site has been banned from this Mud.\r\n",
	  0 );
      close_socket( d, FALSE );
      return;
    }
  }

  if( IS_SET( ch->act, PLR_DENY ) )
  {
    sprintf( log_buf, "Denying access to %s@%s.", argument, d->host );
    log_string_plus( log_buf, LOG_COMM );
    if( d->newstate != 0 )
    {
      write_to_buffer( d,
	  "That name is already taken. Please choose another: ",
	  0 );
      d->connected = CON_GET_NAME;
      return;
    }

    write_to_buffer( d, "You are denied access.\r\n", 0 );
    close_socket( d, FALSE );
    return;
  }

  for( pban = first_tban; pban; pban = pban->next )
  {
    if( ( !str_prefix( pban->name, d->host )
	  || !str_suffix( pban->name, d->host ) ) && ch->top_level == 0 )
    {
      write_to_buffer( d,
	  "You have been temporarily banned from creating new characters.\r\n",
	  0 );
      close_socket( d, FALSE );
      return;
    }
  }

  chk = check_reconnect( d, argument, FALSE );

  if( chk == BERR )
    return;

  if( chk )
  {
    fOld = TRUE;
  }
  else
  {
    if( wizlock && !IS_IMMORTAL( ch ) )
    {
      write_to_buffer( d,
	  "The game is wizlocked.  Only immortals can connect now.\r\n",
	  0 );
      write_to_buffer( d, "Please try back later.\r\n", 0 );
      close_socket( d, FALSE );
      return;
    }
  }

  if( fOld )
  {
    if( d->newstate != 0 )
    {
      write_to_buffer( d,
	  "That name is already taken.  Please choose another: ",
	  0 );
      d->connected = CON_GET_NAME;
      return;
    }

    /* Old player */
    write_to_buffer( d, "Password: ", 0 );
    send_echo_off( d );
    d->connected = CON_GET_OLD_PASSWORD;
    return;
  }
  else
  {
    write_to_buffer( d,
	"\r\nI don't recognize your name, you must be new here.\r\n\r\n",
	0 );
    sprintf( buf, "Did I get that right, %s (Y/N)? ", argument );
    write_to_buffer( d, buf, 0 );
    d->connected = CON_CONFIRM_NEW_NAME;
    return;
  }
}

static void nanny_get_old_password( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  char buf[MAX_STRING_LENGTH];
  bool fOld = FALSE, chk = FALSE;
  write_to_buffer( d, "\r\n", 2 );

  if( strcmp( encode_string( argument ), ch->pcdata->pwd ) )
  {
    write_to_buffer( d, "Wrong password.\r\n", 0 );
    /* clear descriptor pointer to get rid of bug message in log */
    d->character->desc = NULL;
    close_socket( d, FALSE );
    return;
  }

  send_echo_on( d );

  if( check_playing( d, ch->name, TRUE ) )
    return;

  chk = check_reconnect( d, ch->name, TRUE );

  if( chk == BERR )
  {
    if( d->character && d->character->desc )
      d->character->desc = NULL;

    close_socket( d, FALSE );
    return;
  }

  if( chk == TRUE )
    return;

  if( check_multi( d, ch->name ) )
  {
    close_socket( d, FALSE );
    return;
  }

  sprintf( buf, "%s", ch->name );
  d->character->desc = NULL;
  free_char( d->character );
  fOld = load_char_obj( d, buf, FALSE );
  ch = d->character;
  sprintf( log_buf, "%s@%s has connected.", ch->name, d->host );
  log_string_plus( log_buf, LOG_COMM );
  nanny_on_motd_state( d );
}

static void nanny_confirm_new_name( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  char buf[MAX_STRING_LENGTH];

  switch ( *argument )
  {
    case 'y':
    case 'Y':
      sprintf( buf,
	  "\r\nMake sure to use a password that won't be easily guessed by someone else."
	       "\r\nPick a good password for %s: ", ch->name );

      write_to_buffer( d, buf, 0 );
      send_echo_off( d );
      d->connected = CON_GET_NEW_PASSWORD;
      break;

    case 'n':
    case 'N':
      write_to_buffer( d, "Ok, what IS it, then? ", 0 );
      /* clear descriptor pointer to get rid of bug message in log */
      d->character->desc = NULL;
      free_char( d->character );
      d->character = NULL;
      d->connected = CON_GET_NAME;
      break;

    default:
      write_to_buffer( d, "Please type Yes or No. ", 0 );
      break;
  }
}

static void nanny_get_new_password( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  const char *p = NULL, *pwdnew = NULL;

  write_to_buffer( d, "\r\n", 2 );

  if( strlen( argument ) < 5 )
  {
    write_to_buffer( d,
	"Password must be at least five characters long.\r\nPassword: ",
	0 );
    return;
  }

  pwdnew = encode_string( argument );

  for( p = pwdnew; *p != '\0'; p++ )
  {
    if( *p == '~' )
    {
      write_to_buffer( d,
	  "New password not acceptable, try again.\r\nPassword: ",
	  0 );
      return;
    }
  }

  DISPOSE( ch->pcdata->pwd );
  ch->pcdata->pwd = str_dup( pwdnew );
  write_to_buffer( d, "\r\nPlease retype the password to confirm: ", 0 );
  d->connected = CON_CONFIRM_NEW_PASSWORD;
}

static void nanny_confirm_new_password( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;

  write_to_buffer( d, "\r\n", 2 );

  if( strcmp( encode_string( argument ), ch->pcdata->pwd ) )
  {
    write_to_buffer( d, "Passwords don't match.\r\nRetype password: ", 0 );
    d->connected = CON_GET_NEW_PASSWORD;
    return;
  }

  send_echo_on( d );
  write_to_buffer( d, "\r\nWhat is your sex (M/F/N)? ", 0 );
  d->connected = CON_GET_NEW_SEX;
}

static void nanny_get_new_sex( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;

  switch ( argument[0] )
  {
    case 'm':
    case 'M':
      ch->sex = SEX_MALE;
      break;
    case 'f':
    case 'F':
      ch->sex = SEX_FEMALE;
      break;
    case 'n':
    case 'N':
      ch->sex = SEX_NEUTRAL;
      break;
    default:
      write_to_buffer( d, "That's not a sex.\r\nWhat IS your sex? ", 0 );
      return;
  }

  write_to_buffer( d,
      "\r\nYou may choose one of the following skill packages to start with.\r\n",
      0 );
  write_to_buffer( d,
      "You may learn a limited number of skills from other professions later.\r\n\r\n",
      0 );

 write_to_buffer( d, generate_skillpackage_table(), 0 );

  d->connected = CON_ADD_SKILLS;
  ch->pcdata->num_skills = 0;
  ch->pcdata->adept_skills = 0;
  ch->perm_frc = number_range( -2000, 20 );
}

static void nanny_add_skills( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;

  if( argument[0] == '\0' )
  {
    write_to_buffer( d, "Please pick a skill package: ", 0 );
    return;
  }

  if( !str_cmp( argument, "help" ) )
  {
    char package_name[MAX_STRING_LENGTH];
    snprintf( package_name, MAX_STRING_LENGTH, "%s", argument );
    do_help( ch, package_name );
    return;
  }
  else
  {
    SKILL_PACKAGE *package = get_skill_package( argument );

    if( package )
      {
	char buf[MAX_STRING_LENGTH];
	package->builder_function( ch );
	sprintf( buf, "%s the %s", ch->name, package->name );
	set_title( ch, buf );
      }
    else
      {
	write_to_buffer( d, "Invalid choice... Please pick a skill package: ", 0 );
	return;
      }
  }

  ch->perm_str = 10;
  ch->perm_int = 10;
  ch->perm_wis = 10;
  ch->perm_dex = 10;
  ch->perm_con = 10;
  ch->perm_cha = 10;

  write_to_buffer( d,
      "\r\nWould you like ANSI color support, (Y/N)? ",
      0 );
  d->connected = CON_GET_WANT_RIPANSI;
}

static void nanny_get_want_ripansi( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;

  switch ( argument[0] )
  {
    case 'y':
    case 'Y':
      SET_BIT( ch->act, PLR_ANSI );
      break;
    case 'n':
    case 'N':
      break;
    default:
      write_to_buffer( d, "Invalid selection.\r\nANSI or NONE? ", 0 );
      return;
  }

  sprintf( log_buf, "%s@%s new character.", ch->name, d->host );
  log_string_plus( log_buf, LOG_COMM );
  to_channel( log_buf, CHANNEL_MONITOR, "Monitor", 2 );
  write_to_buffer( d, "Press [ENTER] ", 0 );
  ch->top_level = 0;
  ch->position = POS_STANDING;
  nanny_on_motd_state( d );
}

static void nanny_on_motd_state( DESCRIPTOR_DATA *d )
{
  CHAR_DATA *ch = d->character;
  char motd[24];
  snprintf( motd, 24, "%s", "motd" );

  if( IS_SET( ch->act, PLR_ANSI ) )
    send_to_pager( "\033[2J", ch );
  else
    send_to_pager( "\014", ch );

  send_to_pager( "\r\n&WMessage of the Day&w\r\n", ch );
  do_help( ch, motd );
  send_to_pager( "\r\n&WPress [ENTER] &Y", ch );

  if( IS_IMMORTAL( ch ) )
    d->connected = CON_READ_IMOTD;
  else if( ch->top_level == 0 )
    d->connected = CON_READ_NMOTD;
  else
    d->connected = CON_DONE_MOTD;
}

static void nanny_read_imotd( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  char imotd[24];
  snprintf( imotd, 24, "%s", "imotd" );
  send_to_pager( "&WImmortal Message of the Day&w\r\n", ch );
  do_help( ch, imotd );
  send_to_pager( "\r\n&WPress [ENTER] &Y", ch );
  d->connected = CON_DONE_MOTD;
}

static void nanny_read_nmotd( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  char nmotd[24];
  snprintf( nmotd, 24, "%s", "nmotd" );
  do_help( ch, nmotd );
  send_to_pager( "\r\n&WPress [ENTER] &Y", ch );
  d->connected = CON_DONE_MOTD;
}

static void nanny_done_motd( DESCRIPTOR_DATA * d, char *argument )
{
  CHAR_DATA *ch = d->character;
  OBJ_INDEX_DATA *obj_ind = NULL;

  write_to_buffer( d, "\r\nWelcome...\r\n\r\n", 0 );
  add_char( ch );
  d->connected = CON_PLAYING;

  if( ch->top_level == 0 )
  {
    OBJ_DATA *obj = NULL;
    SHIP_DATA *ship = NULL;
    char shipname[MAX_STRING_LENGTH];
    SHIP_PROTOTYPE *prototype = get_ship_prototype( NEWBIE_SHIP_PROTOTYPE );

    if( prototype )
    {
      ship = make_ship( prototype );
      ship_to_room( ship, ROOM_NEWBIE_SHIPYARD );
      ship->location = ROOM_NEWBIE_SHIPYARD;
      ship->lastdoc = ROOM_NEWBIE_SHIPYARD;

      sprintf( shipname, "%ss %s %s", ch->name, prototype->name,
	       ship->filename );

      STRFREE( ship->owner );
      ship->owner = STRALLOC( ch->name );
      STRFREE( ship->name );
      ship->name = STRALLOC( shipname );
      save_ship( ship );
      write_ship_list();
    }

    ch->perm_lck = number_range( 6, 18 );
    ch->perm_frc = URANGE( 0, ch->perm_frc, 20 );

    ch->top_level = 1;
    ch->hit = ch->max_hit;
    ch->move = ch->max_move;
    if( ch->perm_frc > 0 )
      ch->max_mana = 100 + 100 * ch->perm_frc;
    else
      ch->max_mana = 0;
    ch->mana = ch->max_mana;

    /* Added by Narn.  Start new characters with autoexit and autgold
       already turned on.  Very few people don't use those. */
    SET_BIT( ch->act, PLR_AUTOGOLD );
    SET_BIT( ch->act, PLR_AUTOEXIT );

    obj = create_object( get_obj_index( OBJ_VNUM_SCHOOL_DAGGER ) );
    obj_to_char( obj, ch );
    equip_char( ch, obj, WEAR_WIELD );

    obj = create_object( get_obj_index( OBJ_VNUM_LIGHT ) );
    obj_to_char( obj, ch );

    /* comlink */
    obj_ind = get_obj_index( 23 );

    if( obj_ind != NULL )
    {
      obj = create_object( obj_ind );
      obj_to_char( obj, ch );
    }

    ch->gold = STARTING_MONEY;

    if( !sysdata.WAIT_FOR_AUTH )
    {
      char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) );
      ch->pcdata->auth_state = 3;
    }
    else
    {
      char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) );
      ch->pcdata->auth_state = 1;
      SET_BIT( ch->pcdata->flags, PCFLAG_UNAUTHED );
    }
    /* Display_prompt interprets blank as default */
    ch->pcdata->prompt = STRALLOC( "" );
  }
  else if( ch->in_room && !IS_IMMORTAL( ch ) )
  {
    char_to_room( ch, ch->in_room );
  }
  else
  {
    char_to_room( ch, get_room_index( wherehome( ch ) ) );
  }

  if( get_timer( ch, TIMER_SHOVEDRAG ) > 0 )
    remove_timer( ch, TIMER_SHOVEDRAG );

  if( get_timer( ch, TIMER_PKILLED ) > 0 )
    remove_timer( ch, TIMER_PKILLED );
  if( ch->plr_home != NULL )
  {
    char filename[256];
    FILE *fph = NULL;
    ROOM_INDEX_DATA *storeroom = ch->plr_home;

    room_extract_contents( storeroom );
    sprintf( filename, "%s%c/%s.home", PLAYER_DIR,
	tolower( ( int ) ch->name[0] ), capitalize( ch->name ) );
    if( ( fph = fopen( filename, "r" ) ) != NULL )
    {
      int iNest = 0;
      OBJ_DATA *tobj = NULL, *tobj_next = NULL;

      rset_supermob( storeroom );

      for( iNest = 0; iNest < MAX_NEST; iNest++ )
	rgObjNest[iNest] = NULL;

      for( ;; )
      {
	const char *word = NULL;
	char letter = fread_letter( fph );

	if( letter == '*' )
	{
	  fread_to_eol( fph );
	  continue;
	}

	if( letter != '#' )
	{
	  bug( "Load_plr_home: # not found.", 0 );
	  bug( ch->name, 0 );
	  break;
	}

	word = fread_word( fph );
	if( !str_cmp( word, "OBJECT" ) )	/* Objects      */
	  fread_obj( supermob, fph, OS_CARRY );
	else if( !str_cmp( word, "END" ) )	/* Done         */
	  break;
	else
	{
	  bug( "Load_plr_home: bad section.", 0 );
	  bug( ch->name, 0 );
	  break;
	}
      }

      fclose( fph );

      for( tobj = supermob->first_carrying; tobj; tobj = tobj_next )
      {
	tobj_next = tobj->next_content;
	obj_from_char( tobj );
	obj_to_room( tobj, storeroom );
      }

      release_supermob();
    }
  }

  act( AT_ACTION, "$n has entered the game.", ch, NULL, NULL, TO_ROOM );
  do_look( ch, STRLIT_AUTO );
  mail_count( ch );
}