#include "global.h"
#include "m4a.h"
#include "main.h"
#include "pokedex_cry_screen.h"
#include "palette.h"
#include "sprite.h"
#include "ewram.h"
#include "trig.h"
#include "sound.h"

extern struct SoundInfo gSoundInfo;
extern struct MusicPlayerInfo gMPlayInfo_BGM;

struct Unk201C800 {
    s8 unk_0;
    s8 unk_1;
    u8 unk_2;
    u16 unk_4;
};

struct PokedexCryScreen_201C000
{
    u8 unk0000[0x10];
    u8 unk0010;
    u8 unk0011;
    u8 unk0012;
    u16 unk0014;
    u8 unk0016;
    u16 species;
    u8 unk001A;
    u8 unk001B;
};

void sub_811A0A0(u16 species);
void sub_811A0C0(void);
void sub_811A124(void);
void sub_811A15C(u8);
void sub_811A1C8(u8, u8);
void sub_811A324(void);
void sub_811A350(u8, s16, u8);
void sub_811A534(struct Sprite *);
void sub_811A6D8(s8);

u8 gDexCryScreenState;

// data/pokedex_cry_screen.o

const u16 CryMeterNeedlePalette[] = INCBIN_U16("graphics/pokedex/cry_meter_needle.gbapal");
const u8 CryMeterNeedleTiles[] = INCBIN_U8("graphics/pokedex/cry_meter_needle.4bpp");

#if ENGLISH
const u16 gUnknown_083FAE7C[] = INCBIN_U16("graphics/pokedex/cry_meter_map.bin");
const u16 gUnknown_083FAF1C[] = INCBIN_U16("graphics/pokedex/cry_meter.gbapal");
const u8 gUnknown_083FAF3C[] = INCBIN_U8("graphics/pokedex/cry_meter.4bpp.lz");
#else
extern const u16 gUnknown_083FAE7C[];
extern const u16 gUnknown_083FAF1C[];
extern const u8 gUnknown_083FAF3C[];
#endif // ENGLISH

