#include <Windows.h>
#include <vector>
#include "DGLE2.h"
#include "DGLE2_EXT.h"

#include "Globals.cpp"
#include "MainRender.cpp"
#include "MainProcess.cpp"

using namespace DGLE2;

ENG_DYNAMIC_FUNC

IEngineCore *pEngineCore = NULL;

void CALLBACK Render(void *pParametr);
void CALLBACK Free(void *pParametr);
void CALLBACK Process(void *pParametr);
void CALLBACK Init(void *pParametr);

uint uiShipWidth, uiShipHeight;
TPoint2 stShipCoord;
IParticleEmitter *pLeftSoplo = NULL, *pRightSoplo = NULL;

#define SCREEN_WIDTH 1024
#define SCREEN_HEIGHT 768
#define ASTEROID_SIZE 100
#define MAX_STARS 200

TPoint2 stars[MAX_STARS];

IResourceManager *pResourceManager = NULL;
IRender *pRender = NULL;
IInput *pInput = NULL;

IRender2D *pRender2D = NULL;

IMesh *pMeshAsteroid = NULL;
ITexture *pTexAsteroid = NULL, *pTexExplo = NULL,
*pTexPlasma = NULL, *pTexShip = NULL, *pTexSpace = NULL;
ISoundSample *pSndExplo = NULL, *pSndPlasma = NULL;
IBitmapFont *pFntMain = NULL;
IMusic *pMusic = NULL;
IParticleEffect *pFxFlame = NULL;

struct TGameObject
{
  TPoint2 coord;
  float angle, frame, koeff;

  TGameObject(TPoint2 _coord):
  coord(_coord), frame(0.f)
  {
  koeff = (float)(rand()%1000) / 1000.f;
  angle = (float)(rand()%360);
  }
};

std::vector<TGameObject> asteroids;

void CALLBACK Init(void *pParametr)
{
  pEngineCore->GetSubSystem(ESS_RESOURCE_MANAGER, (IEngineSubSystem *&)pResourceManager);
  pEngineCore->GetSubSystem(ESS_RENDER, (IEngineSubSystem *&)pRender);
  pEngineCore->GetSubSystem(ESS_INPUT, (IEngineSubSystem *&)pInput);

  pInput->Configure(ICF_HIDE_CURSOR);
   
  pRender->GetRender2D(pRender2D);

  #define RESOURCE_PATH "Data.zip|"

  pResourceManager->Load(RESOURCE_PATH"asteroid.dmd", (IEngBaseObj*&)pMeshAsteroid);
  pResourceManager->Load(RESOURCE_PATH"asteroid.jpg", (IEngBaseObj*&)pTexAsteroid);
  pResourceManager->Load(RESOURCE_PATH"explo.bmp", (IEngBaseObj*&)pTexExplo);
  pResourceManager->Load(RESOURCE_PATH"plasma.bmp", (IEngBaseObj*&)pTexPlasma);
  pResourceManager->Load(RESOURCE_PATH"ship.png", (IEngBaseObj*&)pTexShip);
  pResourceManager->Load(RESOURCE_PATH"space.bmp", (IEngBaseObj*&)pTexSpace);
  pResourceManager->Load(RESOURCE_PATH"expl.wav", (IEngBaseObj*&)pSndExplo);
  pResourceManager->Load(RESOURCE_PATH"plasma.wav", (IEngBaseObj*&)pSndPlasma);
  pResourceManager->Load(RESOURCE_PATH"the_hard_18.dft", (IEngBaseObj*&)pFntMain);
  pResourceManager->Load(RESOURCE_PATH"music.mid", (IEngBaseObj*&)pMusic);
  pResourceManager->Load(RESOURCE_PATH"flame.dpt", (IEngBaseObj*&)pFxFlame);
   
  pMusic->Play();

  for(int i = 0; i < MAX_STARS; i++)
  stars[i] = TPoint2((float)(rand()%SCREEN_WIDTH), (float)(rand()%SCREEN_HEIGHT));

  stShipCoord.x = 512;
  stShipCoord.y = 650;

  pFxFlame->CreateEmitter(pLeftSoplo, false);
  pFxFlame->CreateEmitter(pRightSoplo, false);
  pLeftSoplo->SetPosition(TPoint3(stShipCoord.x + uiShipWidth/3 +25, stShipCoord.y + uiShipHeight +64, 0.f));
  pRightSoplo->SetPosition(TPoint3(stShipCoord.x + uiShipWidth +40 - uiShipWidth/3, stShipCoord.y + uiShipHeight +64, 0.f));

}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd)
{

  if(GetEngine("DGLE2.dll", pEngineCore))
  {
  pEngineCore->InitializeEngine(
   NULL, "Cargo Defense", TEngWindow(1024, 768, true), 33,
#ifdef _DEBUG
    EIF_DEFAULT
#else
    EIF_CATCH_UNHANDLED
#endif
    );
  pEngineCore->AddProcedure(EPT_INIT, &Init);
  pEngineCore->AddProcedure(EPT_RENDER, &Render);
  pEngineCore->AddProcedure(EPT_PROCESS, &Process);
  pEngineCore->AddProcedure(EPT_FREE, &Free);
  pEngineCore->StartEngine();

  FreeEngine();
  }

  else MessageBoxA(NULL,"Couldn't load \"DGLE2.dll\"!", "Cargo Defense", MB_OK | MB_ICONERROR);

  return 0;
}

