// NAME: Buy Star With Coins Or Turns (MP3)
// GAMES: MP3_USA
// EXECUTION: Direct
// PARAM: Number|STAR_COST_COINS
// PARAM: Number|STAR_COST_TURNS

// This is a modified version of the "Buy Star (Custom)" event from the GitHub repo
// https://github.com/PartyPlanner64/events/blob/master/C/Buy%20Star%20(Custom)%20(MP3).c
// Which is itself a "port" of Airsola's "Buy a Star" event to the C language.
// https://www.mariopartylegacy.com/forum/index.php?action=downloads;sa=view;down=300

// This event allows users to pay for a star by instead adding turns to the game
// This works up until 99 turns; after that point, the script will instead subtract elapsed turns
// How does this work with Last Five Turns? Untested! Wow!

#define TOAD_PICTURE 3
#define MAX_STARS 99
#define MAX_TURNS 99

#include "ultra64.h"

// Game turn count
extern u8 D_800CD05A;
// Elapsed turns
extern u8 D_800CD05B;

struct player {
    s8 unk0;
    s8 cpu_difficulty;
    s8 controller;
    u8 character;
    /**
     * Miscellaneous flags.
     * 1: Is CPU player
     */
    u8 flags;
    s8 pad0[5];
    /**
     * Current coin count.
     */
    s16 coins; // 10
    /**
     * Coins obtained during a Mini-Game.
     */
    s16 minigame_coins; // 12
    s8 stars; // 14

    u8 cur_chain_index; // 15
    u8 cur_space_index; // 16
    u8 next_chain_index; // 17
    u8 next_space_index; // 18
    u8 unk1_chain_index; // 19
    u8 unk1_space_index; // 20
    u8 reverse_chain_index; // 21
    u8 reverse_space_index; // 22

    u8 flags2; // 23
    u8 items[3]; // 24
    u8 bowser_suit_flag; // 27
    u8 turn_color_status; // 28

    s8 pad1[7]; // 29 - 35

    void *obj; // 36 // struct object *
    s16 minigame_star; // 40
    s16 coin_star; // 42
    s8 happening_space_count; // 44
    s8 red_space_count;
    s8 blue_space_count;
    s8 chance_space_count;
    s8 bowser_space_count; // 48
    s8 battle_space_count;
    s8 item_space_count;
    s8 bank_space_count;
    s8 game_guy_space_count; // 52

    // s8 pad2[3];
}; // sizeof == 56

extern struct player *GetPlayerStruct(s32 player_index);

char price[16];
char turnPrice[16];

char *not_enough_coins_msg =
    "\x1A\x1A\x1A\x1A" // Standard padding for picture
    "Oh dear"
    "\x85\x85\x85" // ...
    "\x0A" // New line
    "\x1A\x1A\x1A\x1A"
    "It seems you don\x5Ct have enough coins"
    "\x85\x85\x85" // ...
    "\xFF";

char *too_many_stars_msg =
    "\x1A\x1A\x1A\x1A" // Standard padding for picture
    "Nice to see y"
    "\x3D" // -
    "\x0A" // New line
    "\x1A\x1A\x1A\x1A"
    "Whoa"
    "\xC2\xC2\xC2" // !!!
    " You can\x5Ct carry any more stars\xC2"
    "\x0A"
    "\x1A\x1A\x1A\x1A"
    "I guess I\x5Cll see you later"
    "\xC3" // ?
    "\xFF";

char *declined_msg =
    "\x1A\x1A\x1A\x1A" // Standard padding for picture
    "Wait"
    "\xC2" // !
    " Are you sure"
    "\xC3" // ?
    "\x0A" // New line
    "\x1A\x1A\x1A\x1A"
    "Nobody\x5Cs ever said no before"
    "\x85\x85\x85" // ...
    "\x0A" // New line
    "\x1A\x1A\x1A\x1A"
    "That\x5Cs new"
    "\x85\x85\x85" // ...
    " See ya"
    "\xC2" // !
    "\xFF";

