/*
 * This file is part of the planetblupi source code
 * Copyright (C) 1997, Daniel Roux & EPSITEC SA
 * Copyright (C) 2017, Mathieu Schroeter
 * http://epsitec.ch; http://www.blupi.org; http://github.com/blupi-games
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see http://gnu.org/licenses
 */

#include <SDL2/SDL_image.h>
#include <stdio.h>
#include <stdlib.h>

#include "blupi.h"
#include "button.h"
#include "decor.h"
#include "def.h"
#include "event.h"
#include "menu.h"
#include "misc.h"
#include "movie.h"
#include "pixmap.h"
#include "progress.h"
#include "sound.h"

// Global variables

SDL_Window *   g_window;
SDL_Renderer * g_renderer;

CEvent *  g_pEvent  = nullptr;
CPixmap * g_pPixmap = nullptr; // pixmap principal
CSound *  g_pSound  = nullptr; // sound principal
CMovie *  g_pMovie  = nullptr; // movie principal
CDecor *  g_pDecor  = nullptr;

bool        g_bFullScreen   = false; // false si mode de test
Sint32      g_speedRate     = 1;
Sint32      g_timerInterval = 50;    // inverval = 50ms
bool        g_bTermInit     = false; // initialisation en cours
Uint32      g_lastPhase     = 999;
int         g_rendererType  = 0;
static bool g_pause;

/**
 * \brief Read an integer from a string.
 *
 * \param[in] p - Input string.
 * \returns the integer.
 */
static Sint32 GetNum (char * p)
{
  Sint32 n = 0;

  while (*p >= '0' && *p <= '9')
  {
    n *= 10;
    n += (*p++) - '0';
  }

  return n;
}

/**
 * \brief Read the config file.
 *
 * \returns true on success.
 */
static bool ReadConfig ()
{
  FILE * file = nullptr;
  char   buffer[200];
  char * pText;
  size_t nb;

  const auto config = GetBaseDir () + "data/config.ini";

  file = fopen (config.c_str (), "rb");
  if (file == nullptr)
    return false;
  nb         = fread (buffer, sizeof (char), 200 - 1, file);
  buffer[nb] = 0;
  fclose (file);

  pText = strstr (buffer, "SpeedRate=");
  if (pText != nullptr)
  {
    g_speedRate = GetNum (pText + 10);
    if (g_speedRate < 1)
      g_speedRate = 1;
    if (g_speedRate > 2)
      g_speedRate = 2;
  }

  pText = strstr (buffer, "Timer=");
  if (pText != nullptr)
  {
    g_timerInterval = GetNum (pText + 6);
    if (g_timerInterval < 10)
      g_timerInterval = 10;
    if (g_timerInterval > 1000)
      g_timerInterval = 1000;
  }

  pText = strstr (buffer, "FullScreen=");
  if (pText != nullptr)
  {
    g_bFullScreen = !!GetNum (pText + 11);
    if (g_bFullScreen != 0)
      g_bFullScreen = 1;
  }

  pText = strstr (buffer, "Renderer=");
  if (pText)
  {
    if (!strncmp (pText + 9, "software", 8))
      g_rendererType = SDL_RENDERER_SOFTWARE;
    else if (!strncmp (pText + 9, "accelerated", 11))
      g_rendererType = SDL_RENDERER_ACCELERATED;
  }

  return true;
}

/**
 * \brief Main frame update.
 */
