#include "def.h"
#include "decor.h"
#include "misc.h"

typedef struct
{
    Sint16          majRev;
    Sint16          minRev;
    Sint32          nbDecor;
    Sint32          lgDecor;
    Sint32          nbBlupi;
    Sint32          lgBlupi;
    Sint32          nbMove;
    Sint32          lgMove;
    Sint16          reserve1[100];
    POINT           celCoin;
    Sint16          world;
    Sint32          time;
    char            buttonExist[MAXBUTTON];
    Term            term;
    Sint16          music;
    Sint16          region;
    Sint32          totalTime;
    Sint16          skill;
    POINT           memoPos[4];
    Sint16          reserve2[29];
}
DescFile;

typedef struct
{
    Sint32      bExist;         // true -> utilisé
    Sint32      bHili;          // true -> sélectionné

    Sint16  perso;          // personnage, voir (*)

    Sint16  goalAction;     // action (Sint32 terme)
    Sint16  goalPhase;      // phase (Sint32 terme)
    POINT   goalCel;        // cellule visée (Sint32 terme)
    POINT   passCel;        // cellule tranversante

    Sint16  energy;         // énergie restante

    POINT   cel;            // cellule actuelle
    POINT   destCel;        // cellule destination
    Sint16  action;         // action en cours
    Sint16  aDirect;        // direction actuelle
    Sint16  sDirect;        // direction souhaitée

    POINT   pos;            // position relative à partir de la cellule
    Sint16  posZ;           // déplacement z
    Sint16  channel;
    Sint16  lastIcon;
    Sint16  icon;
    Sint16  phase;          // phase dans l'action
    Sint16  step;           // pas global
    Sint16  interrupt;      // 0=prioritaire, 1=normal, 2=misc
    Sint16  clipLeft;

    Sint32      nbUsed;         // nb de points déjà visités
    char    nextRankUsed;
    POINT   posUsed[MAXUSED];
    char    rankUsed[MAXUSED];

    Sint16  takeChannel;    // objet transporté
    Sint16  takeIcon;

    POINT   fix;            // point fixe (cultive, pont)

    Sint16  jaugePhase;
    Sint16  jaugeMax;
    Sint16  stop;           // 1 -> devra stopper
    Sint16  bArrow;         // true -> flèche en dessus de blupi
    Sint16  bRepeat;        // true -> répète l'action
    Sint16  nLoop;          // nb de boucles pour GOAL_OTHERLOOP
    Sint16  cLoop;          // boucle en cours
    Sint16  vIcon;          // icône variable
    POINT   goalHili;       // but visé
    Sint16  bMalade;        // true -> blupi malade
    Sint16  bCache;         // true -> caché (pas dessiné)
    Sint16  vehicule;       // véhicule utilisé par blupi, voir (**)
    char    busyCount;
    char    busyDelay;
    char    clicCount;
    char    clicDelay;
    char    reserve2[2];
}
OldBlupi;


// Sauve le décor sur disque.

bool CDecor::Write (Sint32 rank, bool bUser, Sint32 world, Sint32 time,
                    Sint32 total)
{
    char        filename[MAX_PATH];
    FILE       *file    = nullptr;
    DescFile   *pBuffer = nullptr;
    Sint32          i;
    size_t      nb;

    if (bUser)
    {
        sprintf (filename, "data/user%.3d.blp", rank);
        AddUserPath (filename);
    }
    else
        sprintf (filename, "data/world%.3d.blp", rank);

    file = fopen (filename, "wb");
    if (file == nullptr)
        goto error;

    pBuffer = (DescFile *)malloc (sizeof (DescFile));
    if (pBuffer == nullptr)
        goto error;
    memset (pBuffer, 0, sizeof (DescFile));

    pBuffer->majRev    = 1;
    pBuffer->minRev    = 5;
    pBuffer->celCoin   = m_celCoin;
    pBuffer->world     = world;
    pBuffer->time      = time;
    pBuffer->totalTime = total;
    pBuffer->term      = m_term;
    pBuffer->music     = m_music;
    pBuffer->region    = m_region;
    pBuffer->skill     = m_skill;
    pBuffer->nbDecor   = MAXCELX * MAXCELY;
    pBuffer->lgDecor   = sizeof (Cellule);
    pBuffer->nbBlupi   = MAXBLUPI;
    pBuffer->lgBlupi   = sizeof (Blupi);
    pBuffer->nbMove    = MAXMOVE;
    pBuffer->lgMove    = sizeof (Move);

    for (i = 0 ; i < MAXBUTTON ; i++)
        pBuffer->buttonExist[i] = m_buttonExist[i];

    for (i = 0 ; i < 4 ; i++)
        pBuffer->memoPos[i] = m_memoPos[i];

    nb = fwrite (pBuffer, sizeof (DescFile), 1, file);
    if (nb < 1)
        goto error;

    nb = fwrite (m_decor, sizeof (Cellule), MAXCELX * MAXCELY / 4, file);
    if (nb < MAXCELX * MAXCELY / 4)
        goto error;

    nb = fwrite (m_blupi, sizeof (Blupi), MAXBLUPI, file);
    if (nb < MAXBLUPI)
        goto error;

    nb = fwrite (m_move, sizeof (Move), MAXMOVE, file);
    if (nb < MAXMOVE)
        goto error;

    nb = fwrite (m_lastDrapeau, sizeof (POINT), MAXLASTDRAPEAU, file);
    if (nb < MAXLASTDRAPEAU)
        goto error;

    free (pBuffer);
    fclose (file);
    return true;

error:
    if (pBuffer != nullptr)
        free (pBuffer);
    if (file    != nullptr)
        fclose (file);
    return false;
}

