#include "define.h"
#include "struct.h"


const char* sex_name [ MAX_SEX ] = {
  "neutral", "male", "female", "random" };

const char *size_name [ MAX_SIZE ] = {
  "Ant", "Rat", "Dog", "Gnome", "Human", "Ogre",
  "Horse", "Giant", "Elephant", "Dinosaur" };


Array<Thing_Data*> extracted;


/*
 *   EXTERNAL ROUTINES
 */


/*
 *   CHARACTER DATA
 */


Char_Data :: Char_Data() : wearing(this)
{
  descr   = NULL;
  shdata  = NULL;
  pcdata  = NULL;

  position  = POS_STANDING;

  logon      = current_time;
  save_time  = current_time;

  cast          = NULL;
  link          = NULL;
  enemy         = NULL;
  leader        = NULL;
  mount         = NULL;
  rider         = NULL;
  next_on_obj   = NULL;
  pos_obj       = NULL;
  prepare       = NULL;
  species       = NULL;
  pShop         = NULL;
  reply         = NULL;
  reset         = NULL;
  fighting      = NULL;

  was_in_room   = NULL;
  in_room       = NULL; 

  pet_name = empty_string;

  status        = 0;
  damroll       = 0;
  exp           = 0; 
  hit           = 0;
  hitroll       = 0;
  mana          = 0;
  max_hit       = 0;
  max_mana      = 0;
  max_move      = 0;
  mod_con       = 0;
  mod_dex       = 0;
  mod_int       = 0;
  mod_str       = 0;
  mod_wis       = 0;
  mod_armor     = 0;
  mod_hit       = 0;
  mod_mana      = 0;
  mod_move      = 0;
  move          = 0;
  played        = 0;
  timer         = 0;
  move_regen    = 0;
  mana_regen    = 0;
  hit_regen     = 0;

  vzero(mod_resist, MAX_RESIST);
  vzero(affected_by, AFFECT_INTS);

  active.func  = next_action;
  active.owner = this;
}


Char_Data :: ~Char_Data()
{
  if(position == POS_DELETED) {
    roach("~Char_data : Deleting Twice!?");
    return;
    }

  position = POS_DELETED;
}


/*
 *   PLAYER_DATA
 */


Player_Data :: Player_Data(char* name) : locker(this), junked(this)
{
  record_new(sizeof(player_data), MEM_PLAYER);

  player_list += this;

  /*-- INITIALISE VARIABLES --*/

  valid      = PLAYER_DATA;
  switched   = NULL;
  familiar   = NULL;
  note_edit  = NULL;

  atalk   = NULL;
  gtell   = NULL;
  ctell   = NULL;
  chant   = NULL;
  chat    = NULL;
  gossip  = NULL;
  yell    = NULL;
  shout   = NULL;
  say     = NULL;
  tell    = NULL;
  to      = NULL;
  whisper = NULL;

  base_age   = 17;
  bank       = 0;
  noteboard  = 0;
  gossip_pts = 50;
  prayer     = 500;
  whistle    = 0;
  timezone   = 0;

  vzero(iflag, 2);

  pcdata = new pc_data;
  shdata = new share_data;
  descr  = new descr_data;

  descr->name = alloc_string(name, MEM_DESCR);

  pcdata->pfile        = NULL;
  pcdata->help_edit    = NULL;
  pcdata->mail_edit    = NULL;
  pcdata->recognize    = NULL;

  pcdata->clss          = 0;
  pcdata->mod_age       = 0; 
  pcdata->piety         = 0;
  pcdata->speaking      = 0;
  pcdata->trust         = 0;
  pcdata->quest_pts     = 0;
  pcdata->terminal      = 0;
  pcdata->practice      = -1;
  pcdata->prac_timer    = 5;
  pcdata->religion      = REL_NONE;
  pcdata->lines         = 24;
  pcdata->max_level     = -1;
  pcdata->wimpy         = 0;

  vzero(pcdata->cflags, MAX_CFLAG);
  vzero(pcdata->color, MAX_COLOR);
  vzero(shdata->skill, MAX_SKILL);
  vzero(pcdata->quest_flags, MAX_QUEST);

  pcdata->condition[ COND_ALCOHOL ] = 0;
  pcdata->condition[ COND_FULL ]    = 24;
  pcdata->condition[ COND_THIRST ]  = 24;
  pcdata->condition[ COND_DRUNK ]   = 0;

  pcdata->tmp_short     = empty_string;
  pcdata->tmp_keywords  = empty_string;
  pcdata->title         = empty_string;
  pcdata->prompt        = empty_string;
  pcdata->buffer        = empty_string;

  pcdata->message       = (1 << MAX_MESSAGE)-1;
  pcdata->mess_settings = 0;
}


