#include "StdInc.h"
#include "CMapService.h"

#include "../Filesystem/CResourceLoader.h"
#include "../Filesystem/CBinaryReader.h"
#include "../Filesystem/CCompressedStream.h"
#include "../Filesystem/CMemoryStream.h"
#include "CMap.h"
#include <boost/crc.hpp>
#include "../vcmi_endian.h"
#include "../CStopWatch.h"
#include "../VCMI_Lib.h"
#include "../CSpellHandler.h"
#include "../CCreatureHandler.h"
#include "../CHeroHandler.h"
#include "../CObjectHandler.h"
#include "../CDefObjInfoHandler.h"

std::unique_ptr<CMap> CMapService::loadMap(const std::string & name)
{
	auto stream = getStreamFromFS(name);
	return getMapLoader(stream)->loadMap();
}

std::unique_ptr<CMapHeader> CMapService::loadMapHeader(const std::string & name)
{
	auto stream = getStreamFromFS(name);
	return getMapLoader(stream)->loadMapHeader();
}

std::unique_ptr<CMap> CMapService::loadMap(const ui8 * buffer, int size)
{
	auto stream = getStreamFromMem(buffer, size);
	return getMapLoader(stream)->loadMap();
}

std::unique_ptr<CMapHeader> CMapService::loadMapHeader(const ui8 * buffer, int size)
{
	auto stream = getStreamFromMem(buffer, size);
	return getMapLoader(stream)->loadMapHeader();
}

std::unique_ptr<CInputStream> CMapService::getStreamFromFS(const std::string & name)
{
	return CResourceHandler::get()->load(ResourceID(name, EResType::MAP));
}

std::unique_ptr<CInputStream> CMapService::getStreamFromMem(const ui8 * buffer, int size)
{
	return std::unique_ptr<CInputStream>(new CMemoryStream(buffer, size));
}

std::unique_ptr<IMapLoader> CMapService::getMapLoader(std::unique_ptr<CInputStream> & stream)
{
	// Read map header
	CBinaryReader reader(stream.get());
	ui32 header = reader.readUInt32();
	reader.getStream()->seek(0);

	// Check which map format is used
	// gzip header is 3 bytes only in size
	switch(header & 0xffffff)
	{
		// gzip header magic number, reversed for LE
		case 0x00088B1F:
			stream = std::unique_ptr<CInputStream>(new CCompressedStream(std::move(stream), true));
			return std::unique_ptr<IMapLoader>(new CMapLoaderH3M(stream.get()));
		case EMapFormat::WOG :
		case EMapFormat::AB  :
		case EMapFormat::ROE :
		case EMapFormat::SOD :
			return std::unique_ptr<IMapLoader>(new CMapLoaderH3M(stream.get()));
		default :
			throw std::runtime_error("Unknown map format");
	}
}

const bool CMapLoaderH3M::IS_PROFILING_ENABLED = false;

CMapLoaderH3M::CMapLoaderH3M(CInputStream * stream) : map(nullptr), buffer(nullptr), pos(-1), size(-1)
{
	initBuffer(stream);
}

CMapLoaderH3M::~CMapLoaderH3M()
{
	delete buffer;
}

void CMapLoaderH3M::initBuffer(CInputStream * stream)
{
	// Read map data into memory completely
	// TODO Replace with CBinaryReader later... (no need for reading whole
	// file in memory at once, storing pos & size separately...)
	stream->seek(0);
	size = stream->getSize();
	buffer = new ui8[size];
	stream->read(buffer, size);
}

std::unique_ptr<CMap> CMapLoaderH3M::loadMap()
{
	// Init map object by parsing the input buffer
	map = new CMap();
	mapHeader = std::unique_ptr<CMapHeader>(dynamic_cast<CMapHeader *>(map));
	init();

	return std::unique_ptr<CMap>(dynamic_cast<CMap *>(mapHeader.release()));;
}

std::unique_ptr<CMapHeader> CMapLoaderH3M::loadMapHeader()
{
	// Read header
	mapHeader = std::unique_ptr<CMapHeader>(new CMapHeader);
	readHeader();

	return std::move(mapHeader);
}

void CMapLoaderH3M::init()
{
	// Compute checksum
	boost::crc_32_type  result;
	result.process_bytes(buffer, size);
	map->checksum = result.checksum();

	CStopWatch sw;

	struct MapLoadingTime
	{
		std::string name;
		si64 time;

		MapLoadingTime(std::string name, si64 time) : name(name),
			time(time)
		{

		}
	};
	std::vector<MapLoadingTime> times;

	readHeader();
	times.push_back(MapLoadingTime("header", sw.getDiff()));

	readDisposedHeroes();
	times.push_back(MapLoadingTime("disposed heroes", sw.getDiff()));

	readAllowedArtifacts();
	times.push_back(MapLoadingTime("allowed artifacts", sw.getDiff()));

	readAllowedSpellsAbilities();
	times.push_back(MapLoadingTime("allowed spells and abilities", sw.getDiff()));

	readRumors();
	times.push_back(MapLoadingTime("rumors", sw.getDiff()));

	readPredefinedHeroes();
	times.push_back(MapLoadingTime("predefined heroes", sw.getDiff()));

	readTerrain();
	times.push_back(MapLoadingTime("terrain", sw.getDiff()));

	readDefInfo();
	times.push_back(MapLoadingTime("def info", sw.getDiff()));

	readObjects();
	times.push_back(MapLoadingTime("objects", sw.getDiff()));

	readEvents();
	times.push_back(MapLoadingTime("events", sw.getDiff()));

	// Calculate blocked / visitable positions
	for(int f = 0; f < map->objects.size(); ++f)
	{
		if(!map->objects[f]->defInfo) continue;
		addBlockVisibleTiles(map->objects[f]);
	}
	times.push_back(MapLoadingTime("blocked/visitable tiles", sw.getDiff()));

	// Print profiling times
	if(IS_PROFILING_ENABLED)
	{
		BOOST_FOREACH(MapLoadingTime & mlt, times)
		{
			tlog0 << "\tReading " << mlt.name << " took " << mlt.time << " ms." << std::endl;
		}
	}
}

void CMapLoaderH3M::readHeader()
{
	pos = 0;

	// Check map for validity
	if(size < 50  || !buffer[4])
	{
		throw std::runtime_error("Corrupted map file.");
	}

	// Map version
	mapHeader->version = (EMapFormat::EMapFormat)(read_le_u32(buffer + pos));
	pos += 4;
	if(mapHeader->version != EMapFormat::ROE && mapHeader->version != EMapFormat::AB && mapHeader->version != EMapFormat::SOD
			&& mapHeader->version != EMapFormat::WOG)
	{
		throw std::runtime_error("Invalid map format!");
	}

	// Read map name, description, dimensions,...
	mapHeader->areAnyPlayers = static_cast<bool>(readChar(buffer, pos));
	mapHeader->height = mapHeader->width = (read_le_u32(buffer + pos));
	pos += 4;
	mapHeader->twoLevel = static_cast<bool>(readChar(buffer, pos));
	mapHeader->name = readString(buffer, pos);
	mapHeader->description = readString(buffer, pos);
	mapHeader->difficulty = readChar(buffer, pos);
	if(mapHeader->version != EMapFormat::ROE)
	{
		mapHeader->levelLimit = readChar(buffer, pos);
	}
	else
	{
		mapHeader->levelLimit = 0;
	}

	readPlayerInfo();
	readVictoryLossConditions();
	readTeamInfo();
	readAllowedHeroes();
}

