#include "helper.h"
#include <SFML/Graphics.hpp>
#include <iostream>
#include <string>

const char* TEXTURE_PATH = "./res/ur.png";
const float PAD = 32.f;
const float PIECE_PAD = 8.f;
const float TEXT_OFFSET = 8.f;
const sf::Color BG_COLOR = sf::Color(66, 47, 81, 255);
const sf::Color SEMI_TRANSPARENT = sf::Color(0xff, 0x0, 0xff, 255);

GameState state = GameState::WAITING;
GameState prev_state = GameState::WAITING;

inline void
change_state(GameState next)
{
  std::cout << "GameState == " << next << std::endl;
  prev_state = state;
  state = next;
}

// p1 = false, p2 = true
bool turn_tracker = true;
int rolling_frame = 0;

inline void
next(int* i, int max)
{
  (*i) = ((*i) + 1) % max;
}

inline void
next_turn()
{
  turn_tracker = !turn_tracker;
  change_state(GameState::WAITING);
}

inline bool
p1_turn()
{
  return !turn_tracker;
}

inline bool
p2_turn()
{
  return turn_tracker;
}

inline void
render_dice(sf::RenderWindow* window,
            std::shared_ptr<std::vector<struct dice_t>> dice,
            std::shared_ptr<std::vector<sf::Sprite>> roll_sprites)
{

  // draw dice
  int dice_r, dice_c, roll_r, roll_c;
  if (p1_turn()) {
    dice_r = 6;
    dice_c = 11;
    roll_r = dice_r + 2;
    roll_c = dice_c;
  } else {
    dice_r = 1;
    dice_c = 11;
    roll_r = dice_r - 1;
    roll_c = dice_c;
  }
  if (state == GameState::PLACING) {
    int result = 0;
    // draw roll result
    int r = dice_r, c = dice_c;
    for (int i = 0; i < 8; i++) {
      auto& die = (*dice)[i];
      if (die.show) {
        die.sprite.setPosition(pos(c, r));
        result += die.value;
        window->draw(die.sprite);

        if (i % 2 == 0) {
          c += 1;
          // reset if we've already bumped it once
          if (c % 2 == 0) {
            c = dice_c;
          }
        } else {
          r += 1;
        }
      }
    }
  } else if (state == GameState::ROLLING) {
    // animate the dice. This is attached to a timer
    // which will move between rolling and placing
    int c = dice_c, r = dice_r;
    // toggle dice
    int i = 0;
    for (auto& die : (*dice)) {
      if (!die.show) {
        die.show = true;
        continue;
      }
      die.sprite.setPosition(pos(c++, r));
      window->draw(die.sprite);
      if (i++ == 1) {
        c = dice_c;
        r += 1;
      }
      die.show = false;
    }

  } else {
    // draw initial values
    // draw the 0s
    int c = dice_c, r = dice_r;
    for (int i = 0; i < 8; i += 2) {
      auto& die = (*dice)[i];
      die.sprite.setPosition(pos(c++, r));
      window->draw(die.sprite);
      if (i == 2) {
        c = dice_c;
        r += 1;
      }
    }
    c = roll_c, r = roll_r;
    for (auto& s : (*roll_sprites)) {
      s.setPosition(pos(c++, r));
    }
  }
}

int
main()
{
  const std::shared_ptr<std::vector<sf::Texture>> textures =
    loadTextures(TEXTURE_PATH);

  const std::shared_ptr<std::vector<sf::Sprite>> board = createBoard(textures);

  const std::shared_ptr<struct player_t> p1 =
    createPlayer((*textures)[P1_PIECE]);

  const std::shared_ptr<struct player_t> p2 =
    createPlayer((*textures)[P2_PIECE]);

  const std::shared_ptr<std::vector<sf::Sprite>> roll_sprites =
    createRollSprites((*textures)[ROLL_TILES[0]], (*textures)[ROLL_TILES[1]]);

  const std::shared_ptr<std::vector<struct dice_t>> dice =
    createAllDice((*textures)[DIE_0], (*textures)[DIE_1]);

  sf::Sprite p1Score;
  p1Score.setPosition(pos(0, SPRITE_ROWS - 1));
  makeNum(&p1Score, 0, textures);

  sf::Sprite p2Score;
  p2Score.setPosition(pos(0, 0));
  makeNum(&p2Score, 0, textures);

  sf::RenderWindow window(sf::VideoMode(SCR_W, SCR_H), TITLE);
  window.setFramerateLimit(60);
  window.setVerticalSyncEnabled(true);

  sf::View view(window.getDefaultView());
  view.zoom(ZOOM);
  view.setSize(view.getSize() * ZOOM);
  view.setCenter(view.getSize() / 2.f);

  while (window.isOpen()) {

    sf::Event event;
    while (window.pollEvent(event)) {
      if (event.type == sf::Event::Closed ||
          sf::Keyboard::isKeyPressed(sf::Keyboard::Q)) {
        window.close();
      }

      if (sf::Mouse::isButtonPressed(sf::Mouse::Button::Left)) {
        // check rolling button click
        window.setView(view);
        auto mPos = window.mapPixelToCoords(sf::Mouse::getPosition(window));
        for (auto& s : (*roll_sprites)) {
          // zoom sprite bounds
          if (s.getGlobalBounds().contains(mPos)) {
            if (state == GameState::WAITING) {
              std::cout << "Roll!" << std::endl;
              // setup for rolling
              change_state(GameState::ROLLING);
              for (auto& rs : (*roll_sprites)) {
                rs.setColor(SEMI_TRANSPARENT);
              }

              (*dice)[0].show = false;
              (*dice)[1].show = true;
              (*dice)[2].show = true;
              (*dice)[3].show = false;
              (*dice)[4].show = true;
              (*dice)[5].show = false;
              (*dice)[6].show = false;
              (*dice)[7].show = true;
              break;
            } else if (state == GameState::ROLLING) {
              std::cout << "Change turn" << std::endl;
              for (auto& rs : (*roll_sprites)) {
                rs.setColor(sf::Color::White);
              }
              next_turn();
            }
          }
        }
        window.setView(window.getDefaultView()); // reset back to main view
      }
    }

    window.clear(BG_COLOR);
    window.setView(view);

    for (auto s : *(board)) {
      window.draw(s);
    }

    // draw unused pieces
    int p_num = (SPRITE_COLS / 2) - (p1->pieces->size() / 2) - 1;
    for (auto& p : *(p1->pieces)) {
      p.sprite.setPosition(pos(p_num++, SPRITE_ROWS - 1));
      window.draw(p.sprite);
    }

    p_num = (SPRITE_COLS / 2) - (p2->pieces->size() / 2) - 1;
    for (auto& p : *(p2->pieces)) {
      p.sprite.setPosition(pos(p_num++, 0));
      window.draw(p.sprite);
    }

    render_dice(&window, dice, roll_sprites);
    for (auto& s : (*roll_sprites)) {
      window.draw(s);
    }

    window.draw(p1Score);
    window.draw(p2Score);
    window.setView(window.getDefaultView());
    window.display();
  }

  return EXIT_SUCCESS;
}