#include <curses.h>
#include <stdlib.h>
#include "7w.h"

char* cards_getname(int era, int card);
int* cards_getcost(int era, int card);
int cards_gettype(int era, int card);
int* cards_getproduction(int era, int card);
char* getname(int res);
int gettypecolor(int type);
int* cards_getcoupons(int era, int card);
int* cards_getcouponed(int era, int card);
char* cards_specialmessage(int era, int card);
int data_getera();
int* data_gethand(int p);
int* get_special(int era, int card, int player);

void io_init()
{
 initscr();
 clear();
 noecho();
 cbreak();
 curs_set(0);
 keypad(stdscr, TRUE);
 start_color();
 use_default_colors();

//This may seem slightly conveluted, but it's the curses way.
 init_pair(0, A_NORMAL, -1);
 init_pair(30, COLOR_BLACK, -1);
 init_pair(31, COLOR_RED, -1);
 init_pair(32, COLOR_GREEN, -1);
 init_pair(33, COLOR_YELLOW, -1);
 init_pair(34, COLOR_BLUE, -1);
 init_pair(35, COLOR_MAGENTA, -1);
 init_pair(36, COLOR_CYAN, -1);
 init_pair(37, COLOR_WHITE, -1);
}

int io_getkey()
{
int c;
 switch(c = getch()) {
 case KEY_LEFT:
  return LEFT;
  break;
 case KEY_RIGHT:
  return RIGHT;
  break;
 case KEY_UP:
  return UP;
  break;
 case KEY_DOWN:
  return DOWN;
  break;
 case KEY_ENTER:
 case '\n':
 case '\r':
  return ENTER;
  break;
 default:
  return c;
  break;
 }
}

void io_clearscreen()
{
 clear();
}

void io_printname(int x, int y, int era, int card)
{
 mvprintw(y, x, "#  ");
 attron(COLOR_PAIR(gettypecolor(cards_gettype(era, card))));
 printw("%-23s", cards_getname(era, card));
 attrset(A_NORMAL);
 printw(" #");
}

void io_printblankline(int x, int y, int width)
{
 int i;
 mvprintw(y, x, "#");
 for(i = 0; i < width-1; i++) printw(" ");
 printw("#");
}

int io_printtext(int xorigin, int y, int width, char* text)
{
 width -= 1; //padding
 int x = xorigin+2;
 int wordlength;
 int wordstart = 0;
 int i;
 //start with a cleared line
 io_printblankline(xorigin, y, width);
 while(text[wordstart] != '\0') {
  wordlength = 0;
  while(text[wordstart+(wordlength++)] != ' ' && text[wordstart+wordlength] != '\0' && text[wordstart+wordlength] != '\n');
  if(x-xorigin+wordlength > width || text[wordstart] == '\n') {
   io_printblankline(xorigin, ++y, width);
   x = xorigin+2;
  }
  mvprintw(y, x, "");
  for(i = wordstart; i < wordstart+wordlength; i++) {
   if(text[i] != '\n') addch(text[i]);
  }
  x += wordlength;
  wordstart += wordlength;
 }
 return y+1;
}

void io_printborder(int x, int y, int width)
{
 int i;
 for(i = 0; i < width; i++)
  mvprintw(y, x+i, "#");
}

int io_printcard(int x, int y, int era, int card, int player)
{
 io_printborder(x, y++, 28);
 if(cards_getname(era, card)[0] != '\0')
  io_printname(x, y++, era, card);
 int *costs = cards_getcost(era, card);
 int *products = cards_getproduction(era, card);
 int hasCP = 0;
 int i, j, k;
 for(i = 0; i < NUMRESOURCES; i++)
  if(costs[i] > 0) hasCP = 1;
 for(i = 0; i < NUMPRODUCTS; i++)
  if(products[i] > 0) hasCP = 1;
 if(hasCP) {
  mvprintw(y++, x, "# Costs:   | Produces:     #");
  i = j = -1;
  while(i < NUMRESOURCES || j < NUMPRODUCTS) {
   while(i < NUMRESOURCES && costs[++i] == 0);
   while(j < NUMPRODUCTS && products[++j] == 0);
   if(i == NUMRESOURCES && j == NUMPRODUCTS) break;
   mvprintw(y++, x, "# ");
   if(i < NUMRESOURCES) printw(" %d %-6s| ", costs[i], getname(i));
   else printw("         | ");
   int isFinal = 1;
   for(k = j+1; k < NUMPRODUCTS; k++)
    if(products[k]) isFinal = 0;
   if(j < NUMPRODUCTS)
    if(isFinal || j == GOLD || j == SHIELD || j == VP) printw(" %d %-10s #", products[j], getname(j));
    else printw(" %d %-7s or #", products[j], getname(j));
   else printw("              #");
  }
 }

 char* message = cards_specialmessage(era, card);
 if(message[0] != '\0')
  y = io_printtext(x, y, 28, message);
 
 int* coupons = cards_getcoupons(era, card);
 if(coupons[1] || coupons[3])
 { //print the coupons!
  mvprintw(y++, x, "# Coupon for:              #");
  if(coupons[1])
   io_printname(x, y++, coupons[0], coupons[1]);
  if(coupons[3])
   io_printname(x, y++, coupons[2], coupons[3]);
 }

 coupons = cards_getcouponed(era, card);
 if(coupons[1] || coupons[3])
 { //print the coupons!
  mvprintw(y++, x, "# Free if owned:           #");
  if(coupons[1])
   io_printname(x, y++, coupons[0], coupons[1]);
  if(coupons[3])
   io_printname(x, y++, coupons[2], coupons[3]);
 } 

 int* special = get_special(era, card, player);
 if(special[0] || special[1])
 { //print special (vp, gold)
  mvprintw(y++, x, "# In your case, produces:  #");
  mvprintw(y++, x, "# %2d victory points        #", special[0]);
  mvprintw(y++, x, "# %2d gold                  #", special[1]);
 }

 io_printborder(x, y, 28);
 return y;
}

int io_printhand(int x, int y, int player, int cursor)
{
 int *hand = data_gethand(player);
 int i;
 io_printborder(x, y++, 28);
 y = io_printtext(x, y, 28, "          Hand");
 for(i = 0; hand[i] != -1 && i < 7; i++) {
  io_printname(x, y++, data_getera(), hand[i]);
  if(i == cursor) {
   mvprintw(y-1, x+25, "*");
  }
 }
 y = io_printtext(x, y, 28, " Trade...");
 if(i == cursor)
  mvprintw(y-1, x+25, "*");
 else if(cursor >= 0 && cursor < 7 && hand[cursor] != -1)
  y = io_printcard(x, y, data_getera(), hand[cursor], player);
 else io_printborder(x, y++, 28);
 return y;
}

void io_printplain(int x, int y, char *s)
{
 mvprintw(y, x, "%s", s);
}

void io_printcolor(int x, int y, int color, char *s)
{
 attron(COLOR_PAIR(color));
 io_printplain(x, y, s);
 attrset(A_NORMAL);
}