const u16 gUnknown_083FB274[][72] = {
    {
        0x0000, 0x0004, 0x0008, 0x000C, 0x0010, 0x0014, 0x0018, 0x001C,
        0x0400, 0x0404, 0x0408, 0x040C, 0x0410, 0x0414, 0x0418, 0x041C,
        0x0800, 0x0804, 0x0808, 0x080C, 0x0810, 0x0814, 0x0818, 0x081C,
        0x0C00, 0x0C04, 0x0C08, 0x0C0C, 0x0C10, 0x0C14, 0x0C18, 0x0C1C,
        0x1000, 0x1004, 0x1008, 0x100C, 0x1010, 0x1014, 0x1018, 0x101C,
        0x1400, 0x1404, 0x1408, 0x140C, 0x1410, 0x1414, 0x1418, 0x141C,
        0x1800, 0x1804, 0x1808, 0x180C, 0x1810, 0x1814, 0x1818, 0x181C,
        0x1C00, 0x1C04, 0x1C08, 0x1C0C, 0x1C10, 0x1C14, 0x1C18, 0x1C1C,
        0x2000, 0x2004, 0x2008, 0x200C, 0x2010, 0x2014, 0x2018, 0x201C
    }, {
        0x0000, 0x0004, 0x0008, 0x000C, 0x0010, 0x0014, 0x0018, 0x001C,
        0x0400, 0x0404, 0x0408, 0x040C, 0x0410, 0x0414, 0x0418, 0x041C,
        0x0800, 0x0804, 0x0808, 0x080C, 0x0810, 0x0814, 0x0818, 0x081C,
        0x0C00, 0x0C04, 0x0C08, 0x0C0C, 0x0C10, 0x0C14, 0x0C18, 0x0C1C,
        0x1000, 0x1004, 0x1008, 0x100C, 0x1010, 0x1014, 0x1018, 0x101C,
        0x1400, 0x1404, 0x1408, 0x140C, 0x1410, 0x1414, 0x1418, 0x141C,
        0x1800, 0x1804, 0x1808, 0x180C, 0x1810, 0x1814, 0x1818, 0x181C,
        0x1C00, 0x1C04, 0x1C08, 0x1C0C, 0x1C10, 0x1C14, 0x1C18, 0x1C1C,
        0x2000, 0x2004, 0x2008, 0x200C, 0x2010, 0x2014, 0x2018, 0x201C
    }, {
        0x0001, 0x0005, 0x0009, 0x000D, 0x0011, 0x0015, 0x0019, 0x001D,
        0x0401, 0x0405, 0x0409, 0x040D, 0x0411, 0x0415, 0x0419, 0x041D,
        0x0801, 0x0805, 0x0809, 0x080D, 0x0811, 0x0815, 0x0819, 0x081D,
        0x0C01, 0x0C05, 0x0C09, 0x0C0D, 0x0C11, 0x0C15, 0x0C19, 0x0C1D,
        0x1001, 0x1005, 0x1009, 0x100D, 0x1011, 0x1015, 0x1019, 0x101D,
        0x1401, 0x1405, 0x1409, 0x140D, 0x1411, 0x1415, 0x1419, 0x141D,
        0x1801, 0x1805, 0x1809, 0x180D, 0x1811, 0x1815, 0x1819, 0x181D,
        0x1C01, 0x1C05, 0x1C09, 0x1C0D, 0x1C11, 0x1C15, 0x1C19, 0x1C1D,
        0x2001, 0x2005, 0x2009, 0x200D, 0x2011, 0x2015, 0x2019, 0x201D
    }, {
        0x0001, 0x0005, 0x0009, 0x000D, 0x0011, 0x0015, 0x0019, 0x001D,
        0x0401, 0x0405, 0x0409, 0x040D, 0x0411, 0x0415, 0x0419, 0x041D,
        0x0801, 0x0805, 0x0809, 0x080D, 0x0811, 0x0815, 0x0819, 0x081D,
        0x0C01, 0x0C05, 0x0C09, 0x0C0D, 0x0C11, 0x0C15, 0x0C19, 0x0C1D,
        0x1001, 0x1005, 0x1009, 0x100D, 0x1011, 0x1015, 0x1019, 0x101D,
        0x1401, 0x1405, 0x1409, 0x140D, 0x1411, 0x1415, 0x1419, 0x141D,
        0x1801, 0x1805, 0x1809, 0x180D, 0x1811, 0x1815, 0x1819, 0x181D,
        0x1C01, 0x1C05, 0x1C09, 0x1C0D, 0x1C11, 0x1C15, 0x1C19, 0x1C1D,
        0x2001, 0x2005, 0x2009, 0x200D, 0x2011, 0x2015, 0x2019, 0x201D
    }, {
        0x0002, 0x0006, 0x000A, 0x000E, 0x0012, 0x0016, 0x001A, 0x001E,
        0x0402, 0x0406, 0x040A, 0x040E, 0x0412, 0x0416, 0x041A, 0x041E,
        0x0802, 0x0806, 0x080A, 0x080E, 0x0812, 0x0816, 0x081A, 0x081E,
        0x0C02, 0x0C06, 0x0C0A, 0x0C0E, 0x0C12, 0x0C16, 0x0C1A, 0x0C1E,
        0x1002, 0x1006, 0x100A, 0x100E, 0x1012, 0x1016, 0x101A, 0x101E,
        0x1402, 0x1406, 0x140A, 0x140E, 0x1412, 0x1416, 0x141A, 0x141E,
        0x1802, 0x1806, 0x180A, 0x180E, 0x1812, 0x1816, 0x181A, 0x181E,
        0x1C02, 0x1C06, 0x1C0A, 0x1C0E, 0x1C12, 0x1C16, 0x1C1A, 0x1C1E,
        0x2002, 0x2006, 0x200A, 0x200E, 0x2012, 0x2016, 0x201A, 0x201E
    }, {
        0x0002, 0x0006, 0x000A, 0x000E, 0x0012, 0x0016, 0x001A, 0x001E,
        0x0402, 0x0406, 0x040A, 0x040E, 0x0412, 0x0416, 0x041A, 0x041E,
        0x0802, 0x0806, 0x080A, 0x080E, 0x0812, 0x0816, 0x081A, 0x081E,
        0x0C02, 0x0C06, 0x0C0A, 0x0C0E, 0x0C12, 0x0C16, 0x0C1A, 0x0C1E,
        0x1002, 0x1006, 0x100A, 0x100E, 0x1012, 0x1016, 0x101A, 0x101E,
        0x1402, 0x1406, 0x140A, 0x140E, 0x1412, 0x1416, 0x141A, 0x141E,
        0x1802, 0x1806, 0x180A, 0x180E, 0x1812, 0x1816, 0x181A, 0x181E,
        0x1C02, 0x1C06, 0x1C0A, 0x1C0E, 0x1C12, 0x1C16, 0x1C1A, 0x1C1E,
        0x2002, 0x2006, 0x200A, 0x200E, 0x2012, 0x2016, 0x201A, 0x201E
    }, {
        0x0003, 0x0007, 0x000B, 0x000F, 0x0013, 0x0017, 0x001B, 0x001F,
        0x0403, 0x0407, 0x040B, 0x040F, 0x0413, 0x0417, 0x041B, 0x041F,
        0x0803, 0x0807, 0x080B, 0x080F, 0x0813, 0x0817, 0x081B, 0x081F,
        0x0C03, 0x0C07, 0x0C0B, 0x0C0F, 0x0C13, 0x0C17, 0x0C1B, 0x0C1F,
        0x1003, 0x1007, 0x100B, 0x100F, 0x1013, 0x1017, 0x101B, 0x101F,
        0x1403, 0x1407, 0x140B, 0x140F, 0x1413, 0x1417, 0x141B, 0x141F,
        0x1803, 0x1807, 0x180B, 0x180F, 0x1813, 0x1817, 0x181B, 0x181F,
        0x1C03, 0x1C07, 0x1C0B, 0x1C0F, 0x1C13, 0x1C17, 0x1C1B, 0x1C1F,
        0x2003, 0x2007, 0x200B, 0x200F, 0x2013, 0x2017, 0x201B, 0x201F
    }, {
        0x0003, 0x0007, 0x000B, 0x000F, 0x0013, 0x0017, 0x001B, 0x001F,
        0x0403, 0x0407, 0x040B, 0x040F, 0x0413, 0x0417, 0x041B, 0x041F,
        0x0803, 0x0807, 0x080B, 0x080F, 0x0813, 0x0817, 0x081B, 0x081F,
        0x0C03, 0x0C07, 0x0C0B, 0x0C0F, 0x0C13, 0x0C17, 0x0C1B, 0x0C1F,
        0x1003, 0x1007, 0x100B, 0x100F, 0x1013, 0x1017, 0x101B, 0x101F,
        0x1403, 0x1407, 0x140B, 0x140F, 0x1413, 0x1417, 0x141B, 0x141F,
        0x1803, 0x1807, 0x180B, 0x180F, 0x1813, 0x1817, 0x181B, 0x181F,
        0x1C03, 0x1C07, 0x1C0B, 0x1C0F, 0x1C13, 0x1C17, 0x1C1B, 0x1C1F,
        0x2003, 0x2007, 0x200B, 0x200F, 0x2013, 0x2017, 0x201B, 0x201F
    }
};

