#include "Data.h"
#include <M2Datei.h>
#include <Textur2D.h>

// Konstructor
GameData::GameData(const char* shipM2, const char* asteroidsM2)
	: ReferenceCounter()
{
	world = new Welt2D();
	//world->setAirResistance( 0.01f );
	schuss = new RCArray< Schuss >();
	ship = 0;
	asteroid = new RCArray< Asteroid >();
	aData = new Model2DData * [7]();
	sData = new Model2DData * [2]();
	M2Datei m2d(asteroidsM2);
	m2d.leseDaten();
	for (int i = 0; i < 7; i++)
	{
		Text name = "";
		name.append((char)('a' + i));
		aData[i] = m2d.ladeModel(name);
	}
	m2d.setPfad(shipM2);
	m2d.leseDaten();
	for (int i = 0; i < 2; i++)
	{
		Text name = "";
		name.append((char)('a' + i));
		sData[i] = m2d.ladeModel(name);
	}
	shipN = 0;
	score = 0;
	scoreCheck = score * 11197;
	breite = 0;
	höhe = 0;
	aGröße = 0;
	maxTimer = 0;
	mTimer = 0;
	timer = 0;
	beendet = 1;
	rend = 0;
	gameTime = 0;
	tastenStände = 0;
	rGen = 0;
}

// Destructor
GameData::~GameData()
{
	schuss->release();
	if (ship)
		ship->release();
	asteroid->release();
	for (int i = 0; i < 7; i++)
		aData[i]->release();
	for (int i = 0; i < 2; i++)
		sData[i]->release();
	delete[] aData;
	delete[] sData;
	if (rGen)
		rGen->release();
	world->release();
}