void CMapLoaderH3M::readPlayerInfo()
{
	mapHeader->players.resize(8);
	for(int i = 0; i < 8; ++i)
	{
		mapHeader->players[i].canHumanPlay = static_cast<bool>(buffer[pos++]);
		mapHeader->players[i].canComputerPlay = static_cast<bool>(buffer[pos++]);

		// If nobody can play with this player
		if((!(mapHeader->players[i].canHumanPlay || mapHeader->players[i].canComputerPlay)))
		{
			switch(mapHeader->version)
			{
			case EMapFormat::SOD:
			case EMapFormat::WOG:
				pos += 13;
				break;
			case EMapFormat::AB:
				pos += 12;
				break;
			case EMapFormat::ROE:
				pos += 6;
				break;
			}
			continue;
		}

		mapHeader->players[i].aiTactic = static_cast<EAiTactic::EAiTactic>(buffer[pos++]);

		if(mapHeader->version == EMapFormat::SOD || mapHeader->version == EMapFormat::WOG)
		{
			mapHeader->players[i].p7 = buffer[pos++];
		}
		else
		{
			mapHeader->players[i].p7 = -1;
		}

		// Factions this player can choose
		ui16 allowedFactions = buffer[pos++];
		// How many factions will be read from map
		ui16 totalFactions = GameConstants::F_NUMBER;

		if(mapHeader->version != EMapFormat::ROE)
			allowedFactions += (buffer[pos++]) * 256;
		else
			totalFactions--; //exclude conflux for ROE

		for(int fact = 0; fact < totalFactions; ++fact)
		{
			if(!(allowedFactions & (1 << fact)))
			{
				mapHeader->players[i].allowedFactions.erase(fact);
			}
		}

		mapHeader->players[i].isFactionRandom = static_cast<bool>(buffer[pos++]);
		mapHeader->players[i].hasMainTown = static_cast<bool>(buffer[pos++]);
		if(mapHeader->players[i].hasMainTown)
		{
			if(mapHeader->version != EMapFormat::ROE)
			{
				mapHeader->players[i].generateHeroAtMainTown = static_cast<bool>(buffer[pos++]);
				mapHeader->players[i].generateHero = static_cast<bool>(buffer[pos++]);
			}
			else
			{
				mapHeader->players[i].generateHeroAtMainTown = true;
				mapHeader->players[i].generateHero = false;
			}

			mapHeader->players[i].posOfMainTown.x = buffer[pos++];
			mapHeader->players[i].posOfMainTown.y = buffer[pos++];
			mapHeader->players[i].posOfMainTown.z = buffer[pos++];
		}

		mapHeader->players[i].hasHero = buffer[pos++];
		mapHeader->players[i].customHeroID = buffer[pos++];

		if(mapHeader->players[i].customHeroID != 0xff)
		{
			mapHeader->players[i].mainHeroPortrait = buffer[pos++];
			if (mapHeader->players[i].mainHeroPortrait == 0xff)
				mapHeader->players[i].mainHeroPortrait = -1; //correct 1-byte -1 (0xff) into 4-byte -1

			mapHeader->players[i].mainHeroName = readString(buffer, pos);
		}
		else
			mapHeader->players[i].customHeroID = -1; //correct 1-byte -1 (0xff) into 4-byte -1

		if(mapHeader->version != EMapFormat::ROE)
		{
			mapHeader->players[i].powerPlaceholders = buffer[pos++]; //unknown byte
			int heroCount = buffer[pos++];
			pos += 3;
			for(int pp = 0; pp < heroCount; ++pp)
			{
				SHeroName vv;
				vv.heroId = buffer[pos++];
				int hnl = buffer[pos++];
				pos += 3;
				for(int zz = 0; zz < hnl; ++zz)
				{
					vv.heroName += buffer[pos++];
				}
				mapHeader->players[i].heroesNames.push_back(vv);
			}
		}
	}
}

void CMapLoaderH3M::readVictoryLossConditions()
{
	mapHeader->victoryCondition.obj = nullptr;
	mapHeader->victoryCondition.condition = (EVictoryConditionType::EVictoryConditionType)buffer[pos++];

	// Specific victory conditions
	if(mapHeader->victoryCondition.condition != EVictoryConditionType::WINSTANDARD)
	{
		// Read victory conditions
		int nr = 0;
		switch(mapHeader->victoryCondition.condition)
		{
		case EVictoryConditionType::ARTIFACT:
			{
				mapHeader->victoryCondition.objectId = buffer[pos + 2];
				nr = (mapHeader->version == EMapFormat::ROE ? 1 : 2);
				break;
			}
		case EVictoryConditionType::GATHERTROOP:
			{
				mapHeader->victoryCondition.objectId = buffer[pos + 2];
				mapHeader->victoryCondition.count = read_le_u32(buffer + pos + (mapHeader->version == EMapFormat::ROE ? 3 : 4));
				nr = (mapHeader->version == EMapFormat::ROE ? 5 : 6);
				break;
			}
		case EVictoryConditionType::GATHERRESOURCE:
			{
				mapHeader->victoryCondition.objectId = buffer[pos + 2];
				mapHeader->victoryCondition.count = read_le_u32(buffer + pos + 3);
				nr = 5;
				break;
			}
		case EVictoryConditionType::BUILDCITY:
			{
				mapHeader->victoryCondition.pos.x = buffer[pos + 2];
				mapHeader->victoryCondition.pos.y = buffer[pos + 3];
				mapHeader->victoryCondition.pos.z = buffer[pos + 4];
				mapHeader->victoryCondition.count = buffer[pos + 5];
				mapHeader->victoryCondition.objectId = buffer[pos + 6];
				nr = 5;
				break;
			}
		case EVictoryConditionType::BUILDGRAIL:
			{
				if(buffer[pos + 4] > 2)
				{
					mapHeader->victoryCondition.pos = int3(-1,-1,-1);
				}
				else
				{
					mapHeader->victoryCondition.pos.x = buffer[pos + 2];
					mapHeader->victoryCondition.pos.y = buffer[pos + 3];
					mapHeader->victoryCondition.pos.z = buffer[pos + 4];
				}
				nr = 3;
				break;
			}
		case EVictoryConditionType::BEATHERO:
		case EVictoryConditionType::CAPTURECITY:
		case EVictoryConditionType::BEATMONSTER:
			{
				mapHeader->victoryCondition.pos.x = buffer[pos + 2];
				mapHeader->victoryCondition.pos.y = buffer[pos + 3];
				mapHeader->victoryCondition.pos.z = buffer[pos + 4];
				nr = 3;
				break;
			}
		case EVictoryConditionType::TAKEDWELLINGS:
		case EVictoryConditionType::TAKEMINES:
			{
				nr = 0;
				break;
			}
		case EVictoryConditionType::TRANSPORTITEM:
			{
				mapHeader->victoryCondition.objectId =  buffer[pos + 2];
				mapHeader->victoryCondition.pos.x = buffer[pos + 3];
				mapHeader->victoryCondition.pos.y = buffer[pos + 4];
				mapHeader->victoryCondition.pos.z = buffer[pos + 5];
				nr = 4;
				break;
			}
		default:
			assert(0);
		}
		mapHeader->victoryCondition.allowNormalVictory = static_cast<bool>(buffer[pos++]);
		mapHeader->victoryCondition.appliesToAI = static_cast<bool>(buffer[pos++]);
		pos += nr;
	}

	// Read loss conditions
	mapHeader->lossCondition.typeOfLossCon = (ELossConditionType::ELossConditionType)buffer[pos++];
	switch(mapHeader->lossCondition.typeOfLossCon)
	{
	case ELossConditionType::LOSSCASTLE:
	case ELossConditionType::LOSSHERO:
		{
			mapHeader->lossCondition.pos.x = buffer[pos++];
			mapHeader->lossCondition.pos.y = buffer[pos++];
			mapHeader->lossCondition.pos.z = buffer[pos++];
			break;
		}
	case ELossConditionType::TIMEEXPIRES:
		{
			mapHeader->lossCondition.timeLimit = read_le_u16(buffer + pos);
			pos += 2;
			break;
		}
	}
}

void CMapLoaderH3M::readTeamInfo()
{
	mapHeader->howManyTeams = buffer[pos++];
	if(mapHeader->howManyTeams > 0)
	{
		// Teams
		for(int i = 0; i < 8; ++i)
		{
			mapHeader->players[i].team = buffer[pos++];
		}
	}
	else
	{
		// No alliances
		for(int i = 0; i < GameConstants::PLAYER_LIMIT; i++)
		{
			if(mapHeader->players[i].canComputerPlay || mapHeader->players[i].canHumanPlay)
			{
				mapHeader->players[i].team = mapHeader->howManyTeams++;
			}
		}
	}
}

void CMapLoaderH3M::readAllowedHeroes()
{
	int pom = pos;
	mapHeader->allowedHeroes.resize(VLC->heroh->heroes.size(), true);
	for(; pos < pom + (mapHeader->version == EMapFormat::ROE ? 16 : 20) ; ++pos)
	{
		ui8 c = buffer[pos];
		for(int yy = 0; yy < 8; ++yy)
		{
			if((pos - pom) * 8 + yy < GameConstants::HEROES_QUANTITY)
			{
				if(c != (c | static_cast<ui8>(std::pow(2., yy))))
				{
					mapHeader->allowedHeroes[(pos - pom) * 8 + yy] = false;
				}
			}
		}
	}

	// Probably reserved for further heroes
	if(mapHeader->version > EMapFormat::ROE)
	{
		int placeholdersQty = read_le_u32(buffer + pos);
		pos += 4;
		for(int p = 0; p < placeholdersQty; ++p)
		{
			mapHeader->placeholdedHeroes.push_back(buffer[pos++]);
		}
	}
}

void CMapLoaderH3M::readDisposedHeroes()
{
	// Reading disposed heroes (20 bytes)
	ui8 disp = 0;
	if(map->version >= EMapFormat::SOD)
	{
		disp = buffer[pos++];
		map->disposedHeroes.resize(disp);
		for(int g = 0; g < disp; ++g)
		{
			map->disposedHeroes[g].heroId = buffer[pos++];
			map->disposedHeroes[g].portrait = buffer[pos++];
			int lenbuf = read_le_u32(buffer + pos);
			pos += 4;
			for(int zz = 0; zz < lenbuf; zz++)
			{
				map->disposedHeroes[g].name += buffer[pos++];
			}
			map->disposedHeroes[g].players = buffer[pos++];
		}
	}

	//omitting NULLS
	pos += 31;
}