// Lit le décor sur disque.

bool CDecor::Read (Sint32 rank, bool bUser, Sint32 &world, Sint32 &time,
                   Sint32 &total)
{
    char        filename[MAX_PATH];
    FILE       *file    = nullptr;
    DescFile   *pBuffer = nullptr;
    Sint32          majRev, minRev;
    Sint32          i, x, y;
    size_t      nb;
    OldBlupi    oldBlupi;

    Init (-1, -1);

    if (bUser)
    {
        sprintf (filename, "data/user%.3d.blp", rank);
        AddUserPath (filename);
    }
    else
        sprintf (filename, (GetBaseDir() + "data/world%.3d.blp").c_str(), rank);

    file = fopen (filename, "rb");
    if (file == nullptr)
        goto error;

    pBuffer = (DescFile *)malloc (sizeof (DescFile));
    if (pBuffer == nullptr)
        goto error;

    nb = fread (pBuffer, sizeof (DescFile), 1, file);
    if (nb < 1)
        goto error;

    majRev = pBuffer->majRev;
    minRev = pBuffer->minRev;

    if (majRev == 1 && minRev == 0)
        goto error;

    if (majRev == 1 && minRev == 3)
    {
        if (pBuffer->nbDecor != MAXCELX * MAXCELY ||
            pBuffer->lgDecor != sizeof (Cellule) ||
            pBuffer->nbBlupi != MAXBLUPI        ||
            pBuffer->lgBlupi != sizeof (OldBlupi) ||
            pBuffer->nbMove  != MAXMOVE         ||
            pBuffer->lgMove  != sizeof (Move))
            goto error;
    }
    else
    {
        if (pBuffer->nbDecor != MAXCELX * MAXCELY ||
            pBuffer->lgDecor != sizeof (Cellule) ||
            pBuffer->nbBlupi != MAXBLUPI        ||
            pBuffer->lgBlupi != sizeof (Blupi)   ||
            pBuffer->nbMove  != MAXMOVE         ||
            pBuffer->lgMove  != sizeof (Move))
            goto error;
    }

    SetCoin (pBuffer->celCoin);
    if (bUser)
    {
        world = pBuffer->world;
        time  = pBuffer->time;
        total = pBuffer->totalTime;
    }
    m_celHome = pBuffer->celCoin;
    m_term    = pBuffer->term;
    m_music   = pBuffer->music;
    m_region  = pBuffer->region;

    if (bUser)
        m_skill = pBuffer->skill;

    for (i = 0 ; i < MAXBUTTON ; i++)
        m_buttonExist[i] = pBuffer->buttonExist[i];

    for (i = 0 ; i < 4 ; i++)
        m_memoPos[i] = pBuffer->memoPos[i];

    nb = fread (m_decor, sizeof (Cellule), MAXCELX * MAXCELY / 4, file);
    if (nb < MAXCELX * MAXCELY / 4)
        goto error;
    if (majRev == 1 && minRev < 5)
    {
        for (x = 0 ; x < MAXCELX / 2 ; x++)
        {
            for (y = 0 ; y < MAXCELY / 2 ; y++)
            {
                if (m_decor[x][y].objectIcon >= 128 &&
                    m_decor[x][y].objectIcon <= 130)
                    m_decor[x][y].objectIcon -= 128 - 17;
            }
        }
    }

    if (majRev == 1 && minRev == 3)
    {
        memset (m_blupi, 0, sizeof (Blupi)*MAXBLUPI);
        for (i = 0 ; i < MAXBLUPI ; i++)
        {
            nb = fread (&oldBlupi, sizeof (OldBlupi), 1, file);
            if (nb != 1)
                goto error;
            memcpy (m_blupi + i, &oldBlupi, sizeof (OldBlupi));
            ListFlush (i);
        }
    }
    else
    {
        nb = fread (m_blupi, sizeof (Blupi), MAXBLUPI, file);
        if (nb < MAXBLUPI)
            goto error;
    }

    nb = fread (m_move, sizeof (Move), MAXMOVE, file);
    if (nb < MAXMOVE)
        goto error;

    nb = fread (m_lastDrapeau, sizeof (POINT), MAXLASTDRAPEAU, file);
    if (nb < MAXLASTDRAPEAU)
        InitDrapeau();

    BlupiDeselect();  // désélectionne tous les blupi

    free (pBuffer);
    fclose (file);
    return true;

error:
    if (pBuffer != nullptr)
        free (pBuffer);
    if (file    != nullptr)
        fclose (file);

    Flush();  // initialise un décor neutre
    return false;
}

