src/interpreter_lib.cc - main - erlang.spawn/fallout2-ce

src/interpreter_lib.cc
2 328 строк67 KB
Vlad K
Fix crash in opTokenize when prev is not null but not present in the source string (#473)
27 май 2026, 19:40
27 май 2026, 19:40db86e53
#include "interpreter_lib.h"

#include "color.h"
#include "datafile.h"
#include "debug.h"
#include "dialog.h"
#include "input.h"
#include "interpreter_extra.h"
#include "memory_manager.h"
#include "mouse.h"
#include "mouse_manager.h"
#include "nevs.h"
#include "select_file_list.h"
#include "sound.h"
#include "svga.h"
#include "text_font.h"
#include "window.h"
#include "window_manager_private.h"

namespace fallout {

#define INT_LIB_SOUNDS_CAPACITY (32)
#define INT_LIB_KEY_HANDLERS_CAPACITY (256)

typedef struct IntLibKeyHandlerEntry {
    Program* program;
    int proc;
} IntLibKeyHandlerEntry;

static void opFillWin3x3(Program* program);
static void opFormat(Program* program);
static void opPrint(Program* program);
static void opSelectFileList(Program* program);
static void opTokenize(Program* program);
static void opPrintRect(Program* program);
static void opSelect(Program* program);
static void opDisplay(Program* program);
static void opDisplayRaw(Program* program);
static void _interpretFadePaletteBK(unsigned char* oldPalette, unsigned char* newPalette, int a3, float duration, bool shouldProcessBk);
static void interpretFadePalette(unsigned char* oldPalette, unsigned char* newPalette, int a3, float duration);
static int intlibGetFadeIn();
static void interpretFadeOut(float duration);
static void interpretFadeIn(float duration);
static void interpretFadeOutNoBK(float duration);
static void interpretFadeInNoBK(float duration);
static void opFadeIn(Program* program);
static void opFadeOut(Program* program);
static int intLibCheckMovie(Program* program);
static void opSetMovieFlags(Program* program);
static void opPlayMovie(Program* program);
static void opStopMovie(Program* program);
static void opAddRegionProc(Program* program);
static void opAddRegionRightProc(Program* program);
static void opCreateWin(Program* program);
static void opResizeWin(Program* program);
static void opScaleWin(Program* program);
static void opDeleteWin(Program* program);
static void opSayStart(Program* program);
static void opDeleteRegion(Program* program);
static void opActivateRegion(Program* program);
static void opCheckRegion(Program* program);
static void opAddRegion(Program* program);
static void opSayStartPos(Program* program);
static void opSayReplyTitle(Program* program);
static void opSayGoToReply(Program* program);
static void opSayReply(Program* program);
static void opSayOption(Program* program);
static int intLibCheckDialog(Program* program);
static void opSayEnd(Program* program);
static void opSayGetLastPos(Program* program);
static void opSayQuit(Program* program);
static int getTimeOut();
static void setTimeOut(int value);
static void opSayMessageTimeout(Program* program);
static void opSayMessage(Program* program);
static void opGotoXY(Program* program);
static void opAddButtonFlag(Program* program);
static void opAddRegionFlag(Program* program);
static void opAddButton(Program* program);
static void opAddButtonText(Program* program);
static void opAddButtonGfx(Program* program);
static void opAddButtonProc(Program* program);
static void opAddButtonRightProc(Program* program);
static void opShowWin(Program* program);
static void opDeleteButton(Program* program);
static void opFillWin(Program* program);
static void opFillRect(Program* program);
static void opHideMouse(Program* program);
static void opShowMouse(Program* program);
static void opMouseShape(Program* program);
static void opSetGlobalMouseFunc(Program* Program);
static void opDisplayGfx(Program* program);
static void opLoadPaletteTable(Program* program);
static void opAddNamedEvent(Program* program);
static void opAddNamedHandler(Program* program);
static void opClearNamed(Program* program);
static void opSignalNamed(Program* program);
static void opAddKey(Program* program);
static void opDeleteKey(Program* program);
static void opRefreshMouse(Program* program);
static void opSetFont(Program* program);
static void opSetTextFlags(Program* program);
static void opSetTextColor(Program* program);
static void opSayOptionColor(Program* program);
static void opSayReplyColor(Program* program);
static void opSetHighlightColor(Program* program);
static void opSayReplyWindow(Program* program);
static void opSayReplyFlags(Program* program);
static void opSayOptionFlags(Program* program);
static void opSayOptionWindow(Program* program);
static void opSayBorder(Program* program);
static void opSayScrollUp(Program* program);
static void opSayScrollDown(Program* program);
static void opSaySetSpacing(Program* program);
static void opSayRestart(Program* program);
static void intLibSoundCallback(void* userData, int event);
static int intLibSoundDelete(int value);
static int intLibSoundPlay(char* fileName, int mode);
static int intLibSoundPause(int value);
static int intLibSoundRewind(int value);
static int intLibSoundResume(int value);
static void opSoundPlay(Program* program);
static void opSoundPause(Program* program);
static void opSoundResume(Program* program);
static void opSoundStop(Program* program);
static void opSoundRewind(Program* program);
static void opSoundDelete(Program* program);
static void opSetOneOptPause(Program* program);
static bool intLibDoInput(int key);

// 0x59D5D0 interpretSounds
static Sound* gIntLibSounds[INT_LIB_SOUNDS_CAPACITY];

// 0x59D650 blackPal
static unsigned char gIntLibFadePalette[256 * 3];

// 0x59D950 inputProc
static IntLibKeyHandlerEntry gIntLibKeyHandlerEntries[INT_LIB_KEY_HANDLERS_CAPACITY];

// 0x59E150 currentlyFadedIn
static bool gIntLibIsPaletteFaded;

// 0x59E154 anyKeyOffset
static int gIntLibGenericKeyHandlerProc;

// 0x59E158 numCallbacks
static int gIntLibProgramDeleteCallbacksLength;

// 0x59E15C anyKeyProg
static Program* gIntLibGenericKeyHandlerProgram;

// 0x59E160 callbacks
static IntLibProgramDeleteCallback** gIntLibProgramDeleteCallbacks;

// 0x59E164 sayStartingPosition
static int gIntLibSayStartingPosition;

// 0x59E168 name1
static char gIntLibPlayMovieFileName[100];

// 0x59E1CC name2
static char gIntLibPlayMovieRectFileName[100];

// fillwin3x3
// 0x461780 op_fillwin3x3
void opFillWin3x3(Program* program)
{
    char* fileName = programStackPopString(program);
    char* mangledFileName = _interpretMangleName(fileName);

    int imageWidth;
    int imageHeight;
    unsigned char* imageData = datafileRead(mangledFileName, &imageWidth, &imageHeight);
    if (imageData == nullptr) {
        programFatalError("cannot load 3x3 file '%s'", mangledFileName);
    }

    scriptWindowSelectId(program->windowId);

    int winHeight = scriptWindowHeight();
    int winWidth = scriptWindowWidth();
    unsigned char* windowBuffer = scriptWindowGetBuffer();
    _fillBuf3x3(imageData,
        imageWidth,
        imageHeight,
        windowBuffer,
        winWidth,
        winHeight);

    internal_free_safe(imageData, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 94
}

// format
// 0x461850 op_format
static void opFormat(Program* program)
{
    int textAlignment = programStackPopInteger(program);
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* string = programStackPopString(program);

    if (!scriptWindowFormatMessage(string, x, y, width, height, textAlignment)) {
        programFatalError("Error formatting message\n");
    }
}

// print
// 0x461A5C op_print
static void opPrint(Program* program)
{
    scriptWindowSelectId(program->windowId);

    ProgramValue value = programStackPopValue(program);
    char string[80];

    // SFALL: Fix broken Print() script function.
    // CE: Original code uses `interpretOutput` to handle printing. However
    // this function looks invalid or broken itself. Check `opSelect` - it sets
    // `outputFunc` to `scriptWindowOutput`, but `outputFunc` is never called. I'm not
    // sure if this fix can be moved into `interpretOutput` because it is also
    // used in procedure setup functions.
    //
    // The fix is slightly different, Sfall fixes strings only, ints and floats
    // are still passed to `interpretOutput`.
    switch (value.opcode & VALUE_TYPE_MASK) {
    case VALUE_TYPE_STRING:
        scriptWindowOutput(programGetString(program, value.opcode, value.integerValue));
        break;
    case VALUE_TYPE_FLOAT:
        snprintf(string, sizeof(string), "%.5f", value.floatValue);
        scriptWindowOutput(string);
        break;
    case VALUE_TYPE_INT:
        snprintf(string, sizeof(string), "%d", value.integerValue);
        scriptWindowOutput(string);
        break;
    }
}

// selectfilelist
// 0x461B10 op_selectfilelist
void opSelectFileList(Program* program)
{
    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    char* pattern = programStackPopString(program);
    char* title = programStackPopString(program);

    int fileListLength;
    char** fileList = _getFileList(_interpretMangleName(pattern), &fileListLength);
    if (fileList != nullptr && fileListLength != 0) {
        int selectedIndex = _win_list_select(title,
            fileList,
            fileListLength,
            nullptr,
            320 - fontGetStringWidth(title) / 2,
            200,
            _colorTable[0x7FFF] | 0x10000);

        if (selectedIndex != -1) {
            programStackPushString(program, fileList[selectedIndex]);
        } else {
            programStackPushInteger(program, 0);
        }

        _freeFileList(fileList);
    } else {
        programStackPushInteger(program, 0);
    }

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// tokenize
// 0x461CA0 op_tokenize
void opTokenize(Program* program)
{
    int ch = programStackPopInteger(program);

    ProgramValue prevValue = programStackPopValue(program);

    char* prev = nullptr;
    if ((prevValue.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
        if (prevValue.integerValue != 0) {
            programFatalError("Error, invalid arg 2 to tokenize. (only accept 0 for int value)");
        }
    } else if ((prevValue.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        prev = programGetString(program, prevValue.opcode, prevValue.integerValue);
    } else {
        programFatalError("Error, invalid arg 2 to tokenize. (string)");
    }

    char* string = programStackPopString(program);
    char* temp = nullptr;

    if (prev != nullptr) {
        char* start = strstr(string, prev);
        if (start != nullptr) {
            start += strlen(prev);
            while (*start != ch && *start != '\0') {
                start++;
            }
        }

        if (start != nullptr && *start == ch) {
            int length = 0;
            char* end = start + 1;
            while (*end != ch && *end != '\0') {
                end++;
                length++;
            }

            temp = (char*)internal_calloc_safe(1, length + 1, __FILE__, __LINE__); // "..\\int\\INTLIB.C, 230
            strncpy(temp, start, length);
            programStackPushString(program, temp);
        } else {
            programStackPushInteger(program, 0);
        }
    } else if (string != nullptr) {
        int length = 0;
        char* end = string;
        while (*end != ch && *end != '\0') {
            end++;
            length++;
        }

        temp = (char*)internal_calloc_safe(1, length + 1, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 248
        strncpy(temp, string, length);
        programStackPushString(program, temp);
    } else {
        programStackPushInteger(program, 0);
    }

    if (temp != nullptr) {
        internal_free_safe(temp, __FILE__, __LINE__); // "..\\int\\INTLIB.C" , 260
    }
}

// printrect
// 0x461F1C op_printrect
static void opPrintRect(Program* program)
{
    scriptWindowSelectId(program->windowId);

    int v1 = programStackPopInteger(program);
    if (v1 > 2) {
        programFatalError("Invalid arg 3 given to printrect, expecting int");
    }

    int v2 = programStackPopInteger(program);

    ProgramValue value = programStackPopValue(program);
    char string[80];
    switch (value.opcode & VALUE_TYPE_MASK) {
    case VALUE_TYPE_STRING:
        snprintf(string, sizeof(string), "%s", programGetString(program, value.opcode, value.integerValue));
        break;
    case VALUE_TYPE_FLOAT:
        snprintf(string, sizeof(string), "%.5f", value.floatValue);
        break;
    case VALUE_TYPE_INT:
        snprintf(string, sizeof(string), "%d", value.integerValue);
        break;
    }

    if (!scriptWindowPrintRect(string, v2, v1)) {
        programFatalError("Error in printrect");
    }
}

// 0x46209C op_selectwin
void opSelect(Program* program)
{
    const char* windowName = programStackPopString(program);
    int win = scriptWindowPush(windowName);
    if (win == -1) {
        programFatalError("Error selecting window %s\n", windowName);
    }

    program->windowId = win;

    _interpretOutputFunc(scriptWindowOutput);
}

// display
// 0x46213C op_display
void opDisplay(Program* program)
{
    char* fileName = programStackPopString(program);

    scriptWindowSelectId(program->windowId);

    char* mangledFileName = _interpretMangleName(fileName);
    _displayFile(mangledFileName);
}

// displayraw
// 0x4621B4 op_displayraw
void opDisplayRaw(Program* program)
{
    char* fileName = programStackPopString(program);

    scriptWindowSelectId(program->windowId);

    char* mangledFileName = _interpretMangleName(fileName);
    _displayFileRaw(mangledFileName);
}

// 0x46222C interpretFadePaletteBK
static void _interpretFadePaletteBK(unsigned char* oldPalette, unsigned char* newPalette, int a3, float duration, int shouldProcessBk)
{
    unsigned int time;
    unsigned int previousTime;
    unsigned int delta;
    int step;
    int steps;
    int index;
    unsigned char palette[256 * 3];

    time = getTicks();
    previousTime = time;
    steps = (int)duration;
    step = 0;
    delta = 0;

    // TODO: Check if it needs throttling.
    if (duration != 0.0) {
        while (step < steps) {
            if (delta != 0) {
                for (index = 0; index < 768; index++) {
                    palette[index] = oldPalette[index] - (oldPalette[index] - newPalette[index]) * step / steps;
                }

                _setSystemPalette(palette);
                renderPresent();

                previousTime = time;
                step += delta;
            }

            if (shouldProcessBk) {
                _process_bk();
            }

            time = getTicks();
            delta = time - previousTime;
        }
    }

    _setSystemPalette(newPalette);
    renderPresent();
}

// NOTE: Unused.
//
// 0x462330 interpretFadePalette
static void interpretFadePalette(unsigned char* oldPalette, unsigned char* newPalette, int a3, float duration)
{
    _interpretFadePaletteBK(oldPalette, newPalette, a3, duration, 1);
}

// NOTE: Unused.
static int intlibGetFadeIn()
{
    return gIntLibIsPaletteFaded;
}

// NOTE: Inlined.
//
// 0x462348 interpretFadeOut
static void interpretFadeOut(float duration)
{
    int cursorWasHidden;

    cursorWasHidden = cursorIsHidden();
    mouseHideCursor();

    _interpretFadePaletteBK(_getSystemPalette(), gIntLibFadePalette, 64, duration, 1);

    if (!cursorWasHidden) {
        mouseShowCursor();
    }
}

// NOTE: Inlined.
//
// 0x462380 interpretFadeIn
static void interpretFadeIn(float duration)
{
    _interpretFadePaletteBK(gIntLibFadePalette, _cmap, 64, duration, 1);
}

// NOTE: Unused.
//
// 0x4623A4 interpretFadeOutNoBK
static void interpretFadeOutNoBK(float duration)
{
    int cursorWasHidden;

    cursorWasHidden = cursorIsHidden();
    mouseHideCursor();

    _interpretFadePaletteBK(_getSystemPalette(), gIntLibFadePalette, 64, duration, 0);

    if (!cursorWasHidden) {
        mouseShowCursor();
    }
}

// NOTE: Unused.
//
// 0x4623DC interpretFadeInNoBK
static void interpretFadeInNoBK(float duration)
{
    _interpretFadePaletteBK(gIntLibFadePalette, _cmap, 64, duration, 0);
}

// fadein
// 0x462400 op_fadein
void opFadeIn(Program* program)
{
    int data = programStackPopInteger(program);

    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    _setSystemPalette(gIntLibFadePalette);

    // NOTE: Uninline.
    interpretFadeIn((float)data);

    gIntLibIsPaletteFaded = true;

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// fadeout
// 0x4624B4 op_fadeout
void opFadeOut(Program* program)
{
    int data = programStackPopInteger(program);

    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    bool cursorWasHidden = cursorIsHidden();
    mouseHideCursor();

    // NOTE: Uninline.
    interpretFadeOut((float)data);

    if (!cursorWasHidden) {
        mouseShowCursor();
    }

    gIntLibIsPaletteFaded = false;

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// 0x462570 checkMovie
int intLibCheckMovie(Program* program)
{
    if (_dialogGetDialogDepth() > 0) {
        return 1;
    }

    return scriptWindowMoviePlaying();
}

// movieflags
// 0x462584 op_movieflags
static void opSetMovieFlags(Program* program)
{
    int data = programStackPopInteger(program);

    if (!scriptWindowSetMovieFlags(data)) {
        programFatalError("Error setting movie flags\n");
    }
}

// playmovie
// 0x4625D0 op_playmovie
void opPlayMovie(Program* program)
{
    char* movieFileName = programStackPopString(program);

    strcpy(gIntLibPlayMovieFileName, movieFileName);

    if (strrchr(gIntLibPlayMovieFileName, '.') == nullptr) {
        strcat(gIntLibPlayMovieFileName, ".mve");
    }

    scriptWindowSelectId(program->windowId);

    program->flags |= PROGRAM_IS_WAITING;
    program->checkWaitFunc = intLibCheckMovie;

    char* mangledFileName = _interpretMangleName(gIntLibPlayMovieFileName);
    if (!scriptWindowPlayMovie(mangledFileName)) {
        programFatalError("Error playing movie");
    }
}

// playmovierect
// 0x4626C4 op_playmovierect
void opPlayMovieRect(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* movieFileName = programStackPopString(program);

    strcpy(gIntLibPlayMovieRectFileName, movieFileName);

    if (strrchr(gIntLibPlayMovieRectFileName, '.') == nullptr) {
        strcat(gIntLibPlayMovieRectFileName, ".mve");
    }

    scriptWindowSelectId(program->windowId);

    program->checkWaitFunc = intLibCheckMovie;
    program->flags |= PROGRAM_IS_WAITING;

    char* mangledFileName = _interpretMangleName(gIntLibPlayMovieRectFileName);
    if (!scriptWindowPlayMovieRect(mangledFileName, x, y, width, height)) {
        programFatalError("Error playing movie");
    }
}

// stopmovie
// 0x46287C op_stopmovie
static void opStopMovie(Program* program)
{
    scriptWindowStopMovie();
    program->flags |= PROGRAM_FLAG_FINISHED;
}

// deleteregion
// 0x462890 op_deleteregion
static void opDeleteRegion(Program* program)
{
    ProgramValue value = programStackPopValue(program);

    switch (value.opcode & 0xF7FF) {
    case VALUE_TYPE_STRING:
        break;
    case VALUE_TYPE_INT:
        if (value.integerValue == -1) {
            break;
        }
        // FALLTHROUGH
    default:
        programFatalError("Invalid type given to deleteregion");
    }

    scriptWindowSelectId(program->windowId);

    const char* regionName = value.integerValue != -1 ? programGetString(program, value.opcode, value.integerValue) : nullptr;
    scriptWindowDeleteRegion(regionName);
}

// activateregion
// 0x462924 op_activateregion
void opActivateRegion(Program* program)
{
    int v1 = programStackPopInteger(program);
    char* regionName = programStackPopString(program);

    scriptWindowActivateRegion(regionName, v1);
}

// checkregion
// 0x4629A0 op_checkregion
static void opCheckRegion(Program* program)
{
    const char* regionName = programStackPopString(program);

    bool regionExists = scriptWindowCheckRegionExists(regionName);
    programStackPushInteger(program, regionExists);
}

// addregion
// 0x462A1C op_addregion
void opAddRegion(Program* program)
{
    int args = programStackPopInteger(program);

    if (args < 2) {
        programFatalError("addregion call without enough points!");
    }

    scriptWindowSelectId(program->windowId);

    scriptWindowStartRegion(args / 2);

    while (args >= 2) {
        int y = programStackPopInteger(program);
        int x = programStackPopInteger(program);

        y = (y * windowGetYres() + 479) / 480;
        x = (x * windowGetXres() + 639) / 640;
        args -= 2;

        scriptWindowAddRegionPoint(x, y, true);
    }

    if (args == 0) {
        programFatalError("Unnamed regions not allowed\n");
        scriptWindowEndRegion();
    } else {
        const char* regionName = programStackPopString(program);
        scriptWindowAddRegionName(regionName);
        scriptWindowEndRegion();
    }
}

// addregionproc
// 0x462C10 op_addregionproc
static void opAddRegionProc(Program* program)
{
    int v1 = programStackPopInteger(program);
    int v2 = programStackPopInteger(program);
    int v3 = programStackPopInteger(program);
    int v4 = programStackPopInteger(program);
    const char* regionName = programStackPopString(program);

    scriptWindowSelectId(program->windowId);

    if (!scriptWindowAddRegionProc(regionName, program, v4, v3, v2, v1)) {
        programFatalError("Error setting procedures to region %s\n", regionName);
    }
}

// addregionrightproc
// 0x462DDC op_addregionrightproc
static void opAddRegionRightProc(Program* program)
{
    int v1 = programStackPopInteger(program);
    int v2 = programStackPopInteger(program);
    const char* regionName = programStackPopString(program);
    scriptWindowSelectId(program->windowId);

    if (!scriptWindowAddRegionRightProc(regionName, program, v2, v1)) {
        programFatalError("Error setting right button procedures to region %s\n", regionName);
    }
}

// createwin
// 0x462F08 op_createwin
void opCreateWin(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* windowName = programStackPopString(program);

    x = (x * windowGetXres() + 639) / 640;
    y = (y * windowGetYres() + 479) / 480;
    width = (width * windowGetXres() + 639) / 640;
    height = (height * windowGetYres() + 479) / 480;

    if (scriptWindowCreate(windowName, x, y, width, height, _colorTable[0], 0) == -1) {
        programFatalError("Couldn't create window.");
    }
}

// resizewin
// 0x46308C op_resizewin
void opResizeWin(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* windowName = programStackPopString(program);

    x = (x * windowGetXres() + 639) / 640;
    y = (y * windowGetYres() + 479) / 480;
    width = (width * windowGetXres() + 639) / 640;
    height = (height * windowGetYres() + 479) / 480;

    if (scriptWindowResize(windowName, x, y, width, height) == -1) {
        programFatalError("Couldn't resize window.");
    }
}

// scalewin
// 0x463204 op_scalewin
void opScaleWin(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* windowName = programStackPopString(program);

    x = (x * windowGetXres() + 639) / 640;
    y = (y * windowGetYres() + 479) / 480;
    width = (width * windowGetXres() + 639) / 640;
    height = (height * windowGetYres() + 479) / 480;

    if (scriptWindowScale(windowName, x, y, width, height) == -1) {
        programFatalError("Couldn't scale window.");
    }
}

// deletewin
// 0x46337C op_deletewin
void opDeleteWin(Program* program)
{
    char* windowName = programStackPopString(program);

    if (!scriptWindowDelete(windowName)) {
        programFatalError("Error deleting window %s\n", windowName);
    }

    program->windowId = _popWindow();
}

// saystart
// 0x4633E4 op_saystart
static void opSayStart(Program* program)
{
    gIntLibSayStartingPosition = 0;

    program->flags |= PROGRAM_FLAG_CHILD_CALL;
    int rc = _dialogStart(program);
    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;

    if (rc != 0) {
        programFatalError("Error starting dialog.");
    }
}

// saystartpos
// 0x463430 op_saystartpos
static void opSayStartPos(Program* program)
{
    gIntLibSayStartingPosition = programStackPopInteger(program);

    program->flags |= PROGRAM_FLAG_CHILD_CALL;
    int rc = _dialogStart(program);
    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;

    if (rc != 0) {
        programFatalError("Error starting dialog.");
    }
}

// sayreplytitle
// 0x46349C op_sayreplytitle
static void opSayReplyTitle(Program* program)
{
    ProgramValue value = programStackPopValue(program);

    char* string = nullptr;
    if ((value.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        string = programGetString(program, value.opcode, value.integerValue);
    }

    if (dialogSetReplyTitle(string) != 0) {
        programFatalError("Error setting title.");
    }
}

// saygotoreply
// 0x463510 op_saygotoreply
static void opSayGoToReply(Program* program)
{
    ProgramValue value = programStackPopValue(program);

    char* string = nullptr;
    if ((value.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        string = programGetString(program, value.opcode, value.integerValue);
    }

    if (_dialogGotoReply(string) != 0) {
        programFatalError("Error during goto, couldn't find reply target %s", string);
    }
}

// sayreply
// 0x463584 op_sayoption
void opSayReply(Program* program)
{
    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    ProgramValue v3 = programStackPopValue(program);
    ProgramValue v2 = programStackPopValue(program);

    const char* v1;
    if ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v2.opcode, v2.integerValue);
    } else {
        v1 = nullptr;
    }

    if ((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        const char* v2 = programGetString(program, v3.opcode, v3.integerValue);
        if (_dialogOption(v1, v2) != 0) {
            program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
            programFatalError("Error setting option.");
        }
    } else if ((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
        if (_dialogOptionProc(v1, v3.integerValue) != 0) {
            program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
            programFatalError("Error setting option.");
        }
    } else {
        programFatalError("Invalid arg 2 to sayOption");
    }

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// sayoption
void opSayOption(Program* program)
{
    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    ProgramValue v3 = programStackPopValue(program);
    ProgramValue v4 = programStackPopValue(program);

    const char* v1;
    if ((v4.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v4.opcode, v4.integerValue);
    } else {
        v1 = nullptr;
    }

    const char* v2;
    if ((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v2 = programGetString(program, v3.opcode, v3.integerValue);
    } else {
        v2 = nullptr;
    }

    if (_dialogReply(v1, v2) != 0) {
        program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
        programFatalError("Error setting option.");
    }

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// 0x46378C checkDialog
int intLibCheckDialog(Program* program)
{
    program->flags |= PROGRAM_FLAG_FINISHED;
    return _dialogGetDialogDepth() != -1;
}

// 0x4637A4 op_sayend
void opSayEnd(Program* program)
{
    program->flags |= PROGRAM_FLAG_CHILD_CALL;
    int rc = dialogGo(gIntLibSayStartingPosition);
    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;

    if (rc == -2) {
        program->checkWaitFunc = intLibCheckDialog;
        program->flags |= PROGRAM_IS_WAITING;
    }
}

// saygetlastpos
// 0x4637EC op_saygetlastpos
static void opSayGetLastPos(Program* program)
{
    int value = _dialogGetExitPoint();
    programStackPushInteger(program, value);
}

// sayquit
// 0x463810 op_sayquit
static void opSayQuit(Program* program)
{
    if (_dialogQuit() != 0) {
        programFatalError("Error quitting option.");
    }
}

// NOTE: Unused.
//
// 0x463828 getTimeOut
static int getTimeOut()
{
    return _TimeOut;
}

// NOTE: Unused.
//
// 0x463830 setTimeOut
static void setTimeOut(int value)
{
    _TimeOut = value;
}

// saymessagetimeout
// 0x463838 op_saymessagetimeout
static void opSayMessageTimeout(Program* program)
{
    ProgramValue value = programStackPopValue(program);

    // TODO: What the hell is this?
    if ((value.opcode & VALUE_TYPE_MASK) == 0x4000) {
        programFatalError("sayMsgTimeout:  invalid var type passed.");
    }

    _TimeOut = value.integerValue;
}

// saymessage
// 0x463890 op_saymessage
void opSayMessage(Program* program)
{
    program->flags |= PROGRAM_FLAG_CHILD_CALL;

    ProgramValue v3 = programStackPopValue(program);
    ProgramValue v4 = programStackPopValue(program);

    const char* v1;
    if ((v4.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v4.opcode, v4.integerValue);
    } else {
        v1 = nullptr;
    }

    const char* v2;
    if ((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v2 = programGetString(program, v3.opcode, v3.integerValue);
    } else {
        v2 = nullptr;
    }

    if (dialogMessage(v1, v2, _TimeOut) != 0) {
        program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
        programFatalError("Error setting option.");
    }

    program->flags &= ~PROGRAM_FLAG_CHILD_CALL;
}

// gotoxy
// 0x463980 op_gotoxy
void opGotoXY(Program* program)
{
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    scriptWindowSelectId(program->windowId);

    scriptWindowGotoXY(x, y);
}

// addbuttonflag
// 0x463A38 op_addbuttonflag
static void opAddButtonFlag(Program* program)
{
    int flag = programStackPopInteger(program);
    const char* buttonName = programStackPopString(program);
    if (!scriptWindowSetButtonFlag(buttonName, flag)) {
        // NOTE: Original code calls programGetString one more time with the
        // same params.
        programFatalError("Error setting flag on button %s", buttonName);
    }
}

// addregionflag
// 0x463B10 op_addregionflag
static void opAddRegionFlag(Program* program)
{
    int flag = programStackPopInteger(program);
    const char* regionName = programStackPopString(program);
    if (!scriptWindowSetRegionFlag(regionName, flag)) {
        // NOTE: Original code calls programGetString one more time with the
        // same params.
        programFatalError("Error setting flag on region %s", regionName);
    }
}

// addbutton
// 0x463BE8 op_addbutton
void opAddButton(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* buttonName = programStackPopString(program);

    scriptWindowSelectId(program->windowId);

    height = (height * windowGetYres() + 479) / 480;
    width = (width * windowGetXres() + 639) / 640;
    y = (y * windowGetYres() + 479) / 480;
    x = (x * windowGetXres() + 639) / 640;

    scriptWindowAddButton(buttonName, x, y, width, height, 0);
}

// addbuttontext
// 0x463DF4 op_addbuttontext
void opAddButtonText(Program* program)
{
    const char* text = programStackPopString(program);
    const char* buttonName = programStackPopString(program);

    if (!scriptWindowAddButtonText(buttonName, text)) {
        programFatalError("Error setting text to button %s\n", buttonName);
    }
}

// addbuttongfx
// 0x463EEC op_addbuttongfx
void opAddButtonGfx(Program* program)
{
    ProgramValue v1 = programStackPopValue(program);
    ProgramValue v2 = programStackPopValue(program);
    ProgramValue v3 = programStackPopValue(program);
    char* buttonName = programStackPopString(program);

    if (((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING || ((v3.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v3.integerValue == 0))
        || ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING || ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v2.integerValue == 0))
        || ((v1.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING || ((v1.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v1.integerValue == 0))) {
        char* pressedFileName = _interpretMangleName(programGetString(program, v3.opcode, v3.integerValue));
        char* normalFileName = _interpretMangleName(programGetString(program, v2.opcode, v2.integerValue));
        char* hoverFileName = _interpretMangleName(programGetString(program, v1.opcode, v1.integerValue));

        scriptWindowSelectId(program->windowId);

        if (!scriptWindowAddButtonGfx(buttonName, pressedFileName, normalFileName, hoverFileName)) {
            programFatalError("Error setting graphics to button %s\n", buttonName);
        }
    } else {
        programFatalError("Invalid filename given to addbuttongfx");
    }
}

// addbuttonproc
// 0x4640DC op_addbuttonproc
static void opAddButtonProc(Program* program)
{
    int v1 = programStackPopInteger(program);
    int v2 = programStackPopInteger(program);
    int v3 = programStackPopInteger(program);
    int v4 = programStackPopInteger(program);
    const char* buttonName = programStackPopString(program);
    scriptWindowSelectId(program->windowId);

    if (!scriptWindowAddButtonProc(buttonName, program, v4, v3, v2, v1)) {
        programFatalError("Error setting procedures to button %s\n", buttonName);
    }
}

// addbuttonrightproc
// 0x4642A8 op_addbuttonrightproc
static void opAddButtonRightProc(Program* program)
{
    int v1 = programStackPopInteger(program);
    int v2 = programStackPopInteger(program);
    const char* buttonName = programStackPopString(program);
    scriptWindowSelectId(program->windowId);

    if (!scriptWindowAddButtonRightProc(buttonName, program, v2, v1)) {
        programFatalError("Error setting right button procedures to button %s\n", buttonName);
    }
}

// showwin
// 0x4643D4 op_showwin
static void opShowWin(Program* program)
{
    scriptWindowSelectId(program->windowId);
    scriptWindowDraw();
}

// deletebutton
// 0x4643E4 op_deletebutton
static void opDeleteButton(Program* program)
{
    ProgramValue value = programStackPopValue(program);

    switch (value.opcode & VALUE_TYPE_MASK) {
    case VALUE_TYPE_STRING:
        break;
    case VALUE_TYPE_INT:
        if (value.integerValue == -1) {
            break;
        }
        // FALLTHROUGH
    default:
        programFatalError("Invalid type given to delete button");
    }

    scriptWindowSelectId(program->windowId);

    if ((value.opcode & 0xF7FF) == VALUE_TYPE_INT) {
        if (scriptWindowDeleteButton(nullptr)) {
            return;
        }
    } else {
        const char* buttonName = programGetString(program, value.opcode, value.integerValue);
        if (scriptWindowDeleteButton(buttonName)) {
            return;
        }
    }

    programFatalError("Error deleting button");
}

// fillwin
// 0x46449C op_fillwin
void opFillWin(Program* program)
{
    ProgramValue b = programStackPopValue(program);
    ProgramValue g = programStackPopValue(program);
    ProgramValue r = programStackPopValue(program);

    if ((r.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((r.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (r.integerValue == 1) {
                r.floatValue = 1.0;
            } else if (r.integerValue != 0) {
                programFatalError("Invalid red value given to fillwin");
            }
        }
    }

    if ((g.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((g.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (g.integerValue == 1) {
                g.floatValue = 1.0;
            } else if (g.integerValue != 0) {
                programFatalError("Invalid green value given to fillwin");
            }
        }
    }

    if ((b.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((b.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (b.integerValue == 1) {
                b.floatValue = 1.0;
            } else if (b.integerValue != 0) {
                programFatalError("Invalid blue value given to fillwin");
            }
        }
    }

    scriptWindowSelectId(program->windowId);

    scriptWindowFill(r.floatValue, g.floatValue, b.floatValue);
}

// fillrect
// 0x4645FC op_fillrect
void opFillRect(Program* program)
{
    ProgramValue b = programStackPopValue(program);
    ProgramValue g = programStackPopValue(program);
    ProgramValue r = programStackPopValue(program);
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    if ((r.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((r.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (r.integerValue == 1) {
                r.floatValue = 1.0;
            } else if (r.integerValue != 0) {
                programFatalError("Invalid red value given to fillwin");
            }
        }
    }

    if ((g.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((g.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (g.integerValue == 1) {
                g.floatValue = 1.0;
            } else if (g.integerValue != 0) {
                programFatalError("Invalid green value given to fillwin");
            }
        }
    }

    if ((b.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT) {
        if ((b.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
            if (b.integerValue == 1) {
                b.floatValue = 1.0;
            } else if (b.integerValue != 0) {
                programFatalError("Invalid blue value given to fillwin");
            }
        }
    }

    scriptWindowSelectId(program->windowId);

    scriptWindowFillRect(x, y, width, height, r.floatValue, g.floatValue, b.floatValue);
}

// hidemouse
// 0x46489C op_hidemouse
static void opHideMouse(Program* program)
{
    mouseHideCursor();
}

// showmouse
// 0x4648A4 op_showmouse
static void opShowMouse(Program* program)
{
    mouseShowCursor();
}

// mouseshape
// 0x4648AC op_mouseshape
void opMouseShape(Program* program)
{
    int v1 = programStackPopInteger(program);
    int v2 = programStackPopInteger(program);
    char* fileName = programStackPopString(program);

    if (!mouseManagerSetMouseShape(fileName, v2, v1)) {
        programFatalError("Error loading mouse shape.");
    }
}

// setglobalmousefunc
// 0x4649C4 op_setglobalmousefunc
static void opSetGlobalMouseFunc(Program* Program)
{
    programFatalError("setglobalmousefunc not defined");
}

// displaygfx
// 0x4649D4 op_displaygfx
void opDisplayGfx(Program* program)
{
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);
    char* fileName = programStackPopString(program);

    char* mangledFileName = _interpretMangleName(fileName);
    scriptWindowDisplay(mangledFileName, x, y, width, height);
}

// loadpalettetable
// 0x464ADC op_loadpalettetable
static void opLoadPaletteTable(Program* program)
{
    char* path = programStackPopString(program);
    if (!colorPaletteLoad(path)) {
        programFatalError(_colorError());
    }
}

// addnamedevent
// 0x464B54 op_addNamedEvent
static void opAddNamedEvent(Program* program)
{
    int proc = programStackPopInteger(program);
    const char* name = programStackPopString(program);
    _nevs_addevent(name, program, proc, NEVS_TYPE_EVENT);
}

// addnamedhandler
// 0x464BE8 op_addNamedHandler
static void opAddNamedHandler(Program* program)
{
    int proc = programStackPopInteger(program);
    const char* name = programStackPopString(program);
    _nevs_addevent(name, program, proc, NEVS_TYPE_HANDLER);
}

// clearnamed
// 0x464C80 op_clearNamed
static void opClearNamed(Program* program)
{
    char* string = programStackPopString(program);
    _nevs_clearevent(string);
}

// signalnamed
// 0x464CE4 op_signalNamed
static void opSignalNamed(Program* program)
{
    char* str = programStackPopString(program);
    _nevs_signal(str);
}

// addkey
// 0x464D48 op_addkey
static void opAddKey(Program* program)
{
    int proc = programStackPopInteger(program);
    int key = programStackPopInteger(program);

    if (key == -1) {
        gIntLibGenericKeyHandlerProc = proc;
        gIntLibGenericKeyHandlerProgram = program;
    } else {
        if (key > INT_LIB_KEY_HANDLERS_CAPACITY - 1) {
            programFatalError("Key out of range");
        }

        gIntLibKeyHandlerEntries[key].program = program;
        gIntLibKeyHandlerEntries[key].proc = proc;
    }
}

// deletekey
// 0x464E24 op_deletekey
static void opDeleteKey(Program* program)
{
    int key = programStackPopInteger(program);

    if (key == -1) {
        gIntLibGenericKeyHandlerProc = 0;
        gIntLibGenericKeyHandlerProgram = nullptr;
    } else {
        if (key > INT_LIB_KEY_HANDLERS_CAPACITY - 1) {
            programFatalError("Key out of range");
        }

        gIntLibKeyHandlerEntries[key].program = nullptr;
        gIntLibKeyHandlerEntries[key].proc = 0;
    }
}

// refreshmouse
// 0x464EB0 op_refreshmouse
void opRefreshMouse(Program* program)
{
    int data = programStackPopInteger(program);

    if (!scriptWindowRefreshRegions()) {
        programExecuteProcedureAsync(program, data);
    }
}

// setfont
// 0x464F18 op_setfont
static void opSetFont(Program* program)
{
    int data = programStackPopInteger(program);

    if (!windowSetFont(data)) {
        programFatalError("Error setting font");
    }
}

// setflags
// 0x464F84 op_settextflags
static void opSetTextFlags(Program* program)
{
    int data = programStackPopInteger(program);

    if (!scriptWindowSetTextFlags(data)) {
        programFatalError("Error setting text flags");
    }
}

// settextcolor
// 0x464FF0 op_settextcolor
static void opSetTextColor(Program* program)
{
    ProgramValue value[3];

    // NOTE: Original code does not use loops.
    for (int arg = 0; arg < 3; arg++) {
        value[arg] = programStackPopValue(program);
    }

    for (int arg = 0; arg < 3; arg++) {
        if ((value[arg].opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT
            && (value[arg].opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT
            && value[arg].integerValue != 0) {
            programFatalError("Invalid type given to settextcolor");
        }
    }

    float r = value[2].floatValue;
    float g = value[1].floatValue;
    float b = value[0].floatValue;

    if (!scriptWindowSetTextColor(r, g, b)) {
        programFatalError("Error setting text color");
    }
}

// sayoptioncolor
// 0x465140 op_sayoptioncolor
static void opSayOptionColor(Program* program)
{
    ProgramValue value[3];

    // NOTE: Original code does not use loops.
    for (int arg = 0; arg < 3; arg++) {
        value[arg] = programStackPopValue(program);
    }

    for (int arg = 0; arg < 3; arg++) {
        if ((value[arg].opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT
            && (value[arg].opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT
            && value[arg].integerValue != 0) {
            programFatalError("Invalid type given to sayoptioncolor");
        }
    }

    float r = value[2].floatValue;
    float g = value[1].floatValue;
    float b = value[0].floatValue;

    if (dialogSetOptionColor(r, g, b)) {
        programFatalError("Error setting option color");
    }
}

// sayreplycolor
// 0x465290 op_sayreplycolor
static void opSayReplyColor(Program* program)
{
    ProgramValue value[3];

    // NOTE: Original code does not use loops.
    for (int arg = 0; arg < 3; arg++) {
        value[arg] = programStackPopValue(program);
    }

    for (int arg = 0; arg < 3; arg++) {
        if ((value[arg].opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT
            && (value[arg].opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT
            && value[arg].integerValue != 0) {
            programFatalError("Invalid type given to sayreplycolor");
        }
    }

    float r = value[2].floatValue;
    float g = value[1].floatValue;
    float b = value[0].floatValue;

    if (dialogSetReplyColor(r, g, b) != 0) {
        programFatalError("Error setting reply color");
    }
}

// sethighlightcolor
// 0x4653E0 op_sethighlightcolor
static void opSetHighlightColor(Program* program)
{
    ProgramValue value[3];

    // NOTE: Original code does not use loops.
    for (int arg = 0; arg < 3; arg++) {
        value[arg] = programStackPopValue(program);
    }

    for (int arg = 0; arg < 3; arg++) {
        if ((value[arg].opcode & VALUE_TYPE_MASK) != VALUE_TYPE_FLOAT
            && (value[arg].opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT
            && value[arg].integerValue != 0) {
            programFatalError("Invalid type given to sayreplycolor");
        }
    }

    float r = value[2].floatValue;
    float g = value[1].floatValue;
    float b = value[0].floatValue;

    if (!scriptWindowSetHighlightColor(r, g, b)) {
        programFatalError("Error setting text highlight color");
    }
}

// sayreplywindow
// 0x465530 op_sayreplywindow
void opSayReplyWindow(Program* program)
{
    ProgramValue v2 = programStackPopValue(program);
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    char* v1;
    if ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v2.opcode, v2.integerValue);
        v1 = _interpretMangleName(v1);
        v1 = strdup_safe(v1, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1510
    } else if ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v2.integerValue == 0) {
        v1 = nullptr;
    } else {
        programFatalError("Invalid arg 5 given to sayreplywindow");
    }

    if (dialogSetReplyWindow(x, y, width, height, v1) != 0) {
        programFatalError("Error setting reply window");
    }
}

// sayreplyflags
// 0x465688 op_sayreplyflags
static void opSayReplyFlags(Program* program)
{
    int data = programStackPopInteger(program);

    if (!_dialogSetOptionFlags(data)) {
        programFatalError("Error setting reply flags");
    }
}

// sayoptionflags
// 0x4656F4 op_sayoptionflags
static void opSayOptionFlags(Program* program)
{
    int data = programStackPopInteger(program);

    if (!_dialogSetOptionFlags(data)) {
        programFatalError("Error setting option flags");
    }
}

// sayoptionwindow
// 0x465760 op_sayoptionwindow
void opSayOptionWindow(Program* program)
{
    ProgramValue v2 = programStackPopValue(program);
    int height = programStackPopInteger(program);
    int width = programStackPopInteger(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    char* v1;
    if ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v2.opcode, v2.integerValue);
        v1 = _interpretMangleName(v1);
        v1 = strdup_safe(v1, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1556
    } else if ((v2.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v2.integerValue == 0) {
        v1 = nullptr;
    } else {
        programFatalError("Invalid arg 5 given to sayoptionwindow");
    }

    if (dialogSetOptionWindow(x, y, width, height, v1) != 0) {
        programFatalError("Error setting option window");
    }
}

// sayborder
// 0x4658B8 op_sayborder
static void opSayBorder(Program* program)
{
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    if (dialogSetBorder(x, y) != 0) {
        programFatalError("Error setting dialog border");
    }
}

// sayscrollup
// 0x465978 op_sayscrollup
void opSayScrollUp(Program* program)
{
    ProgramValue v6 = programStackPopValue(program);
    ProgramValue v7 = programStackPopValue(program);
    ProgramValue v8 = programStackPopValue(program);
    ProgramValue v9 = programStackPopValue(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    char* v1 = nullptr;
    char* v2 = nullptr;
    char* v3 = nullptr;
    char* v4 = nullptr;
    int v5 = 0;

    if ((v6.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
        if (v6.integerValue != -1 && v6.integerValue != 0) {
            programFatalError("Invalid arg 4 given to sayscrollup");
        }

        if (v6.integerValue == -1) {
            v5 = 1;
        }
    } else {
        if ((v6.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING) {
            programFatalError("Invalid arg 4 given to sayscrollup");
        }
    }

    if ((v7.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v7.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v7.integerValue != 0) {
        programFatalError("Invalid arg 3 given to sayscrollup");
    }

    if ((v8.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v8.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v8.integerValue != 0) {
        programFatalError("Invalid arg 2 given to sayscrollup");
    }

    if ((v9.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v9.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v9.integerValue != 0) {
        programFatalError("Invalid arg 1 given to sayscrollup");
    }

    if ((v9.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v9.opcode, v9.integerValue);
        v1 = _interpretMangleName(v1);
        v1 = strdup_safe(v1, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1611
    }

    if ((v8.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v2 = programGetString(program, v8.opcode, v8.integerValue);
        v2 = _interpretMangleName(v2);
        v2 = strdup_safe(v2, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1613
    }

    if ((v7.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v3 = programGetString(program, v7.opcode, v7.integerValue);
        v3 = _interpretMangleName(v3);
        v3 = strdup_safe(v3, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1615
    }

    if ((v6.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v4 = programGetString(program, v6.opcode, v6.integerValue);
        v4 = _interpretMangleName(v4);
        v4 = strdup_safe(v4, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1617
    }

    if (_dialogSetScrollUp(x, y, v1, v2, v3, v4, v5) != 0) {
        programFatalError("Error setting scroll up");
    }
}

// sayscrolldown
// 0x465CAC op_sayscrolldown
void opSayScrollDown(Program* program)
{
    ProgramValue v6 = programStackPopValue(program);
    ProgramValue v7 = programStackPopValue(program);
    ProgramValue v8 = programStackPopValue(program);
    ProgramValue v9 = programStackPopValue(program);
    int y = programStackPopInteger(program);
    int x = programStackPopInteger(program);

    char* v1 = nullptr;
    char* v2 = nullptr;
    char* v3 = nullptr;
    char* v4 = nullptr;
    int v5 = 0;

    if ((v6.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT) {
        if (v6.integerValue != -1 && v6.integerValue != 0) {
            // FIXME: Wrong function name, should be sayscrolldown.
            programFatalError("Invalid arg 4 given to sayscrollup");
        }

        if (v6.integerValue == -1) {
            v5 = 1;
        }
    } else {
        if ((v6.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING) {
            // FIXME: Wrong function name, should be sayscrolldown.
            programFatalError("Invalid arg 4 given to sayscrollup");
        }
    }

    if ((v7.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v7.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v7.integerValue != 0) {
        programFatalError("Invalid arg 3 given to sayscrolldown");
    }

    if ((v8.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v8.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v8.integerValue != 0) {
        programFatalError("Invalid arg 2 given to sayscrolldown");
    }

    if ((v9.opcode & VALUE_TYPE_MASK) != VALUE_TYPE_STRING && (v9.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_INT && v9.integerValue != 0) {
        programFatalError("Invalid arg 1 given to sayscrolldown");
    }

    if ((v9.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v1 = programGetString(program, v9.opcode, v9.integerValue);
        v1 = _interpretMangleName(v1);
        v1 = strdup_safe(v1, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1652
    }

    if ((v8.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v2 = programGetString(program, v8.opcode, v8.integerValue);
        v2 = _interpretMangleName(v2);
        v2 = strdup_safe(v2, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1654
    }

    if ((v7.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v3 = programGetString(program, v7.opcode, v7.integerValue);
        v3 = _interpretMangleName(v3);
        v3 = strdup_safe(v3, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1656
    }

    if ((v6.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
        v4 = programGetString(program, v6.opcode, v6.integerValue);
        v4 = _interpretMangleName(v4);
        v4 = strdup_safe(v4, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1658
    }

    if (_dialogSetScrollDown(x, y, v1, v2, v3, v4, v5) != 0) {
        programFatalError("Error setting scroll down");
    }
}

// saysetspacing
// 0x465FE0 op_saysetspacing
static void opSaySetSpacing(Program* program)
{
    int data = programStackPopInteger(program);

    if (dialogSetOptionSpacing(data) != 0) {
        programFatalError("Error setting option spacing");
    }
}

// sayrestart
// 0x46604C op_sayrestart
static void opSayRestart(Program* program)
{
    if (_dialogRestart() != 0) {
        programFatalError("Error restarting option");
    }
}

// 0x466064 soundCallbackInterpret
static void intLibSoundCallback(void* userData, int event)
{
    if (event == SOUND_CALLBACK_EVENT_DONE) {
        Sound** sound = (Sound**)userData;
        *sound = nullptr;
    }
}

// 0x466070 soundDeleteInterpret
static int intLibSoundDelete(int value)
{
    if (value == -1) {
        return 1;
    }

    if ((value & 0xA0000000) == 0) {
        return 0;
    }

    int index = value & ~0xA0000000;
    Sound* sound = gIntLibSounds[index];
    if (sound == nullptr) {
        return 0;
    }

    if (soundIsPlaying(sound)) {
        soundStop(sound);
    }

    soundDelete(sound);

    gIntLibSounds[index] = nullptr;

    return 1;
}

// 0x466110 soundStartInterpret
static int intLibSoundPlay(char* fileName, int mode)
{
    int type = SOUND_TYPE_MEMORY;
    int soundFlags = 0;

    if (mode & 0x01) {
        soundFlags |= SOUND_LOOPING;
    } else {
        type |= SOUND_TYPE_FIRE_AND_FORGET;
    }

    if (mode & 0x02) {
        soundFlags |= SOUND_16BIT;
    } else {
        soundFlags |= SOUND_8BIT;
    }

    if (mode & 0x0100) {
        type &= ~(SOUND_TYPE_MEMORY | SOUND_TYPE_STREAMING);
        type |= SOUND_TYPE_MEMORY;
    }

    if (mode & 0x0200) {
        type &= ~(SOUND_TYPE_MEMORY | SOUND_TYPE_STREAMING);
        type |= SOUND_TYPE_STREAMING;
    }

    int index;
    for (index = 0; index < INT_LIB_SOUNDS_CAPACITY; index++) {
        if (gIntLibSounds[index] == nullptr) {
            break;
        }
    }

    if (index == INT_LIB_SOUNDS_CAPACITY) {
        return -1;
    }

    Sound* sound = gIntLibSounds[index] = soundAllocate(type, soundFlags);
    if (sound == nullptr) {
        return -1;
    }

    soundSetCallback(sound, intLibSoundCallback, &(gIntLibSounds[index]));

    if (mode & 0x01) {
        soundSetLooping(sound, 0xFFFF);
    }

    if (mode & 0x1000) {
        // mono
        soundSetChannels(sound, 2);
    }

    if (mode & 0x2000) {
        // stereo
        soundSetChannels(sound, 3);
    }

    int rc = soundLoad(sound, fileName);
    if (rc != SOUND_NO_ERROR) {
        goto err;
    }

    rc = soundPlay(sound);

    // TODO: Maybe wrong.
    switch (rc) {
    case SOUND_NO_DEVICE:
        debugPrint("soundPlay error: %s\n", "SOUND_NO_DEVICE");
        goto err;
    case SOUND_NOT_INITIALIZED:
        debugPrint("soundPlay error: %s\n", "SOUND_NOT_INITIALIZED");
        goto err;
    case SOUND_NO_SOUND:
        debugPrint("soundPlay error: %s\n", "SOUND_NO_SOUND");
        goto err;
    case SOUND_FUNCTION_NOT_SUPPORTED:
        debugPrint("soundPlay error: %s\n", "SOUND_FUNC_NOT_SUPPORTED");
        goto err;
    case SOUND_NO_BUFFERS_AVAILABLE:
        debugPrint("soundPlay error: %s\n", "SOUND_NO_BUFFERS_AVAILABLE");
        goto err;
    case SOUND_FILE_NOT_FOUND:
        debugPrint("soundPlay error: %s\n", "SOUND_FILE_NOT_FOUND");
        goto err;
    case SOUND_ALREADY_PLAYING:
        debugPrint("soundPlay error: %s\n", "SOUND_ALREADY_PLAYING");
        goto err;
    case SOUND_NOT_PLAYING:
        debugPrint("soundPlay error: %s\n", "SOUND_NOT_PLAYING");
        goto err;
    case SOUND_ALREADY_PAUSED:
        debugPrint("soundPlay error: %s\n", "SOUND_ALREADY_PAUSED");
        goto err;
    case SOUND_NOT_PAUSED:
        debugPrint("soundPlay error: %s\n", "SOUND_NOT_PAUSED");
        goto err;
    case SOUND_INVALID_HANDLE:
        debugPrint("soundPlay error: %s\n", "SOUND_INVALID_HANDLE");
        goto err;
    case SOUND_NO_MEMORY_AVAILABLE:
        debugPrint("soundPlay error: %s\n", "SOUND_NO_MEMORY");
        goto err;
    case SOUND_UNKNOWN_ERROR:
        debugPrint("soundPlay error: %s\n", "SOUND_ERROR");
        goto err;
    }

    return index | 0xA0000000;

err:

    soundDelete(sound);
    gIntLibSounds[index] = nullptr;
    return -1;
}

// 0x46655C soundPauseInterpret
static int intLibSoundPause(int value)
{
    if (value == -1) {
        return 1;
    }

    if ((value & 0xA0000000) == 0) {
        return 0;
    }

    int index = value & ~0xA0000000;
    Sound* sound = gIntLibSounds[index];
    if (sound == nullptr) {
        return 0;
    }

    int rc;
    if (_soundType(sound, SOUND_TYPE_MEMORY)) {
        rc = soundStop(sound);
    } else {
        rc = soundPause(sound);
    }
    return rc == SOUND_NO_ERROR;
}

// 0x4665C8 soundRewindInterpret
static int intLibSoundRewind(int value)
{
    if (value == -1) {
        return 1;
    }

    if ((value & 0xA0000000) == 0) {
        return 0;
    }

    int index = value & ~0xA0000000;
    Sound* sound = gIntLibSounds[index];
    if (sound == nullptr) {
        return 0;
    }

    if (!soundIsPlaying(sound)) {
        return 1;
    }

    soundStop(sound);

    return soundPlay(sound) == SOUND_NO_ERROR;
}

// 0x46662C soundUnpauseInterpret
static int intLibSoundResume(int value)
{
    if (value == -1) {
        return 1;
    }

    if ((value & 0xA0000000) == 0) {
        return 0;
    }

    int index = value & ~0xA0000000;
    Sound* sound = gIntLibSounds[index];
    if (sound == nullptr) {
        return 0;
    }

    int rc;
    if (_soundType(sound, SOUND_TYPE_MEMORY)) {
        rc = soundPlay(sound);
    } else {
        rc = soundResume(sound);
    }
    return rc == SOUND_NO_ERROR;
}

// soundplay
// 0x466698 op_soundplay
static void opSoundPlay(Program* program)
{
    int flags = programStackPopInteger(program);
    char* fileName = programStackPopString(program);

    char* mangledFileName = _interpretMangleName(fileName);
    int rc = intLibSoundPlay(mangledFileName, flags);

    programStackPushInteger(program, rc);
}

// soundpause
// 0x466768 op_soundpause
static void opSoundPause(Program* program)
{
    int data = programStackPopInteger(program);
    intLibSoundPause(data);
}

// soundresume
// 0x4667C0 op_soundresume
static void opSoundResume(Program* program)
{
    int data = programStackPopInteger(program);
    intLibSoundResume(data);
}

// soundstop
// 0x466818 op_soundstop
static void opSoundStop(Program* program)
{
    int data = programStackPopInteger(program);
    intLibSoundPause(data);
}

// soundrewind
// 0x466870 op_soundrewind
static void opSoundRewind(Program* program)
{
    int data = programStackPopInteger(program);
    intLibSoundRewind(data);
}

// sounddelete
// 0x4668C8 op_sounddelete
static void opSoundDelete(Program* program)
{
    int data = programStackPopInteger(program);
    intLibSoundDelete(data);
}

// SetOneOptPause
// 0x466920 op_setoneoptpause
static void opSetOneOptPause(Program* program)
{
    int data = programStackPopInteger(program);

    if (data) {
        if ((_dialogGetMediaFlag() & 8) == 0) {
            return;
        }
    } else {
        if ((_dialogGetMediaFlag() & 8) != 0) {
            return;
        }
    }

    _dialogToggleMediaFlag(8);
}

// 0x466994 updateIntLib
void intLibUpdate()
{
    _nevs_update();
    intExtraUpdate();
}

// 0x4669A0 intlibClose
void intLibExit()
{
    _dialogClose();
    _intExtraClose_();

    for (int index = 0; index < INT_LIB_SOUNDS_CAPACITY; index++) {
        if (gIntLibSounds[index] != nullptr) {
            intLibSoundDelete(index | 0xA0000000);
        }
    }

    _nevs_close();

    if (gIntLibProgramDeleteCallbacks != nullptr) {
        internal_free_safe(gIntLibProgramDeleteCallbacks, __FILE__, __LINE__); // "..\\int\\INTLIB.C", 1976
        gIntLibProgramDeleteCallbacks = nullptr;
        gIntLibProgramDeleteCallbacksLength = 0;
    }
}

// 0x466A04 intLibDoInput
static bool intLibDoInput(int key)
{
    if (key < 0 || key >= INT_LIB_KEY_HANDLERS_CAPACITY) {
        return false;
    }

    if (gIntLibGenericKeyHandlerProgram != nullptr) {
        if (gIntLibGenericKeyHandlerProc != 0) {
            programExecuteProcedureAsync(gIntLibGenericKeyHandlerProgram, gIntLibGenericKeyHandlerProc);
        }
        return true;
    }

    IntLibKeyHandlerEntry* entry = &(gIntLibKeyHandlerEntries[key]);
    if (entry->program == nullptr) {
        return false;
    }

    if (entry->proc != 0) {
        programExecuteProcedureAsync(entry->program, entry->proc);
    }

    return true;
}

// 0x466A70 initIntlib
void intLibInit()
{
    scriptWindowAddInputFunc(intLibDoInput);

    interpreterRegisterOpcode(0x806A, opFillWin3x3);
    interpreterRegisterOpcode(0x808C, opDeleteButton);
    interpreterRegisterOpcode(0x8086, opAddButton);
    interpreterRegisterOpcode(0x8088, opAddButtonFlag);
    interpreterRegisterOpcode(0x8087, opAddButtonText);
    interpreterRegisterOpcode(0x8089, opAddButtonGfx);
    interpreterRegisterOpcode(0x808A, opAddButtonProc);
    interpreterRegisterOpcode(0x808B, opAddButtonRightProc);
    interpreterRegisterOpcode(0x8067, opShowWin);
    interpreterRegisterOpcode(0x8068, opFillWin);
    interpreterRegisterOpcode(0x8069, opFillRect);
    interpreterRegisterOpcode(0x8072, opPrint);
    interpreterRegisterOpcode(0x8073, opFormat);
    interpreterRegisterOpcode(0x8074, opPrintRect);
    interpreterRegisterOpcode(0x8075, opSetFont);
    interpreterRegisterOpcode(0x8076, opSetTextFlags);
    interpreterRegisterOpcode(0x8077, opSetTextColor);
    interpreterRegisterOpcode(0x8078, opSetHighlightColor);
    interpreterRegisterOpcode(0x8064, opSelect);
    interpreterRegisterOpcode(0x806B, opDisplay);
    interpreterRegisterOpcode(0x806D, opDisplayRaw);
    interpreterRegisterOpcode(0x806C, opDisplayGfx);
    interpreterRegisterOpcode(0x806F, opFadeIn);
    interpreterRegisterOpcode(0x8070, opFadeOut);
    interpreterRegisterOpcode(0x807A, opPlayMovie);
    interpreterRegisterOpcode(0x807B, opSetMovieFlags);
    interpreterRegisterOpcode(0x807C, opPlayMovieRect);
    interpreterRegisterOpcode(0x8079, opStopMovie);
    interpreterRegisterOpcode(0x807F, opAddRegion);
    interpreterRegisterOpcode(0x8080, opAddRegionFlag);
    interpreterRegisterOpcode(0x8081, opAddRegionProc);
    interpreterRegisterOpcode(0x8082, opAddRegionRightProc);
    interpreterRegisterOpcode(0x8083, opDeleteRegion);
    interpreterRegisterOpcode(0x8084, opActivateRegion);
    interpreterRegisterOpcode(0x8085, opCheckRegion);
    interpreterRegisterOpcode(0x8062, opCreateWin);
    interpreterRegisterOpcode(0x8063, opDeleteWin);
    interpreterRegisterOpcode(0x8065, opResizeWin);
    interpreterRegisterOpcode(0x8066, opScaleWin);
    interpreterRegisterOpcode(0x804E, opSayStart);
    interpreterRegisterOpcode(0x804F, opSayStartPos);
    interpreterRegisterOpcode(0x8050, opSayReplyTitle);
    interpreterRegisterOpcode(0x8051, opSayGoToReply);
    interpreterRegisterOpcode(0x8053, opSayReply);
    interpreterRegisterOpcode(0x8052, opSayOption);
    interpreterRegisterOpcode(0x804D, opSayEnd);
    interpreterRegisterOpcode(0x804C, opSayQuit);
    interpreterRegisterOpcode(0x8054, opSayMessage);
    interpreterRegisterOpcode(0x8055, opSayReplyWindow);
    interpreterRegisterOpcode(0x8056, opSayOptionWindow);
    interpreterRegisterOpcode(0x805F, opSayReplyFlags);
    interpreterRegisterOpcode(0x8060, opSayOptionFlags);
    interpreterRegisterOpcode(0x8057, opSayBorder);
    interpreterRegisterOpcode(0x8058, opSayScrollUp);
    interpreterRegisterOpcode(0x8059, opSayScrollDown);
    interpreterRegisterOpcode(0x805A, opSaySetSpacing);
    interpreterRegisterOpcode(0x805B, opSayOptionColor);
    interpreterRegisterOpcode(0x805C, opSayReplyColor);
    interpreterRegisterOpcode(0x805D, opSayRestart);
    interpreterRegisterOpcode(0x805E, opSayGetLastPos);
    interpreterRegisterOpcode(0x8061, opSayMessageTimeout);
    interpreterRegisterOpcode(0x8071, opGotoXY);
    interpreterRegisterOpcode(0x808D, opHideMouse);
    interpreterRegisterOpcode(0x808E, opShowMouse);
    interpreterRegisterOpcode(0x8090, opRefreshMouse);
    interpreterRegisterOpcode(0x808F, opMouseShape);
    interpreterRegisterOpcode(0x8091, opSetGlobalMouseFunc);
    interpreterRegisterOpcode(0x806E, opLoadPaletteTable);
    interpreterRegisterOpcode(0x8092, opAddNamedEvent);
    interpreterRegisterOpcode(0x8093, opAddNamedHandler);
    interpreterRegisterOpcode(0x8094, opClearNamed);
    interpreterRegisterOpcode(0x8095, opSignalNamed);
    interpreterRegisterOpcode(0x8096, opAddKey);
    interpreterRegisterOpcode(0x8097, opDeleteKey);
    interpreterRegisterOpcode(0x8098, opSoundPlay);
    interpreterRegisterOpcode(0x8099, opSoundPause);
    interpreterRegisterOpcode(0x809A, opSoundResume);
    interpreterRegisterOpcode(0x809B, opSoundStop);
    interpreterRegisterOpcode(0x809C, opSoundRewind);
    interpreterRegisterOpcode(0x809D, opSoundDelete);
    interpreterRegisterOpcode(0x809E, opSetOneOptPause);
    interpreterRegisterOpcode(0x809F, opSelectFileList);
    interpreterRegisterOpcode(0x80A0, opTokenize);

    _nevs_initonce();
    _initIntExtra();
    dialogInit();
}

// 0x466F6C interpretRegisterProgramDeleteCallback
void intLibRegisterProgramDeleteCallback(IntLibProgramDeleteCallback* callback)
{
    int index;
    for (index = 0; index < gIntLibProgramDeleteCallbacksLength; index++) {
        if (gIntLibProgramDeleteCallbacks[index] == nullptr) {
            break;
        }
    }

    if (index == gIntLibProgramDeleteCallbacksLength) {
        if (gIntLibProgramDeleteCallbacks != nullptr) {
            gIntLibProgramDeleteCallbacks = (IntLibProgramDeleteCallback**)internal_realloc_safe(gIntLibProgramDeleteCallbacks, sizeof(*gIntLibProgramDeleteCallbacks) * (gIntLibProgramDeleteCallbacksLength + 1), __FILE__, __LINE__); // ..\\int\\INTLIB.C, 2110
        } else {
            gIntLibProgramDeleteCallbacks = (IntLibProgramDeleteCallback**)internal_malloc_safe(sizeof(*gIntLibProgramDeleteCallbacks), __FILE__, __LINE__); // ..\\int\\INTLIB.C, 2112
        }
        gIntLibProgramDeleteCallbacksLength++;
    }

    gIntLibProgramDeleteCallbacks[index] = callback;
}

// 0x467040 removeProgramReferences_1
void intLibRemoveProgramReferences(Program* program)
{
    for (int index = 0; index < INT_LIB_KEY_HANDLERS_CAPACITY; index++) {
        if (program == gIntLibKeyHandlerEntries[index].program) {
            gIntLibKeyHandlerEntries[index].program = nullptr;
        }
    }

    intExtraRemoveProgramReferences(program);

    for (int index = 0; index < gIntLibProgramDeleteCallbacksLength; index++) {
        IntLibProgramDeleteCallback* callback = gIntLibProgramDeleteCallbacks[index];
        if (callback != nullptr) {
            callback(program);
        }
    }
}

} // namespace fallout