//+----------------------------------------------------------------------------+
//| 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 <script/functions/functions.hpp>
#include <script/functions/util.hpp>
#include <data/field.hpp>
#include <data/field/text.hpp>
#include <data/field/choice.hpp>
#include <data/field/package_choice.hpp>
#include <data/field/color.hpp>
#include <data/game.hpp>
#include <data/card.hpp>
#include <util/error.hpp>

// ----------------------------------------------------------------------------- : new_card

SCRIPT_FUNCTION(new_card) {
	SCRIPT_PARAM(GameP, game);
	CardP new_card = intrusive(new Card(*game));
	// set field values
	SCRIPT_PARAM(ScriptValueP, input);
	ScriptValueP it = input->makeIterator();
	ScriptValueP key;
	while (ScriptValueP v = it->next(&key)) {
		assert(key);
		String name = key->toString();
		// find value to update
		IndexMap<FieldP,ValueP>::const_iterator value_it = new_card->data.find(name);
		if (value_it == new_card->data.end()) {
			throw ScriptError(format_string(_("Card doesn't have a field named '%s'"),name));
		}
		Value* value = value_it->get();
		// set the value
		if (TextValue* tvalue = dynamic_cast<TextValue*>(value)) {
			tvalue->value = v->toString();
		} else if (ChoiceValue* cvalue = dynamic_cast<ChoiceValue*>(value)) {
			cvalue->value = v->toString();
		} else if (PackageChoiceValue* pvalue = dynamic_cast<PackageChoiceValue*>(value)) {
			pvalue->package_name = v->toString();
#if !USE_SCRIPT_VALUE_COLOR
		} else if (ColorValue* cvalue = dynamic_cast<ColorValue*>(value)) {
			cvalue->value = v->toColor();
#endif
#if USE_SCRIPT_VALUE_VALUE
		} else if (AnyValue* avalue = dynamic_cast<AnyValue*>(value)) {
			avalue->value = v;
#endif
		} else {
			throw ScriptError(format_string(_("Can not set value '%s', it is not of the right type"),name));
		}
	}
	SCRIPT_RETURN(new_card);
}

// ----------------------------------------------------------------------------- : Init

void init_script_construction_functions(Context& ctx) {
	ctx.setVariable(_("new_card"), script_new_card);
}