Player_Data :: ~Player_Data()
{
  record_delete(sizeof(player_data), MEM_PLAYER);
  player_list -= this;
}


/*
 *   WIZARD_DATA
 */


Wizard_Data :: Wizard_Data(char* name) : player_data(name) 
{
  record_new(sizeof(wizard_data), MEM_WIZARD);
  record_delete(sizeof(player_data), MEM_PLAYER);

  valid        = WIZARD_DATA;

  action_edit  = NULL;
  adata_edit   = NULL;
  room_edit    = NULL;
  mpdata_edit  = NULL;
  mprog_edit   = NULL;
  oextra_edit  = NULL;
  opdata_edit  = NULL;
  oprog_edit   = NULL;
  player_edit  = NULL;
  quest_edit   = NULL;
  obj_edit     = NULL;
  mob_edit     = NULL;
  exit_edit    = NULL;

  custom_edit  = 0;
  rtable_edit  = -1;
  list_edit    = 0;
  office       = 0;
  wizinvis     = 0;

  vzero(table_edit, 2);

  bamfin       = empty_string;
  bamfout      = empty_string;
  level_title  = empty_string;

  build_chan   = NULL;
  imm_talk     = NULL;
  god_talk     = NULL;
  avatar       = NULL;

  vzero(permission, 2);
}


Wizard_Data :: ~Wizard_Data()
{
  record_delete(sizeof(wizard_data), MEM_WIZARD);
  record_new(sizeof(player_data), MEM_PLAYER);
}


/*
 *   SHARE_DATA
 */


Share_Data :: Share_Data()
{
  record_new(sizeof(share_data), MEM_SHDATA);

  strength      = 10;
  intelligence  = 10; 
  wisdom        = 10;
  dexterity     = 10;
  constitution  = 10;
  deaths        = 0;
  kills         = 0;
  level         = 0;
  fame          = 0;
  race          = RACE_HUMAN;

  vzero(resist, MAX_RESIST);
}  


Share_Data :: ~Share_Data()
{
  record_delete(sizeof(share_data), MEM_SHDATA);
}


/*
 *   AGE
 */

 
int Player_Data :: Age()
{
  return base_age+(played+current_time
    -logon)/144000+pcdata->mod_age;
}


/*
 *   RESISTANCES
 */


void calc_resist(char_data* ch)
{
  int i, j;

  for(i = 0; i < MAX_RESIST; i++) {
    ch->shdata->resist[i] = 0;

    if((j = clss_table[ch->pcdata->clss].resist[i]) != 0)
      ch->shdata->resist[i] += (ch->shdata->level+20)*j/10;
     
    if(ch->shdata->race < MAX_PLYR_RACE)
      ch->shdata->resist[i] += plyr_race_table[ch->shdata->race].resist[i];
    }
}    


int Char_Data :: Save_Magic()
{
  int res;

  res = min(100, shdata->resist[RES_MAGIC]+mod_resist[RES_MAGIC]
    +Intelligence()-12);

  return res;
}


int Char_Data :: Save_Fire()
{
  int res;
 
  res = min(100, shdata->resist[RES_FIRE]+mod_resist[RES_FIRE]);

  if(is_set(affected_by, AFF_RESIST_FIRE))
    res = 33+2*res/3;

  return res;
}


int Char_Data :: Save_Cold()
{
  int res;

  res = min(100, shdata->resist[RES_COLD]+mod_resist[RES_COLD]);

  if(is_set(affected_by, AFF_RESIST_COLD))
    res = 33+2*res/3;

  return res;
}