// Indique si un fichier existe sur disque.

bool CDecor::FileExist (Sint32 rank, bool bUser, Sint32 &world, Sint32 &time,
                        Sint32 &total)
{
    char        filename[MAX_PATH];
    FILE       *file    = nullptr;
    DescFile   *pBuffer = nullptr;
    Sint32          majRev, minRev;
    size_t      nb;

    if (bUser)
    {
        sprintf (filename, "data/user%.3d.blp", rank);
        AddUserPath (filename);
    }
    else
        snprintf (filename, sizeof (filename),
                  (GetBaseDir () + "data/world%.3d.blp").c_str (), rank);

    file = fopen (filename, "rb");
    if (file == nullptr)
        goto error;

    pBuffer = (DescFile *)malloc (sizeof (DescFile));
    if (pBuffer == nullptr)
        goto error;

    nb = fread (pBuffer, sizeof (DescFile), 1, file);
    if (nb < 1)
        goto error;

    majRev = pBuffer->majRev;
    minRev = pBuffer->minRev;

    if (majRev == 1 && minRev == 0)
        goto error;

    if (majRev == 1 && minRev == 3)
    {
        if (pBuffer->nbDecor != MAXCELX * MAXCELY ||
            pBuffer->lgDecor != sizeof (Cellule) ||
            pBuffer->nbBlupi != MAXBLUPI        ||
            pBuffer->lgBlupi != sizeof (OldBlupi) ||
            pBuffer->nbMove  != MAXMOVE         ||
            pBuffer->lgMove  != sizeof (Move))
            goto error;
    }
    else
    {
        if (pBuffer->nbDecor != MAXCELX * MAXCELY ||
            pBuffer->lgDecor != sizeof (Cellule) ||
            pBuffer->nbBlupi != MAXBLUPI        ||
            pBuffer->lgBlupi != sizeof (Blupi)   ||
            pBuffer->nbMove  != MAXMOVE         ||
            pBuffer->lgMove  != sizeof (Move))
            goto error;
    }

    world = pBuffer->world;
    time  = pBuffer->time;
    total = pBuffer->totalTime;

    free (pBuffer);
    fclose (file);
    return true;

error:
    if (pBuffer != nullptr)
        free (pBuffer);
    if (file    != nullptr)
        fclose (file);
    return false;
}


#define MARG    18

// Initialise un décor neutre.

void CDecor::Flush()
{
    Sint32          x, y, i, icon;

    Init (-1, -1);

    for (x = 0 ; x < MAXCELX ; x += 2)
    {
        for (y = 0 ; y < MAXCELY ; y += 2)
        {
            if (x < MARG || x > MAXCELX - MARG ||
                y < MARG || y > MAXCELY - MARG)
            {
                icon = 14;  // eau
                goto put;
            }

            if (x == MARG && y == MARG)
            {
                icon = 12;
                goto put;
            }
            if (x == MAXCELX - MARG && y == MARG)
            {
                icon = 13;
                goto put;
            }
            if (x == MARG && y == MAXCELY - MARG)
            {
                icon = 11;
                goto put;
            }
            if (x == MAXCELX - MARG && y == MAXCELY - MARG)
            {
                icon = 10;
                goto put;
            }

            if (x == MARG)
            {
                icon = 4;
                goto put;
            }
            if (x == MAXCELX - MARG)
            {
                icon = 2;
                goto put;
            }
            if (y == MARG)
            {
                icon = 5;
                goto put;
            }
            if (y == MAXCELY - MARG)
            {
                icon = 3;
                goto put;
            }

            icon = 1;  // terre

put:
            m_decor[x / 2][y / 2].floorChannel = CHFLOOR;
            m_decor[x / 2][y / 2].floorIcon    = icon;
        }
    }

    for (i = 0 ; i < MAXBLUPI ; i++)
        m_blupi[i].bExist = false;

    BlupiCreate (GetCel (102, 100), ACTION_STOP, DIRECT_S, 0, MAXENERGY);
    m_decor[98 / 2][100 / 2].floorChannel  = CHFLOOR;
    m_decor[98 / 2][100 / 2].floorIcon     = 16;
    m_decor[98 / 2][100 / 2].objectChannel = CHOBJECT;
    m_decor[98 / 2][100 / 2].objectIcon    = 113;

    for (i = 0 ; i < MAXBUTTON ; i++)
        m_buttonExist[i] = 1;

    for (i = 0 ; i < 4 ; i++)
    {
        m_memoPos[i].x = 0;
        m_memoPos[i].y = 0;
    }

    memset (&m_term, 0, sizeof (Term));
    m_term.bHomeBlupi = true;
    m_term.nbMinBlupi = 1;
    m_term.nbMaxBlupi = 1;

    m_music  = 0;
    m_region = 0;

    m_celHome.x = 90;
    m_celHome.y = 98;
    SetCoin (m_celHome);
    InitAfterBuild();
    LoadImages();
}