/*
 *  item.cpp
 *  BoE
 *
 *  Created by Celtic Minstrel on 20/04/09.
 *
 */

#include <string>
#include <vector>
#include <map>
#include <sstream>

#include "classes.h"
#include "boe.consts.h" // TODO: If this is needed here, maybe it shouldn't be in the "boe" namespace
#include "oldstructs.h"

cItemRec k;
unsigned char cItemRec::rec_treas_class() const {
	short tmp = value;
	if(charges > 0) tmp *= charges;
	if(tmp >=   15) return 1;
	if(tmp >=  100) return 2;
	if(tmp >=  900) return 3;
	if(tmp >= 2400) return 4;
	return 0;
}

//bool cItemRec::is_ident() const {
//	return item_properties & 1;
//}
//
//bool cItemRec::is_property() const {
//	return item_properties & 2;
//}
//
//bool cItemRec::is_magic() const {
//	return item_properties & 4;
//}
//
//bool cItemRec::is_contained() const {
//	return item_properties & 8;
//}
//
//bool cItemRec::is_cursed() const {
//	return item_properties & 16;
//}
//
//bool cItemRec::is_concealed() const {
//	return item_properties & 32;
//}
//
//bool cItemRec::is_enchanted() const {
//	return item_properties & 64;
//}
//
//// Set bit to 1: a |= b
//// Set bit to 0: a &= ~b
//// Toggle bit:   a ^= b
//
//void cItemRec::set_ident(bool b) {
//	if(b) item_properties |=  1;
//	else  item_properties &= ~1;
//}
//
//void cItemRec::set_property(bool b) {
//	if(b) item_properties |=  2;
//	else  item_properties &= ~2;
//}
//
//void cItemRec::set_magic(bool b) {
//	if(b) item_properties |=  4;
//	else  item_properties &= ~4;
//}
//
//void cItemRec::set_contained(bool b) {
//	if(b) item_properties |=  8;
//	else  item_properties &= ~8;
//}
//
//void cItemRec::set_cursed(bool b) {
//	if(b) item_properties |=  16;
//	else  item_properties &= ~16;
//}
//
//void cItemRec::set_concealed(bool b) {
//	if(b) item_properties |=  32;
//	else  item_properties &= ~32;
//}
//
//void cItemRec::set_enchanted(bool b) {
//	if(b) item_properties |=  64;
//	else  item_properties &= ~64;
//}

short cItemRec::item_weight() const {
	short n = charges, w = weight;
	if (variety == eItemType::NO_ITEM)
		return 0;
	if(charges > 0){
		if((variety == eItemType::ARROW) || (variety == eItemType::THROWN_MISSILE) || (variety == eItemType::POTION) || (variety == eItemType::BOLTS))
			return n * w;
	}
	return w;
}

cItemRec::cItemRec(){
	variety = eItemType::NO_ITEM;
	item_level = 0;
	awkward = 0;
	bonus = 0;
	protection = 0;
	charges = 0;
	type = eSkill::INVALID;
	magic_use_type = 0;
	graphic_num = 0;
	ability = eItemAbil::NONE;
	ability_strength = 0;
	type_flag = 0;
	is_special = 0;
	value = 0;
	weight = 0;
	special_class = 0;
	item_loc.x = 0;
	item_loc.y = 0;
	full_name = "";
	name = "";
	treas_class = 0;
	ident = property = magic = contained = false;
	cursed = concealed = enchanted = unsellable = false;
	reserved1 = 0;
	reserved2 = 0;
}

