/*
 *  Copyright (C) 2001-2002  The Exult Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#include "actors.h"
#include "conversation.h"
#include "exult.h"
#include "game.h"
#include "gamewin.h"
#include "mouse.h"
#include "useval.h"
#include "data/exult_bg_flx.h"

#ifndef UNDER_CE
using std::cout;
using std::endl;
using std::size_t;
using std::strcpy;
using std::string;
using std::vector;
#endif

//TODO: show_face & show_avatar_choices seem to share code?
//TODO: show_avatar_choices shouldn't first convert to char**, probably

/*
 *	Store information about an NPC's face and text on the screen during
 *	a conversation:
 */
class Npc_face_info {
 public:
  ShapeID shape;
  int face_num;			// NPC's face shape #.
  //int frame;
  bool text_pending;	// Text has been written, but user
  //   has not yet been prompted.
  Rectangle face_rect;		// Rectangle where face is shown.
  Rectangle text_rect;		// Rectangle NPC statement is shown in.
  int last_text_height;		// Height of last text painted.
  string cur_text;		// Current text being shown.
  Npc_face_info(ShapeID &sid, int num) : shape(sid), face_num(num), text_pending(0)
  {  }
};

Conversation::Conversation() :
  num_faces(0), last_face_shown(0), conv_choices(0), avatar_face(0,0,0,0)
{

  const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
  for (int i = 0; i < max_faces; i++)
    face_info[i] = 0;
}

Conversation::~Conversation()
{
  delete [] conv_choices;
}


void Conversation::clear_answers(void)
{
	answers.clear();
}

void Conversation::add_answer(const char *str)
{
	remove_answer(str);
	string s(str);
	answers.push_back(s);
}

/*
 *	Add an answer to the list.
 */

void Conversation::add_answer(Usecode_value& val)
{
	const char *str;
	int size = val.get_array_size();
	if (size)			// An array?
		{
		for (int i = 0; i < size; i++)
			add_answer(val.get_elem(i));
		}
	else if ((str = val.get_str_value()) != 0)
		add_answer(str);
}

void Conversation::remove_answer(const char *str)
{
	std::vector<string>::iterator it;

	for(it=answers.begin();	it!=answers.end(); ++it)
		if(*it==str)
			break;

	if(it!=answers.end())
		answers.erase(it);
}

/*
 *	Remove an answer from the list.
 */

void Conversation::remove_answer(Usecode_value& val)
{
	const char *str;
	if (val.is_array()) {
		int size = val.get_array_size();
		for (int i=0; i < size; i++) {
			str = val.get_elem(i).get_str_value();
			if (str) remove_answer(str);
		}
	} else {
		str = val.get_str_value();
		remove_answer(str);
	}
}

/*
 *	Initialize face list.
 */

void Conversation::init_faces()
{
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	for (int i = 0; i < max_faces; i++)
		{
		if( face_info[i] )
			delete face_info[i];
		face_info[i] = 0;
		}
	num_faces = 0;
	last_face_shown = -1;
}

/*
 *	Get face frame in Serpent Isle.
 */

static int SI_get_frame
	(
	Actor *main_actor
	)
	{
	int frame;
	if (main_actor->get_skin_color() == 0) // WH
	{
		frame = 1 - main_actor->get_type_flag(Actor::tf_sex);
	}
	else if (main_actor->get_skin_color() == 1) // BN
	{
		frame = 3 - main_actor->get_type_flag(Actor::tf_sex);
	}
	else if (main_actor->get_skin_color() == 2) // BK
	{
		frame = 5 - main_actor->get_type_flag(Actor::tf_sex);
	}
	else // None
	{
		frame = main_actor->get_type_flag(Actor::tf_sex);
	}
	return frame;
	}


/*
 *	Show a "face" on the screen.  Npc_text_rect is also set.
 *	If shape < 0, an empty space is shown.
 */