struct PokedexCryScreen_201C000 * const gPokedexCryScreenPtr = (struct PokedexCryScreen_201C000 *)(gSharedMem + 0x1c000);

const u16 gUnknown_083FB6F8[] = INCBIN_U16("graphics/pokedex/83FB6F8.gbapal");
const u16 gUnknown_083FB718[] = INCBIN_U16("graphics/pokedex/83FB718.4bpp");

const u8 gUnknown_083FB738[] = {0xF0, 0x0F};
const u8 gUnknown_083FB73A[][16] = {
    {
        0x0F, 0x0E, 0x0D, 0x0C, 0x0B, 0x0A, 0x09, 0x08,
        0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F
    }, {
        0xF0, 0xE0, 0xD0, 0xC0, 0xB0, 0xA0, 0x90, 0x80,
        0x80, 0x90, 0xA0, 0xB0, 0xC0, 0xD0, 0xE0, 0xF0
    }
};

struct Unk201C800 * const gPokedexCryScreenPtr2 = (struct Unk201C800 *)(gSharedMem + 0x1c800);

union AnimCmd gSpriteAnim_83FB760[] = {
    ANIMCMD_FRAME(0, 30),
    ANIMCMD_END
};

const union AnimCmd * gSpriteAnimTable_83FB768[] = {
    gSpriteAnim_83FB760
};

struct OamData gOamData_83FB76C = {
    .y = 160,
    .affineMode = ST_OAM_AFFINE_NORMAL,
    .size = 3,
    .priority = 1
};

struct SpriteTemplate gSpriteTemplate_83FB774 = {
    0x2000,
    0x2000,
    &gOamData_83FB76C,
    gSpriteAnimTable_83FB768,
    NULL,
    gDummySpriteAffineAnimTable,
    sub_811A534
};