void CMapLoaderH3M::readAllowedArtifacts()
{
	map->allowedArtifact.resize (VLC->arth->artifacts.size()); //handle new artifacts, make them allowed by default
	for (ui32 x = 0; x < map->allowedArtifact.size(); ++x)
	{
		map->allowedArtifact[x] = true;
	}

	// Reading allowed artifacts:  17 or 18 bytes
	if(map->version != EMapFormat::ROE)
	{
		// Starting i for loop
		int ist = pos;
		for(; pos < ist + (map->version == EMapFormat::AB ? 17 : 18); ++pos)
		{
			ui8 c = buffer[pos];
			for(int yy = 0; yy < 8; ++yy)
			{
				if((pos - ist) * 8 + yy < GameConstants::ARTIFACTS_QUANTITY)
				{
					if(c == (c | static_cast<ui8>(std::pow(2., yy))))
					{
						map->allowedArtifact[(pos - ist) * 8 + yy] = false;
					}
				}
			}
		}
	}

	// ban combo artifacts
	if (map->version == EMapFormat::ROE || map->version == EMapFormat::AB)
	{
		BOOST_FOREACH(CArtifact * artifact, VLC->arth->artifacts)
		{
			// combo
			if (artifact->constituents)
			{
				map->allowedArtifact[artifact->id] = false;
			}
		}
		if (map->version == EMapFormat::ROE)
		{
			// Armageddon's Blade
			map->allowedArtifact[128] = false;
		}
	}

	// Messy, but needed
	if(map->victoryCondition.condition == EVictoryConditionType::ARTIFACT
			|| map->victoryCondition.condition == EVictoryConditionType::TRANSPORTITEM)
	{
		map->allowedArtifact[map->victoryCondition.objectId] = false;
	}
}

void CMapLoaderH3M::readAllowedSpellsAbilities()
{
	// Read allowed spells
	map->allowedSpell.resize(GameConstants::SPELLS_QUANTITY);
	for(ui32 x = 0; x < map->allowedSpell.size(); x++)
	{
		map->allowedSpell[x] = true;
	}

	// Read allowed abilities
	map->allowedAbilities.resize(GameConstants::SKILL_QUANTITY);
	for(ui32 x = 0; x < map->allowedAbilities.size(); x++)
	{
		map->allowedAbilities[x] = true;
	}

	if(map->version >= EMapFormat::SOD)
	{
		// Reading allowed spells (9 bytes)
		int ist = pos;
		for(; pos < ist + 9; ++pos)
		{
			ui8 c = buffer[pos];
			for(int yy = 0; yy < 8; ++yy)
			{
				if((pos - ist) * 8 + yy < GameConstants::SPELLS_QUANTITY)
				{
					if(c == (c | static_cast<ui8>(std::pow(2., yy))))
					{
						map->allowedSpell[(pos - ist) * 8 + yy] = false;
					}
				}
			}
		}


		// Allowed hero's abilities (4 bytes)
		ist = pos;
		for(; pos < ist + 4; ++pos)
		{
			ui8 c = buffer[pos];
			for(int yy = 0; yy < 8; ++yy)
			{
				if((pos - ist) * 8 + yy < GameConstants::SKILL_QUANTITY)
				{
					if(c == (c | static_cast<ui8>(std::pow(2., yy))))
					{
						map->allowedAbilities[(pos - ist) * 8 + yy] = false;
					}
				}
			}
		}
	}
}

void CMapLoaderH3M::readRumors()
{
	int rumNr = read_le_u32(buffer + pos);
	pos += 4;

	for(int it = 0; it < rumNr; it++)
	{
		Rumor ourRumor;

		// Read rumor name and text
		int nameL = read_le_u32(buffer + pos);
		pos += 4;
		for(int zz = 0; zz < nameL; zz++)
		{
			ourRumor.name += buffer[pos++];
		}

		nameL = read_le_u32(buffer + pos);
		pos += 4;
		for(int zz = 0; zz < nameL; zz++)
		{
			ourRumor.text += buffer[pos++];
		}

		map->rumors.push_back(ourRumor);
	}
}

void CMapLoaderH3M::readPredefinedHeroes()
{
	switch(map->version)
	{
	case EMapFormat::WOG:
	case EMapFormat::SOD:
		{
			// Disposed heroes
			for(int z = 0; z < GameConstants::HEROES_QUANTITY; z++)
			{
				int custom =  buffer[pos++];
				if(!custom) continue;

				CGHeroInstance * hero = new CGHeroInstance();
				hero->ID = Obj::HERO;
				hero->subID = z;

				// True if hore's experience is greater than 0
				if(readChar(buffer, pos))
				{
					hero->exp = read_le_u32(buffer + pos);
					pos += 4;
				}
				else
				{
					hero->exp = 0;
				}

				// True if hero has specified abilities
				if(readChar(buffer, pos))
				{
					int howMany = read_le_u32(buffer + pos);
					pos += 4;
					hero->secSkills.resize(howMany);
					for(int yy = 0; yy < howMany; ++yy)
					{
						hero->secSkills[yy].first = buffer[pos];
						++pos;
						hero->secSkills[yy].second = buffer[pos];
						++pos;
					}
				}

				loadArtifactsOfHero(hero);

				// custom bio
				if(readChar(buffer, pos))
				{
					hero->biography = readString(buffer, pos);
				}

				// 0xFF is default, 00 male, 01 female
				hero->sex = buffer[pos++];

				// are spells
				if(readChar(buffer, pos))
				{
					int ist = pos;
					for(; pos < ist + 9; ++pos)
					{
						ui8 c = buffer[pos];
						for(int yy = 0; yy < 8; ++yy)
						{
							if((pos - ist) * 8 + yy < GameConstants::SPELLS_QUANTITY)
							{
								if(c == (c | static_cast<ui8>(std::pow(2., yy))))
								{
									hero->spells.insert((pos - ist) * 8 + yy);
								}
							}
						}
					}
				}

				// customPrimSkills
				if(readChar(buffer, pos))
				{
					for(int xx = 0; xx < GameConstants::PRIMARY_SKILLS; xx++)
					{
						hero->pushPrimSkill(xx, buffer[pos++]);
					}
				}
				map->predefinedHeroes.push_back(hero);
			}
			break;
		}
	case EMapFormat::ROE:
		pos+=0;
		break;
	}
}

void CMapLoaderH3M::loadArtifactsOfHero(CGHeroInstance * hero)
{
	bool artSet = buffer[pos];
	++pos;

	// True if artifact set is not default (hero has some artifacts)
	if(artSet)
	{
		for(int pom = 0; pom < 16; pom++)
		{
			loadArtifactToSlot(hero, pom);
		}

		// misc5 art //17
		if(map->version >= EMapFormat::SOD)
		{
			if(!loadArtifactToSlot(hero, ArtifactPosition::MACH4))
			{
				// catapult by default
				hero->putArtifact(ArtifactPosition::MACH4, createArtifact(GameConstants::ID_CATAPULT));
			}
		}

		loadArtifactToSlot(hero, ArtifactPosition::SPELLBOOK);

		// 19 //???what is that? gap in file or what? - it's probably fifth slot..
		if(map->version > EMapFormat::ROE)
		{
			loadArtifactToSlot(hero, ArtifactPosition::MISC5);
		}
		else
		{
			++pos;
		}

		// bag artifacts //20
		// number of artifacts in hero's bag
		int amount = read_le_u16(buffer + pos);
		pos += 2;
		for(int ss = 0; ss < amount; ++ss)
		{
			loadArtifactToSlot(hero, GameConstants::BACKPACK_START + hero->artifactsInBackpack.size());
		}
	}
}

bool CMapLoaderH3M::loadArtifactToSlot(CGHeroInstance * hero, int slot)
{
	const int artmask = map->version == EMapFormat::ROE ? 0xff : 0xffff;
	int aid;

	if(map->version == EMapFormat::ROE)
	{
		aid = buffer[pos];
		pos++;
	}
	else
	{
		aid = read_le_u16(buffer + pos);
		pos += 2;
	}

	bool isArt  =  aid != artmask;
	if(isArt)
	{
		if(vstd::contains(VLC->arth->bigArtifacts, aid) && slot >= GameConstants::BACKPACK_START)
		{
			tlog3 << "Warning: A big artifact (war machine) in hero's backpack, ignoring..." << std::endl;
			return false;
		}
		if(aid == 0 && slot == ArtifactPosition::MISC5)
		{
			//TODO: check how H3 handles it -> art 0 in slot 18 in AB map
			tlog3 << "Spellbook to MISC5 slot? Putting it spellbook place. AB format peculiarity ? (format "
				  << static_cast<int>(map->version) << ")" << std::endl;
			slot = ArtifactPosition::SPELLBOOK;
		}

		hero->putArtifact(slot, createArtifact(aid));
	}

	return isArt;
}

CArtifactInstance * CMapLoaderH3M::createArtifact(int aid, int spellID /*= -1*/)
{
	CArtifactInstance * a = nullptr;
	if(aid >= 0)
	{
		if(spellID < 0)
		{
			a = CArtifactInstance::createNewArtifactInstance(aid);
		}
		else
		{
			a = CArtifactInstance::createScroll(VLC->spellh->spells[spellID]);
		}
	}
	else
	{
		a = new CArtifactInstance();
	}

	addNewArtifactInstance(a);

	//TODO make it nicer
	if(a->artType && a->artType->constituents)
	{
		CCombinedArtifactInstance * comb = dynamic_cast<CCombinedArtifactInstance *>(a);
		BOOST_FOREACH(CCombinedArtifactInstance::ConstituentInfo & ci, comb->constituentsInfo)
		{
			addNewArtifactInstance(ci.art);
		}
	}

	return a;
}

