#include "../include/CardPrimitive.h"


#include <string>
#include <stdlib.h>

#include "../include/MTGDeck.h"
#include "../include/config.h"
#include "../include/Subtypes.h"
#include "../include/Translate.h"

using std::string;

CardPrimitive::CardPrimitive(){
  init();
}


CardPrimitive::CardPrimitive(CardPrimitive * source){
  for(map<int,int>::const_iterator it = source->basicAbilities.begin(); it != source->basicAbilities.end(); ++it){
    basicAbilities[it->first] = source->basicAbilities[it->first];
  }

  for (size_t i = 0; i< source->types.size(); i++){
    types.push_back(source->types[i]);
  }
  for (int i = 0; i< Constants::MTG_NB_COLORS; i++){
    colors[i] = source->colors[i];
  }
  manaCost.copy(source->getManaCost());

  text = source->text;
  setName(source->name);

  power = source->power;
  toughness = source->toughness;

  magicText = source->magicText;
  for(map<string,string>::const_iterator it = source->magicTexts.begin(); it != source->magicTexts.end(); ++it){
    magicTexts[it->first] = source->magicTexts[it->first];
  }
  spellTargetType = source->spellTargetType;
  alias = source->alias;
}

int CardPrimitive::init(){
  basicAbilities.clear();

  types.clear();

  for (int i = 0; i< Constants::MTG_NB_COLORS; i++){
    colors[i] = 0;
  }

  magicText = "";
  magicTexts.clear();
  spellTargetType = "";
  alias = 0;
  return 1;
}

const vector<string>& CardPrimitive::formattedText()
{
  if (ftdText.empty())
    {
      std::string s = text;
      std::string::size_type found = s.find_first_of("{}");
      while (found!=string::npos)
	{
	  s[found] = '/';
	  found = s.find_first_of("{}", found + 1);
	}
      std::string::size_type len = 30;
      while (s.length() > 0)
	{
	  std::string::size_type cut = s.find_first_of("., \t)", 0);
	  if (cut >= len || cut == string::npos)
	    {
	      ftdText.push_back(s.substr(0,len));
	      if (s.length() > len)
		s = s.substr(len, s.length() - len);
	      else
		s = "";
	    }
	  else
	    {
	      std::string::size_type newcut = cut;
	      while (newcut < len && newcut != string::npos)
		{
		  cut = newcut;
		  newcut = s.find_first_of("., \t)", newcut + 1);
		}
	      ftdText.push_back(s.substr(0,cut+1));
	      if (s.length() > cut+1)
		s = s.substr(cut+1,s.length() - cut - 1);
	      else
		s = "";
	    }
	}
    }
  return ftdText;
}


bool CardPrimitive::isCreature(){
  return hasSubtype(Subtypes::TYPE_CREATURE);
}
bool CardPrimitive::isLand(){
  return hasSubtype(Subtypes::TYPE_LAND);
}
bool CardPrimitive::isSpell(){
  return (!isCreature() && !isLand());
}

void CardPrimitive::setColor(string _color, int removeAllOthers){
  if(_color.compare("blue")==0) return setColor(Constants::MTG_COLOR_BLUE,removeAllOthers);
  if(_color.compare("red")==0) return setColor(Constants::MTG_COLOR_RED,removeAllOthers);
  if(_color.compare("green")==0) return setColor(Constants::MTG_COLOR_GREEN,removeAllOthers);
  if(_color.compare("black")==0) return setColor(Constants::MTG_COLOR_BLACK,removeAllOthers);
  if(_color.compare("white")==0) return setColor(Constants::MTG_COLOR_WHITE,removeAllOthers);
}

void CardPrimitive::setColor(int _color, int removeAllOthers){
  if (removeAllOthers){
    for (int i=0; i<Constants::MTG_NB_COLORS; i++){
      colors[i] = 0;
    }
  }
  colors[_color] = 1;
}

void CardPrimitive::removeColor(int _color){
  colors[_color] = 0;
}