// private
Asteroid* GameData::createNewAsteroid()
{
	int num = (int)(rGen->rand() * 7);
	double sw = (rGen->rand() * 360) / 180.0 * PI;
	Vec2< float > speed((float)cos(sw), (float)sin(sw));
	speed *= (float)(rGen->rand() * 40);
	Vec2< float > pos((float)rGen->rand() * breite, (float)rGen->rand() * höhe);
	if ((ship->getPosition() - Vertex((float)world->getWorldInfo().size.x, 0) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() + Vertex((float)world->getWorldInfo().size.x, 0) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() - Vertex(0, (float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() + Vertex(0, (float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() - Vertex((float)world->getWorldInfo().size.x, (float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() + Vertex((float)world->getWorldInfo().size.x, (float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() + Vertex((float)world->getWorldInfo().size.x, -(float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() + Vertex(-(float)world->getWorldInfo().size.x, (float)world->getWorldInfo().size.y) - pos).getLength() > world->getWorldInfo().size.getLength() / 3 &&
		(ship->getPosition() - pos).getLength() > world->getWorldInfo().size.getLength() / 3)
	{
		if (speed.x < 0)
			pos.x = (float)(breite + 200);
		Asteroid* ast = new Asteroid(dynamic_cast<Model2DData*>(aData[num]->getThis()), 0, pos, speed, (float)(rGen->rand() * 100) / 75.f, (float)sw, aGröße / 1000.f, num);
		int aAnz = asteroid->getEintragAnzahl();
		for (int i = 0; i < aAnz; i++)
		{
			if (ast->istModelInnen(asteroid->z(i)))
			{
				ast->release();
				return 0;
			}
		}
		return ast;
	}
	return 0;
}

// nicht constant
void GameData::reset(Text* zOptionen)
{
	gameTime = 0;
	timer = 0;
	beendet = 0;
	score = 0;
	scoreCheck = score * 11197;
	tastenStände = 0;
	if (ship)
		ship = (Ship*)ship->release();
	world->removeAll();
	schuss->leeren();
	asteroid->leeren();
	Text* tmp = zOptionen->getTeilText(zOptionen->positionVon('=') + 1, zOptionen->positionVon(','));
	breite = (int)*tmp;
	tmp->release();
	tmp = zOptionen->getTeilText(zOptionen->positionVon('=', 1) + 1, zOptionen->positionVon(',', 1));
	höhe = (int)*tmp;
	tmp->release();
	tmp = zOptionen->getTeilText(zOptionen->positionVon('=', 2) + 1, zOptionen->positionVon(',', 2));
	aGröße = (int)*tmp;
	tmp->release();
	tmp = zOptionen->getTeilText(zOptionen->positionVon('=', 3) + 1, zOptionen->positionVon(',', 3));
	maxTimer = (int)*tmp;
	tmp->release();
	mTimer = maxTimer;
	tmp = zOptionen->getTeilText(zOptionen->positionVon('=', 4) + 1, zOptionen->positionVon(',', 4));
	shipN = (int)*tmp;
	tmp->release();
	Vec2< float > shipPos((float)(breite / 2), (float)(höhe / 2));
	Vec2< float > shipSpeed(0, 0);
	float shipR = (float)-PI / 2;
	if (rGen)
		rGen = (RandomGenerator*)rGen->release();
	rGen = new RandomGenerator();
	if (zOptionen->positionVon('=', 7) >= 0)
	{
		tmp = zOptionen->getTeilText(zOptionen->positionVon('=', 7) + 1);
		rGen->setSeed((__int64)*tmp);
		tmp->release();
	}
	ship = new Ship(dynamic_cast<Model2DData*>(sData[shipN]->getThis()), shipPos, shipSpeed, shipR);
	world->addObject(ship);
}

bool GameData::tick(double tickVal)
{
	if (beendet)
	{
		bool ret = rend;
		rend = 0;
		return ret;
	}
	cs.lock();
	gameTime += tickVal;
	// Timer
	timer -= tickVal;
	if (timer <= 0)
	{
		mTimer -= 25;
		if (mTimer < 500)
			mTimer = 500;
		timer = mTimer / 1000.0;
		for (int i = 0; i < rGen->rand() * 1 + 1; i++)
		{
			Asteroid* newA = createNewAsteroid();
			if (newA)
			{
				asteroid->add(newA);
				world->addObject(dynamic_cast<Asteroid*>(newA->getThis()));
			}
		}
	}
	// Update
	ship->setTastenstände(tastenStände);
	int aAnz = asteroid->getEintragAnzahl();
	int sAnz = schuss->getEintragAnzahl();
	for (int i = aAnz - 1; i >= 0; i--)
	{
		if (asteroid->z(i)->getSize() == 0)
		{
			score += asteroid->z(i)->getScore();
			scoreCheck = score * 11197;
			world->removeObject(asteroid->z(i));
			asteroid->remove(i);
			aAnz--;
		}
	}
	for (int i = sAnz - 1; i >= 0; i--)
	{
		Vec2< float > pos = schuss->z(i)->getPosition();
		if (pos.x < 0 || pos.y < 0 || pos.x > breite || pos.y > höhe)
		{
			sAnz--;
			world->removeObject(schuss->z(i));
			schuss->remove(i);
		}
	}
	// Collision
	for (int i = sAnz - 1; i >= 0; i--)
	{
		Schuss* zs = schuss->z(i);
		bool b = 0;
		for (int j = 0; j < aAnz; j++)
		{
			Polygon2D ap;
			Polygon2D bp;
			Punkt pa;
			Punkt pb;
			if (asteroid->z(j)->istGetroffen(zs, ap, bp, pa, pb, rGen))
			{
				Array< Polygon2D >* npaA = new Array< Polygon2D >();
				npaA->add(ap);
				Model2DData* npdA = new Model2DData();
				npdA->erstelleModell(npaA);
				float rot = asteroid->z(j)->getDrehung();
				char id = asteroid->z(j)->getId();
				if (id >= 0)
					id = -id - 1;
				Asteroid* newA = new Asteroid(npdA, dynamic_cast<Bild*>(asteroid->z(j)->zTextur()->zTextur()->getThis()), pa.rotation(rot) + asteroid->z(j)->getPosition(), asteroid->z(j)->getSpeed(), asteroid->z(j)->getDrehungSpeed(), rot, asteroid->z(j)->getSize(), id);
				asteroid->add(newA);
				world->addObject(dynamic_cast<Asteroid*>(newA->getThis()));
				Array< Polygon2D >* npaB = new Array< Polygon2D >();
				npaB->add(bp);
				Model2DData* npdB = new Model2DData();
				npdB->erstelleModell(npaB);
				newA = new Asteroid(npdB, dynamic_cast<Bild*>(asteroid->z(j)->zTextur()->zTextur()->getThis()), pb.rotation(rot) + asteroid->z(j)->getPosition(), asteroid->z(j)->getSpeed(), asteroid->z(j)->getDrehungSpeed(), rot, asteroid->z(j)->getSize(), id);
				asteroid->add(newA);
				world->addObject(dynamic_cast<Asteroid*>(newA->getThis()));
				b = 1;
				asteroid->z(j)->setSize(0);
			}
		}
		if (!b)
			b |= ship->istGetroffen(zs);
		if (b)
		{
			world->removeObject(schuss->z(i));
			schuss->remove(i);
			sAnz--;
		}
	}
	for (int i = 0; i < aAnz && !beendet; i++)
		beendet |= ship->istModelInnen(asteroid->z(i));
	beendet |= (score * 11197 != scoreCheck);
	if (score * 11197 != scoreCheck)
	{
		score = 0;
		scoreCheck = 0;
	}
	cs.unlock();
	return 1;
}

// constant
int GameData::getScore() const
{
	return score;
}

bool GameData::istBeendet() const
{
	return beendet;
}