#include "../include/Rules.h"
#include "../include/MTGDefinitions.h"
#include "../include/config.h"
#include "../include/ManaCost.h"
#include "../include/Player.h"
#include "../include/AIMomirPlayer.h"

#include "../include/MTGGameZones.h"
#include "../include/MTGAbility.h"

int Rules::getMTGId(string cardName){
  int cardnb = atoi(cardName.c_str());
  if (cardnb) return cardnb;
  if (cardName.compare("*") == 0) return -1; //Any card
  MTGCard * card = GameApp::collection->getCardByName(cardName);
  if (card) return card->getMTGId();
  OutputDebugString("RULES: Can't find card:");
  OutputDebugString(cardName.c_str());
  OutputDebugString("\n");
  return 0;
}

MTGCardInstance * Rules::getCardByMTGId(int mtgid){
  GameObserver * g = GameObserver::GetInstance();
  for (int i = 0; i < 2; i++){
    Player * p = g->players[i];
    MTGGameZone * zones[] = {p->game->library,p->game->hand,  p->game->inPlay, p->game->graveyard};
    for (int j = 0; j < 4; j++){
      MTGGameZone * zone = zones[j];
      for (int k = 0; k < zone->nb_cards; k++){
	      MTGCardInstance * card = zone->cards[k];
	      if (!card) return NULL;
	      if (card->getMTGId() == mtgid) return card;
      }
    }
  }
  return NULL;
}

RulesPlayerData::RulesPlayerData(){
  life = 20;
  poisonCount = 0;
    damageCount = 0;
  manapool = NEW ManaCost();
  avatar = "";
}

RulesPlayerData::~RulesPlayerData(){
  SAFE_DELETE(manapool);
}

RulesPlayerZone::RulesPlayerZone(){
}

void RulesPlayerZone::add(int cardId){
  cards.push_back(cardId);
}

RulesState::RulesState(){
  phase = Constants::MTG_PHASE_FIRSTMAIN;
  player = 0;
}

void RulesState::parsePlayerState(int playerId, string s){
  size_t limiter = s.find("=");
  if (limiter == string::npos) limiter = s.find(":");
  string areaS;
  int area;
  if (limiter != string::npos){
    areaS = s.substr(0,limiter);
    if (areaS.compare("graveyard") == 0){
      area = 0;
    }else if(areaS.compare("library")  == 0){
      area = 1;
    }else if(areaS.compare("hand")  == 0){
      area = 2;
    }else if(areaS.compare("inplay")  == 0 || areaS.compare("battlefield")  == 0  ){
      area = 3;
    }else if(areaS.compare("life")  == 0){
      playerData[playerId].life = atoi((s.substr(limiter+1)).c_str());
      return;
	}else if(areaS.compare("poisonCount")  == 0){
      playerData[playerId].poisonCount = atoi((s.substr(limiter+1)).c_str());
      return;
	 }else if(areaS.compare("damageCount")  == 0){
      playerData[playerId].damageCount = atoi((s.substr(limiter+1)).c_str());
      return;
    }else if(areaS.compare("avatar")  == 0){
      playerData[playerId].avatar = s.substr(limiter+1);
      return;
    }else if(areaS.compare("manapool")  == 0){
      SAFE_DELETE(playerData[playerId].manapool);
      playerData[playerId].manapool = ManaCost::parseManaCost(s.substr(limiter+1));
      return;
    }else if(areaS.compare("auto")  == 0){
      playerData[playerId].extraRules.push_back(s.substr(limiter+1));
      return;
    }else{
      return; // ERROR
    }
    s = s.substr(limiter+1);
    while (s.size()){
      unsigned int value;
      limiter = s.find(",");
      if (limiter != string::npos){
        value = Rules::getMTGId(s.substr(0,limiter));
	      s = s.substr(limiter+1);
      }else{
	      value = Rules::getMTGId(s);
	      s = "";
      }
      if (value) playerData[playerId].zones[area].add(value);
    }
  }else{
    //ERROR
  }
}




void Rules::addExtraRules(){
  GameObserver * g = GameObserver::GetInstance();

  int id = g->mLayers->actionLayer()->getMaxId();
  for (int i = 0; i < 2; ++i){
    Player * p = g->players[i];
      //Trick so that the abilities don't die;
    MTGCardInstance::ExtraRules[i].currentZone =  p->game->inPlay;
    MTGCardInstance::ExtraRules[i].lastController =  p;
    for (size_t j = 0; j< initState.playerData[i].extraRules.size(); ++j){
      AbilityFactory af;
      MTGAbility * a = af.parseMagicLine(initState.playerData[i].extraRules[j], id++, NULL,&MTGCardInstance::ExtraRules[i]);
      if (a){
        if (a->oneShot){
          a->resolve();
          delete(a); 
        }else{
          a->addToGame();
        }
      }
    }
  }

  for (size_t j = 0; j< extraRules.size(); ++j){
    AbilityFactory af;
    MTGAbility * a = af.parseMagicLine(extraRules[j], id++, NULL,&MTGCardInstance::ExtraRules[0]);
    if (a){
      if (a->oneShot){
        a->resolve();
        delete(a); 
      }else{
        a->addToGame();
      }
    }
  }

}