void Conversation::show_face(int shape, int frame, int slot)
{
	ShapeID face_sid(shape, frame, SF_FACES_VGA);

        bool SI = Game::get_game_type()==SERPENT_ISLE;
	Main_actor* main_actor = gwin->get_main_actor();
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);

	// Make sure mode is set right.
	Palette *pal = gwin->get_pal();	// Watch for wierdness (lightning).
	if (pal->get_brightness() >= 300)
		pal->set(-1, 100);

	if (SI)				// Serpent Isle?
	{				// Petra?  ???+++Is this right?
		if (shape == 28 && main_actor->get_flag(Obj_flags::petra))
		{
			shape = main_actor->get_face_shapenum();
			face_sid.set_shape(shape);
		}
		if (shape == 0)		// In any case, get correct frame.
		{
			frame = SI_get_frame(main_actor);
			if (main_actor->get_flag(Obj_flags::tattooed))
				shape = 299;

			face_sid.set_shape(shape, frame);
		}
	}
	// BG Multiracial Hack
	else if (shape == 0)
	{
		if (main_actor->get_skin_color() != 3)
		{
			shape = EXULT_BG_FLX_MR_FACES_SHP;
			frame = SI_get_frame(main_actor);
			face_sid.set_file(SF_GAME_FLX);
			face_sid.set_shape(shape, frame);
		}
	}
					// Get screen dims.
	int screenw = gwin->get_width(), screenh = gwin->get_height();
	Npc_face_info *info = 0;
					// See if already on screen.
	for (int i = 0; i < max_faces; i++)
		if (face_info[i] && face_info[i]->face_num == shape)
			{
			info = face_info[i];
			last_face_shown = i;
			break;
			}
	if (!info)			// New one?
		{
		if (num_faces == max_faces)
					// None free?  Steal last one.
			remove_slot_face(max_faces - 1);
		info = new Npc_face_info(face_sid, shape);
		if (slot == -1)		// Want next one?
			slot = num_faces;
					// Get last one shown.
		Npc_face_info *prev = slot ? face_info[slot - 1] : 0;
		last_face_shown = slot;
		if (!face_info[slot])
			num_faces++;	// We're adding one (not replacing).
		else
			delete face_info[slot];
		face_info[slot] = info;
					// Get text height.
		int text_height = sman->get_text_height(0);
					// Figure starting y-coord.
					// Get character's portrait.
		Shape_frame *face = shape >= 0 ? face_sid.get_shape() : 0;
		int face_w = 32, face_h = 32;
		if (face)
			{
			face_w = face->get_width(); 
			face_h = face->get_height();
			}
		int starty;
		if (prev)
			{
			starty = prev->text_rect.y + prev->last_text_height;
			if (starty < prev->face_rect.y + prev->face_rect.h)
				starty = prev->face_rect.y + prev->face_rect.h;
			starty += 2*text_height;
			if (starty + face_h > screenh - 1)
				starty = screenh - face_h - 1;
			}
		else
			starty = 1;
		info->face_rect = gwin->clip_to_win(Rectangle(8, starty,
			face_w + 4, face_h + 4));
		Rectangle& fbox = info->face_rect;
					// This is where NPC text will go.
		info->text_rect = gwin->clip_to_win(Rectangle(
			fbox.x + fbox.w + 3, fbox.y + 3,
			screenw - fbox.x - fbox.w - 6, 4*text_height));
					// No room?  (Serpent?)
		if (info->text_rect.w < 16 || info->text_rect.h < 16)
					// Show in lower center.
			info->text_rect = Rectangle(screenw/4, screenh/2,
						screenw/2, screenh/4);
		info->last_text_height = info->text_rect.h;
		}
	gwin->get_win()->set_clip(0, 0, screenw, screenh);
	paint_faces();			// Paint all faces.
	gwin->get_win()->clear_clip();
	}

/*
 *	Remove face from screen.
 */

void Conversation::remove_face(int shape)
{
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	int i;				// See if already on screen.
	for (i = 0; i < max_faces; i++)
		if (face_info[i] && face_info[i]->face_num == shape)
			break;
	if (i == max_faces)
		return;			// Not found.
	remove_slot_face(i);
}

/*
 *	Remove face from indicated slot (SI).
 */

void Conversation::remove_slot_face
	(
	int slot
	)
	{
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	if (slot >= max_faces || !face_info[slot])
		return;			// Invalid.
	Npc_face_info *info = face_info[slot];
					// These are needed in case conversa-
					//   tion is done.
	gwin->add_dirty(info->face_rect);
	gwin->add_dirty(info->text_rect);
	delete face_info[slot];
	face_info[slot] = 0;
	num_faces--;
	if (last_face_shown == slot)	// Just in case.
		{
		int j;
		for (j = max_faces - 1; j >= 0; j--)
			if (face_info[j])
				break;
		last_face_shown = j;
		}
	}


/*
 *	Show what the NPC had to say.
 */