struct SpriteSheet gCryMeterNeedleSpriteSheets[] = {
    {CryMeterNeedleTiles, 0x800, 0x2000},
    {}
};

struct SpritePalette gCryMeterNeedleSpritePalettes[] = {
    {CryMeterNeedlePalette, 0x2000},
    {}
};

#if ENGLISH
#define CRY_METER_MAP_WIDTH 10
#elif GERMAN
#define CRY_METER_MAP_WIDTH 32
#endif

u8 LoadCryWaveformWindow(struct CryScreenWindow *cry, u8 arg1)
{
    u8 i;
    u8 j;
    u8 i2;
    u16 r6;
    u16 r7;
    u8 r9 = FALSE;

    switch (gDexCryScreenState)
    {
    case 0:
        gPokedexCryScreenPtr->unk0014 = cry->unk0;
        gPokedexCryScreenPtr->unk0016 = cry->yPos;
        gPokedexCryScreenPtr->unk001A = 0;
        gPokedexCryScreenPtr->unk001B = 0;
        gPokedexCryScreenPtr->unk0010 = 0;
        gPokedexCryScreenPtr->unk0012 = 28;
        gPokedexCryScreenPtr->unk0011 = 0;
        sub_811A350(arg1, -8 * cry->xPos, 1);
        for (i = 0; i < 7; i++)
        {
            for (j = 0; j < 32; j++)
            {
                DmaCopy16(3, gUnknown_083FB718, &gSharedMem[((32 * i) + j) * 32], 32);
            }
        }
        gDexCryScreenState++;
        break;
    case 1:
        r7 = cry->unk2 << 11;
        r6 = (cry->paletteNo << 12) + ((cry->unk0 >> 5) & 0x1FF);
        for (i = 0; i < 7; i++)
        {
            for (j = 0; j < 32; j++)
            {
                *((u16 *)(VRAM + (2 * j) + (64 * i) + r7)) = r6++;
            }
        }
        for (i2 = 0; i2 < gPokedexCryScreenPtr->unk0016 * 8; i2++)
        {
            sub_811A1C8(i2, 0);
        }
        gDexCryScreenState++;
        break;
    case 2:
        sub_811A324();
        LoadPalette(gUnknown_083FB6F8, cry->paletteNo * 16, 32);
        r9 = TRUE;
        break;
    }
    return r9;
}

void UpdateCryWaveformWindow(u8 a0)
{
    u8 r4;
    sub_811A324();
    sub_811A15C(a0);
    if (gPokedexCryScreenPtr->unk001B)
        gPokedexCryScreenPtr->unk001B--;
    if (gPokedexCryScreenPtr->unk001A && !--gPokedexCryScreenPtr->unk001A)
    {
        sub_811A0A0(gPokedexCryScreenPtr->species);
        sub_811A124();
        return;
    }
    if (gPokedexCryScreenPtr->unk0010 == 0)
    {
        sub_811A124();
        return;
    }
    if (gPokedexCryScreenPtr->unk0010 == 1)
    {
        sub_811A0C0();
    }
    else if (gPokedexCryScreenPtr->unk0010 > 8)
    {
        if (!IsCryPlaying())
        {
            sub_811A124();
            gPokedexCryScreenPtr->unk0010 = 0;
            return;
        }
        sub_811A0C0();
        gPokedexCryScreenPtr->unk0010 = 1;
    }
    r4 = 2 * (gPokedexCryScreenPtr->unk0010 - 1);
    sub_811A1C8(gPokedexCryScreenPtr->unk0016 * 8 + gPokedexCryScreenPtr->unk0011 - 2, gPokedexCryScreenPtr->unk0000[r4]);
    sub_811A1C8(gPokedexCryScreenPtr->unk0016 * 8 + gPokedexCryScreenPtr->unk0011 - 1, gPokedexCryScreenPtr->unk0000[r4 + 1]);
    gPokedexCryScreenPtr->unk0010++;
}

void CryScreenPlayButton(u16 species)
{
    if (gMPlayInfo_BGM.status & MUSICPLAYER_STATUS_PAUSE && !gPokedexCryScreenPtr->unk001A)
    {
        if (!gPokedexCryScreenPtr->unk001B)
        {
            gPokedexCryScreenPtr->unk001B = 4;
            if (IsCryPlaying() == TRUE)
            {
                StopCry();
                gPokedexCryScreenPtr->species = species;
                gPokedexCryScreenPtr->unk001A = 2;
            }
            else
                sub_811A0A0(species);
        }
    }
}