int CardPrimitive::getColor(){
  for (int i=1; i<Constants::MTG_NB_COLORS; i++){
    if (colors[i]){
      return i;
    }
  }
  return 0;
}


int CardPrimitive::hasColor(int color){
  return (colors[color]);
}

int CardPrimitive::countColors(){
  int result = 0;
  for(int i=Constants::MTG_COLOR_GREEN;i<=Constants::MTG_COLOR_WHITE;i++){
    if (hasColor(i)) result++;
  }
  return result;
}

void CardPrimitive::setManaCost(string s){
  ManaCost::parseManaCost(s, &manaCost);
  for (int i = Constants::MTG_COLOR_GREEN; i <= Constants::MTG_COLOR_WHITE; i++){
    if (manaCost.hasColor(i)){
      setColor(i);
    }
  }

}


void CardPrimitive::setType(const char * _type_text){
  setSubtype(_type_text);
}

void CardPrimitive::addType(char * _type_text){
  setSubtype(_type_text);
}

void CardPrimitive::setSubtype( string value){
      int id = Subtypes::subtypesList->find(value);
      addType(id);
}

void CardPrimitive::addType(int id){
  types.push_back(id);
}


//TODO Definitely move some of these functions to CardInstance. There is no reason to remove a type from an CardPrimitive since they represent the Database
//Removes a type from the types of a given card
//If removeAll is true, removes all occurences of this type, otherwise only removes the first occurence
int CardPrimitive::removeType(string value, int removeAll){

  int id = Subtypes::subtypesList->find(value);
  return removeType(id, removeAll);
}

int CardPrimitive::removeType(int id, int removeAll){
  int result = 0;
  for (int i = types.size() -1 ; i >=0; i--){
    if (types[i] == id){
      types.erase(types.begin()+i);
      result++;
      if (!removeAll) return result;
    }
  }
  return result;
}




void CardPrimitive::setText( string value){
  text = value;
}

const char * CardPrimitive::getText(){
  return text.c_str();
}

void CardPrimitive::addMagicText(string value){
  std::transform( value.begin(), value.end(), value.begin(),::tolower );
  if (magicText.size()) magicText.append("\n");
  magicText.append(value);
}

void CardPrimitive::addMagicText(string value, string key){
  std::transform( value.begin(), value.end(), value.begin(),::tolower );
  if (magicTexts[key].size()) magicTexts[key].append("\n");
  magicTexts[key].append(value);
}

void CardPrimitive::setName( string value){
  name = value;
  lcname = value;
  std::transform( lcname.begin(), lcname.end(),lcname.begin(),::tolower );
  //This is a bug fix for plague rats and the "foreach ability"
  //Right now we add names as types, so that they get recognized
  if (lcname.at(value.length()-1) == 's') Subtypes::subtypesList->find(lcname);
}

const string CardPrimitive::getName() const{
  return name;
}

const string CardPrimitive::getLCName() const{
  return lcname;
}



ManaCost* CardPrimitive::getManaCost(){
  return &manaCost;
}



bool CardPrimitive::hasType(int _type){
  for (size_t i = 0; i<types.size(); i++)
    if (types[i] == _type)
      return true;
  return false;
}

bool CardPrimitive::hasSubtype(int _subtype){
  return hasType(_subtype);
}

bool CardPrimitive::hasType(const char * _type){
  int id = Subtypes::subtypesList->find(_type);
  return hasType(id);
}


bool CardPrimitive::hasSubtype(const char * _subtype){
  int id = Subtypes::subtypesList->find(_subtype);
  return hasType(id);
}

bool CardPrimitive::hasSubtype(string _subtype){
  int id = Subtypes::subtypesList->find(_subtype);
  return hasType(id);
}


int CardPrimitive::has(int basicAbility){
  return basicAbilities[basicAbility];
}

//---------------------------------------------
// Creature specific
//---------------------------------------------
void CardPrimitive::setPower(int _power){
  power = _power;
}

int CardPrimitive::getPower(){
  return power;
}

void CardPrimitive::setToughness(int _toughness){
  toughness = _toughness;
}

int CardPrimitive::getToughness(){
  return toughness;
}