#include "../include/Credits.h"
#include "../include/GameApp.h"
#include "../include/GameOptions.h"
#include "../include/config.h"
#include "../include/PlayerData.h"
#include "../include/DeckStats.h"

  CreditBonus::CreditBonus(int _value, string _text){
    value = _value;
    text = _text;
    
  }


  void CreditBonus::Render(float x, float y, JLBFont * font){
    char buffer[512];
    sprintf(buffer, "%s: %i", text.c_str(), value);
    font->DrawString(buffer,x,y);
  }

  Credits::Credits(){
    unlockedTex = NULL;
    unlockedQuad = NULL;
    unlocked = -1;
  }

  Credits::~Credits(){
    SAFE_DELETE(unlockedTex);
    SAFE_DELETE(unlockedQuad);
    for (int i=0;i<bonus.size();i++)
    if (bonus[i])
      delete bonus[i];
 bonus.clear();
  }

void Credits::compute(Player * _p1, Player * _p2, GameApp * _app){
  p1 = _p1;
  p2 = _p2;
  app = _app;
  showMsg = (rand() % 5);
  GameObserver * g = GameObserver::GetInstance();
	if (!p1->isAI() && p2->isAI() && p1!= g->gameOver){
    GameOptions * go = GameOptions::GetInstance(); 
    value = 400;
    if (app->gameType == GAME_TYPE_MOMIR) value = 200;
    int difficulty = go->values[OPTIONS_DIFFICULTY].getIntValue();
    if (go->values[OPTIONS_DIFFICULTY_MODE_UNLOCKED].getIntValue() && difficulty) {
      CreditBonus * b = NEW CreditBonus(100*difficulty, "Difficulty Bonus");
      bonus.push_back(b);
    }

    if (p1->life == 1) {
      CreditBonus * b = NEW CreditBonus(111, "'Live dangerously and you live right' Bonus");
      bonus.push_back(b);
    }

    int diff = p1->life - p2->life;
    if (diff){
      CreditBonus * b = NEW CreditBonus(diff, "Life Delta Bonus");
      bonus.push_back(b);
    }

    if (p1->game->library->nb_cards == 0) {
      CreditBonus * b = NEW CreditBonus(391, "'Decree of Theophilus' Bonus");
      bonus.push_back(b);
    }

    if (g->turn < 15) {
      CreditBonus * b = NEW CreditBonus((20 - g->turn)*17, "'Fast and Furious' Bonus");
      bonus.push_back(b);
    }

    if (unlocked == -1){
      unlocked = isDifficultyUnlocked();
      if (unlocked){
        unlockedTex = JRenderer::GetInstance()->LoadTexture("graphics/unlocked.png", TEX_TYPE_USE_VRAM); 
        unlockedQuad = NEW JQuad(unlockedTex, 2, 2, 396, 96);
        GameOptions::GetInstance()->values[OPTIONS_DIFFICULTY_MODE_UNLOCKED] = GameOption(1);
        GameOptions::GetInstance()->save();
      }else{
        unlocked = isMomirUnlocked();
        if (unlocked){
          unlockedTex = JRenderer::GetInstance()->LoadTexture("graphics/momir_unlocked.png", TEX_TYPE_USE_VRAM); 
          unlockedQuad = NEW JQuad(unlockedTex, 2, 2, 396, 96);
          GameOptions::GetInstance()->values[OPTIONS_MOMIR_MODE_UNLOCKED] = GameOption(1);
          GameOptions::GetInstance()->save();
        }
      }
      if (unlocked){
        JSample * sample = SampleCache::GetInstance()->getSample("sound/sfx/bonus.wav");
        if (sample) JSoundSystem::GetInstance()->PlaySample(sample); 
      }
    }

    vector<CreditBonus *>::iterator it;
    if (bonus.size()){
      CreditBonus * b = NEW CreditBonus(value, "Victory");
      bonus.insert(bonus.begin(),b);
      for ( it=bonus.begin()+1 ; it < bonus.end(); ++it){
        value+= (*it)->value;
      }
    }



    PlayerData * playerdata = NEW PlayerData(app->collection);
    playerdata->credits+= value;
    playerdata->save();
    delete playerdata;

  }else{
      unlocked = 0;
  }
}

void Credits::Render(){
  GameObserver * g = GameObserver::GetInstance();
  JRenderer * r = JRenderer::GetInstance();
  JLBFont * f = GameApp::CommonRes->GetJLBFont(Constants::MAIN_FONT);
  JLBFont * f2 = GameApp::CommonRes->GetJLBFont(Constants::MENU_FONT);
  JLBFont * f3 = GameApp::CommonRes->GetJLBFont(Constants::MAGIC_FONT);
  f->SetScale(1);
  f2->SetScale(1);
  f3->SetScale(1);
  char buffer[512];
  if (!p1->isAI() && p2->isAI() ){
    if (g->gameOver != p1){
      sprintf (buffer, "Congratulations! You earn %i credits", value);
      if (unlockedQuad){
        showMsg = 0;
        r->RenderQuad(unlockedQuad, 20, 20);
      }    
    }else{
      sprintf (buffer, "You have been defeated");
    }
  }else{
    int winner = 2;
    if (g->gameOver !=p1){
      winner = 1;
    }
    int p0life = p1->life;
    sprintf(buffer, "Player %i wins (%i)", winner, p0life );
  }
       

  float y = 130;
  if (showMsg == 1) y = 50;
  vector<CreditBonus *>:: iterator it;
  for ( it=bonus.begin() ; it < bonus.end(); ++it){
    (*it)->Render(10,y,f3);
    y+=12;
  }
  f2->DrawString(buffer, 10, y);
  y+=15;

  if (showMsg == 1){
    f2->DrawString("Please support this project !" ,10,y+15);
    f->DrawString("Wagic is free, open source, and developed on the little free time I have" ,10,y+30);
    f->DrawString("If you enjoy this game, please consider donating a few bucks" ,10,y+42);
    f->DrawString("(Seriously, donate or I'll kill this cute little bunny)" ,10,y+54);
    f->DrawString("Thanks in advance for your support." ,10,y+66);
    f2->DrawString("-> http://wololo.net/wagic" ,10,y+78);
  } 

}


int Credits::isDifficultyUnlocked(){
  if (GameOptions::GetInstance()->values[OPTIONS_DIFFICULTY_MODE_UNLOCKED].getIntValue()) return 0;
  int nbAIDecks = 0;
  int found = 1;
  int wins = 0;
  DeckStats * stats = DeckStats::GetInstance();
  stats->load(p1);
  while (found){
    found = 0;
    char buffer[512];
    char aiSmallDeckName[512];
    sprintf(buffer, RESPATH"/ai/baka/deck%i.txt",nbAIDecks+1);
    if(fileExists(buffer)){
      found = 1;
      nbAIDecks++;
      sprintf(aiSmallDeckName, "ai_baka_deck%i",nbAIDecks); 
      int percentVictories = stats->percentVictories(string(aiSmallDeckName));
      if (percentVictories >=67) wins++;
      if (wins >= 10) return 1;
    }
  }
  return 0;
}

int Credits::isMomirUnlocked(){
  if (GameOptions::GetInstance()->values[OPTIONS_MOMIR_MODE_UNLOCKED].getIntValue()) return 0;
  if (p1->game->inPlay->countByType("land") == 8) return 1;
  return 0;
}