void sub_811A0A0(u16 species)
{
    PlayCry2(species, 0, 0x7d, 10);
    gPokedexCryScreenPtr->unk0010 = 1;
}

#define MACRO_sub_811A0C0(counter) ({ \
    const s8 * p;                     \
    if ((counter) < 2)                \
        p = gSoundInfo.pcmBuffer;     \
    else                              \
        p = gSoundInfo.pcmBuffer + (gSoundInfo.pcmDmaPeriod + 1 - gPcmDmaCounter) * gSoundInfo.pcmSamplesPerVBlank; \
    p + PCM_DMA_BUF_SIZE;             \
})

void sub_811A0C0(void)
{
    const s8 * src;
    u8 i;

    src = MACRO_sub_811A0C0(gPcmDmaCounter);
    for (i = 0; i < 16; i++)
        gPokedexCryScreenPtr->unk0000[i] = src[i * 2] * 2;

}

void sub_811A124(void)
{
    sub_811A1C8(gPokedexCryScreenPtr->unk0016 * 8 + gPokedexCryScreenPtr->unk0011 - 2, 0);
    sub_811A1C8(gPokedexCryScreenPtr->unk0016 * 8 + gPokedexCryScreenPtr->unk0011 - 1, 0);
}

void sub_811A15C(u8 a0)
{
    u8 i;
    u16 r3;
    sub_811A350(a0, gPokedexCryScreenPtr->unk0011, 0);
    gPokedexCryScreenPtr->unk0011 += 2;
    r3 = (gPokedexCryScreenPtr->unk0011 / 8 + gPokedexCryScreenPtr->unk0016 + 1) % 32;
    for (i = 0; i < 7; i++)
    {
        DmaCopy16(3, gUnknown_083FB718, &gSharedMem[32 * (32 * i + r3)], 32);
    }
}