void Conversation::show_npc_message(const char *msg)
{
	if (last_face_shown == -1)
		return;
	Npc_face_info *info = face_info[last_face_shown];
	info->cur_text = "";
	Rectangle& box = info->text_rect;
//	gwin->paint(box);		// Clear what was there before.
//	paint_faces();
	gwin->paint();
	int height;			// Break at punctuation.
	while ((height = sman->paint_text_box(0, msg, box.x,box.y,box.w,box.h, 
								-1, 1, gwin->get_text_bg())) < 0)
		{			// More to do?
		info->cur_text = string(msg, -height);
		int x, y; char c;
		gwin->paint();		// Paint scenery beneath.
		Get_click(x, y, Mouse::hand, &c, false, this);
//		gwin->paint(box);	// Clear area again.
		gwin->paint();
		msg += -height;
		}
					// All fit?  Store height painted.
	info->last_text_height = height;
	info->cur_text = msg;
	info->text_pending = 1;
	gwin->set_painted();
//	gwin->show();
}


/*
 *	Is there NPC text that the user hasn't had a chance to read?
 */

bool Conversation::is_npc_text_pending()
{
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	for (int i = 0; i < max_faces; i++)
		if (face_info[i] && face_info[i]->text_pending)
			return true;
	return false;
}

/*
 *	Clear text-pending flags.
 */

void Conversation::clear_text_pending()
{
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	for (int i = 0; i < max_faces; i++)	// Clear 'pending' flags.
		if (face_info[i])
			face_info[i]->text_pending = 0;
}

/*
 *	Show the Avatar's conversation choices (and face).
 */

void Conversation::show_avatar_choices(int num_choices,	char **choices)
{
       bool SI = Game::get_game_type()==SERPENT_ISLE;
	Main_actor *main_actor = gwin->get_main_actor();
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
					// Get screen rectangle.
	Rectangle sbox = gwin->get_win_rect();
	int x = 0, y = 0;		// Keep track of coords. in box.
	int height = sman->get_text_height(0);
	int space_width = sman->get_text_width(0, " ");


					// Get main actor's portrait.
	int shape = main_actor->get_face_shapenum();
	int frame;
	ShapeID face_sid(shape, 0, SF_FACES_VGA);

 
	if (SI && (main_actor->get_flag(Obj_flags::petra) || (main_actor->get_skin_color() == 3 && main_actor->get_type_flag(Actor::tf_sex)))) // Petra
	{
		shape = 28;
		frame = 0;
		face_sid.set_shape(shape, frame);
	}
	else if (SI && main_actor->get_skin_color() == 3) // Automaton
	{
		shape = 298;
		frame = 0;
		face_sid.set_shape(shape, frame);
	}
	else if (SI)
	{
		frame = SI_get_frame(main_actor);
		if (shape == 0 && main_actor->get_flag(Obj_flags::tattooed))
		{
			shape = 299;
			face_sid.set_shape(shape);
		}

	}
	else
	{
		// BG Multiracial Hack
		if (main_actor->get_skin_color() >= 0 && main_actor->get_skin_color() <= 2 && GAME_BG)
		{
			shape = EXULT_BG_FLX_MR_FACES_SHP;
			frame = SI_get_frame(main_actor);
			face_sid.set_file(SF_GAME_FLX);
			face_sid.set_shape(shape, frame);
		}
		else
			frame = main_actor->get_type_flag(Actor::tf_sex);
	}


	face_sid.set_frame(frame);

	Shape_frame *face = face_sid.get_shape();
	int empty;			// Find face prev. to 1st empty slot.
	for (empty = 0; empty < max_faces; empty++)
		if (!face_info[empty])
			break;
					// Get last one shown.
	Npc_face_info *prev = empty ? face_info[empty - 1] : 0;
	int fx = prev ? prev->face_rect.x + prev->face_rect.w + 4 : 16;
	int fy;
	if (SI)
	{
		if (num_faces == max_faces)
					// Remove face #1 if still there.
			remove_slot_face(max_faces - 1);
		fy = sbox.h - 2 - face->get_height();
		fx = 8;
	}
	else if (!prev)
		fy = sbox.h - face->get_height() - 3*height;
	else
		{
		fy = prev->text_rect.y + prev->last_text_height;
		if (fy < prev->face_rect.y + prev->face_rect.h)
			fy = prev->face_rect.y + prev->face_rect.h;
		fy += height;
		}
	Rectangle mbox(fx, fy, face->get_width(), face->get_height());
	mbox = mbox.intersect(sbox);
	avatar_face = mbox;		// Repaint entire width.
					// Set to where to draw sentences.
	Rectangle tbox(mbox.x + mbox.w + 8, mbox.y + 4,
				sbox.w - mbox.x - mbox.w - 16,
//				sbox.h - mbox.y - 16);
				5*height);// Try 5 lines.
	tbox = tbox.intersect(sbox);
//	gwin->paint(tbox);              // Paint background.
					// Draw portrait.
	sman->paint_shape(mbox.x + face->get_xleft(), 
			  mbox.y + face->get_yabove(), face);
	delete [] conv_choices;		// Set up new list of choices.
	conv_choices = new Rectangle[num_choices + 1];
	for (int i = 0; i < num_choices; i++)
		{
		char text[256];
		text[0] = 127;		// A circle.
		strcpy(&text[1], choices[i]);
		int width = sman->get_text_width(0, text);
		if (x > 0 && x + width >= tbox.w)
			{		// Start a new line.
			x = 0;
			y += height - 1;
			}
					// Store info.
		conv_choices[i] = Rectangle(tbox.x + x, tbox.y + y,
					width, height);
		conv_choices[i] = conv_choices[i].intersect(sbox);
		avatar_face = avatar_face.add(conv_choices[i]);
		sman->paint_text_box(0, text, tbox.x + x, tbox.y + y,
			width + space_width, height, 0, 0, gwin->get_text_bg());
		x += width + space_width;
		}
	avatar_face.enlarge(6);		// Encloses entire area.
	avatar_face = avatar_face.intersect(sbox);
					// Terminate the list.
	conv_choices[num_choices] = Rectangle(0, 0, 0, 0);
	clear_text_pending();
	gwin->set_painted();
}