Player * Rules::loadPlayerMomir(int isAI){
  string deckFileSmall = "momir";
  char empty[] = "";

  MTGDeck * tempDeck = NEW MTGDeck(GameApp::collection); //Autogenerate a momir deck. Leave the "momir.txt" bits below for stats.
  tempDeck->addRandomCards(12, 0,0,Constants::RARITY_L,"Forest");
  tempDeck->addRandomCards(12, 0,0,Constants::RARITY_L,"Plains");
  tempDeck->addRandomCards(12, 0,0,Constants::RARITY_L,"Swamp");
  tempDeck->addRandomCards(12, 0,0,Constants::RARITY_L,"Mountain");
  tempDeck->addRandomCards(12, 0,0,Constants::RARITY_L,"Island");

  MTGPlayerCards * deck = NEW MTGPlayerCards( tempDeck);
  delete tempDeck;
  if (!isAI) // Human Player
    return  NEW HumanPlayer(deck, options.profileFile("momir.txt","",true).c_str(), deckFileSmall);
  else
    return NEW AIMomirPlayer(deck, options.profileFile("momir.txt","",true).c_str(), deckFileSmall, empty);

}

Player * Rules::loadPlayerRandom(int isAI, int mode){
  int color1 = 1 + WRand() % 5;
  int color2 = 1 + WRand() % 5;
  int color0 = Constants::MTG_COLOR_ARTIFACT;
  if (mode == GAME_TYPE_RANDOM1) color2 = color1;
  int colors[]={color1,color2,color0};
  int nbcolors = 3;

  string lands[] = {"forest", "forest", "island", "mountain", "swamp", "plains", "forest"};


  MTGDeck * tempDeck = NEW MTGDeck(GameApp::collection);
  tempDeck->addRandomCards(9,0,0,-1,lands[color1].c_str());
  tempDeck->addRandomCards(9,0,0,-1,lands[color2].c_str());
  tempDeck->addRandomCards(1,0,0,'U',"land");
  tempDeck->addRandomCards(1,0,0,'R',"land");
  tempDeck->addRandomCards(12,0,0,-1,"creature",colors,nbcolors);
  tempDeck->addRandomCards(2,0,0,-1,"sorcery",colors,nbcolors);
  tempDeck->addRandomCards(2,0,0,-1,"enchantment",colors,nbcolors);
  tempDeck->addRandomCards(2,0,0,-1,"instant",colors,nbcolors);
  tempDeck->addRandomCards(2,0,0,-1,"artifact",colors,nbcolors);

  string deckFile = "random";
  string deckFileSmall = "random";

  MTGPlayerCards * deck =  NEW MTGPlayerCards(tempDeck);
  delete tempDeck;

  if (!isAI) // Human Player
    return NEW HumanPlayer(deck, deckFile, deckFileSmall);
  else
    return NEW AIPlayerBaka(deck,deckFile, deckFileSmall, "");
}


Player * Rules::initPlayer(int playerId){
  GameObserver * g = GameObserver::GetInstance();
  Player * p = g->players[playerId];
  if (!p) {
    int isAI = 1;
    if (GameApp::players[playerId] ==  PLAYER_TYPE_HUMAN) isAI = 0;
    switch(gamemode){
      case GAME_TYPE_MOMIR:
        return loadPlayerMomir(isAI);
      case GAME_TYPE_CLASSIC:
        return NULL; //Error for the time being
      case GAME_TYPE_RANDOM1:
        return loadPlayerRandom(isAI,GAME_TYPE_RANDOM1);
      case GAME_TYPE_RANDOM2:
        return loadPlayerRandom(isAI,GAME_TYPE_RANDOM2);
    }
  }
  return p;
}

MTGDeck * Rules::buildDeck( int playerId){
  int nbcards = 0;
  MTGDeck * deck = NEW MTGDeck(GameApp::collection);
  for (int j = 0; j < 4; j++){
    for (size_t k = 0; k < initState.playerData[playerId].zones[j].cards.size(); k++){
      int cardid = initState.playerData[playerId].zones[j].cards[k];
      deck->add(cardid);
      nbcards++;
    }
  }
  if (!nbcards){
    delete(deck);
    return NULL;
  }
  return deck;
}


void Rules::initPlayers(){
  GameObserver * g = GameObserver::GetInstance();
  for (int i = 0; i < 2; i++){
    Player * p =  initPlayer(i);
    g->players[i] = p;
    MTGDeck * deck = buildDeck(i);
    if (deck) {
      p->game->initDeck(deck);
      SAFE_DELETE(deck);
      p->game->setOwner(p);
    }
  }
}