#ifdef NONMATCHING
void sub_811A1C8(u8 a0, u8 a1)
{
    u8 sp0;
    u8 r7;
    u8 r8;
    u16 r1 = (a1 + 127) << 8;
    u8 i = r1 / 1152.0;
    if (i > 71 - 16)
        i = 71 - 16;
    sp0 = i;
    r7 = a0 % 2;
    r8 = a0 / 8;
    if (i > gPokedexCryScreenPtr->unk0012)
    {
        do
        {
            gSharedMem[(u16)(r8 * 32 + gUnknown_083FB274[a0 % 8][i])] &= gUnknown_083FB738[r7];
            gSharedMem[(u16)(r8 * 32 + gUnknown_083FB274[a0 % 8][i])] |= gUnknown_083FB73A[r7][((i / 3) - 1) & 0x0F];
            i--;
        } while (i > gPokedexCryScreenPtr->unk0012);
    }
    else
    {
        do
        {
            gSharedMem[(u16)(r8 * 32 + gUnknown_083FB274[a0 % 8][i])] &= gUnknown_083FB738[r7];
            gSharedMem[(u16)(r8 * 32 + gUnknown_083FB274[a0 % 8][i])] |= gUnknown_083FB73A[r7][((i / 3) - 1) & 0x0F];
            i++;
        } while (i < gPokedexCryScreenPtr->unk0012);
    }
    gPokedexCryScreenPtr->unk0012 = sp0;
}
#else
NAKED void sub_811A1C8(u8 a0, u8 a1)
{
    asm_unified("\tpush {r4-r7,lr}\n"
                "\tmov r7, r10\n"
                "\tmov r6, r9\n"
                "\tmov r5, r8\n"
                "\tpush {r5-r7}\n"
                "\tsub sp, 0xC\n"
                "\tlsls r5, r0, 24\n"
                "\tlsrs r4, r5, 24\n"
                "\tlsls r1, 24\n"
                "\tmovs r0, 0xFE\n"
                "\tlsls r0, 23\n"
                "\tadds r1, r0\n"
                "\tlsrs r1, 16\n"
                "\tadds r0, r1, 0\n"
                "\tbl __floatsidf\n"
                "\tldr r3, _0811A280 @ =0x00000000\n"
                "\tldr r2, _0811A27C @ =0x40920000\n"
                "\tbl __divdf3\n"
                "\tbl __fixunsdfsi\n"
                "\tlsls r0, 24\n"
                "\tlsrs r6, r0, 24\n"
                "\tcmp r6, 0x37\n"
                "\tbls _0811A1FE\n"
                "\tmovs r6, 0x37\n"
                "_0811A1FE:\n"
                "\tstr r6, [sp]\n"
                "\tmovs r7, 0x1\n"
                "\tands r7, r4\n"
                "\tldr r0, _0811A284 @ =gSharedMem + 0x1C000\n"
                "\tmov r10, r0\n"
                "\tlsrs r5, 27\n"
                "\tmov r8, r5\n"
                "\tldr r0, _0811A288 @ =gUnknown_083FB738\n"
                "\tmov r1, r10\n"
                "\tldrb r1, [r1, 0x12]\n"
                "\tcmp r6, r1\n"
                "\tbls _0811A298\n"
                "\tadds r0, r7, r0\n"
                "\tldrb r0, [r0]\n"
                "\tmov r9, r0\n"
                "\tmovs r2, 0x7\n"
                "\tands r2, r4\n"
                "_0811A220:\n"
                "\tlsls r1, r6, 1\n"
                "\tlsls r0, r2, 3\n"
                "\tadds r0, r2\n"
                "\tlsls r0, 4\n"
                "\tadds r1, r0\n"
                "\tldr r3, _0811A28C @ =gUnknown_083FB274\n"
                "\tadds r1, r3\n"
                "\tmov r3, r8\n"
                "\tlsls r0, r3, 5\n"
                "\tldrh r1, [r1]\n"
                "\tadds r0, r1\n"
                "\tlsls r0, 16\n"
                "\tlsrs r0, 16\n"
                "\tldr r1, _0811A290 @ =gSharedMem\n"
                "\tadds r5, r0, r1\n"
                "\tldrb r4, [r5]\n"
                "\tmov r3, r9\n"
                "\tands r4, r3\n"
                "\tstrb r4, [r5]\n"
                "\tadds r0, r6, 0\n"
                "\tmovs r1, 0x3\n"
                "\tstr r2, [sp, 0x8]\n"
                "\tbl __udivsi3\n"
                "\tlsls r0, 24\n"
                "\tlsrs r0, 24\n"
                "\tsubs r0, 0x1\n"
                "\tmovs r1, 0xF\n"
                "\tands r0, r1\n"
                "\tlsls r1, r7, 4\n"
                "\tadds r0, r1\n"
                "\tldr r1, _0811A294 @ =gUnknown_083FB73A\n"
                "\tadds r0, r1\n"
                "\tldrb r0, [r0]\n"
                "\torrs r4, r0\n"
                "\tstrb r4, [r5]\n"
                "\tsubs r0, r6, 0x1\n"
                "\tlsls r0, 24\n"
                "\tlsrs r6, r0, 24\n"
                "\tldr r2, [sp, 0x8]\n"
                "\tldr r3, _0811A284 @ =gSharedMem + 0x1C000\n"
                "\tldrb r3, [r3, 0x12]\n"
                "\tcmp r6, r3\n"
                "\tbhi _0811A220\n"
                "\tb _0811A2FA\n"
                "\t.align 2, 0\n"
                "_0811A27C: .4byte 0x40920000\n"
                "_0811A280: .4byte 0x00000000\n"
                "_0811A284: .4byte gSharedMem + 0x1C000\n"
                "_0811A288: .4byte gUnknown_083FB738\n"
                "_0811A28C: .4byte gUnknown_083FB274\n"
                "_0811A290: .4byte gSharedMem\n"
                "_0811A294: .4byte gUnknown_083FB73A\n"
                "_0811A298:\n"
                "\tlsls r1, r7, 4\n"
                "\tstr r1, [sp, 0x4]\n"
                "\tadds r0, r7, r0\n"
                "\tldrb r0, [r0]\n"
                "\tmov r9, r0\n"
                "\tmovs r7, 0x7\n"
                "\tands r7, r4\n"
                "_0811A2A6:\n"
                "\tlsls r1, r6, 1\n"
                "\tlsls r0, r7, 3\n"
                "\tadds r0, r7\n"
                "\tlsls r0, 4\n"
                "\tadds r1, r0\n"
                "\tldr r2, _0811A314 @ =gUnknown_083FB274\n"
                "\tadds r1, r2\n"
                "\tmov r3, r8\n"
                "\tlsls r0, r3, 5\n"
                "\tldrh r1, [r1]\n"
                "\tadds r0, r1\n"
                "\tlsls r0, 16\n"
                "\tlsrs r0, 16\n"
                "\tldr r1, _0811A318 @ =gSharedMem\n"
                "\tadds r5, r0, r1\n"
                "\tldrb r4, [r5]\n"
                "\tmov r2, r9\n"
                "\tands r4, r2\n"
                "\tstrb r4, [r5]\n"
                "\tadds r0, r6, 0\n"
                "\tmovs r1, 0x3\n"
                "\tbl __udivsi3\n"
                "\tlsls r0, 24\n"
                "\tlsrs r0, 24\n"
                "\tsubs r0, 0x1\n"
                "\tmovs r1, 0xF\n"
                "\tands r0, r1\n"
                "\tldr r3, [sp, 0x4]\n"
                "\tadds r0, r3\n"
                "\tldr r1, _0811A31C @ =gUnknown_083FB73A\n"
                "\tadds r0, r1\n"
                "\tldrb r0, [r0]\n"
                "\torrs r4, r0\n"
                "\tstrb r4, [r5]\n"
                "\tadds r0, r6, 0x1\n"
                "\tlsls r0, 24\n"
                "\tlsrs r6, r0, 24\n"
                "\tldr r2, _0811A320 @ =gSharedMem + 0x1C000\n"
                "\tldrb r2, [r2, 0x12]\n"
                "\tcmp r6, r2\n"
                "\tbcc _0811A2A6\n"
                "_0811A2FA:\n"
                "\tmov r3, sp\n"
                "\tldrb r0, [r3]\n"
                "\tmov r3, r10\n"
                "\tstrb r0, [r3, 0x12]\n"
                "\tadd sp, 0xC\n"
                "\tpop {r3-r5}\n"
                "\tmov r8, r3\n"
                "\tmov r9, r4\n"
                "\tmov r10, r5\n"
                "\tpop {r4-r7}\n"
                "\tpop {r0}\n"
                "\tbx r0\n"
                "\t.align 2, 0\n"
                "_0811A314: .4byte gUnknown_083FB274\n"
                "_0811A318: .4byte gSharedMem\n"
                "_0811A31C: .4byte gUnknown_083FB73A\n"
                "_0811A320: .4byte gSharedMem + 0x1C000");
}
#endif // NONMATCHING

