#include "global.h"
#include "money.h"
#include "decompress.h"
#include "menu.h"
#include "sprite.h"
#include "string_util.h"
#include "graphics.h"

#define SPRITE_TAG_MONEY (0x2722)

extern u16 gSpecialVar_0x8005;

static EWRAM_DATA u8 gUnknown_02038734 = 0;

static const struct OamData gOamData_83CF558 =
{
    .y = 0,
    .affineMode = 0,
    .objMode = 0,
    .mosaic = 0,
    .bpp = 0,
    .shape = 1,
    .x = 0,
    .matrixNum = 0,
    .size = 2,
    .tileNum = 0,
    .priority = 0,
    .paletteNum = 0,
    .affineParam = 0,
};

const union AnimCmd gSpriteAnim_83CF560[] =
{
    ANIMCMD_FRAME(0, 0),
    ANIMCMD_END
};

const union AnimCmd *const gSpriteAnimTable_83CF568[] =
{
    gSpriteAnim_83CF560,
};

const struct SpriteTemplate gSpriteTemplate_83CF56C =
{
    .tileTag = 10018,
    .paletteTag = 10018,
    .oam = &gOamData_83CF558,
    .anims = gSpriteAnimTable_83CF568,
    .images = NULL,
    .affineAnims = gDummySpriteAffineAnimTable,
    .callback = SpriteCallbackDummy,
};

const struct CompressedSpriteSheet gUnknown_083CF584[] = {gMenuMoneyGfx, 256, SPRITE_TAG_MONEY};
const struct CompressedSpritePalette gUnknown_083CF58C[] = {gMenuMoneyPal, SPRITE_TAG_MONEY};

bool8 IsEnoughMoney(u32 budget, u32 cost)
{
    if (budget >= cost)
    {
        return TRUE;
    }

    return FALSE;
}

void AddMoney(u32 *arg0, u32 arg1)
{
    if (*arg0 > *arg0 + arg1)
    {
        *arg0 = 999999;
        return;
    }

    *arg0 += arg1;
    if (*arg0 > 999999)
    {
        *arg0 = 999999;
    }
}

void RemoveMoney(u32 *arg0, u32 arg1)
{
    if (*arg0 < arg1)
    {
        *arg0 = 0;
    }
    else
    {
        *arg0 -= arg1;
    }
}

void GetMoneyAmountText(u8 *buffer, u32 amount, u8 arg2)
{
    u8 width;
    u8 i;

    if (amount > 999999)
        width = 7;
    else if (amount > 99999)
        width = 6;
    // A special sprite is used for 10000 in the decoration
    // shop, so be sure to account for this.
    else if (amount > 10000)
        width = 5;
    else if (amount > 999)
        width = 4;
    else if (amount > 99)
        width = 3;
    else if (amount > 9)
        width = 2;
    else
        width = 1;

    buffer[0] = EXT_CTRL_CODE_BEGIN;
    buffer[1] = 0x14;
    buffer[2] = 0x06;
    buffer += 3;

    for (i = 0; i < arg2 - width; i++)
    {
        buffer[0] = CHAR_SPACE;
        buffer += 1;
    }

    buffer[0] = CHAR_CURRENCY;
    buffer += 1;

    buffer = ConvertIntToDecimalString(buffer, amount);

    buffer[0] = EXT_CTRL_CODE_BEGIN;
    buffer[1] = 0x14;
    buffer[2] = 0x00;
    buffer[3] = EOS;
}

void PrintMoneyAmount(u32 amount, u8 size, u8 x, u8 y)
{
    u8 buffer[16];
    u8 stringWidth;

    GetMoneyAmountText(buffer, amount, size);
    stringWidth = GetStringWidthInMenuWindow(buffer);

    if (stringWidth >= (size + 1) * 8)
    {
        Menu_PrintText(buffer, x, y);
    }
    else
    {
        int xPlusOne = x + 1;
        Menu_PrintTextPixelCoords(buffer, (xPlusOne + size) * 8 - stringWidth, y * 8, 1);
    }
}

void sub_80B7AEC(u32 arg0, u8 right, u8 top)
{
    u8 buffer[32];
    u8 *ptr;

    ptr = &buffer[0];

    ptr[0] = CHAR_CURRENCY;
    ptr++;

    ptr = ConvertIntToDecimalString(ptr, arg0);

    MenuPrint_RightAligned(buffer, right, top);

#ifdef ENGLISH
    ptr[0] = 0xFC;
    ptr[1] = 0x14;
    ptr[2] = 0x00;
    ptr[3] = 0xFF;
#endif
}