static void UpdateFrame (void)
{
  RECT   clip, rcRect;
  Uint32 phase;
  POINT  posMouse;
  Sint32 i, term, speed;

  posMouse = g_pEvent->GetLastMousePos ();

  phase = g_pEvent->GetPhase ();

  SDL_RenderClear (g_renderer);

  rcRect.left   = 0;
  rcRect.top    = 0;
  rcRect.right  = LXIMAGE;
  rcRect.bottom = LYIMAGE;
  g_pPixmap->DrawImage (-1, CHBACK, rcRect); // draw the background

  if (phase == WM_PHASE_INTRO1)
    g_pEvent->IntroStep ();

  if (phase == WM_PHASE_PLAY)
  {
    clip.left   = POSDRAWX;
    clip.top    = POSDRAWY + g_pDecor->GetInfoHeight ();
    clip.right  = POSDRAWX + DIMDRAWX;
    clip.bottom = POSDRAWY + DIMDRAWY;

    if (g_pEvent->IsShift ()) // screen shifting
    {
      g_pEvent->DecorAutoShift ();
      g_pDecor->Build (clip, posMouse); // build the environment
    }
    else
    {
      if (!g_pEvent->GetPause ())
      {
        speed = g_pEvent->GetSpeed () * g_speedRate;
        for (i = 0; i < speed; i++)
        {
          g_pDecor->BlupiStep (i == 0); // move all blupi
          g_pDecor->MoveStep (i == 0);  // move the environment
          g_pEvent->DemoStep ();        // forward the recording or demo playing
        }
      }

      g_pEvent->DecorAutoShift ();
      g_pDecor->Build (clip, posMouse); // build the environment
      g_pDecor->NextPhase (1);          // rebuild the map sometimes
    }
  }

  if (phase == WM_PHASE_BUILD)
  {
    clip.left   = POSDRAWX;
    clip.top    = POSDRAWY;
    clip.right  = POSDRAWX + DIMDRAWX;
    clip.bottom = POSDRAWY + DIMDRAWY;
    g_pEvent->DecorAutoShift ();
    g_pDecor->Build (clip, posMouse); // build the environment
    g_pDecor->NextPhase (-1);         // rebuild the map sometimes
  }

  if (phase == WM_PHASE_INIT)
  {
    g_pEvent->DemoStep (); // start automatically (eventually) the demo
  }

  g_pEvent->DrawButtons ();

  g_lastPhase = phase;

  if (
    phase == WM_PHASE_H0MOVIE || phase == WM_PHASE_H1MOVIE ||
    phase == WM_PHASE_H2MOVIE || phase == WM_PHASE_PLAYMOVIE ||
    phase == WM_PHASE_WINMOVIE)
  {
    g_pEvent->MovieToStart (); // start a movie if necessary
  }

  if (phase == WM_PHASE_INSERT)
    g_pEvent->TryInsert ();

  if (phase == WM_PHASE_PLAY)
  {
    term = g_pDecor->IsTerminated ();
    if (term == 1)
      g_pEvent->ChangePhase (WM_PHASE_LOST); // lost
    if (term == 2)
      g_pEvent->ChangePhase (WM_PHASE_WINMOVIE); // win
  }
}

/**
 * \brief Finished with all objects we use; release them.
 */
static void FinishObjects (void)
{
  if (g_pMovie != nullptr)
  {
    delete g_pMovie;
    g_pMovie = nullptr;
  }

  if (g_pEvent != nullptr)
  {
    delete g_pEvent;
    g_pEvent = nullptr;
  }

  if (g_pDecor != nullptr)
  {
    delete g_pDecor;
    g_pDecor = nullptr;
  }

  if (g_pSound != nullptr)
  {
    g_pSound->StopMusic ();

    delete g_pSound;
    g_pSound = nullptr;
  }

  if (g_pPixmap != nullptr)
  {
    delete g_pPixmap;
    g_pPixmap = nullptr;
  }
}

