#include <assert.h>

#include "MM7.h"

#include "MapInfo.h"
#include "Game.h"
#include "GUIWindow.h"
#include "GUIFont.h"
#include "GUIProgressBar.h"
#include "Party.h"
#include "AudioPlayer.h"
#include "Outdoor.h"
#include "IndoorCamera.h"
#include "Overlays.h"
#include "Monsters.h"
#include "Arcomage.h"
#include "LOD.h"
#include "Actor.h"
#include "Allocator.h"
#include "Events.h"
#include "Viewport.h"
#include "FrameTableInc.h"
#include "Math.h"
#include "SpriteObject.h"
#include "ObjectList.h"
#include "Chest.h"
#include "PaletteManager.h"
#include "DecorationList.h"
#include "SaveLoad.h"
#include "stru123.h"
#include "Time.h"
#include "IconFrameTable.h"
#include "Awards.h"
#include "Autonotes.h"
#include "stru160.h"
#include "stru279.h"
#include "TurnEngine.h"
#include "stru277.h"
#include "Weather.h"
#include "stru272.h"
#include "stru298.h"
#include "StorylineTextTable.h"
#include "Events2D.h"
#include "texts.h"
#include "stru351.h"

#include "mm7_data.h"



//----- (0041B578) --------------------------------------------------------
void __cdecl MainMenuUI_LoadFontsAndSomeStuff()
    {
    pIcons_LOD->SetupPalettes(pRenderer->uTargetRBits,
        pRenderer->uTargetGBits,
        pRenderer->uTargetBBits);
    pPaletteManager->SetColorChannelInfo(pRenderer->uTargetRBits,
        pRenderer->uTargetGBits,
        pRenderer->uTargetBBits);
    pPaletteManager->RecalculateAll();

    for (uint i = 0; i < 480; ++i)
        pSRZBufferLineOffsets[i] = 640 * i;

    pRenderer->ResetTextureClipRect();

    uTextureID_FONTPAL = pIcons_LOD->LoadTexture("FONTPAL", TEXTURE_16BIT_PALETTE);
    pFontArrus = LoadFont("arrus.fnt", "FONTPAL", NULL);
    pFontLucida = LoadFont("lucida.fnt", "FONTPAL", NULL);
    pFontCreate = LoadFont("create.fnt", "FONTPAL", NULL);
    pFontSmallnum = LoadFont("smallnum.fnt", "FONTPAL", NULL);
    pFontComic = LoadFont("comic.fnt", "FONTPAL", NULL);
    pFontArrus->field_3 = 0;
    pFontLucida->field_3 = 0;
    pFontCreate->field_3 = 0;

    for (uint i = 0; i < 20; ++i)
        pWindowList[i].eWindowType = WINDOW_null;

    uNumVisibleWindows = -1;
    memset(pVisibleWindowsIdxs, 0, sizeof(pVisibleWindowsIdxs));
    }