void CMapLoaderH3M::addNewArtifactInstance(CArtifactInstance * art)
{
	art->id = map->artInstances.size();
	map->artInstances.push_back(art);
}

void CMapLoaderH3M::readTerrain()
{
	// Allocate memory for terrain data
	map->terrain = new TerrainTile**[map->width];
	for(int ii = 0; ii < map->width; ii++)
	{
		map->terrain[ii] = new TerrainTile*[map->height];
		for(int jj = 0; jj < map->height; jj++)
		{
			map->terrain[ii][jj] = new TerrainTile[map->twoLevel ? 2 : 1];
		}
	}

	// Read terrain
	for(int a = 0; a < 2; ++a)
	{
		if(a == 1 && !map->twoLevel)
		{
			break;
		}

		for(int c = 0; c < map->width; c++)
		{
			for(int z = 0; z < map->height; z++)
			{
				map->terrain[z][c][a].terType = static_cast<ETerrainType::ETerrainType>(buffer[pos++]);
				map->terrain[z][c][a].terView = buffer[pos++];
				map->terrain[z][c][a].riverType = static_cast<ERiverType::ERiverType>(buffer[pos++]);
				map->terrain[z][c][a].riverDir = buffer[pos++];
				map->terrain[z][c][a].roadType = static_cast<ERoadType::ERoadType>(buffer[pos++]);
				map->terrain[z][c][a].roadDir = buffer[pos++];
				map->terrain[z][c][a].extTileFlags = buffer[pos++];
				map->terrain[z][c][a].blocked = (map->terrain[z][c][a].terType == ETerrainType::ROCK ? 1 : 0); //underground tiles are always blocked
				map->terrain[z][c][a].visitable = 0;
			}
		}
	}
}

void CMapLoaderH3M::readDefInfo()
{
	int defAmount = read_le_u32(buffer + pos);
	pos += 4;
	map->customDefs.reserve(defAmount + 8);

	// Read custom defs
	for(int idd = 0; idd < defAmount; ++idd)
	{
		CGDefInfo * defInfo = new CGDefInfo();

		// Read name
		int nameLength = read_le_u32(buffer + pos);
		pos += 4;
		defInfo->name.reserve(nameLength);
		for(int cd = 0; cd < nameLength; ++cd)
		{
			defInfo->name += buffer[pos++];
		}
		std::transform(defInfo->name.begin(),defInfo->name.end(),defInfo->name.begin(),(int(*)(int))toupper);

		ui8 bytes[12];
		for(int v = 0; v < 12; ++v)
		{
			bytes[v] = buffer[pos++];
		}

		defInfo->terrainAllowed = read_le_u16(buffer + pos);
		pos += 2;
		defInfo->terrainMenu = read_le_u16(buffer + pos);
		pos += 2;
		defInfo->id = read_le_u32(buffer + pos);
		pos += 4;
		defInfo->subid = read_le_u32(buffer + pos);
		pos += 4;
		defInfo->type = buffer[pos++];
		defInfo->printPriority = buffer[pos++];
		for(int zi = 0; zi < 6; ++zi)
		{
			defInfo->blockMap[zi] = reverse(bytes[zi]);
		}
		for(int zi = 0; zi < 6; ++zi)
		{
			defInfo->visitMap[zi] = reverse(bytes[6 + zi]);
		}
		pos += 16;
		if(defInfo->id != Obj::HERO && defInfo->id != 70)
		{
			CGDefInfo * h = VLC->dobjinfo->gobjs[defInfo->id][defInfo->subid];
			if(!h)
			{
				//remove fake entry
				VLC->dobjinfo->gobjs[defInfo->id].erase(defInfo->subid);
				if(VLC->dobjinfo->gobjs[defInfo->id].size())
				{
					VLC->dobjinfo->gobjs.erase(defInfo->id);
				}
				tlog2 << "\t\tWarning: no defobjinfo entry for object ID="
					  << defInfo->id << " subID=" << defInfo->subid << std::endl;
			}
			else
			{
				defInfo->visitDir = VLC->dobjinfo->gobjs[defInfo->id][defInfo->subid]->visitDir;
			}
		}
		else
		{
			defInfo->visitDir = 0xff;
		}

		if(defInfo->id == Obj::EVENT)
		{
			std::memset(defInfo->blockMap, 255, 6);
		}

		//calculating coverageMap
		defInfo->fetchInfoFromMSK();

		map->customDefs.push_back(defInfo);
	}

	//add holes - they always can appear
	for(int i = 0; i < 8 ; ++i)
	{
		map->customDefs.push_back(VLC->dobjinfo->gobjs[124][i]);
	}
}