static void HandleEvent (const SDL_Event & event)
{
  POINT totalDim, iconDim;

  if (!g_pause && g_pEvent != nullptr && g_pEvent->TreatEvent (event))
    return;

  switch (event.type)
  {
  case SDL_WINDOWEVENT:
  {
    switch (event.window.event)
    {
    case SDL_WINDOWEVENT_FOCUS_GAINED:
      g_pause = false;

      if (g_bFullScreen)
        g_lastPhase = 999;

      if (!g_bFullScreen && g_bTermInit)
      {
        totalDim.x = 64;
        totalDim.y = 66;
        iconDim.x  = 64;
        iconDim.y  = 66 / 2;
        g_pPixmap->Cache (CHHILI, "image/hili.png", totalDim, iconDim);
      }
      SDL_SetWindowTitle (g_window, gettext ("Planet Blupi"));
      if (g_pSound != nullptr)
        g_pSound->RestartMusic ();
      if (g_pMovie)
        g_pMovie->Resume ();
      return;

    case SDL_WINDOWEVENT_FOCUS_LOST:
      g_pause = true;

      SDL_SetWindowTitle (g_window, gettext ("Planet Blupi -- stop"));
      if (g_pSound != nullptr)
        g_pSound->SuspendMusic ();
      if (g_pMovie)
        g_pMovie->Pause ();
      return;
    }
    break;
  }

  case SDL_KEYDOWN:
    switch (event.key.keysym.sym)
    {
    case SDLK_F5:
      g_pEvent->SetSpeed (1);
      break;
    case SDLK_F6:
      g_pEvent->SetSpeed (2);
      break;
    case SDLK_F7:
      g_pEvent->SetSpeed (4);
      break;
    case SDLK_F8:
      g_pEvent->SetSpeed (8);
      break;
    }
    break;

  case SDL_USEREVENT:
  {
    switch (event.user.code)
    {
    case WM_UPDATE:
      if (!g_pEvent->IsMovie ()) // pas de film en cours ?
      {
        if (!g_pause)
          UpdateFrame ();

        if (!g_pEvent->IsMovie ())
          g_pPixmap->Display ();
      }
      break;

    case WM_WARPMOUSE:
    {
      const SDL_Point * coord = static_cast<SDL_Point *> (event.user.data1);
      SDL_WarpMouseInWindow (g_window, coord->x, coord->y);
      delete coord;
      break;
    }

    case WM_MUSIC_STOP:
      if (g_pSound->IsStoppedOnDemand ())
        break;

      g_pSound->RestartMusic ();
      break;

    case WM_MOVIE_PLAY:
      if (!g_pMovie->Render ())
        g_pEvent->StopMovie ();
      break;
    }
    break;
  }
  }
}

// Erreur dans DoInit.

static bool InitFail (const char * msg)
{
  char buffer[100];

  strcpy (buffer, "Error (");
  strcat (buffer, msg);
  strcat (buffer, ")");

  SDL_ShowSimpleMessageBox (
    SDL_MessageBoxFlags::SDL_MESSAGEBOX_ERROR, "Error", buffer, g_window);

  FinishObjects ();
  return false;
}

// Initialisation de l'application.