//----- (0041B690) --------------------------------------------------------
void __cdecl MainMenuUI_Create()
    {
    //unsigned int v0; // eax@1
    //unsigned int v1; // eax@1
    //unsigned int v2; // eax@1
    //unsigned int v3; // eax@1
    //unsigned int v4; // eax@1
    //unsigned int v5; // eax@1
    Texture *v6; // ST78_4@1
    //const char *v7; // ST5C_4@1
    unsigned __int8 v8; // al@1
    //Texture *v9; // ST60_4@1
    Texture *v10; // ST78_4@1
    //const char *v11; // ST5C_4@1
    unsigned __int8 v12; // al@1
    //Texture *v13; // ST60_4@1
    unsigned int v14; // eax@1
    Texture *v15; // ST78_4@1
    //const char *v16; // ST5C_4@1
    unsigned __int8 v17; // al@1
    //Texture *v18; // ST60_4@1
    unsigned int uTextureID_ib_td4_A; // eax@1
    Texture *v20; // ST78_4@1
    unsigned __int8 v22; // al@1
    //Texture *v23; // ST60_4@1
    Texture *v24; // eax@1
    //Texture *v25; // esi@1
    //Texture *v26; // ST60_4@1
    //const char *v27; // ST5C_4@1
    unsigned __int8 v28; // al@1
    Texture *v29; // eax@1
    //Texture *v30; // esi@1
    //Texture *v31; // ST60_4@1
    //const char *v32; // ST5C_4@1
    unsigned __int8 v33; // al@1

    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("wizeyeC"));
    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("wizeyeB"));
    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("wizeyeA"));
    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("torchC"));
    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("torchB"));
    pIconsFrameTable->InitializeAnimation(pIconsFrameTable->FindIcon("torchA"));

    pTextureIDs_pMapDirs[0] = pIcons_LOD->LoadTexture("MAPDIR8", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[1] = pIcons_LOD->LoadTexture("MAPDIR1", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[2] = pIcons_LOD->LoadTexture("MAPDIR2", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[3] = pIcons_LOD->LoadTexture("MAPDIR3", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[4] = pIcons_LOD->LoadTexture("MAPDIR4", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[5] = pIcons_LOD->LoadTexture("MAPDIR5", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[6] = pIcons_LOD->LoadTexture("MAPDIR6", TEXTURE_16BIT_PALETTE);
    pTextureIDs_pMapDirs[7] = pIcons_LOD->LoadTexture("MAPDIR7", TEXTURE_16BIT_PALETTE);

    uTextureID_BarBlue = pIcons_LOD->LoadTexture("ib-statB", TEXTURE_16BIT_PALETTE);
    uTextureID_BarGreen = pIcons_LOD->LoadTexture("ib-statG", TEXTURE_16BIT_PALETTE);
    uTextureID_BarYellow = pIcons_LOD->LoadTexture("ib-statY", TEXTURE_16BIT_PALETTE);
    uTextureID_BarRed = pIcons_LOD->LoadTexture("ib-statR", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_bd = pIcons_LOD->LoadTexture("mhp_bg", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_capl = pIcons_LOD->LoadTexture("mhp_capl", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_capr = pIcons_LOD->LoadTexture("mhp_capr", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_grn = pIcons_LOD->LoadTexture("mhp_grn", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_red = pIcons_LOD->LoadTexture("mhp_red", TEXTURE_16BIT_PALETTE);
    uTextureID_mhp_yel = pIcons_LOD->LoadTexture("mhp_yel", TEXTURE_16BIT_PALETTE);
    uTextureID_Leather = pIcons_LOD->LoadTexture("LEATHER", TEXTURE_16BIT_PALETTE);
    pTexture_Leather = &pIcons_LOD->pTextures[pIcons_LOD->LoadTexture("ibground", TEXTURE_16BIT_PALETTE)];
    uTextureID_x_x_u = pIcons_LOD->LoadTexture("x_x_u", TEXTURE_16BIT_PALETTE);
    uTextureID_BUTTDESC2 = pIcons_LOD->LoadTexture("BUTTESC2", TEXTURE_16BIT_PALETTE);
    uTextureID_x_ok_u = pIcons_LOD->LoadTexture("x_ok_u", TEXTURE_16BIT_PALETTE);
    uTextureID_BUTTYES2 = pIcons_LOD->LoadTexture("BUTTYES2", TEXTURE_16BIT_PALETTE);
    uTextureID_BUTTMAKE = pIcons_LOD->LoadTexture("BUTTMAKE", TEXTURE_16BIT_PALETTE);
    uTextureID_BUTTMAKE2 = pIcons_LOD->LoadTexture("BUTTMAKE2", TEXTURE_16BIT_PALETTE);

    pPrimaryWindow = GUIWindow::Create(0, 0, 640, 480, WINDOW_MainMenu, 0, 0);
    pPrimaryWindow->CreateButton(7u, 8u, 0x1CCu, 0x157u, 1, 0, UIMSG_A, 0, 0, "", 0);
    pPrimaryWindow->CreateButton(0x3Du, 0x1A8u, 0x1Fu, 0x28u, 2, 94, UIMSG_SelectCharacter, 1, 0x31u, "", 0);
    pPrimaryWindow->CreateButton(0xB1u, 0x1A8u, 0x1Fu, 0x28u, 2, 94, UIMSG_SelectCharacter, 2, 0x32u, "", 0);
    pPrimaryWindow->CreateButton(0x124u, 0x1A8u, 0x1Fu, 0x28u, 2, 94, UIMSG_SelectCharacter, 3, 0x33u, "", 0);
    pPrimaryWindow->CreateButton(0x197u, 0x1A8u, 0x1Fu, 0x28u, 2, 94, UIMSG_SelectCharacter, 4, 0x34u, "", 0);
    pPrimaryWindow->CreateButton(0x18u, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 1u, 0, "", 0);
    pPrimaryWindow->CreateButton(0x8Bu, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 2u, 0, "", 0);
    pPrimaryWindow->CreateButton(0xFFu, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 3u, 0, "", 0);
    pPrimaryWindow->CreateButton(0x172u, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 4u, 0, "", 0);
    pPrimaryWindow->CreateButton(0x61u, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 1u, 0, "", 0);
    pPrimaryWindow->CreateButton(0xD4u, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 2u, 0, "", 0);
    pPrimaryWindow->CreateButton(0x148u, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 3u, 0, "", 0);
    pPrimaryWindow->CreateButton(0x1BBu, 0x194u, 5u, 0x31u, 1, 93, UIMSG_0, 4u, 0, "", 0);

    uTextureID_ib_td1_A = pIcons_LOD->LoadTexture("ib-td1-A", TEXTURE_16BIT_PALETTE);
    v6 = (Texture *)(uTextureID_ib_td1_A != -1 ? &pIcons_LOD->pTextures[uTextureID_ib_td1_A] : 0);
    v8 = pKeyActionMap->GetActionVKey(INPUT_Quest);
    pBtn_Quests = pPrimaryWindow->CreateButton(0x1EBu, 0x161u, v6->uTextureWidth, v6->uTextureHeight, 1, 0, UIMSG_OpenQuestBook, 0, v8, pGlobalTXT_LocalizationStrings[174], v6, 0); //Quests

    uTextureID_ib_td2_A = pIcons_LOD->LoadTexture("ib-td2-A", TEXTURE_16BIT_PALETTE);
    v10 = (Texture *)(uTextureID_ib_td2_A != -1 ? &pIcons_LOD->pTextures[uTextureID_ib_td2_A] : 0);
    v12 = pKeyActionMap->GetActionVKey(INPUT_Autonotes);
    pBtn_Autonotes = pPrimaryWindow->CreateButton(0x20Fu, 0x161u, v10->uTextureWidth, v10->uTextureHeight, 1, 0, UIMSG_OpenAutonotes, 0, v12, pGlobalTXT_LocalizationStrings[154], v10, 0);//Autonotes

    v14 = pIcons_LOD->LoadTexture("ib-td3-A", TEXTURE_16BIT_PALETTE);
    v15 = (Texture *)(v14 != -1 ? &pIcons_LOD->pTextures[v14] : 0);
    v17 = pKeyActionMap->GetActionVKey(INPUT_Mapbook);
    pBtn_Maps = pPrimaryWindow->CreateButton(0x222u, 0x161u, v15->uTextureWidth, v15->uTextureHeight, 1, 0, UIMSG_OpenMapBook, 0, v17, pGlobalTXT_LocalizationStrings[139], v15, 0); //Maps

    uTextureID_ib_td4_A = pIcons_LOD->LoadTexture("ib-td4-A", TEXTURE_16BIT_PALETTE);
    v20 = (Texture *)(uTextureID_ib_td4_A != -1 ? &pIcons_LOD->pTextures[uTextureID_ib_td4_A] : 0);
    v22 = pKeyActionMap->GetActionVKey(INPUT_TimeCal);
    pBtn_Calendar = pPrimaryWindow->CreateButton(0x23Au, 0x161u, v20->uTextureWidth, v20->uTextureHeight, 1, 0, UIMSG_OpenCalendar, 0, v22,
        pGlobalTXT_LocalizationStrings[78],//Calendar
        v20, 0);

    uTextureID_ib_td5_A = pIcons_LOD->LoadTexture("ib-td5-A", TEXTURE_16BIT_PALETTE);
    pBtn_History = pPrimaryWindow->CreateButton(0x258u, 0x169u,
        (uTextureID_ib_td5_A != -1 ? pIcons_LOD->pTextures[uTextureID_ib_td5_A].uTextureWidth : 24),
        (uTextureID_ib_td5_A != -1 ? pIcons_LOD->pTextures[uTextureID_ib_td5_A].uTextureHeight : 26),
        1, 0, UIMSG_OpenHistoryBook, 0, 0x48u, pGlobalTXT_LocalizationStrings[602],//History
        (Texture *)(uTextureID_ib_td5_A != -1 ? &pIcons_LOD->pTextures[uTextureID_ib_td5_A] : 0), 0);

    bFlashAutonotesBook = 0;
    bFlashQuestBook = 0;
    bFlashHistoryBook = 0;

    v24 = &pIcons_LOD->pTextures[uTextureID_Btn_ZoomIn];
    v28 = pKeyActionMap->GetActionVKey(INPUT_ZoomIn);
    pBtn_ZoomIn = pPrimaryWindow->CreateButton(574, 136, v24->uTextureWidth, v24->uTextureHeight, 2, 0, UIMSG_170, 0, v28, pGlobalTXT_LocalizationStrings[252], // Zoom In
        v24, 0);
    v29 = &pIcons_LOD->pTextures[uTextureID_Btn_ZoomOut];
    v33 = pKeyActionMap->GetActionVKey(INPUT_ZoomOut);
    pBtn_ZoomOut = pPrimaryWindow->CreateButton(519, 136, v29->uTextureWidth, v29->uTextureHeight, 2, 0, UIMSG_16F, 0, v33, pGlobalTXT_LocalizationStrings[251], // Zoom Out
        v29, 0);
    pPrimaryWindow->CreateButton(0x1E1u, 0, 0x99u, 0x43u, 1, 92, UIMSG_0, 0, 0, "", 0);
    pPrimaryWindow->CreateButton(0x1EBu, 0x95u, 0x40u, 0x4Au, 1, 0, UIMSG_StartHireling1Dialogue, 0, 0x35u, "", 0);
    pPrimaryWindow->CreateButton(0x231u, 0x95u, 0x40u, 0x4Au, 1, 0, UIMSG_StartHireling2Dialogue, 0, 0x36u, "", 0);
    pPrimaryWindow->CreateButton(0x1DCu, 0x142u, 0x4Du, 0x11u, 1, 100, UIMSG_0, 0, 0, "", 0);
    pPrimaryWindow->CreateButton(0x22Bu, 0x142u, 0x4Du, 0x11u, 1, 101, UIMSG_0, 0, 0, "", 0);
    pBtn_CastSpell = pPrimaryWindow->CreateButton(0x1DCu, 0x1C2u,
        (uTextureID_Btn_CastSpell != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_CastSpell].uTextureWidth : 24),
        (uTextureID_Btn_CastSpell != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_CastSpell].uTextureHeight : 26),
        1, 0, UIMSG_SpellBookWindow, 0, 0x43u, pGlobalTXT_LocalizationStrings[38],
        (Texture *)(uTextureID_Btn_CastSpell != -1 ? &pIcons_LOD->pTextures[uTextureID_Btn_CastSpell] : 0),
        0);
    pBtn_Rest = pPrimaryWindow->CreateButton(0x206u, 0x1C2u,
        (uTextureID_Btn_Rest != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_Rest].uTextureWidth : 24),
        (uTextureID_Btn_Rest != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_Rest].uTextureHeight : 26),
        1, 0, UIMSG_RestWindow, 0, 0x52u, pGlobalTXT_LocalizationStrings[182],
        (Texture *)(uTextureID_Btn_Rest != -1 ? &pIcons_LOD->pTextures[uTextureID_Btn_Rest] : 0), 0);
    pBtn_QuickReference = pPrimaryWindow->CreateButton(0x230u, 0x1C2u,
        (uTextureID_Btn_QuickReference != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_QuickReference].uTextureWidth : 24),
        (uTextureID_Btn_QuickReference != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_QuickReference].uTextureHeight : 26),
        1, 0, UIMSG_QuickReference, 0, 0x5Au, pGlobalTXT_LocalizationStrings[173],
        (Texture *)(uTextureID_Btn_QuickReference != -1 ? &pIcons_LOD->pTextures[uTextureID_Btn_QuickReference] : 0), 0);
    pBtn_GameSettings = pPrimaryWindow->CreateButton(0x25Au, 0x1C2u,
        (uTextureID_Btn_GameSettings != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_GameSettings].uTextureWidth : 24),
        (uTextureID_Btn_GameSettings != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_GameSettings].uTextureHeight : 26),
        1, 0, UIMSG_GameMenuButton, 0, 0, pGlobalTXT_LocalizationStrings[93],
        (Texture *)(uTextureID_Btn_GameSettings != -1 ? &pIcons_LOD->pTextures[uTextureID_Btn_GameSettings] : 0), 0);
    pBtn_NPCLeft = pPrimaryWindow->CreateButton(0x1D5u, 0xB2u,
        (uTextureID_Btn_NPCLeft != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_NPCLeft].uTextureWidth : 24),
        (uTextureID_Btn_NPCLeft != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_NPCLeft].uTextureHeight : 26),
        1, 0, UIMSG_ScrollNPCPanel, 0, 0, "",
        pIcons_LOD->GetTexture(uTextureID_Btn_NPCLeft), 0);
    pBtn_NPCRight = pPrimaryWindow->CreateButton(0x272u, 0xB2u,
        (uTextureID_Btn_NPCRight != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_NPCRight].uTextureWidth : 24),
        (uTextureID_Btn_NPCRight != -1 ? pIcons_LOD->pTextures[uTextureID_Btn_NPCRight].uTextureHeight : 26),
        1, 0, UIMSG_ScrollNPCPanel, 1u, 0, "",
        pIcons_LOD->GetTexture(uTextureID_Btn_NPCRight), 0);
    LoadPartyBuffIcons();
}