void sub_811A324(void)
{
    DmaCopy16(3, gSharedMem, VRAM + gPokedexCryScreenPtr->unk0014, 0x1c00);
}

void sub_811A350(u8 a0, s16 a1, u8 a2)
{
    switch (a0)
    {
        case 0:
            if (a2)
                REG_BG0VOFS = a1;
            else
                REG_BG0HOFS = a1;
            break;
        case 1:
            if (a2)
                REG_BG1VOFS = a1;
            else
                REG_BG1HOFS = a1;
            break;
        case 2:
            if (a2)
                REG_BG2VOFS = a1;
            else
                REG_BG2HOFS = a1;
            break;
        case 3:
            if (a2)
                REG_BG3VOFS = a1;
            else
                REG_BG3HOFS = a1;
            break;
    }
}

u8 ShowPokedexCryScreen(struct CryScreenWindow *cry, u8 arg1) {
    int returnVal = FALSE;

    switch (gDexCryScreenState)
    {
    case 0:
        LZ77UnCompVram(gUnknown_083FAF3C, (void *) (VRAM + cry->unk0));
        LoadPalette(&gUnknown_083FAF1C, cry->paletteNo * 16, 0x20);
        gDexCryScreenState += 1;
        break;

    case 1:
    {
        void *vram;
        u8 row, col;
        u32 r12;
        int x, y;

        vram = BG_SCREEN_ADDR(cry->unk2);

        r12 = (u32) (cry->unk0 << 18) >> 23;

        for (row = 0; row < 8; row++)
        {
            for (col = 0; col < 10; col++)
            {
                y = row + cry->yPos;
                x = col + cry->xPos;
                *(u16 *) (vram + (y * 64 + x * 2)) = (gUnknown_083FAE7C[row * CRY_METER_MAP_WIDTH + col] | (cry->paletteNo << 12)) + r12;
            }
        }

        gDexCryScreenState += 1;
        break;
    }

    case 2:
    {
        LoadSpriteSheets(gCryMeterNeedleSpriteSheets);
        LoadSpritePalettes(gCryMeterNeedleSpritePalettes);
        gPokedexCryScreenPtr2->unk_4 = CreateSprite(&gSpriteTemplate_83FB774, 40 + cry->xPos * 8, 56 + cry->yPos * 8, 1);
        gPokedexCryScreenPtr2->unk_0 = 0x20;
        gPokedexCryScreenPtr2->unk_1 = 0x20;
        gPokedexCryScreenPtr2->unk_2 = 0;

        returnVal = TRUE;
        break;
    }
    }

    return returnVal;
}