static bool DoInit (Sint32 argc, char * argv[])
{
  POINT totalDim, iconDim;
  RECT  rcRect;
  bool  bOK;

  bOK = ReadConfig (); // lit le fichier config.ini

  auto res = SDL_Init (SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_TIMER);
  if (res < 0)
    return false;

  // Create a window.
  if (g_bFullScreen)
    g_window = SDL_CreateWindow (
      gettext ("Planet Blupi"), 0, 0, LXIMAGE, LYIMAGE,
      SDL_WINDOW_FULLSCREEN | SDL_WINDOW_BORDERLESS | SDL_WINDOW_INPUT_GRABBED);
  else
    g_window = SDL_CreateWindow (
      gettext ("Planet Blupi"), SDL_WINDOWPOS_CENTERED, SDL_WINDOWPOS_CENTERED,
      LXIMAGE, LYIMAGE, 0);

  if (!g_window)
  {
    printf ("%s", SDL_GetError ());
    return false;
  }

#if 0
  auto icon = IMG_Load ((GetShareDir () + "icons/hicolor/256x256/apps/blupi.png").c_str ());
  SDL_SetWindowIcon (g_window, icon);
  SDL_FreeSurface (icon);
#endif /* 0 */

  g_renderer = SDL_CreateRenderer (
    g_window, -1, g_rendererType | SDL_RENDERER_TARGETTEXTURE);
  if (!g_renderer)
  {
    printf ("%s", SDL_GetError ());
    SDL_DestroyWindow (g_window);
    return false;
  }

  if (!bOK) // config.ini pas correct ?
    return InitFail ("Game not correctly installed");

  SDL_RenderSetLogicalSize (g_renderer, LXIMAGE, LYIMAGE);

  const auto renders = SDL_GetNumRenderDrivers ();
  for (int i = 0; i < renders; ++i)
  {
    SDL_RendererInfo info = {0};
    if (SDL_GetRenderDriverInfo (i, &info))
    {
      SDL_LogError (SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: failed\n", i);
      continue;
    }

    SDL_LogInfo (
      SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: name=%s", i, info.name);
    SDL_LogInfo (
      SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: flags=%u", i, info.flags);
    SDL_LogInfo (
      SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: num_texture_formats=%u", i,
      info.num_texture_formats);
    SDL_LogInfo (
      SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: max_texture_width=%u", i,
      info.max_texture_width);
    SDL_LogInfo (
      SDL_LOG_CATEGORY_APPLICATION, "renderer[%d]: max_texture_height=%u", i,
      info.max_texture_height);
  }

  // Cr�e le pixmap principal.
  g_pPixmap = new CPixmap;
  if (g_pPixmap == nullptr)
    return InitFail ("New pixmap");

  totalDim.x = LXIMAGE;
  totalDim.y = LYIMAGE;
  if (!g_pPixmap->Create (totalDim))
    return InitFail ("Create pixmap");

  OutputDebug ("Image: init\n");
  totalDim.x = LXIMAGE;
  totalDim.y = LYIMAGE;
  iconDim.x  = 0;
  iconDim.y  = 0;
#if _INTRO
  if (!g_pPixmap->Cache (CHBACK, "image/intro1.png", totalDim, iconDim))
#else
  if (!g_pPixmap->Cache (CHBACK, "image/init.png", totalDim, iconDim))
#endif
    return false;

  OutputDebug ("Image: init\n");
  totalDim.x = LXIMAGE;
  totalDim.y = LYIMAGE;
  iconDim.x  = 0;
  iconDim.y  = 0;
  if (!g_pPixmap->Cache (CHGROUND, "image/init.png", totalDim, iconDim))
    return false;

  rcRect.left   = 0;
  rcRect.top    = 0;
  rcRect.right  = LXIMAGE;
  rcRect.bottom = LYIMAGE;
  g_pPixmap->DrawImage (-1, CHBACK, rcRect); // dessine le fond
  g_pPixmap->Display ();

  totalDim.x = DIMCELX * 2 * 16;
  totalDim.y = DIMCELY * 2 * 6;
  iconDim.x  = DIMCELX * 2;
  iconDim.y  = DIMCELY * 2;
  if (!g_pPixmap->Cache (CHFLOOR, "image/floor000.png", totalDim, iconDim))
    return InitFail ("Cache floor000.png");

  totalDim.x = DIMOBJX * 16;
  totalDim.y = DIMOBJY * 8;
  iconDim.x  = DIMOBJX;
  iconDim.y  = DIMOBJY;
  if (!g_pPixmap->Cache (CHOBJECT, "image/obj000.png", totalDim, iconDim))
    return InitFail ("Cache obj000.png");

  if (!g_pPixmap->Cache (CHOBJECTo, "image/obj-o000.png", totalDim, iconDim))
    return InitFail ("Cache obj-o000.png");

  totalDim.x = DIMBLUPIX * 16;
  totalDim.y = DIMBLUPIY * 23;
  iconDim.x  = DIMBLUPIX;
  iconDim.y  = DIMBLUPIY;
  if (!g_pPixmap->Cache (CHBLUPI, "image/blupi.png", totalDim, iconDim))
    return InitFail ("Cache blupi.png");

  totalDim.x = 64;
  totalDim.y = 66;
  iconDim.x  = 64;
  iconDim.y  = 66 / 2;
  if (!g_pPixmap->Cache (CHHILI, "image/hili.png", totalDim, iconDim))
    return InitFail ("Cache hili.png");

  totalDim.x = DIMCELX * 2 * 3;
  totalDim.y = DIMCELY * 2 * 5;
  iconDim.x  = DIMCELX * 2;
  iconDim.y  = DIMCELY * 2;
  if (!g_pPixmap->Cache (CHFOG, "image/fog.png", totalDim, iconDim))
    return InitFail ("Cache fog.png");

  totalDim.x = DIMCELX * 2 * 16;
  totalDim.y = DIMCELY * 2 * 1;
  iconDim.x  = DIMCELX * 2;
  iconDim.y  = DIMCELY * 2;
  if (!g_pPixmap->Cache (CHMASK1, "image/mask1.png", totalDim, iconDim))
    return InitFail ("Cache mask1.png");

  totalDim.x = DIMCELX * 2 * 16;
  totalDim.y = DIMCELY * 2 * 1;
  iconDim.x  = DIMCELX * 2;
  iconDim.y  = DIMCELY * 2;
  if (!g_pPixmap->Cache (CHMASK2, "image/mask2.png", totalDim, iconDim))
    return InitFail ("Cache mask2.png");

  totalDim.x = DIMBUTTONX * 6;
  totalDim.y = DIMBUTTONY * 21;
  iconDim.x  = DIMBUTTONX;
  iconDim.y  = DIMBUTTONY;
  if (!g_pPixmap->Cache (CHBUTTON, "image/button00.png", totalDim, iconDim))
    return InitFail ("Cache button00.png");

  totalDim.x = DIMJAUGEX * 1;
  totalDim.y = DIMJAUGEY * 4;
  iconDim.x  = DIMJAUGEX;
  iconDim.y  = DIMJAUGEY;
  if (!g_pPixmap->Cache (CHJAUGE, "image/jauge.png", totalDim, iconDim))
    return InitFail ("Cache jauge.png");

  totalDim.x = DIMTEXTX * 16;
  totalDim.y = DIMTEXTY * 8 * 3;
  iconDim.x  = DIMTEXTX;
  iconDim.y  = DIMTEXTY;
  if (!g_pPixmap->Cache (CHTEXT, "image/text.png", totalDim, iconDim))
    return InitFail ("Cache text.png");

  totalDim.x = DIMLITTLEX * 16;
  totalDim.y = DIMLITTLEY * 8;
  iconDim.x  = DIMLITTLEX;
  iconDim.y  = DIMLITTLEY;
  if (!g_pPixmap->Cache (CHLITTLE, "image/little.png", totalDim, iconDim))
    return InitFail ("Cache little.png");

  totalDim.x = 426;
  totalDim.y = 52;
  iconDim.x  = 426;
  iconDim.y  = 52;
  if (!g_pPixmap->Cache (CHBIGNUM, "image/bignum.png", totalDim, iconDim))
    return InitFail ("Cache bignum.png");

  // Load all cursors
  g_pPixmap->LoadCursors ();
  g_pPixmap->ChangeSprite (SPRITE_WAIT); // met le sablier maison

  // Cr�e le gestionnaire de son.
  g_pSound = new CSound;
  if (g_pSound == nullptr)
    return InitFail ("New sound");

  g_pSound->Create ();
  g_pSound->CacheAll ();
  g_pSound->SetState (true);

  // Cr�e le gestionnaire de films.
  g_pMovie = new CMovie;
  if (g_pMovie == nullptr)
    return InitFail ("New movie");

  g_pMovie->Create ();

  // Cr�e le gestionnaire de d�cors.
  g_pDecor = new CDecor;
  if (g_pDecor == nullptr)
    return InitFail ("New decor");

  g_pDecor->Create (g_pSound, g_pPixmap);
  g_pDecor->MapInitColors ();

  // Cr�e le gestionnaire d'�v�nements.
  g_pEvent = new CEvent;
  if (g_pEvent == nullptr)
    return InitFail ("New event");

  g_pEvent->Create (g_pPixmap, g_pDecor, g_pSound, g_pMovie);
  g_pEvent->SetFullScreen (g_bFullScreen);
  g_pEvent->ChangePhase (WM_PHASE_INTRO1);

  g_bTermInit = true; // initialisation termin�e
  return true;
}

static void initGettext ()
{
  setlocale (LC_ALL, "");
  textdomain ("planetblupi");
  bindtextdomain ("planetblupi", (GetShareDir () + "locale").c_str ());
  bind_textdomain_codeset ("planetblupi", "UTF-8");
}

// Programme principal.

int main (int argc, char * argv[])
{
  initGettext ();

  if (!DoInit (argc, argv))
    return -1;

  SDL_TimerID updateTimer = SDL_AddTimer (
    g_timerInterval,
    [](Uint32 interval, void * param) -> Uint32 {
      CEvent::PushUserEvent (WM_UPDATE);
      return interval;
    },
    nullptr);

  SDL_Event event;
  while (SDL_WaitEvent (&event))
  {
    HandleEvent (event);
    if (event.type == SDL_QUIT)
      break;
  }

  if (g_window)
    SDL_DestroyWindow (g_window);

  SDL_RemoveTimer (updateTimer);
  FinishObjects ();
  SDL_Quit ();
  return 0;
}