#ifdef NONMATCHING
void Draw10000Sprite(u8 var1, u8 var2, s32 var3)
{
    // 2D/3D array manipulation off the wazoo.
    // Converting to 2D/3D array casts makes it match less!
    u16 i;

    CpuFastSet(
        (void*)&gDecoration10000_Gfx[var3 * 0x100],
        (void*)(VRAM + 0x8000 + (var2 * 0x3c0) + ((var1 + 1) * 0x20)),
        32);
    CpuFastSet(
        (void*)&gDecoration10000_Gfx[var3 * 0x100 + 0x80],
        (void*)(VRAM + 0x8000 + ((var2 + 1) * 0x3c0) + ((var1 + 1) * 0x20)),
        32);

    for (i = 0; i < 4; i++)
    {
        u32 base = var2 * 0x20 + var1 + i;
        ((u16 *)(VRAM + 0xF800))[base] = var2 * 0x1e + 1 + var1 + (u16)-4096;
        ((u16 *)(VRAM + 0xF840))[base] = (var2 + 1) * 0x1e + 1 + var1 + (u16)-4096;
    };
}
#else
NAKED
void Draw10000Sprite(u8 var1, u8 var2, s32 var3)
{
    asm(".syntax unified\n\
    push {r4-r7,lr}\n\
    mov r7, r9\n\
    mov r6, r8\n\
    push {r6,r7}\n\
    sub sp, 0x4\n\
    mov r8, r0\n\
    adds r5, r1, 0\n\
    mov r9, r2\n\
    lsls r0, 24\n\
    lsrs r0, 24\n\
    mov r8, r0\n\
    lsls r5, 24\n\
    lsrs r5, 24\n\
    mov r1, r9\n\
    lsls r1, 8\n\
    mov r9, r1\n\
    ldr r4, _080B7BD8 @ =gDecoration10000_Gfx\n\
    adds r0, r1, r4\n\
    lsls r6, r5, 4\n\
    subs r6, r5\n\
    lsls r1, r6, 6\n\
    mov r3, r8\n\
    adds r3, 0x1\n\
    lsls r3, 5\n\
    ldr r2, _080B7BDC @ =0x06008000\n\
    adds r3, r2\n\
    adds r1, r3\n\
    movs r2, 0x20\n\
    str r3, [sp]\n\
    bl CpuFastSet\n\
    adds r4, 0x80\n\
    add r9, r4\n\
    adds r0, r5, 0x1\n\
    lsls r4, r0, 4\n\
    subs r4, r0\n\
    lsls r1, r4, 6\n\
    ldr r3, [sp]\n\
    adds r1, r3\n\
    mov r0, r9\n\
    movs r2, 0x20\n\
    bl CpuFastSet\n\
    movs r3, 0\n\
    lsls r5, 5\n\
    mov r0, r8\n\
    adds r7, r5, r0\n\
    lsls r6, 1\n\
    adds r6, 0x1\n\
    add r6, r8\n\
    ldr r1, _080B7BE0 @ =0xfffff000\n\
    adds r5, r1, 0\n\
    ldr r0, _080B7BE4 @ =0x0600f800\n\
    mov r12, r0\n\
    ldr r1, _080B7BE8 @ =0x0600f840\n\
    mov r9, r1\n\
    lsls r4, 1\n\
    adds r4, 0x1\n\
    add r4, r8\n\
_080B7BAA:\n\
    adds r1, r7, r3\n\
    lsls r1, 1\n\
    mov r0, r12\n\
    adds r2, r1, r0\n\
    adds r0, r3, r6\n\
    adds r0, r5\n\
    strh r0, [r2]\n\
    add r1, r9\n\
    adds r0, r3, r4\n\
    adds r0, r5\n\
    strh r0, [r1]\n\
    adds r0, r3, 0x1\n\
    lsls r0, 16\n\
    lsrs r3, r0, 16\n\
    cmp r3, 0x3\n\
    bls _080B7BAA\n\
    add sp, 0x4\n\
    pop {r3,r4}\n\
    mov r8, r3\n\
    mov r9, r4\n\
    pop {r4-r7}\n\
    pop {r0}\n\
    bx r0\n\
    .align 2, 0\n\
_080B7BD8: .4byte gDecoration10000_Gfx\n\
_080B7BDC: .4byte 0x06008000\n\
_080B7BE0: .4byte 0xfffff000\n\
_080B7BE4: .4byte 0x0600f800\n\
_080B7BE8: .4byte 0x0600f840\n\
    .syntax divided\n");
}
#endif

void UpdateMoneyWindow(u32 amount, u8 x, u8 y)
{
    PrintMoneyAmount(amount, 6, x + 6, y + 1);
}

void OpenMoneyWindow(u32 amount, u8 x, u8 y)
{
    Menu_DrawStdWindowFrame(x, y, x + 13, y + 3);
    UpdateMoneyWindow(amount, x, y);

    LoadCompressedObjectPic(gUnknown_083CF584);
    LoadCompressedObjectPalette(gUnknown_083CF58C);

    gUnknown_02038734 = CreateSprite(&gSpriteTemplate_83CF56C, x * 8 + 19, y * 8 + 11, 0);
}

void CloseMoneyWindow(u8 x, u8 y)
{
    DestroySpriteAndFreeResources(&gSprites[gUnknown_02038734]);
    FreeSpritePaletteByTag(SPRITE_TAG_MONEY);
    Menu_EraseWindowRect(x, y, x + 13, y + 3);
}

bool8 HasEnoughMoneyFor(void)
{
    return IsEnoughMoney(gSaveBlock1.money, gSpecialVar_0x8005);
}

void PayMoneyFor(void)
{
    RemoveMoney(&gSaveBlock1.money, gSpecialVar_0x8005);
}