char *prompt_msg =
    "\x0B" // Start the message
    "\x1A\x1A\x1A\x1A" // Standard padding for picture
    "\x11" // Player Character's Name
    "\x82" // ,
    " you made it"
    "\xC2" // "!"
    "\x0A" // Newline
    "\x1A\x1A\x1A\x1A"
    "Would you like to trade "
    "for a "
    "\x07" // Yellow Font
    "Star"
    "\x08" // White Font
    "\xC3" // "?"
    "\x0A" // Newline
    "\x1A\x1A\x1A\x1A\x1A\x1A" // Little more for option indent
    "\x0C" // Start option
    "Spend "
    "\x12" // Coin price
    " coins"
    "\xC2" // !
    "\x0D" // End option
    "\x0A" // Newline
    "\x1A\x1A\x1A\x1A\x1A\x1A"
    "\x0C" // Start option
    "Add "
    "\x13" // Turn price
    " turns"
    "\xC2" // !
    "\x0D" // End option
    "\x0A" // Newline
    "\x1A\x1A\x1A\x1A\x1A\x1A"
    "\x0C" // Start option
    "Nope"
    "\xC2" // !
    "\x0D" // End option
    "\x0A" // Newline
    "\x1A\x1A\x1A\x1A\x1A\x1A"
    "\x0C" // Start option
    "View Map"
    "\x0D"; // End option

void main() {
    s32 player_index = GetCurrentPlayerIndex();

    // Edge case: check if the player has too many stars.
    struct player *player = GetPlayerStruct(player_index);
    if (player->stars >= MAX_STARS) {
        PlaySound(0x29A); // Toad: Waoh...

        ShowMessage(TOAD_PICTURE, too_many_stars_msg, 0, 0, 0, 0, 0);
        func_800EC9DC();
        CloseMessage();
        func_800EC6EC();
        return;
    }

    s32 character_str = 0x1C00 + player->character;
    sprintf(price, "%d", STAR_COST_COINS);
    sprintf(turnPrice, "%d", STAR_COST_TURNS);
    
    u8 loopCount = 0;

    while (1) {
        // Prompt the player to buy.
        ShowMessage(
            TOAD_PICTURE,
            prompt_msg,
            character_str, price, turnPrice, 0, 0
        );

        // Get the selection, either from the player or CPU.
        // If A0 is a pointer to AI data, AI logic is ran to pick for CPUs.
        // If A0 is 0 or 1, the 0th or 1st option is chosen by CPUs.
        // If A0 is 2, the value of A1 is the CPUs option index choice.
        // In this case, we have CPUs always pick Yes (0)
        s32 choice = 0;
        if (loopCount == 0) {
            // The CPU will try to buy the star
        	choice = GetBasicPromptSelection(2, 0);
        } else {
            // If they failed to buy it, give up
         	choice = GetBasicPromptSelection(2, 2);
        }

        CloseMessage();
        func_800EC6EC();

        switch (choice) {
            case 0:
                // Check for sufficient coins.
                if (PlayerHasCoins(player_index, STAR_COST_COINS) == 0) {
                    PlaySound(0x29A); // Toad: Waoh...

                    ShowMessage(TOAD_PICTURE, not_enough_coins_msg, 0, 0, 0, 0, 0);
                    func_800EC9DC();
                    CloseMessage();
                    func_800EC6EC();
                    break;
                }
                // Take coins
                AdjustPlayerCoinsGradual(player_index, -STAR_COST_COINS);
                ShowPlayerCoinChange(player_index, -STAR_COST_COINS);
                SleepProcess(35);

                // Celebration
                func_8004A520(111); // Play star jingle
                player->stars++;
                func_800F2304(-1, 6, 0);
                func_8004ACE0(610, player_index);
                SleepProcess(60);
                SleepProcess(50);

                // Restore board music
                func_8004A520(GetBoardAudioIndex());
                return;
                
            case 1:
                // Add turns
                D_800CD05A = D_800CD05A + STAR_COST_TURNS;
                // If we're over the maximum...
                if (D_800CD05A > MAX_TURNS) {
                    // Remove turns from elapsed turns instead
                    if (D_800CD05B > (D_800CD05A - MAX_TURNS)) {
                        D_800CD05B = D_800CD05B - (D_800CD05A - MAX_TURNS);
                    } else {
                        D_800CD05B = 1;
                    }
                    D_800CD05A = MAX_TURNS;
                }

                // Celebration
                func_8004A520(111); // Play star jingle
                player->stars++;
                func_800F2304(-1, 6, 0);
                func_8004ACE0(610, player_index);
                SleepProcess(60);
                SleepProcess(50);

                // Restore board music
                func_8004A520(GetBoardAudioIndex());
                return;

            case 2:
                // Show decline message and exit
                ShowMessage(TOAD_PICTURE, declined_msg, 0, 0, 0, 0, 0);
                func_800EC9DC();
                CloseMessage();
                func_800EC6EC();
                return;

            case 3:
                // Let player view the map, then repeat the loop to pick again.
                ViewBoardMap();
                break;
        }
        loopCount = loopCount + 1;
    }
}