cItemRec::cItemRec(long preset){
	ability = eItemAbil::NONE;
	ability_strength = 0;
	type_flag = 0;
	is_special = 0;
	special_class = 0;
	item_loc.x = 0;
	item_loc.y = 0;
	treas_class = 0;
	ident = property = magic = contained = false;
	cursed = concealed = enchanted = unsellable = false;
	reserved1 = 0;
	reserved2 = 0;
	switch(preset){
		case 'nife':
			variety = eItemType::ONE_HANDED;
			item_level = 4;
			awkward = 0;
			bonus = 1;
			protection = 0;
			charges = 0;
			type = eSkill::EDGED_WEAPONS;
			magic_use_type = 0;
			graphic_num = 55;
			value = 2;
			weight = 7;
			full_name = "Bronze Knife";
			name = "Knife";
			ident = true;
			break;
		case 'buck':
			variety = eItemType::SHIELD;
			item_level = 1;
			awkward = 1;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 75;
			value = 2;
			weight = 20;
			full_name = "Crude Buckler";
			name = "Buckler";
			ident = true;
			break;
		case 'bow ':
			variety = eItemType::BOW;
			item_level = 0;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 10;
			value = 15;
			weight = 20;
			full_name = "Cavewood Bow";
			name = "Bow";
			ident = true;
			break;
		case 'arrw':
			variety = eItemType::ARROW;
			item_level = 12;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 12;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 57;
			value = 1;
			weight = 1;
			full_name = "Arrows";
			name = "Arrows";
			ident = true;
			break;
		case 'pole':
			variety = eItemType::TWO_HANDED;
			item_level = 9;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::POLE_WEAPONS;
			magic_use_type = 0;
			graphic_num = 4;
			value = 10;
			weight = 20;
			full_name = "Stone Spear";
			name = "Spear";
			ident = true;
			break;
		case 'helm':
			variety = eItemType::HELM;
			item_level = 1;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 76;
			value = 6;
			weight = 15;
			full_name = "Leather Helm";
			name = "Helm";
			ident = true;
			break;
		case 'food':
			variety = eItemType::FOOD;
			item_level = 0;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 72;
			value = 0;
			weight = 0;
			full_name = "Food";
			name = "Food";
			ident = false;
			break;
		case 'spel':
			variety = eItemType::NON_USE_OBJECT;
			item_level = 0;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 0;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 63;
			value = 0;
			weight = 0;
			full_name = "";
			name = "";
			ident = false;
			break;
		case 'alch':
			variety = eItemType::POTION;
			item_level = 0;
			awkward = 0;
			bonus = 0;
			protection = 0;
			charges = 1;
			type = eSkill::INVALID;
			magic_use_type = 0;
			graphic_num = 60;
			value = 0;
			weight = 8;
			full_name = "Potion";
			name = "Potion";
			ident = false;
			magic = true;
			break;
	}
}

cItemRec& cItemRec::operator = (legacy::item_record_type& old){
	variety = (eItemType) old.variety;
	item_level = old.item_level;
	awkward = old.awkward;
	bonus = old.bonus;
	protection = old.protection;
	charges = old.charges;
	if(old.type >= 3 && old.type <= 5)
		type = eSkill(old.type);
	else type = eSkill::INVALID;
	magic_use_type = old.magic_use_type;
	graphic_num = old.graphic_num;
	if(graphic_num >= 150) // custom item graphic
		graphic_num += 850;
	else if(graphic_num == 59) // duplicate mushroom graphic
		graphic_num = 74;
	else if(graphic_num >= 45) // small graphics were moved up to make a bit more room for new large graphics
		graphic_num += 10;
	ability = (eItemAbil) old.ability;
	ability_strength = old.ability_strength;
	type_flag = old.type_flag;
	is_special = old.is_special;
	value = old.value;
	weight = old.weight;
	special_class = old.special_class;
	item_loc.x = old.item_loc.x;
	item_loc.y = old.item_loc.y;
	full_name = std::string(old.full_name);
	name = old.name;
	treas_class = old.treas_class;
	ident = old.item_properties & 1;
	property = old.item_properties & 2;
	magic = old.item_properties & 4;
	contained = old.item_properties & 8;
	cursed = old.item_properties & 16;
	concealed = old.item_properties & 32;
	enchanted = false;
	unsellable = old.item_properties & 16;
	reserved1 = old.reserved1;
	reserved2 = old.reserved2;
	return *this;
}