//----- (004979D2) --------------------------------------------------------
MENU_STATE __cdecl CreditsMenu__Loop()
{
        char *v0; // eax@5
        char *v1; // edi@5
        FILE *pFile; // eax@5
        unsigned int pSize; // esi@7
        GUIFont *pFont; // edx@9
        GUIFont *pFont2; // ecx@9
        __int16 pHeight; // ax@9
        void *v7; // eax@9
        unsigned int pNumPixels; // ST2C_4@9
        unsigned int teal; // eax@9
        unsigned int v10; // ST2C_4@19
        MSG Msg; // [sp+84h] [bp-B8h]@10
        int v17; // [sp+A0h] [bp-9Ch]@9
        int pX; // [sp+A4h] [bp-98h]@9
        unsigned int pY; // [sp+A8h] [bp-94h]@9
        int v20; // [sp+ACh] [bp-90h]@9
        int a4; // [sp+B0h] [bp-8Ch]@9
        int pColor2; // [sp+F8h] [bp-44h]@9
        int pColor1; // [sp+FCh] [bp-40h]@9
        int a5; // [sp+128h] [bp-14h]@1
        char *pString; // [sp+12Ch] [bp-10h]@9
        char *ptr; // [sp+130h] [bp-Ch]@5
        GUIFont *pFontQuick; // [sp+134h] [bp-8h]@1
        GUIFont *pFontCChar; // [sp+138h] [bp-4h]@1
        RGBTexture pTexture; // [sp+54h] [bp-E8h]@1
        RGBTexture pTexture2; // [sp+100h] [bp-3Ch]@1
        Texture pTexture3; // [sp+Ch] [bp-130h]@5

        a5 = 0;
        pFontQuick = LoadFont("quick.fnt", "FONTPAL", NULL);
        pFontCChar = LoadFont("cchar.fnt", "FONTPAL", NULL);
        if ( pMessageQueue_50CBD0->uNumMessages )
            pMessageQueue_50CBD0->uNumMessages = pMessageQueue_50CBD0->pMessages[0].field_8 != 0;
        ++pIcons_LOD->uTexturePacksCount;
        if ( !pIcons_LOD->uNumPrevLoadedFiles )
            pIcons_LOD->uNumPrevLoadedFiles = pIcons_LOD->uNumLoadedFiles;
        dword_A74C88 = 0;
        pAudioPlayer->PlayMusicTrack(MUSIC_Credits);
        pTexture.Load("mm6title.pcx", 0);
        v0 = (char *)pEvents_LOD->LoadRaw("credits.txt", 0);
        v1 = v0;
        ptr = v0;
        pFile = pEvents_LOD->FindContainer("credits.txt", 0);
        if ( !pFile )
            Abortf(pGlobalTXT_LocalizationStrings[63]); // "Might and Magic VII is having trouble loading files. 
        // Please re-install to fix this problem. Note: Re-installing will not destroy your save games."
        fread(&pTexture3, 1, 0x30, pFile);
        pSize = pTexture3.uDecompressedSize;
        if ( !pTexture3.uDecompressedSize )
            pSize = pTexture3.uTextureSize;
        memset(&pTexture3, 0, 0x48);
        pFont = pFontCChar;
        pFont2 = pFontQuick;
        v1[pSize] = 0;
        v20 = 250;
        a4 = 440;
        pX = 389;
        pY = 19;
        pTexture2.uWidth = 250;
        pHeight = pFont2->GetStringHeight2(pFont, v1, (int)&pX, 0, 1);
        pTexture2.uHeight = pHeight + 2 * a4;
        pTexture2.uNumPixels = (signed __int16)pTexture2.uWidth * (signed __int16)pTexture2.uHeight;
        v7 = pAllocator->AllocNamedChunk(pTexture2.pPixels, 2 * pTexture2.uNumPixels, "scrollermap");
        pNumPixels = pTexture2.uNumPixels;
        pTexture2.pPixels = (unsigned __int16 *)v7;
        teal = GenerateColorAsCloseAsPossibleToR8G8B8InTargetFormat(0, 0xFFu, 0xFFu);
        fill_pixels_fast(teal, pTexture2.pPixels, pNumPixels);
        pTexture2.field_20 = 0;
        pTexture2.field_22 = 0;
        pColor1 = GenerateColorAsCloseAsPossibleToR8G8B8InTargetFormat(0x70u, 0x8Fu, 0xFEu);
        pColor2 = GenerateColorAsCloseAsPossibleToR8G8B8InTargetFormat(0xECu, 0xE6u, 0x9Cu);
        pString = (char *)operator new(2 * pSize);
        strncpy(pString, ptr, pSize);
        pString[pSize]=0;
        pFontQuick->_44D2FD_prolly_draw_credits_entry(pFontCChar, 0, a4, (signed __int16)pTexture2.uWidth, (signed __int16)pTexture2.uHeight, pColor1, 
            pColor2, pString, pTexture2.pPixels, (signed __int16)pTexture2.uWidth);
        free(pString);
        pWindow_MainMenu = GUIWindow::Create(0, 0, 640, 480, WINDOW_MainMenu, 0, (int)ptr);
        pWindow_MainMenu->CreateButton(0, 0, 0, 0, 1, 0, UIMSG_Escape, 0, 0x1Bu, "", 0);
        pCurrentScreen = SCREEN_CREATORS;
        SetCurrentMenuID(MENU_CREDITSPROC);
        do
            {
            while ( PeekMessageA(&Msg, 0, 0, 0, 1) )
                {
                if ( Msg.message == 18 )
                    Game_DeinitializeAndTerminate(0);
                TranslateMessage(&Msg);
                DispatchMessageA(&Msg);
                }
            if ( BYTE1(dword_6BE364_game_settings_1) & 1 )
                {
                WaitMessage();
                }
            else
                {
                if (pAsyncMouse)
                    pAsyncMouse->_46B736_consume_click_lists(1);
                pRenderer->BeginScene();
                pRenderer->DrawTextureRGB(0, 0, &pTexture);
                pRenderer->SetTextureClipRect(pX, pY, pX + v20, pY + a4);
                pRenderer->_4A5D33(pX, pY, 0, a5, &pTexture2);
                pRenderer->ResetTextureClipRect();
                pRenderer->EndScene();
                ++a5;
                if ( a5 >= (signed __int16)pTexture2.uHeight )
                    SetCurrentMenuID(MENU_MAIN);
                pRenderer->Present();
                pCurrentScreen = SCREEN_GAME;//Ritor1: temporarily, must be corrected GUI_MainMenuMessageProc()
                GUI_MainMenuMessageProc();
                }
            }
            while ( GetCurrentMenuID() == MENU_CREDITSPROC );
            pAudioPlayer->_4AA258(1);
            pAllocator->FreeChunk(ptr);
            pAllocator->FreeChunk(pFontQuick);
            pAllocator->FreeChunk(pFontCChar);
            pWindow_MainMenu->Release();
            pIcons_LOD->_4114F2();
            pTexture.Release();
            pTexture2.Release();
            return MENU_MAIN;     // return MENU_Main
        }