void DestroyCryMeterNeedleSprite(void)
{
    FreeSpritePaletteByTag(GetSpritePaletteTagByPaletteNum(gSprites[gPokedexCryScreenPtr2->unk_4].oam.paletteNum));
    DestroySprite(gSprites + gPokedexCryScreenPtr2->unk_4);
}

void sub_811A534(struct Sprite * sprite)
{
    u16 i;
    s8 r3;
    s16 x;
    s16 y;
    struct ObjAffineSrcData sp04;
    struct OamMatrix sp0c;
    u8 * r0;

    gSprites[gPokedexCryScreenPtr2->unk_4].oam.affineMode = ST_OAM_AFFINE_NORMAL;
    gSprites[gPokedexCryScreenPtr2->unk_4].oam.affineParam = 0;
    switch (gPokedexCryScreenPtr->unk0010)
    {
        case 0:
            gPokedexCryScreenPtr2->unk_1 = 0x20;
            if (gPokedexCryScreenPtr2->unk_0 > 0)
            {
                if (gPokedexCryScreenPtr2->unk_2 != 1)
                    gPokedexCryScreenPtr2->unk_2--;
            }
            else
                gPokedexCryScreenPtr2->unk_2 = 5;
            break;
        case 2:
            r3 = 0;
            for (i = 0; i < 16; i++)
            {
                if (r3 < gPokedexCryScreenPtr->unk0000[i])
                    r3 = gPokedexCryScreenPtr->unk0000[i];
            }
            sub_811A6D8(r3 * 0xd0 / 0x100);
            break;
        case 6:
            r0 = &gPokedexCryScreenPtr->unk0000[10];
            sub_811A6D8(*r0 * 0xd0 / 0x100);
            break;
    }
    if (gPokedexCryScreenPtr2->unk_0 == gPokedexCryScreenPtr2->unk_1)
        ;
    else if (gPokedexCryScreenPtr2->unk_0 < gPokedexCryScreenPtr2->unk_1)
    {
        if ((gPokedexCryScreenPtr2->unk_0 += gPokedexCryScreenPtr2->unk_2) > gPokedexCryScreenPtr2->unk_1)
        {
            gPokedexCryScreenPtr2->unk_0 = gPokedexCryScreenPtr2->unk_1;
            gPokedexCryScreenPtr2->unk_1 = 0;
        }
    }
    else
    {
        if ((gPokedexCryScreenPtr2->unk_0 -= gPokedexCryScreenPtr2->unk_2) < gPokedexCryScreenPtr2->unk_1)
        {
            gPokedexCryScreenPtr2->unk_0 = gPokedexCryScreenPtr2->unk_1;
            gPokedexCryScreenPtr2->unk_1 = 0;
        }
    }
    sp04.xScale = 0x100;
    sp04.yScale = 0x100;
    sp04.rotation = gPokedexCryScreenPtr2->unk_0 * 256;
    ObjAffineSet(&sp04, &sp0c, 1, 2);
    SetOamMatrix(0, sp0c.a, sp0c.b, sp0c.c, sp0c.d);
    x = gSineTable[((gPokedexCryScreenPtr2->unk_0 + 0x7F) & 0xFF)];
    y = gSineTable[((gPokedexCryScreenPtr2->unk_0 + 0x7F) & 0xFF) + 0x40];
    sprite->pos2.x = x * 24 / 256;
    sprite->pos2.y = y * 24 / 256;
}

void sub_811A6D8(s8 a0)
{
    u16 r2 = (0x20 - a0) & 0xff;
    if (r2 > 0x20 && r2 < 0xe0)
        r2 = 0xe0;
    gPokedexCryScreenPtr2->unk_1 = r2;
    gPokedexCryScreenPtr2->unk_2 = 5;
}