void CMapLoaderH3M::readObjects()
{
	int howManyObjs = read_le_u32(buffer + pos);
	pos += 4;

	for(int ww = 0; ww < howManyObjs; ++ww)
	{
		CGObjectInstance * nobj = 0;

		int3 objPos;
		objPos.x = buffer[pos++];
		objPos.y = buffer[pos++];
		objPos.z = buffer[pos++];

		int defnum = read_le_u32(buffer + pos);
		pos += 4;
		int idToBeGiven = map->objects.size();

		CGDefInfo * defInfo = map->customDefs.at(defnum);
		pos += 5;

		switch(defInfo->id)
		{
		case Obj::EVENT:
			{
				CGEvent * evnt = new CGEvent();
				nobj = evnt;

				bool guardMess = buffer[pos];
				++pos;
				if(guardMess)
				{
					int messLong = read_le_u32(buffer + pos);
					pos += 4;
					if(messLong > 0)
					{
						for(int yy = 0; yy < messLong; ++yy)
						{
							evnt->message += buffer[pos + yy];
						}
						pos += messLong;
					}
					if(buffer[pos++])
					{
						readCreatureSet(evnt, 7, map->version > EMapFormat::ROE);
					}
					pos += 4;
				}
				evnt->gainedExp = read_le_u32(buffer + pos);
				pos += 4;
				evnt->manaDiff = read_le_u32(buffer + pos);
				pos += 4;
				evnt->moraleDiff = static_cast<char>(buffer[pos]);
				++pos;
				evnt->luckDiff = static_cast<char>(buffer[pos]);
				++pos;

				evnt->resources.resize(GameConstants::RESOURCE_QUANTITY);
				for(int x = 0; x < 7; ++x)
				{
					evnt->resources[x] = read_le_u32(buffer + pos);
					pos += 4;
				}

				evnt->primskills.resize(GameConstants::PRIMARY_SKILLS);
				for(int x = 0; x < 4; ++x)
				{
					evnt->primskills[x] = buffer[pos];
					++pos;
				}

				int gabn; // Number of gained abilities
				gabn = buffer[pos];
				++pos;
				for(int oo = 0; oo < gabn; ++oo)
				{
					evnt->abilities.push_back(buffer[pos]);
					++pos;
					evnt->abilityLevels.push_back(buffer[pos]);
					++pos;
				}

				int gart = buffer[pos]; // Number of gained artifacts
				++pos;
				for(int oo = 0; oo < gart; ++oo)
				{
					if(map->version == EMapFormat::ROE)
					{
						evnt->artifacts.push_back(buffer[pos]);
						++pos;
					}
					else
					{
						evnt->artifacts.push_back(read_le_u16(buffer + pos));
						pos += 2;
					}
				}

				int gspel = buffer[pos]; // Number of gained spells
				++pos;
				for(int oo = 0; oo < gspel; ++oo)
				{
					evnt->spells.push_back(buffer[pos]);
					++pos;
				}

				int gcre = buffer[pos]; //number of gained creatures
				++pos;
				readCreatureSet(&evnt->creatures, gcre, map->version > EMapFormat::ROE);

				pos += 8;
				evnt->availableFor = buffer[pos];
				++pos;
				evnt->computerActivate = buffer[pos];
				++pos;
				evnt->removeAfterVisit = buffer[pos];
				++pos;
				evnt->humanActivate = true;

				pos += 4;
				break;
			}
		case Obj::HERO:
		case Obj::RANDOM_HERO:
		case Obj::PRISON:
			{
				nobj = readHero(idToBeGiven);
				break;
			}
		case Obj::ARENA:
		case Obj::MERCENARY_CAMP:
		case Obj::MARLETTO_TOWER:
		case Obj::STAR_AXIS:
		case Obj::GARDEN_OF_REVELATION:
		case Obj::LEARNING_STONE:
		case Obj::TREE_OF_KNOWLEDGE:
		case Obj::LIBRARY_OF_ENLIGHTENMENT:
		case Obj::SCHOOL_OF_MAGIC:
		case Obj::SCHOOL_OF_WAR:
			{
				nobj = new CGVisitableOPH();
				break;
			}
		case Obj::MYSTICAL_GARDEN:
		case Obj::WINDMILL:
		case Obj::WATER_WHEEL:
			{
				nobj = new CGVisitableOPW();
				break;
			}
		case Obj::MONOLITH1: 
		case Obj::MONOLITH2:
		case Obj::MONOLITH3:
		case Obj::SUBTERRANEAN_GATE:
		case Obj::WHIRLPOOL:
			{
				nobj = new CGTeleport();
				break;
			}
		case Obj::CAMPFIRE:
		case Obj::FLOTSAM:
		case Obj::SEA_CHEST:
		case Obj::SHIPWRECK_SURVIVOR:
		case Obj::TREASURE_CHEST:
			{
				nobj = new CGPickable();
				break;
			}
		case Obj::MONSTER:  //Monster
		case Obj::RANDOM_MONSTER: 
		case Obj::RANDOM_MONSTER_L1: 
		case Obj::RANDOM_MONSTER_L2:
		case Obj::RANDOM_MONSTER_L3: 
		case Obj::RANDOM_MONSTER_L4:
		case Obj::RANDOM_MONSTER_L5: 
		case Obj::RANDOM_MONSTER_L6: 
		case Obj::RANDOM_MONSTER_L7:
			{
				CGCreature * cre = new CGCreature();
				nobj = cre;

				if(map->version > EMapFormat::ROE)
				{
					cre->identifier = read_le_u32(buffer + pos);
					pos += 4;
					map->questIdentifierToId[cre->identifier] = idToBeGiven;
				}

				CStackInstance * hlp = new CStackInstance();
				hlp->count = read_le_u16(buffer + pos);
				pos += 2;

				//type will be set during initialization
				cre->putStack(0, hlp);

				cre->character = buffer[pos];
				++pos;
				bool isMesTre = buffer[pos]; //true if there is message or treasury
				++pos;
				if(isMesTre)
				{
					cre->message = readString(buffer, pos);
					cre->resources.resize(GameConstants::RESOURCE_QUANTITY);
					for(int j = 0; j < 7; ++j)
					{
						cre->resources[j] = read_le_u32(buffer + pos);
						pos += 4;
					}

					int artID;
					if (map->version == EMapFormat::ROE)
					{
						artID = buffer[pos];
						++pos;
					}
					else
					{
						artID = read_le_u16(buffer + pos);
						pos += 2;
					}

					if(map->version == EMapFormat::ROE)
					{
						if(artID != 0xff)
						{
							cre->gainedArtifact = artID;
						}
						else
						{
							cre->gainedArtifact = -1;
						}
					}
					else
					{
						if(artID != 0xffff)
						{
							cre->gainedArtifact = artID;
						}
						else
						{
							cre->gainedArtifact = -1;
						}
					}
				}
				cre->neverFlees = buffer[pos];
				++pos;
				cre->notGrowingTeam = buffer[pos];
				++pos;
				pos += 2;
				break;
			}
		case Obj::OCEAN_BOTTLE: 
		case Obj::SIGN:
			{
				CGSignBottle * sb = new CGSignBottle();
				nobj = sb;
				sb->message = readString(buffer, pos);
				pos += 4;
				break;
			}
		case Obj::SEER_HUT:
			{
				nobj = readSeerHut();
				addQuest(nobj);
				break;
			}
		case Obj::WITCH_HUT: 
			{
				CGWitchHut * wh = new CGWitchHut();
				nobj = wh;

				// in RoE we cannot specify it - all are allowed (I hope)
				if(map->version > EMapFormat::ROE)
				{
					int ist=pos;
					for(; pos < ist + 4; ++pos)
					{
						ui8 c = buffer[pos];
						for(int yy = 0; yy < 8; ++yy)
						{
							if((pos - ist) * 8 + yy < GameConstants::SKILL_QUANTITY)
							{
								if(c == (c | static_cast<ui8>(std::pow(2., yy))))
								{
									wh->allowedAbilities.push_back((pos - ist) * 8 + yy);
								}
							}
						}
					}
				}
				else
				{
					// RoE map
					for(int gg = 0; gg < GameConstants::SKILL_QUANTITY; ++gg)
					{
						wh->allowedAbilities.push_back(gg);
					}
				}
				break;
			}
		case Obj::SCHOLAR:
			{
				CGScholar * sch = new CGScholar();
				nobj = sch;
				sch->bonusType = buffer[pos++];
				sch->bonusID = buffer[pos++];
				pos += 6;
				break;
			}
		case Obj::GARRISON: 
		case Obj::GARRISON2:
			{
				CGGarrison * gar = new CGGarrison();
				nobj = gar;
				nobj->setOwner(buffer[pos++]);
				pos += 3;
				readCreatureSet(gar, 7, map->version > EMapFormat::ROE);
				if(map->version > EMapFormat::ROE)
				{
					gar->removableUnits = buffer[pos];
					++pos;
				}
				else
				{
					gar->removableUnits = true;
				}
				pos += 8;
				break;
			}
		case Obj::ARTIFACT:
		case Obj::RANDOM_ART: 
		case Obj::RANDOM_TREASURE_ART: 
		case Obj::RANDOM_MINOR_ART: 
		case Obj::RANDOM_MAJOR_ART:
		case Obj::RANDOM_RELIC_ART:
		case Obj::SPELL_SCROLL:
			{
				int artID = -1;
				int spellID = -1;
				CGArtifact * art = new CGArtifact();
				nobj = art;

				bool areSettings = buffer[pos++];
				if(areSettings)
				{
					art->message = readString(buffer, pos);
					bool areGuards = buffer[pos++];
					if(areGuards)
					{
						readCreatureSet(art, 7, map->version > EMapFormat::ROE);
					}
					pos += 4;
				}

				if(defInfo->id == Obj::SPELL_SCROLL)
				{
					spellID = read_le_u32(buffer + pos);
					pos += 4;
					artID = 1;
				}
				else if(defInfo->id == Obj::ARTIFACT)
				{
					//specific artifact
					artID = defInfo->subid;
				}

				art->storedArtifact = createArtifact(artID, spellID);
				break;
			}
		case Obj::RANDOM_RESOURCE: 
		case Obj::RESOURCE:
			{
				CGResource * res = new CGResource();
				nobj = res;

				bool isMessGuard = buffer[pos];
				++pos;
				if(isMessGuard)
				{
					res->message = readString(buffer, pos);
					if(buffer[pos++])
					{
						readCreatureSet(res, 7, map->version > EMapFormat::ROE);
					}
					pos += 4;
				}
				res->amount = read_le_u32(buffer + pos);
				pos += 4;
				if(defInfo->subid == 6)
				{
					// Gold is multiplied by 100.
					res->amount *= 100;
				}
				pos += 4;

				break;
			}
		case Obj::RANDOM_TOWN: 
		case Obj::TOWN:
			{
				nobj = readTown(defInfo->subid);
				break;
			}
		case Obj::MINE:
		case Obj::ABANDONED_MINE:
			{
				nobj = new CGMine();
				nobj->setOwner(buffer[pos++]);
				pos += 3;
				break;
			}
		case Obj::CREATURE_GENERATOR1: 
		case Obj::CREATURE_GENERATOR2: 
		case Obj::CREATURE_GENERATOR3: 
		case Obj::CREATURE_GENERATOR4:
			{
				nobj = new CGDwelling();
				nobj->setOwner(buffer[pos++]);
				pos += 3;
				break;
			}
		case Obj::REFUGEE_CAMP:
		case Obj::WAR_MACHINE_FACTORY:
			{
				nobj = new CGDwelling();
				break;
			}
		case Obj::SHRINE_OF_MAGIC_INCANTATION: 
		case Obj::SHRINE_OF_MAGIC_GESTURE: 
		case Obj::SHRINE_OF_MAGIC_THOUGHT:
			{
				CGShrine * shr = new CGShrine();
				nobj = shr;
				shr->spell = buffer[pos];
				pos += 4;
				break;
			}
		case Obj::PANDORAS_BOX:
			{
				CGPandoraBox * box = new CGPandoraBox();
				nobj = box;
				bool messg = buffer[pos];
				++pos;
				if(messg)
				{
					box->message = readString(buffer, pos);
					if(buffer[pos++])
					{
						readCreatureSet(box, 7, map->version > EMapFormat::ROE);
					}
					pos += 4;
				}

				box->gainedExp = read_le_u32(buffer + pos);
				pos += 4;
				box->manaDiff = read_le_u32(buffer + pos);
				pos += 4;
				box->moraleDiff = static_cast<si8>(buffer[pos]);
				++pos;
				box->luckDiff = static_cast<si8>(buffer[pos]);
				++pos;

				box->resources.resize(GameConstants::RESOURCE_QUANTITY);
				for(int x = 0; x < 7; ++x)
				{
					box->resources[x] = read_le_u32(buffer + pos);
					pos += 4;
				}

				box->primskills.resize(GameConstants::PRIMARY_SKILLS);
				for(int x = 0; x < 4; ++x)
				{
					box->primskills[x] = buffer[pos];
					++pos;
				}

				int gabn; //number of gained abilities
				gabn = buffer[pos];
				++pos;
				for(int oo = 0; oo < gabn; ++oo)
				{
					box->abilities.push_back(buffer[pos]);
					++pos;
					box->abilityLevels.push_back(buffer[pos]);
					++pos;
				}
				int gart = buffer[pos]; //number of gained artifacts
				++pos;
				for(int oo = 0; oo < gart; ++oo)
				{
					if(map->version > EMapFormat::ROE)
					{
						box->artifacts.push_back(read_le_u16(buffer + pos));
						pos += 2;
					}
					else
					{
						box->artifacts.push_back(buffer[pos]);
						++pos;
					}
				}
				int gspel = buffer[pos]; //number of gained spells
				++pos;
				for(int oo = 0; oo < gspel; ++oo)
				{
					box->spells.push_back(buffer[pos]);
					++pos;
				}
				int gcre = buffer[pos]; //number of gained creatures
				++pos;
				readCreatureSet(&box->creatures, gcre, map->version > EMapFormat::ROE);
				pos += 8;
				break;
			}
		case Obj::GRAIL:
			{
				map->grailPos = objPos;
				map->grailRadious = read_le_u32(buffer + pos);
				pos += 4;
				continue;
			}
		case Obj::RANDOM_DWELLING: //same as castle + level range
		case Obj::RANDOM_DWELLING_LVL: //same as castle, fixed level 
		case Obj::RANDOM_DWELLING_FACTION: //level range, fixed faction
			{
				nobj = new CGDwelling();
				CSpecObjInfo * spec = nullptr;
				switch(defInfo->id)
				{
					break; case Obj::RANDOM_DWELLING: spec = new CCreGenLeveledCastleInfo();
					break; case Obj::RANDOM_DWELLING_LVL: spec = new CCreGenAsCastleInfo();
					break; case Obj::RANDOM_DWELLING_FACTION: spec = new CCreGenLeveledInfo();
				}

				spec->player = read_le_u32(buffer + pos);
				pos += 4;

				//216 and 217
				if (auto castleSpec = dynamic_cast<CCreGenAsCastleInfo *>(spec))
				{
					castleSpec->identifier =  read_le_u32(buffer + pos);
					pos += 4;
					if(!castleSpec->identifier)
					{
						castleSpec->asCastle = false;
						castleSpec->castles[0] = buffer[pos];
						++pos;
						castleSpec->castles[1] = buffer[pos];
						++pos;
					}
					else
					{
						castleSpec->asCastle = true;
					}
				}

				//216 and 218
				if (auto lvlSpec = dynamic_cast<CCreGenLeveledInfo *>(spec))
				{
					lvlSpec->minLevel = std::max(buffer[pos], ui8(1));
					++pos;
					lvlSpec->maxLevel = std::min(buffer[pos], ui8(7));
					++pos;
				}
				nobj->setOwner(spec->player);
				static_cast<CGDwelling *>(nobj)->info = spec;
				break;
			}
	case Obj::QUEST_GUARD:
			{
				CGQuestGuard * guard = new CGQuestGuard();
				addQuest(guard);
				readQuest(guard);
				nobj = guard;
				break;
			}
		case Obj::FAERIE_RING:
		case Obj::SWAN_POND:
		case Obj::IDOL_OF_FORTUNE:
		case Obj::FOUNTAIN_OF_FORTUNE:
		case Obj::RALLY_FLAG:
		case Obj::OASIS:
		case Obj::TEMPLE:
		case Obj::WATERING_HOLE:
		case Obj::FOUNTAIN_OF_YOUTH:
		case Obj::BUOY:
		case Obj::MERMAID:
		case Obj::STABLES:
			{
				nobj = new CGBonusingObject();
				break;
			}
		case Obj::MAGIC_WELL:
			{
				nobj = new CGMagicWell();
				break;
			}
		case Obj::COVER_OF_DARKNESS:
		case Obj::REDWOOD_OBSERVATORY:
		case Obj::PILLAR_OF_FIRE:
			{
				nobj = new CGObservatory();
				break;
			}
		case Obj::CORPSE: 
		case Obj::LEAN_TO:
		case Obj::WAGON:
		case Obj::WARRIORS_TOMB:
			{
				nobj = new CGOnceVisitable();
				break;
			}
		case Obj::BOAT:
			{
				nobj = new CGBoat();
				break;
			}
		case Obj::SIRENS:
			{
				nobj = new CGSirens();
				break;
			}
		case Obj::SHIPYARD:
			{
				nobj = new CGShipyard();
				nobj->setOwner(read_le_u32(buffer + pos));
				pos += 4;
				break;
			}
		case Obj::HERO_PLACEHOLDER: //hero placeholder
			{
				CGHeroPlaceholder * hp = new CGHeroPlaceholder();
				nobj = hp;

				int a = buffer[pos++]; //unknown byte, seems to be always 0 (if not - scream!)
				tlog2 << "Unhandled Hero Placeholder detected: " << a << std::endl;

				int htid = buffer[pos++]; //hero type id
				nobj->subID = htid;

				if(htid == 0xff)
				{
					hp->power = buffer[pos++];
				}
				else
				{
					hp->power = 0;
				}

				break;
			}
		case Obj::KEYMASTER:
			{
				nobj = new CGKeymasterTent();
				break;
			}
		case Obj::BORDERGUARD:
			{
				nobj = new CGBorderGuard();
				addQuest(nobj);
				break;
			}
		case Obj::BORDER_GATE:
			{
				nobj = new CGBorderGate();
				addQuest (nobj);
				break;
			}
		case Obj::EYE_OF_MAGI: 
		case Obj::HUT_OF_MAGI:
			{
				nobj = new CGMagi();
				break;
			}
		case Obj::CREATURE_BANK: 
		case Obj::DERELICT_SHIP: 
		case Obj::DRAGON_UTOPIA: 
		case Obj::CRYPT: 
		case Obj::SHIPWRECK:
			{
				nobj = new CBank();
				break;
			}
		case Obj::PYRAMID: //Pyramid of WoG object
			{
				if(defInfo->subid == 0)
				{
					nobj = new CGPyramid();
				}
				else
				{
					//WoG object
					//TODO: possible special handling
					nobj = new CGObjectInstance();
				}				
				break;
			}
		case Obj::CARTOGRAPHER:
			{
				nobj = new CCartographer();
				break;
			}
		case Obj::MAGIC_SPRING: 
			{
				nobj = new CGMagicSpring();
				break;
			}
		case Obj::DEN_OF_THIEVES:
			{
				nobj = new CGDenOfthieves();
				break;
			}
		case Obj::OBELISK:
			{
				nobj = new CGObelisk();
				break;
			}
		case Obj::LIGHTHOUSE: //Lighthouse
			{
				nobj = new CGLighthouse();
				nobj->tempOwner = read_le_u32(buffer + pos);
				pos += 4;
				break;
			}
		case Obj::ALTAR_OF_SACRIFICE: 
		case Obj::TRADING_POST: 
		case Obj::FREELANCERS_GUILD: 
		case Obj::TRADING_POST_SNOW:
			{
				nobj = new CGMarket();
				break;
			}
		case Obj::UNIVERSITY:
			{
				nobj = new CGUniversity();
				break;
			}
		case Obj::BLACK_MARKET:
			{
				nobj = new CGBlackMarket();
				break;
			}
		default: //any other object
			{
				nobj = new CGObjectInstance();
				break;
			}
		}

		nobj->pos = objPos;
		nobj->ID = defInfo->id;
		nobj->id = idToBeGiven;
		if(nobj->ID != Obj::HERO && nobj->ID != Obj::HERO_PLACEHOLDER && nobj->ID != Obj::PRISON)
		{
			nobj->subID = defInfo->subid;
		}
		nobj->defInfo = defInfo;
		assert(idToBeGiven == map->objects.size());
		map->objects.push_back(nobj);
		if(nobj->ID == Obj::TOWN)
		{
			map->towns.push_back(static_cast<CGTownInstance *>(nobj));
		}
		if(nobj->ID == Obj::HERO)
		{
			map->heroes.push_back(static_cast<CGHeroInstance*>(nobj));
		}
	}

	std::sort(map->heroes.begin(), map->heroes.end(), [](const ConstTransitivePtr<CGHeroInstance> & a, const ConstTransitivePtr<CGHeroInstance> & b)
	{
		return a->subID < b->subID;
	});
}

