#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);

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(" #");
}

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

io_printtext(int xorigin, int y, int width, char* text)
{
 width -= 2; //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');
  if(x-xorigin+wordlength > width) {
   io_printblankline(xorigin, ++y, width);
   x = xorigin+2;
  }
  mvprintw(y, x, "");
  for(i = wordstart; i < wordstart+wordlength; i++) addch(text[i]);
  x += wordlength;
  wordstart += wordlength;
 }
 return y+1;
}

void io_printcard(int x, int y, int era, int card)
{
 mvprintw(y++, x, "############################");
 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) 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, 29, 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]);
 } 
 
 mvprintw(y++, x, "############################");
}

void io_printhand(int x, int y, int player, int cursor)
{
 int *hand = data_gethand(player);
 int i;
 mvprintw(y++, x, "############################");
 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, "*");
  refresh();
 }
 mvprintw(y++, x, "############################");
}