//+----------------------------------------------------------------------------+
//| Description:  Magic Set Editor - Program to make Magic (tm) cards          |
//| Copyright:    (C) 2001 - 2010 Twan van Laarhoven and Sean Hunt             |
//| License:      GNU General Public License 2 or later (see file COPYING)     |
//+----------------------------------------------------------------------------+

// ----------------------------------------------------------------------------- : Includes

#include <util/prec.hpp>
#include <data/game.hpp>
#include <data/field.hpp>
#include <data/field/choice.hpp>
#include <data/keyword.hpp>
#include <data/statistics.hpp>
#include <data/pack.hpp>
#include <data/word_list.hpp>
#include <data/add_cards_script.hpp>
#include <util/io/package_manager.hpp>
#include <script/script.hpp>

DECLARE_TYPEOF_COLLECTION(FieldP);
DECLARE_TYPEOF_COLLECTION(StatsDimensionP);

// ----------------------------------------------------------------------------- : Game

IMPLEMENT_DYNAMIC_ARG(Game*, game_for_reading, nullptr);

Game::Game()
	: has_keywords(false)
	, dependencies_initialized(false)
{}

GameP Game::byName(const String& name) {
	return package_manager.open<Game>(name + _(".mse-game"));
}

bool Game::isMagic() const {
	return name() == _("magic");
}

String Game::typeNameStatic() { return _("game"); }
String Game::typeName() const { return _("game"); }
Version Game::fileVersion() const { return file_version_game; }

IMPLEMENT_REFLECTION(Game) {
	REFLECT_BASE(Packaged);
	REFLECT_NO_SCRIPT(init_script);
	REFLECT_NO_SCRIPT(set_fields);
	REFLECT_IF_READING {
		default_set_style.init(set_fields);
	}
	REFLECT_NO_SCRIPT(default_set_style);
	REFLECT_NO_SCRIPT(card_fields);
	REFLECT_NO_SCRIPT(card_list_color_script);
	REFLECT_NO_SCRIPT(statistics_dimensions);
	REFLECT_NO_SCRIPT(statistics_categories);
	REFLECT_COMPAT(<308, "pack_item", pack_types);
	REFLECT_NO_SCRIPT(pack_types);
	REFLECT_NO_SCRIPT(keyword_match_script);
	REFLECT(has_keywords);
	REFLECT(keyword_modes);
	REFLECT(keyword_parameter_types);
	REFLECT_NO_SCRIPT(keywords);
	REFLECT_NO_SCRIPT(word_lists);
	REFLECT_NO_SCRIPT(add_cards_scripts);
	REFLECT_NO_SCRIPT(auto_replaces);
}

void Game::validate(Version v) {
	Packaged::validate(v);
	// automatic statistics dimensions
	{
		vector<StatsDimensionP> dims;
		FOR_EACH(f, card_fields) {
			if (f->show_statistics) {
				dims.push_back(intrusive(new StatsDimension(*f)));
			}
		}
		statistics_dimensions.insert(statistics_dimensions.begin(), dims.begin(), dims.end()); // push front
	}
	// automatic statistics categories
	{
		vector<StatsCategoryP> cats;
		FOR_EACH(dim, statistics_dimensions) {
			cats.push_back(intrusive(new StatsCategory(dim)));
		}
		statistics_categories.insert(statistics_categories.begin(), cats.begin(), cats.end()); // push front
	}
	// automatic pack if there are none
	if (pack_types.empty()) {
		PackTypeP pack(new PackType);
		pack->name = _("Any card");
		pack->enabled = true;
		pack->selectable = true;
		pack->summary = true;
		pack->filter = OptionalScript(_("true"));
		pack->select = SELECT_NO_REPLACE;
		pack_types.push_back(pack);
	}
}

void Game::initCardListColorScript() {
	if (card_list_color_script) return; // already done
	// find a field with choice_colors_cardlist
	FOR_EACH(s, card_fields) {
		ChoiceFieldP cf = dynamic_pointer_cast<ChoiceField>(s);
		if (cf && !cf->choice_colors_cardlist.empty()) {
			// found the field to use
			// initialize script:  field.colors[card.field-name] or else rgb(0,0,0)
			Script& s = card_list_color_script.getMutableScript();
			s.addInstruction(I_PUSH_CONST, to_script(&cf->choice_colors_cardlist));
			s.addInstruction(I_GET_VAR,    SCRIPT_VAR_card);
			s.addInstruction(I_MEMBER_C,   cf->name);
			s.addInstruction(I_BINARY,     I_MEMBER);
			s.addInstruction(I_PUSH_CONST, to_script(Color(0,0,0)));
			s.addInstruction(I_BINARY,     I_OR_ELSE);
			return;
		}
	}
}

// special behaviour of reading/writing GamePs: only read/write the name

void Reader::handle(GameP& game) {
	game = Game::byName(getValue());
}
void Writer::handle(const GameP& game) {
	if (game) handle(game->name());
}