void CMapLoaderH3M::readCreatureSet(CCreatureSet * out, int number, bool version)
{
	const int bytesPerCre = version ? 4 : 3;
	const int maxID = version ? 0xffff : 0xff;

	for(int ir = 0; ir < number; ++ir)
	{
		int creID;
		int count;

		if(version)
		{
			creID = read_le_u16(buffer + pos + ir * bytesPerCre);
			count = read_le_u16(buffer + pos + ir * bytesPerCre + 2);
		}
		else
		{
			creID = buffer[pos + ir * bytesPerCre];
			count = read_le_u16(buffer + pos + ir * bytesPerCre + 1);
		}

		// Empty slot
		if(creID == maxID) continue;

		CStackInstance * hlp = new CStackInstance();
		hlp->count = count;

		if(creID > maxID - 0xf)
		{
			//this will happen when random object has random army
			creID = maxID + 1 - creID + VLC->creh->creatures.size();
			hlp->idRand = creID;
		}
		else
		{
			hlp->setType(creID);
		}

		out->putStack(ir, hlp);
	}

	pos += number * bytesPerCre;
	out->validTypes(true);
}

CGObjectInstance * CMapLoaderH3M::readHero(int idToBeGiven)
{
	CGHeroInstance * nhi = new CGHeroInstance();

	int identifier = 0;
	if(map->version > EMapFormat::ROE)
	{
		identifier = read_le_u32(buffer + pos);
		pos += 4;
		map->questIdentifierToId[identifier] = idToBeGiven;
	}

	ui8 owner = buffer[pos++];
	nhi->subID = buffer[pos++];

	for(int j = 0; j < map->predefinedHeroes.size(); ++j)
	{
		if(map->predefinedHeroes[j]->subID == nhi->subID)
		{
			tlog0 << "Hero " << nhi->subID << " will be taken from the predefined heroes list." << std::endl;
			delete nhi;
			nhi = map->predefinedHeroes[j];
			break;
		}
	}
	nhi->setOwner(owner);

	nhi->portrait = nhi->subID;

	for(int j = 0; j < map->disposedHeroes.size(); ++j)
	{
		if(map->disposedHeroes[j].heroId == nhi->subID)
		{
			nhi->name = map->disposedHeroes[j].name;
			nhi->portrait = map->disposedHeroes[j].portrait;
			break;
		}
	}

	// True if hero has nonstandard name
	if(readChar(buffer, pos))
	{
		nhi->name = readString(buffer, pos);
	}
	if(map->version > EMapFormat::AB)
	{
		// True if hero's experience is greater than 0
		if(readChar(buffer, pos))
		{
			nhi->exp = read_le_u32(buffer + pos);
			pos += 4;
		}
		else
		{
			nhi->exp = 0xffffffff;
		}
	}
	else
	{
		nhi->exp = read_le_u32(buffer + pos);
		pos += 4;

		//0 means "not set" in <=AB maps
		if(!nhi->exp)
		{
			nhi->exp = 0xffffffff;
		}
	}

	bool portrait = buffer[pos];
	++pos;
	if(portrait)
	{
		nhi->portrait = buffer[pos++];
	}

	// True if hero has specified abilities
	if(readChar(buffer, pos))
	{
		int howMany = read_le_u32(buffer + pos);
		pos += 4;
		nhi->secSkills.resize(howMany);
		for(int yy = 0; yy < howMany; ++yy)
		{
			nhi->secSkills[yy].first = buffer[pos++];
			nhi->secSkills[yy].second = buffer[pos++];
		}
	}

	// True if hero has nonstandard garrison
	if(readChar(buffer, pos))
	{
		readCreatureSet(nhi, 7, map->version > EMapFormat::ROE);
	}

	nhi->formation = buffer[pos];
	++pos;
	loadArtifactsOfHero(nhi);
	nhi->patrol.patrolRadious = buffer[pos];
	++pos;
	if(nhi->patrol.patrolRadious == 0xff)
	{
		nhi->patrol.patrolling = false;
	}
	else
	{
		nhi->patrol.patrolling = true;
	}

	if(map->version > EMapFormat::ROE)
	{
		// True if hero has nonstandard (mapmaker defined) biography
		if(readChar(buffer, pos))
		{
			nhi->biography = readString(buffer, pos);
		}
		nhi->sex = buffer[pos];
		++pos;

		// Remove trash
		if (nhi->sex != 0xFF)
		{
			nhi->sex &= 1;
		}
	}
	else
	{
		nhi->sex = 0xFF;
	}

	// Spells
	if(map->version > EMapFormat::AB)
	{
		bool areSpells = buffer[pos];
		++pos;

		if(areSpells)
		{
			nhi->spells.insert(0xffffffff); //placeholder "preset spells"
			int ist = pos;
			for(; pos < ist + 9; ++pos)
			{
				ui8 c = buffer[pos];
				for(int yy = 0; yy < 8; ++yy)
				{
					if((pos - ist) * 8 + yy < GameConstants::SPELLS_QUANTITY)
					{
						if(c == (c | static_cast<ui8>(std::pow(2., yy))))
						{
							nhi->spells.insert((pos - ist) * 8 + yy);
						}
					}
				}
			}
		}
	}
	else if(map->version == EMapFormat::AB)
	{
		//we can read one spell
		ui8 buff = buffer[pos];
		++pos;
		if(buff != 254)
		{
			nhi->spells.insert(0xffffffff); //placeholder "preset spells"
			if(buff < 254) //255 means no spells
			{
				nhi->spells.insert(buff);
			}
		}
	}

	if(map->version > EMapFormat::AB)
	{
		//customPrimSkills
		if(readChar(buffer, pos))
		{
			for(int xx = 0; xx < GameConstants::PRIMARY_SKILLS; ++xx)
			{
				nhi->pushPrimSkill(xx, buffer[pos++]);
			}
		}
	}
	pos += 16;

	return nhi;
}