int Char_Data :: Save_Shock()
{
  int res;
  
  res = min(100, shdata->resist[RES_SHOCK]+mod_resist[RES_SHOCK]);

  if(is_set(affected_by, AFF_RESIST_SHOCK))
    res = 33+2*res/3;

  return res;

}


int Char_Data :: Save_Mind()
{
  int i;

  i = shdata->resist[RES_MIND]+mod_resist[RES_MIND]
    +2*Intelligence()-24;

  if(pcdata != NULL)
    i += 25;

  return(min(i, 100));
}


int Char_Data :: Save_Acid()
{
  int res;
  
  res = min(100, shdata->resist[RES_ACID]+mod_resist[RES_ACID]);

  if(is_set(affected_by, AFF_RESIST_ACID))
    res = 33+2*res/3;
  
  return res;
}


int Char_Data :: Save_Poison()
{
  int res;

  res = min(100, shdata->resist[RES_POISON]
    +mod_resist[RES_POISON]+3*Constitution()-40);

  if(is_set(affected_by, AFF_RESIST_POISON))
    res = 33+2*res/3;

  return res;
}


/*
 *   ABILITY ROUTINES
 */


int Char_Data :: Strength()
{
  int i = shdata->strength;

  if(is_set(affected_by, AFF_OGRE_STRENGTH))
    i = max(i, min(i+3, 17));

  i -= affect_duration(this, AFF_DEATH)/2;

  return URANGE(3, i+mod_str, 30);
}


int Char_Data :: Intelligence()
{
  return URANGE(3, shdata->intelligence+mod_int, 30);
}


int Char_Data :: Wisdom()
{
  return URANGE(3, shdata->wisdom+mod_wis, 30);
}


int char_data :: Dexterity()
{
  return URANGE(3, shdata->dexterity+mod_dex-get_burden(), 30);
}


int char_data :: Constitution()
{
  int i = shdata->constitution+mod_con;

  i -= affect_duration(this, AFF_DEATH)/2;

  return URANGE(3, i, 30);
}


/*
 *  HIT/MANA/MOVE
 */


void rejuvenate(char_data* ch)
{
  update_max_hit(ch);
  update_max_mana(ch);

  ch->hit  = ch->max_hit;
  ch->mana = ch->max_mana;

  update_max_move(ch);

  ch->move = ch->max_move;

  return;
}


void update_maxes(char_data* ch)
{
  if(ch != NULL) {
    update_max_hit(ch);
    update_max_move(ch);
    update_max_mana(ch);
    }
}


void update_max_hit(char_data* ch)
{
  if(ch->species != NULL) {
    ch->max_hit = ch->base_hit*ch->Constitution()/ch->shdata->constitution
      +ch->mod_hit;
    }
  else {
    ch->max_hit = max(1, ch->base_hit+ch->mod_hit
      +ch->shdata->level*(ch->Constitution()-12)/2);
    }

  ch->hit = min(ch->hit, ch->max_hit);
}


void update_max_move(char_data* ch)
{
  int move;

  move = ch->base_move+ch->mod_move;
  move = (ch->hit*move)/ch->max_hit;

  ch->max_move = max(0, move);
  ch->move     = min(ch->move, ch->max_move);
}


void update_max_mana(char_data* ch)
{
  int           mana;

  mana  = ch->base_mana+ch->mod_mana+ch->shdata->level*ch->Intelligence()/4;
  mana -= leech_max(ch);
  mana -= prep_max(ch);

  ch->max_mana = max(0, mana);
  ch->mana     = min(ch->mana, ch->max_mana);
}


/*
 *   MISC ATTRIBUTES 
 */


int Mob_Data :: Size()
{
  return species->size;
}


int Player_Data :: Size()
{
  return(shdata->race < MAX_PLYR_RACE ?
    plyr_race_table[ shdata->race ].size : SIZE_OGRE);
}


/*
 *   MISC
 */


char_data* random_pers(room_data* room)
{
  int count  = 0;
  int i;

  for(i = 0; i < room->contents; i++)
    if(character(room->contents[i]) != NULL)
      count++;
  
  if(count == 0)
    return NULL;

  count = number_range( 1, count);

  for(i = 0; ; i++)
    if(character(room->contents[i]) != NULL && --count == 0)
      return (char_data*) room->contents[i];
}