#include "7w.h"

int* cards_getcost(int wonder, int stage); //remember the stage offset!
int* cards_getproduction(int wonder, int stage);
char* cards_getname(int wonder, int stage); //stage should always be 0
char* cards_specialmessage(int wonder, int stage);
char* getname(int res);
int cards_gettype(int wonder, int stage); //stage is 0
int data_getwonder(int p);
int data_getwonderside(int p);
void io_printborder(int x, int y, int width);
int io_printtext(int xorigin, int y, int width, char* text);
int io_printcard(int x, int y, int wonder, int stage, int player);
void io_printname(int x, int y, int era, int card);
int data_getwonderstages(int p);
int data_getgold(int p);
char* cat(char a[], char b[]);
char* itoa(int i);
int io_getkey();
void io_clearscreen();
int* data_getbuilt(int p);
void io_printplain(int x, int y, char *s);
int* data_getdefinites(int p);
int** data_getindefinites(int p);

int wonder_numstages(int player)
{
 int side = data_getwonderside(player);
 int wonder = data_getwonder(player);
 if(side == 0) return 3;
 if(wonder == 9) return 4;
 if(wonder == 3) return 2;
 return 3;
}

int print_wonder(int x, int y, int player, int cursor)
{
 int i, j;
 io_printborder(x, y++, 28);
 y = io_printtext(x, y, 28, cards_getname(data_getwonder(player), 0));
 y = io_printtext(x, y, 28, cat("Produces: 1 ", getname(cards_gettype(data_getwonder(player), 0))));
 y = io_printtext(x, y, 28, cat(cat("Treasury: ", itoa(data_getgold(player))), " gold"));
 io_printborder(x, y++, 28);

 //Print resource incomes
 int *def = data_getdefinites(player);
 def[cards_gettype(data_getwonder(player), 0)]++;
 int **indef = data_getindefinites(player);
 y = io_printtext(x, y, 28, "Production:");
 for(i = 0; i < GOLD; i++) {
  if(def[i]) {
   y = io_printtext(x, y, 28, cat(cat(cat(" ", getname(i)), ": "), itoa(def[i])));
  }
 }
 for(i = 0; i < INDEF; i++) {
  char *text = "";
  for(j = 0; j < 4; j++) {
   if(indef[i][j] != -1)
    text = cat(cat(text, "/"), getname(indef[i][j]));
  }
  if(text[0] != '\0') {
   y = io_printtext(x, y, 28, text);
   io_printplain(x+2, y-1, " ");
  }
 }
 io_printborder(x, y++, 28);

 //Print wonder stages
 for(i = 0; i < wonder_numstages(player); i++) {
  char *text = cat("Stage ", itoa(i+1));
  if(data_getwonderstages(player) > i)
   text = cat(text, " (complete)");
  else
   text = cat(text, "           ");
  if(cursor == i)
   text = cat(text, "     *");
  else
   text = cat(text, "  ");
  y = io_printtext(x, y, 28, text);
 }
 io_printborder(x, y++, 28);

 //Print what has been built
 int *built = data_getbuilt(player);
 int print = -1;
 for(j = 0; built[j] != -1; j+=2) {
  io_printname(x, y++, built[j], built[j+1]);
  if(cursor == i++) {
   io_printplain(x+25, y-1, "*");
   print = j;
  }
 }
 if(j == 0) y--;
 io_printborder(x, y, 28);

 //Info about component
 if(cursor >= 0 && cursor < wonder_numstages(player))
 return io_printcard(x, y, data_getwonder(player), cursor+1+3*data_getwonderside(player), player);
 if(cursor >= wonder_numstages(player))
  return io_printcard(x, y, built[print], built[print+1], player);
}

//dir is 0 for none, 1 for east, 2 for west
int print_wondersmall(int x, int y, int player, int selected, int dir)
{
 io_printborder(x, y++, 28);
 if(selected) io_printplain(28, y, "*");
 if(dir == 1) io_printplain(29, y, "East");
 if(dir == 2) io_printplain(29, y, "West");
 y = io_printtext(x, y, 28, cards_getname(data_getwonder(player), 0));
 io_printborder(x, y, 28);
 return y;
}

void wonder_selected(int player)
{
 int cursor = 0;
 while(1) {
  io_clearscreen();
  print_wonder(0, 0, player, cursor);
  switch(io_getkey()) {
   case UP: cursor--;
    break;
   case DOWN: cursor++;
    break;
   case ENTER: data_distributewonders(4);
   default: break;
  }
  if(cursor < 0) cursor = 0;
  if(cursor >= wonder_numstages(player))
   cursor--;
 }
}