CGSeerHut * CMapLoaderH3M::readSeerHut()
{
	CGSeerHut * hut = new CGSeerHut();

	if(map->version > EMapFormat::ROE)
	{
		readQuest(hut);
	}
	else
	{
		//RoE
		int artID = buffer[pos];
		++pos;
		if (artID != 255)
		{
			//not none quest
			hut->quest->m5arts.push_back (artID);
			hut->quest->missionType = CQuest::MISSION_ART;
		}
		else
		{
			hut->quest->missionType = CQuest::MISSION_NONE;
		}
		hut->quest->lastDay = -1; //no timeout
		hut->quest->isCustomFirst = hut->quest->isCustomNext = hut->quest->isCustomComplete = false;
	}

	if (hut->quest->missionType)
	{
		ui8 rewardType = buffer[pos];
		++pos;
		hut->rewardType = rewardType;

		switch(rewardType)
		{
		case 1:
			{
				hut->rVal = read_le_u32(buffer + pos);
				pos += 4;
				break;
			}
		case 2:
			{
				hut->rVal = read_le_u32(buffer + pos);
				pos += 4;
				break;
			}
		case 3:
			{
				hut->rVal = buffer[pos];
				++pos;
				break;
			}
		case 4:
			{
				hut->rVal = buffer[pos];
				++pos;
				break;
			}
		case 5:
			{
				hut->rID = buffer[pos];
				++pos;
				// Only the first 3 bytes are used. Skip the 4th.
				hut->rVal = read_le_u32(buffer + pos) & 0x00ffffff;
				pos += 4;
				break;
			}
		case 6:
			{
				hut->rID = buffer[pos];
				++pos;
				hut->rVal = buffer[pos];
				++pos;
				break;
			}
		case 7:
			{
				hut->rID = buffer[pos];
				++pos;
				hut->rVal = buffer[pos];
				++pos;
				break;
			}
		case 8:
			{
				if (map->version == EMapFormat::ROE)
				{
					hut->rID = buffer[pos];
					++pos;
				}
				else
				{
					hut->rID = read_le_u16(buffer + pos);
					pos += 2;
				}
				break;
			}
		case 9:
			{
				hut->rID = buffer[pos];
				++pos;
				break;
			}
		case 10:
			{
				if(map->version > EMapFormat::ROE)
				{
					hut->rID = read_le_u16(buffer + pos);
					pos += 2;
					hut->rVal = read_le_u16(buffer + pos);
					pos += 2;
				}
				else
				{
					hut->rID = buffer[pos];
					++pos;
					hut->rVal = read_le_u16(buffer + pos);
					pos += 2;
				}
				break;
			}
		}
		pos += 2;
	}
	else
	{
		// missionType==255
		pos += 3;
	}

	return hut;
}

void CMapLoaderH3M::readQuest(IQuestObject * guard)
{
	guard->quest->missionType = buffer[pos];
	++pos;

	switch(guard->quest->missionType)
	{
	case 0:
		return;
	case 2:
		{
			guard->quest->m2stats.resize(4);
			for(int x = 0; x < 4; ++x)
			{
				guard->quest->m2stats[x] = buffer[pos++];
			}
		}
		break;
	case 1:
	case 3:
	case 4:
		{
			guard->quest->m13489val = read_le_u32(buffer + pos);
			pos += 4;
			break;
		}
	case 5:
		{
			int artNumber = buffer[pos];
			++pos;
			for(int yy = 0; yy < artNumber; ++yy)
			{
				int artid = read_le_u16(buffer + pos);
				pos += 2;
				guard->quest->m5arts.push_back(artid);
				map->allowedArtifact[artid] = false; //these are unavailable for random generation
			}
			break;
		}
	case 6:
		{
			int typeNumber = buffer[pos];
			++pos;
			guard->quest->m6creatures.resize(typeNumber);
			for(int hh = 0; hh < typeNumber; ++hh)
			{
				guard->quest->m6creatures[hh].type = VLC->creh->creatures[read_le_u16(buffer + pos)];
				pos += 2;
				guard->quest->m6creatures[hh].count = read_le_u16(buffer + pos);
				pos += 2;
			}
			break;
		}
	case 7:
		{
			guard->quest->m7resources.resize(7);
			for(int x = 0; x < 7; ++x)
			{
				guard->quest->m7resources[x] = read_le_u32(buffer + pos);
				pos += 4;
			}
			break;
		}
	case 8:
	case 9:
		{
			guard->quest->m13489val = buffer[pos];
			++pos;
			break;
		}
	}

	int limit = read_le_u32(buffer + pos);
	pos += 4;
	if(limit == (static_cast<int>(0xffffffff)))
	{
		guard->quest->lastDay = -1;
	}
	else
	{
		guard->quest->lastDay = limit;
	}
	guard->quest->firstVisitText = readString(buffer, pos);
	guard->quest->nextVisitText = readString(buffer, pos);
	guard->quest->completedText = readString(buffer, pos);
	guard->quest->isCustomFirst = guard->quest->firstVisitText.size() > 0;
	guard->quest->isCustomNext = guard->quest->nextVisitText.size() > 0;
	guard->quest->isCustomComplete = guard->quest->completedText.size() > 0;
}