void Rules::initGame(){
  //Put the GameObserver in the initial state
  GameObserver * g = GameObserver::GetInstance();
  OutputDebugString("RULES Init Game\n");

  //Set the current player/phase
  g->currentPlayer = g->players[initState.player];
  g->currentActionPlayer = g->currentPlayer;
  g->currentPlayerId = initState.player;
  g->phaseRing->goToPhase(0, g->currentPlayer, false);
  g->phaseRing->goToPhase(initState.phase, g->currentPlayer);
  g->currentGamePhase = initState.phase;


  for (int i = 0; i < 2; i++){
    Player * p =  g->players[i];
    p->life = initState.playerData[i].life;
	p->poisonCount = initState.playerData[i].poisonCount;
	p->damageCount = initState.playerData[i].damageCount;
    p->getManaPool()->copy(initState.playerData[i].manapool);
    if (initState.playerData[i].avatar.size()) {
      p->loadAvatar(initState.playerData[i].avatar);
    }
    MTGGameZone * playerZones[] = {p->game->graveyard, p->game->library, p->game->hand, p->game->inPlay};
    for (int j = 0; j < 4; j++){
      MTGGameZone * zone = playerZones[j];
      for (size_t k = 0; k < initState.playerData[i].zones[j].cards.size(); k++){
	      MTGCardInstance * card = getCardByMTGId(initState.playerData[i].zones[j].cards[k]);
	      if (card && zone != p->game->library){
	        if (zone == p->game->inPlay){
	          MTGCardInstance * copy = p->game->putInZone(card,  p->game->library, p->game->stack);
	          Spell * spell = NEW Spell(copy);
	          spell->resolve();
	          delete spell;
	        }else{
	          if (!p->game->library->hasCard(card)){
	            LOG ("RULES ERROR, CARD NOT FOUND IN LIBRARY\n");
	          }
	          p->game->putInZone(card,p->game->library,zone);
	        }
        }else{
	        if (!card) { LOG ("RULES ERROR, card is NULL\n"); }
        }
      }
    }
  }
  addExtraRules();
  OutputDebugString("RULES Init Game Done !\n");
}



void RulesPlayerZone::cleanup(){
  cards.clear();
}

void RulesPlayerData::cleanup(){
  if (manapool) delete manapool;
  manapool = NULL;
  manapool = NEW ManaCost();
  for (int i = 0; i < 5; i++){
    zones[i].cleanup();
  }
  life=20;
  poisonCount=0;
  damageCount=0;
}

void RulesState::cleanup(){
  for (int i = 0; i < 2; i++){
    playerData[i].cleanup();
  }
}

void Rules::cleanup(){
  initState.cleanup();
}

Rules::Rules(string filename, string _bg){
  bg = _bg;
  load(filename);
}

int Rules::load(string _filename){

  char filename[4096];
  if (fileExists(_filename.c_str())){
    sprintf(filename, "%s", _filename.c_str());
  }else{
    sprintf(filename, RESPATH"/rules/%s", _filename.c_str());
  }
  std::ifstream file(filename);
  std::string s;

  int state = PARSE_UNDEFINED;

  //  std::cout << std::endl << std::endl << "!!!" << file << std::endl << std::endl;
  if (!file) return 0;

  cleanup();
  while(std::getline(file,s)){
    if (!s.size()) continue;
    if (s[s.size()-1] == '\r') s.erase(s.size()-1); //Handle DOS files
    if (s[0] == '#') continue;
    std::transform( s.begin(), s.end(), s.begin(),::tolower );
    if (s.find("include ") == 0) {
      load (s.substr(8));
      continue;
    }
    if (s.compare("[init]") == 0) {
      state = PARSE_INIT;
      continue;
    }
    if (s.compare("[players]") == 0) {
      state = PARSE_PLAYERS;
      continue;
    }
    if (s.compare("[player1]") == 0) {
      state = PARSE_PLAYER1;
      continue;
    }
    if (s.compare("[player2]") == 0) {
      state = PARSE_PLAYER2;
      continue;
    }

    switch(state){
      case PARSE_UNDEFINED:
        break;
      case PARSE_INIT:
        if (s.find("auto=") == 0){
          extraRules.push_back(s.substr(5));
        }else if (s.find("mode=") == 0) {
          gamemode = strToGameMode(s.substr(5));
        }else if (s.find("player=") == 0) {
          initState.player = atoi(s.substr(7).c_str())-1;
        }else{
          initState.phase = PhaseRing::phaseStrToInt(s);
        }
        break;
      case PARSE_PLAYER1:
        initState.parsePlayerState(0, s);
        break;
      case PARSE_PLAYER2:
        initState.parsePlayerState(1, s);
        break;
      case PARSE_PLAYERS:
        initState.parsePlayerState(0, s);
        initState.parsePlayerState(1, s);
        break;
    }
  }
  file.close();
  return 1;
}

int Rules::strToGameMode(string s){
  if (s.compare("momir")==0) return GAME_TYPE_MOMIR;
  if (s.compare("random1")==0) return GAME_TYPE_RANDOM1;
  if (s.compare("random2")==0) return GAME_TYPE_RANDOM2;
  return GAME_TYPE_CLASSIC;
}