void Conversation::show_avatar_choices()
{
	char	**result;
	size_t i;	// Blame MSVC

	result=new char *[answers.size()];
	for(i=0;i<answers.size();i++)
		{
		result[i]=new char[answers[i].size()+1];
		strcpy(result[i],answers[i].c_str());
		}
	show_avatar_choices(answers.size(),result);
	for(i=0;i<answers.size();i++)
		{
		delete [] result[i];
		}
	delete [] result;
	}

void Conversation::clear_avatar_choices()
{
//	gwin->paint(avatar_face);	// Paint over face and answers.
	gwin->add_dirty(avatar_face);
	avatar_face.w = 0;
}


/*
 *	User clicked during a conversation.
 *
 *	Output:	Index (0-n) of choice, or -1 if not on a choice.
 */

int Conversation::conversation_choice(int x, int y)
{
	int i;
	for (i = 0; conv_choices[i].w != 0 &&
			!conv_choices[i].has_point(x, y); i++)
		;
	if (conv_choices[i].w != 0)	// Found one?
		return (i);
	else
		return (-1);
}

/*
 *	Repaint everything.
 */

void Conversation::paint
	(
	)
	{
	paint_faces(true);
	if (avatar_face.w)		// Choices?
		show_avatar_choices();
	}

/*
 *	Repaint the faces.   Assumes clip has already been set to screen.
 */

void Conversation::paint_faces
	(
	bool text			// Show text too.
	)
	{
	if (!num_faces)
		return;
	const int max_faces = sizeof(face_info)/sizeof(face_info[0]);
	for (int i = 0; i < max_faces; i++)
		{
		Npc_face_info *finfo = face_info[i];
		if (!finfo)
			continue;
		Shape_frame *face = finfo->face_num >= 0 ? 
				finfo->shape.get_shape() : 0;
		int face_xleft = 0, face_yabove = 0;
		if (face)
			{
			face_xleft = face->get_xleft();
			face_yabove = face->get_yabove();
					// Use translucency.
			sman->paint_shape(
				finfo->face_rect.x + face_xleft,
				finfo->face_rect.y + face_yabove, face, 1);
			}
		if (text)		// Show text too?
			{
			Rectangle& box = finfo->text_rect;
			sman->paint_text_box(0, finfo->cur_text.c_str(), 
				box.x,box.y,box.w,box.h, -1, 1, 
							gwin->get_text_bg());
			}
		}
	}


/*
 *  return nr. of conversation option 'str'. -1 if not found
 */

int Conversation::locate_answer(const char *str)
{
  int num;
  std::vector<string>::iterator it;
  num = 0;
  for(it=answers.begin(); it!=answers.end(); ++it) {
    if(*it==str)
      return num;
    num++;
  }

  return -1;
}

void Conversation::push_answers()
{
  answer_stack.push_front(answers);
  answers.clear();
}

void Conversation::pop_answers()
{
  answers=answer_stack.front();
  answer_stack.pop_front();
  gwin->paint();			// Really just need to figure tbox.
}