void CMapLoaderH3M::addQuest(CGObjectInstance * quest)
{
	auto q = dynamic_cast<IQuestObject *>(quest);
	q->quest->qid = map->quests.size();
	map->quests.push_back(q->quest);
}

CGTownInstance * CMapLoaderH3M::readTown(int castleID)
{
	CGTownInstance * nt = new CGTownInstance();
	nt->identifier = 0;
	if(map->version > EMapFormat::ROE)
	{
		nt->identifier = read_le_u32(buffer + pos);
		pos += 4;
	}
	nt->tempOwner = buffer[pos];
	++pos;
	if(readChar(buffer, pos))
	{
		// Has name
		nt->name = readString(buffer, pos);
	}

	// True if garrison isn't empty
	if(readChar(buffer, pos))
	{
		readCreatureSet(nt, 7, map->version > EMapFormat::ROE);
	}
	nt->formation = buffer[pos];
	++pos;

	// Custom buildings info
	if(readChar(buffer, pos))
	{
		// Built buildings
		for(int byte = 0; byte < 6; ++byte)
		{
			for(int bit = 0; bit < 8; ++bit)
			{
				if(buffer[pos] & (1 << bit))
				{
					nt->builtBuildings.insert(byte * 8 + bit);
				}
			}
			++pos;
		}

		// Forbidden buildings
		for(int byte = 6; byte < 12; ++byte)
		{
			for(int bit = 0; bit < 8; ++bit)
			{
				if(buffer[pos] & (1 << bit))
				{
					nt->forbiddenBuildings.insert((byte - 6) * 8 + bit);
				}
			}
			++pos;
		}
		nt->builtBuildings = convertBuildings(nt->builtBuildings, castleID);
		nt->forbiddenBuildings = convertBuildings(nt->forbiddenBuildings, castleID);
	}
	// Standard buildings
	else
	{
		if(readChar(buffer, pos))
		{
			// Has fort
			nt->builtBuildings.insert(EBuilding::FORT);
		}

		//means that set of standard building should be included
		nt->builtBuildings.insert(-50);
	}

	int ist = pos;
	if(map->version > EMapFormat::ROE)
	{
		for(; pos < ist + 9; ++pos)
		{
			ui8 c = buffer[pos];
			for(int yy = 0; yy < 8; ++yy)
			{
				if((pos - ist) * 8 + yy < GameConstants::SPELLS_QUANTITY)
				{
					if(c == (c | static_cast<ui8>(std::pow(2., yy))))
					{
						nt->obligatorySpells.push_back((pos - ist) * 8 + yy);
					}
				}
			}
		}
	}

	ist = pos;
	for(; pos < ist + 9; ++pos)
	{
		ui8 c = buffer[pos];
		for(int yy = 0; yy < 8; ++yy)
		{
			if((pos - ist) * 8 + yy < GameConstants::SPELLS_QUANTITY)
			{
				if(c != (c | static_cast<ui8>(std::pow(2., yy))))
				{
					nt->possibleSpells.push_back((pos - ist) * 8 + yy);
				}
			}
		}
	}

	// Read castle events
	int numberOfEvent = read_le_u32(buffer + pos);
	pos += 4;

	for(int gh = 0; gh < numberOfEvent; ++gh)
	{
		CCastleEvent * nce = new CCastleEvent();
		nce->town = nt;
		nce->name = readString(buffer, pos);
		nce->message = readString(buffer, pos);
		for(int x = 0; x < 7; ++x)
		{
			nce->resources[x] = read_le_u32(buffer + pos);
			pos += 4;
		}

		nce->players = buffer[pos];
		++pos;
		if(map->version > EMapFormat::AB)
		{
			nce->humanAffected = buffer[pos];
			++pos;
		}
		else
		{
			nce->humanAffected = true;
		}

		nce->computerAffected = buffer[pos];
		++pos;
		nce->firstOccurence = read_le_u16(buffer + pos);
		pos += 2;
		nce->nextOccurence = buffer[pos];
		++pos;

		pos += 17;

		// New buildings
		for(int byte = 0; byte < 6; ++byte)
		{
			for(int bit = 0; bit < 8; ++bit)
			{
				if(buffer[pos] & (1 << bit))
				{
					nce->buildings.insert(byte * 8 + bit);
				}
			}
			++pos;
		}
		nce->buildings = convertBuildings(nce->buildings, castleID, false);

		nce->creatures.resize(7);
		for(int vv = 0; vv < 7; ++vv)
		{
			nce->creatures[vv] = read_le_u16(buffer + pos);
			pos += 2;
		}
		pos += 4;
		nt->events.push_back(nce);
	}

	if(map->version > EMapFormat::AB)
	{
		nt->alignment = buffer[pos];
		++pos;
	}
	else
	{
		nt->alignment = 0xff;
	}
	pos += 3;

	nt->builded = 0;
	nt->destroyed = 0;
	nt->garrisonHero = nullptr;

	return nt;
}

std::set<si32> CMapLoaderH3M::convertBuildings(const std::set<si32> h3m, int castleID, bool addAuxiliary /*= true*/)
{
	std::map<int, int> mapa;
	std::set<si32> ret;

	// Note: this file is parsed many times.
	const JsonNode config(ResourceID("config/buildings5.json"));

	BOOST_FOREACH(const JsonNode & entry, config["table"].Vector())
	{
		int town = entry["town"].Float();

		if (town == castleID || town == -1)
		{
			mapa[entry["h3"].Float()] = entry["vcmi"].Float();
		}
	}

	for(auto i = h3m.begin(); i != h3m.end(); ++i)
	{
		if(mapa[*i] >= 0)
		{
			ret.insert(mapa[*i]);
		}
		// horde buildings
		else if(mapa[*i] >= (-GameConstants::CREATURES_PER_TOWN))
		{
			int level = (mapa[*i]);

			//(-30)..(-36) - horde buildings (for game loading only), don't see other way to handle hordes in random towns
			ret.insert(level - 30);
		}
		else
		{
			tlog3 << "Conversion warning: unknown building " << *i << " in castle "
				  << castleID << std::endl;
		}
	}

	if(addAuxiliary)
	{
		//village hall is always present
		ret.insert(EBuilding::VILLAGE_HALL);
	}

	if(ret.find(EBuilding::CITY_HALL) != ret.end())
	{
		ret.insert(EBuilding::EXTRA_CITY_HALL);
	}
	if(ret.find(EBuilding::TOWN_HALL) != ret.end())
	{
		ret.insert(EBuilding::EXTRA_TOWN_HALL);
	}
	if(ret.find(EBuilding::CAPITOL) != ret.end())
	{
		ret.insert(EBuilding::EXTRA_CAPITOL);
	}

	return ret;
}

void CMapLoaderH3M::readEvents()
{
	int numberOfEvents = read_le_u32(buffer + pos);
	pos += 4;
	for(int yyoo = 0; yyoo < numberOfEvents; ++yyoo)
	{
		CMapEvent * ne = new CMapEvent();
		ne->name = std::string();
		ne->message = std::string();
		int nameLen = read_le_u32(buffer + pos);
		pos += 4;
		for(int qq = 0; qq < nameLen; ++qq)
		{
			ne->name += buffer[pos];
			++pos;
		}
		int messLen = read_le_u32(buffer + pos);
		pos += 4;
		for(int qq = 0; qq < messLen; ++qq)
		{
			ne->message +=buffer[pos];
			++pos;
		}
		for(int k = 0; k < 7; ++k)
		{
			ne->resources[k] = read_le_u32(buffer + pos);
			pos += 4;
		}
		ne->players = buffer[pos];
		++pos;
		if(map->version > EMapFormat::AB)
		{
			ne->humanAffected = buffer[pos];
			++pos;
		}
		else
		{
			ne->humanAffected = true;
		}
		ne->computerAffected = buffer[pos];
		++pos;
		ne->firstOccurence = read_le_u16(buffer + pos);
		pos += 2;
		ne->nextOccurence = buffer[pos];
		++pos;

		char unknown[17];
		memcpy(unknown, buffer + pos, 17);
		pos += 17;

		map->events.push_back(ne);
	}
}

void CMapLoaderH3M::addBlockVisibleTiles(CGObjectInstance * obj)
{
	for(int fx = 0; fx < 8; ++fx)
	{
		for(int fy = 0; fy < 6; ++fy)
		{
			int xVal = obj->pos.x + fx - 7;
			int yVal = obj->pos.y + fy - 5;
			int zVal = obj->pos.z;
			if(xVal >= 0 && xVal < map->width && yVal >= 0 && yVal < map->height)
			{
				TerrainTile & curt = map->terrain[xVal][yVal][zVal];
				if(((obj->defInfo->visitMap[fy] >> (7 - fx)) & 1))
				{
					curt.visitableObjects.push_back(obj);
					curt.visitable = true;
				}
				if(!((obj->defInfo->blockMap[fy] >> (7 - fx)) & 1))
				{
					curt.blockingObjects.push_back(obj);
					curt.blocked = true;
				}
			}
		}
	}
}

ui8 CMapLoaderH3M::reverse(ui8 arg)
{
	ui8 ret = 0;
	for(int i = 0; i < 8; ++i)
	{
		if((arg & (1 << i)) >> i)
		{
			ret |= (128 >> i);
		}
	}
	return ret;
}