void cItemRec::writeTo(std::ostream& file, std::string prefix){
	file << prefix << "VARIETY " << variety << '\n';
	file << prefix << "LEVEL " << item_level << '\n';
	file << prefix << "AWKWARD " << awkward << '\n';
	file << prefix << "BONUS " << bonus << '\n';
	file << prefix << "PROT " << protection << '\n';
	file << prefix << "CHARGES " << charges << '\n';
	file << prefix << "WEAPON " << type << '\n';
	file << prefix << "USE " << magic_use_type << '\n';
	file << prefix << "ICON " << graphic_num << '\n';
	file << prefix << "ABILITY " << ability << '\n';
	file << prefix << "ABILSTR " << ability_strength << '\n';
	file << prefix << "TYPE " << type_flag << '\n';
	file << prefix << "ISSPEC " << is_special << '\n';
	file << prefix << "VALUE " << value << '\n';
	file << prefix << "WEIGHT " << weight << '\n';
	file << prefix << "SPEC " << special_class << '\n';
	file << prefix << "AT " << item_loc.x << ' ' << item_loc.y << '\n';
	file << prefix << "FULLNAME " << full_name << '\n';
	file << prefix << "NAME " << name << '\n';
	file << prefix << "TREASURE " << treas_class << '\n';
	if(ident) file << prefix << "IDENTIFIED\n";
	if(property) file << prefix << "PROPERTY\n";
	if(magic) file << prefix << "MAGIC\n";
	if(contained) file << prefix << "CONTAINED\n";
	if(cursed) file << prefix << "CURSED\n";
	if(concealed) file << prefix << "CONCEALED\n";
	if(enchanted) file << prefix << "ENCHANTED\n";
	if(unsellable) file << prefix << "UNSELLABLE\n";
}

void cItemRec::readFrom(std::istream& sin){
	while(sin) {
		std::string cur;
		getline(sin, cur);
		std::istringstream sin(cur);
		sin >> cur;
		if(cur == "VARIETY") sin >> variety;
		else if(cur == "LEVEL") sin >> item_level;
		else if(cur == "AWKWARD") sin >> awkward;
		else if(cur == "BONUS") sin >> bonus;
		else if(cur == "PROT") sin >> protection;
		else if(cur == "CHARGES") sin >> charges;
		else if(cur == "WEAPON") sin >> type;
		else if(cur == "USE") sin >> magic_use_type;
		else if(cur == "ICON") sin >> graphic_num;
		else if(cur == "ABILITY") sin >> ability;
		else if(cur == "ABILSTR") sin >> ability_strength;
		else if(cur == "TYPE") sin >> type_flag;
		else if(cur == "ISSPEC") sin >> is_special;
		else if(cur == "VALUE") sin >> value;
		else if(cur == "WEIGHT") sin >> weight;
		else if(cur == "SPEC") sin >> special_class;
		else if(cur == "AT") sin >> item_loc.x >> item_loc.y;
		else if(cur == "FULLNAME"){
			getline(sin,cur);
			full_name = cur;
		}else if(cur == "NAME"){
			getline(sin,cur);
			name = cur;
		}
		else if(cur == "TREASURE") sin >> treas_class;
		else if(cur == "IDENTIFIED") ident = true;
		else if(cur == "PROPERTY") property = true;
		else if(cur == "MAGIC") magic = true;
		else if(cur == "CONTAINED") contained = true;
		else if(cur == "CURSED") cursed = true;
		else if(cur == "CONCEALED") concealed = true;
		else if(cur == "ENCHANTED") enchanted = true;
		else if(cur == "UNSELLABLE") unsellable = true;
	}
}

std::ostream& operator << (std::ostream& out, eSkill& e){
	return out << (int) e;
}

std::ostream& operator << (std::ostream& out, eItemType& e){
	return out << (int) e;
}

std::ostream& operator << (std::ostream& out, eItemAbil& e){
	return out << (int) e;
}

// TODO: Perhaps this should understand symbolic names as well?
std::istream& operator >> (std::istream& in, eSkill& e){
	int i;
	in >> i;
	if(i >= 0 && i < 19)
		e = (eSkill) i;
	else e = eSkill::INVALID;
	return in;
}

// TODO: Perhaps this should understand symbolic names as well?
std::istream& operator >> (std::istream& in, eItemType& e){
	int i;
	in >> i;
	if(i > 0 && i < 28)
		e = (eItemType) i;
	else e = eItemType::NO_ITEM;
	return in;
}

// TODO: Perhaps this should understand symbolic names as well?
std::istream& operator >> (std::istream& in, eItemAbil& e){
	int i;
	in >> i;
	if((i > 0 && i < 15) || (i > 29 && i < 63) ||
	   (i > 69 && i < 95) || (i > 109 && i < 136) ||
	   (i > 149 && i < 162) || (i > 169 && i < 177))
		e = (eItemAbil) i;
	else e = eItemAbil::NONE;
	return in;
}