TRX/src/specific/shell.c

#include "specific/shell.h"

#include "game/const.h"
#include "game/demo.h"
#include "game/game.h"
#include "game/gameflow.h"
#include "game/inv.h"
#include "game/option.h"
#include "game/savegame.h"
#include "game/setup.h"
#include "game/text.h"
#include "game/types.h"
#include "game/vars.h"
#include "specific/display.h"
#include "specific/frontend.h"
#include "specific/init.h"
#include "specific/output.h"
#include "specific/shed.h"
#include "specific/sndpc.h"

#include "filesystem.h"
#include "util.h"

#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>

void S_ReadUserSettings()
{
    MYFILE *fp = FileOpen(UserSettingsPath, FILE_OPEN_READ);
    if (!fp) {
        return;
    }

    FileRead(&OptionMusicVolume, sizeof(int16_t), 1, fp);
    FileRead(&OptionSoundFXVolume, sizeof(int16_t), 1, fp);
    FileRead(Layout[1], sizeof(int16_t), 13, fp);
    FileRead(&AppSettings, sizeof(int32_t), 1, fp);
    FileRead(&GameHiRes, sizeof(int32_t), 1, fp);
    FileRead(&GameSizer, sizeof(double), 1, fp);
    FileRead(&IConfig, sizeof(int32_t), 1, fp);

    DefaultConflict();

    if (OptionMusicVolume) {
        S_CDVolume(25 * OptionMusicVolume + 5);
    } else {
        S_CDVolume(0);
    }

    if (OptionSoundFXVolume) {
        adjust_master_volume(6 * OptionSoundFXVolume + 3);
    } else {
        adjust_master_volume(0);
    }

    FileClose(fp);
}

void S_WriteUserSettings()
{
    MYFILE *fp = FileOpen(UserSettingsPath, FILE_OPEN_WRITE);
    if (!fp) {
        return;
    }
    FileWrite(&OptionMusicVolume, sizeof(int16_t), 1, fp);
    FileWrite(&OptionSoundFXVolume, sizeof(int16_t), 1, fp);
    FileWrite(Layout[1], sizeof(int16_t), 13, fp);
    FileWrite(&AppSettings, sizeof(int32_t), 1, fp);
    FileWrite(&GameHiRes, sizeof(int32_t), 1, fp);
    FileWrite(&GameSizer, sizeof(double), 1, fp);
    FileWrite(&IConfig, sizeof(int32_t), 1, fp);
    FileClose(fp);
}

void GameMain()
{
    SoundIsActive = 1;
    HiRes = 0;
    GameHiRes = 0;
    ScreenSizer = 1.0;
    GameSizer = 1.0;

    S_InitialiseSystem();

    if (!GF_LoadScriptFile("cfg/Tomb1Main_gameflow.json5")) {
        ShowFatalError("MAIN: unable to load script file");
        return;
    }

    InitialiseStartInfo();
    S_FrontEndCheck();
    S_ReadUserSettings();

    if (IsHardwareRenderer) {
        GameSizer = 1.0;
        dword_45E960 = AppSettings;
    }
    HiRes = 0;
    TempVideoAdjust(2, 1.0);
    S_DisplayPicture("data\\eidospc");
    sub_408E41();
    S_Wait(60);

    if (IsHardwareRenderer) {
        HardwarePrepareFMV();
    }
    WinPlayFMV(FMV_CORE, 1);
    WinPlayFMV(FMV_ESCAPE, 1);
    WinPlayFMV(FMV_INTRO, 1);
    if (!IsHardwareRenderer) {
        HiRes = -1;
    } else {
        HardwareFMVDone();
        if (!IsHardwareRenderer) {
            HiRes = -1;
        }
    }

    GameMemoryPointer = malloc(MALLOC_SIZE);
    if (!GameMemoryPointer) {
        S_ExitSystem("ERROR: Could not allocate enough memory");
        return;
    }

    int32_t gf_option = GF_EXIT_TO_TITLE;

    int8_t loop_continue = 1;
    while (loop_continue) {
        TempVideoRemove();
        int32_t gf_direction = gf_option & ~((1 << 6) - 1);
        int32_t gf_param = gf_option & ((1 << 6) - 1);
        TRACE("%d %d", gf_direction, gf_param);

        switch (gf_direction) {
        case GF_START_GAME:
            gf_option = GF_InterpretSequence(gf_param, GFL_NORMAL);
            break;

        case GF_START_SAVED_GAME:
            S_LoadGame(&SaveGame, gf_param);
            gf_option = GF_InterpretSequence(SaveGame.current_level, GFL_SAVED);
            break;

        case GF_START_CINE:
            gf_option = GF_InterpretSequence(gf_param, GFL_CUTSCENE);
            break;

        case GF_START_DEMO:
            gf_option = StartDemo();
            break;

        case GF_LEVEL_COMPLETE:
            gf_option = LevelCompleteSequence(gf_param);
            break;

        case GF_EXIT_TO_TITLE:
            T_InitPrint();
            TempVideoAdjust(2, 1.0);
            S_DisplayPicture("data\\titleh");
            NoInputCount = 0;
            if (!InitialiseLevel(GF.title_level_num, GFL_TITLE)) {
                gf_option = GF_EXIT_GAME;
                break;
            }
            TitleLoaded = 1;

            dword_45B940 = 0;
            Display_Inventory(1);
            dword_45B940 = 1;

            S_FadeToBlack();
            S_CDStop();

            if (ResetFlag) {
                ResetFlag = 0;
                gf_option = GF_START_DEMO;
            } else if (InventoryChosen == O_PHOTO_OPTION) {
                gf_option = GF_START_GAME | GF.gym_level_num;
            } else if (InventoryChosen == O_PASSPORT_OPTION) {
                if (InventoryExtraData[0] == 0) {
                    gf_option = GF_START_SAVED_GAME | InventoryExtraData[1];
                } else if (InventoryExtraData[0] == 1) {
                    switch (InventoryExtraData[1]) {
                    case 0:
                        SaveGame.bonus_flag = 0;
                        break;
                    case 1:
                        SaveGame.bonus_flag = GBF_NGPLUS;
                        break;
                    case 2:
                        SaveGame.bonus_flag = GBF_JAPANESE;
                        break;
                    case 3:
                        SaveGame.bonus_flag = GBF_JAPANESE | GBF_NGPLUS;
                        break;
                    }
                    InitialiseStartInfo();
                    gf_option = GF_START_GAME | GF.first_level_num;
                } else {
                    gf_option = GF_EXIT_GAME;
                }
            } else {
                gf_option = GF_EXIT_GAME;
            }
            break;

        case GF_EXIT_GAME:
            loop_continue = 0;
            break;

        default:
            sprintf(
                StringToShow, "MAIN: Unknown request %x %d", gf_direction,
                gf_param);
            S_ExitSystem(StringToShow);
            return;
        }
    }

    S_WriteUserSettings();
}

void T1MInjectSpecificShell()
{
    INJECT(0x00438410, GameMain);
}