uint uiCounter = 0;
bool bIsGame = false;

void ProcessTitle()
{
  for(uint i = 0; i < uiCounter % 5; i++)
  stars[rand()%MAX_STARS] = TPoint2((float)(rand()%SCREEN_WIDTH), (float)(rand()%SCREEN_HEIGHT));

  pInput->GetKey(KEY_SPACE, bIsGame);
}

void RenderTitle()
{
  pTexSpace->Draw2D(0, 0, SCREEN_WIDTH, SCREEN_HEIGHT);

  for(int i = 0; i < MAX_STARS; i++)
  pRender2D->DrawPoint(stars[i], TColor4(), 2);

  const char txt_1[] = "Brave Spaceship", txt_2[] = "Press \"Space\" to start!";
  uint w, h;
   
  pFntMain->SetScale((float)(2.f + sin((float)uiCounter/5.f)*0.25));
  pFntMain->GetTextDimensions(txt_1, w, h);
  pFntMain->Draw2D((SCREEN_WIDTH - w)/2, 100, txt_1);

  pFntMain->SetScale(1.f);
  pFntMain->GetTextDimensions(txt_2, w, h);
  pFntMain->Draw2D((SCREEN_WIDTH - w)/2, SCREEN_HEIGHT - 200, txt_2);
}

void ProcessGame()
{
  for(int i = 0; i < MAX_STARS; i++)
  {
  if(i < MAX_STARS/2)
  stars[i].y += 2.5;
  else
  stars[i].y += 3.5;

  if(stars[i].y > SCREEN_HEIGHT) stars[i].y = 0;
  }

  bool key_pressed;

  pInput->GetKey(KEY_A, key_pressed);
  if(key_pressed)
  {
  stShipCoord.x -= 4;
  if(stShipCoord.x < 0) stShipCoord.x = 0;
  }

  pInput->GetKey(KEY_D, key_pressed);
  if(key_pressed)
  {
  stShipCoord.x += 4;
  if(stShipCoord.x + uiShipWidth > SCREEN_WIDTH) stShipCoord.x = SCREEN_WIDTH - uiShipWidth;
  }

  pLeftSoplo->SetPosition(TPoint3(stShipCoord.x + uiShipWidth/3 +25, stShipCoord.y + uiShipHeight +64, 0.f));
  pRightSoplo->SetPosition(TPoint3(stShipCoord.x + uiShipWidth - uiShipWidth/3 +40, stShipCoord.y + uiShipHeight +64, 0.f));

  if(rand() % 20 == 10)
  asteroids.push_back(TGameObject(TPoint2((float)(rand()%SCREEN_WIDTH), -ASTEROID_SIZE)));

  int i = 0;
  while(i < (int)asteroids.size())
  {
  asteroids[i].coord.y += 5.f - asteroids[i].koeff;
  asteroids[i].angle += 2.f;

  if(asteroids[i].coord.y - ASTEROID_SIZE > SCREEN_HEIGHT)
  {
  asteroids.erase(asteroids.begin() + i);
  i--;
  }

  i++;
  }

}

void RenderGame()
{
  pTexSpace->Draw2D(0, 0, SCREEN_WIDTH, SCREEN_HEIGHT);

  for(int i = 0; i < MAX_STARS; i++)
  pRender2D->DrawPoint(stars[i], TColor4(), 2);

  pTexShip->Draw2DSimple((int)stShipCoord.x, (int)stShipCoord.y);
  pFxFlame->Draw2D();

  for(uint i = 0; i < asteroids.size(); i++)
  {
  pRender2D->DrawMesh(pMeshAsteroid, pTexAsteroid, asteroids[i].coord,
  TPoint3(ASTEROID_SIZE*asteroids[i].koeff, ASTEROID_SIZE*asteroids[i].koeff, ASTEROID_SIZE*asteroids[i].koeff),
  TPoint3(asteroids[i].koeff, 0.2f, 0.5f), asteroids[i].angle, false);
  }
}

void CALLBACK Process(void *pParametr)
{
  if(bIsGame)
  ProcessGame();
  else
  ProcessTitle();

  bool key_pressed;
  pInput->GetKey(KEY_ESCAPE, key_pressed);
  if(key_pressed) pEngineCore->QuitEngine();
   
  uiCounter++;
}

void CALLBACK Render(void *pParametr)
{
  pRender2D->Begin2D();

  if(bIsGame)
  RenderGame();
  else
  RenderTitle();

  pRender2D->End2D();
}

void CALLBACK Free(void *pParametr)
{
  pFxFlame->KillAllEmitters();
}

struct TGameObject
{
   TPoint2 coord;
   float angle, frame, koeff;

   TGameObject(TPoint2 _coord):
   coord(_coord), frame(0.f)
   {
   koeff = (float)(rand()%1000) / 1000.f;
   angle = (float)(rand()%360);
   }
};

std::vector<TGameObject> asteroids;