#include <stdio.h>
#include <stdbool.h>
#include <stdlib.h>
#include <time.h>


struct gameItem
{
    char itemName[10];
    unsigned int itemCurrentItemPrice;
    unsigned int itemStartingPrice;
    unsigned int itemWiggleRoom;
    bool itemInInventory;
};

struct gameCustomer
{
    char customerName[10];
    unsigned int customerWiggleRoom; //should be a randomly generated number
    bool customerRecentlyDoneDeal;
};

struct gamePlayer
{
    char playerName[10];
    unsigned int playerScore;
    unsigned int playerMoney;
    unsigned totalItemsSold;
};

struct gameItem item[10] =
{
    {"Banana", 5, 5, 2, 1},
    {"Music CD", 10, 10, 5, 0},
    {"Book", 25, 25, 10, 0},
    {"Jacket", 50, 50, 20, 0},
    {"Headphones", 150, 150, 20, 0},
    {"TV", 400, 400, 20, 0},
    {"Smartphone", 0, 1200, 0, 0},
    //special items
    {"Snake Oil", 65, 65, 150, 0},
    {"Weed", 12, 12, 300, 0},
    {"Crypto", 150, 150, 500, 0}
};

struct gameCustomer customer[10] =
{
                {"George", 0, false},
                {"Mandy", 0, false},
                {"Teo", 0,false},
                {"Benji", 0, false},
                {"Xavier", 0, false},
                {"Joey", 0, false},
                {"Kurt", 0, false},
                {"Armando", 0, false},
                {"Nick", 0, false},
                {"Shelly", 0, false}
};

struct gamePlayer player;

void initCustomers()
{
        srand((unsigned int) time(NULL));
        for (int i = 0; i < 10; i++)
        {
            customer[i].customerWiggleRoom = rand() % 100 + 1;
        }
}

void debugInfo()
{
    for (int i = 0; i < 10; i++)
    {
        printf("%s\n", customer[i].customerName);
        printf("%d\n", customer[i].customerWiggleRoom);
        printf("%d\n", customer[i].customerRecentlyDoneDeal);
    }
    for (int i = 0; i < 10; i++)
    {
        printf("%s\n", item[i].itemName);
        printf("%d\n", item[i].itemCurrentItemPrice);
        printf("%d\n", item[i].itemStartingPrice);
        printf("%d\n", item[i].itemWiggleRoom);
    }
}

void gameIntro()
{
    printf("Welcome to a game about buying and selling items.\n");
    printf("It's simple, buy items and sell them to your customers for a profit.\n");
    printf("The game ends after your chosen amount of turns and you get a score!\n");
    printf("Please enter your player name (Max 10 characters)\n");
    scanf("%s", &player.playerName);
    player.playerMoney = 100;
    printf("You start with %d gold and 1 %s\n", player.playerMoney, item->itemName);
}

void printStats()
{
    printf("Name: %s\nGold: %d\n", player.playerName, player.playerMoney);
}

void printInventory()
{
    for (int i = 0; i < 10; i++)
    {
        if (item[i].itemInInventory)
        {
            printf(item[i].itemName);
            printf("\n");
        }
    }
}

void printItems()
{
    printf("Current list of items:\n");
    int busnPrice;
    for (int i = 0; i < 10; i++)
    {
        busnPrice = item[i].itemStartingPrice / 1.5;
        printf("N: %d I: %s P: %d Gold\n", i, item[i].itemName, busnPrice); 
    }
}

bool buyItem(int itemNumber)
{
    int busnItemPrice = item[itemNumber].itemStartingPrice / 1.5;
    if (!item[itemNumber].itemInInventory && (player.playerMoney >= busnItemPrice))
    {
        item[itemNumber].itemInInventory = true;
        player.playerMoney -= busnItemPrice;
        return true;
    }
    else
    {
        printf("You already have this item or you can't afford it\n");
        return false;
    }
}

void buyItems()
{
    printf("What item would you like to buy?\n");
    printItems();
    while (true)
    {
        int selection = getchar();
        switch (selection)
        {
            case '1':
                if (buyItem(1))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '2':
                if (buyItem(2))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '3':
                if (buyItem(3))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '4':
                if (buyItem(4))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '5':
                if (buyItem(5))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '6':
                if (buyItem(6))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '7':
                if (buyItem(7))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '8':
                if (buyItem(8))
                {
                    return;
                }
                else
                {
                    break;
                }
            case '9':
                if (buyItem(9))
                {
                    return;
                }
                else
                {
                    break;
                }
            case 'X':
                if (buyItem(10))
                {
                    return;
                }
                else
                {
                    break;
                }
        }
    }   
}

bool checkForItem(int itemPicked)
{
    if (item[itemPicked].itemInInventory == true)
    {
        return true;
    }
    else
    {
        return false;
    }
}

int gameUI(int itemPicked)
{
    printf("A: Accept\nN: Negotiate\nD: Decline\nS: Print Stats\nI: Print Inventory\nB: Buy Items\n");
    while (true)
    {
        int selection = getchar();
        switch (selection)
        {
            case 'A':
                if (checkForItem(itemPicked))
                { 
                    return 1;
                }
                else
                {
                    printf("You don't have this item, buy it with B\n");
                    break;
                }
            case 'N':
                if (checkForItem(itemPicked))
                {
                    return 2;
                }
                else
                {
                    printf("You don't have this item, buy it with B\n");
                    break;
                }
            case 'D':
                return 3;
            case 'S':
                printStats();
                break;
            case 'I':
                printInventory();
                break;
            case 'B':
                buyItems();
                printf("Item Bought\n");
                printf("A: Accept\nN: Negotiate\nD: Decline\nS: Print Stats\nI: Print Inventory\nB: Buy Items\n");
                break;
        }
    }
}

bool checkCustomerWiggle(int potNewItemPrice, int customerPicked, int itemPicked)
{
    if ((rand() % customer[customerPicked].customerWiggleRoom - item[itemPicked].itemWiggleRoom) > item[itemPicked].itemCurrentItemPrice - potNewItemPrice)
    {
        return false;
    }
    else
    {
        item[itemPicked].itemCurrentItemPrice = potNewItemPrice;
        return true;
    }
}

void gameTurn()
{
    int customerPicked = rand() % 10;
    int itemPicked = rand() % 10;
    int potNewItemPrice;
    item[itemPicked].itemCurrentItemPrice = item[itemPicked].itemStartingPrice; //reset item prices for negotiation; stupid solution
    printf("%s: I need a %s, willing to pay %d gold for it.\n", customer[customerPicked].customerName, item[itemPicked].itemName, item[itemPicked].itemCurrentItemPrice);
    int selection = gameUI(itemPicked);
    switch (selection)
    {
        case 1:
            player.playerMoney += item[itemPicked].itemCurrentItemPrice;
            player.playerScore++;
            item[itemPicked].itemInInventory = false;
            player.totalItemsSold++;
            printf("Sold!\n");
            break;
        case 2:
            printf("%s: Aight, what are we talking?\n", customer[customerPicked].customerName);
            printf("Enter desired item price:\n");
            scanf("%d", &potNewItemPrice);
            if (checkCustomerWiggle(potNewItemPrice, customerPicked, itemPicked))
            {
                player.playerMoney += item[itemPicked].itemCurrentItemPrice;
                player.playerScore += 2;
                item[itemPicked].itemInInventory = false;
                player.totalItemsSold++;
                printf("Sold!\n");
                break;
            }
            else
            {
                printf("%s: Nah, think I'll pass\n", customer[customerPicked].customerName);
                if(player.playerScore != 0)
                {
                    player.playerScore -= 1;
                }
                break;
            }
        case 3:
            printf("%s: Alright then, maybe some other time\n", customer[customerPicked].customerName);
            break;
    }
}

int turnSelector()
{
    printf("Please select amount of turns\n");
    int turns;
    scanf("%d", &turns);
    return turns;
}

void printExtStats()
{
    printf("Name: %s\nGold: %d\nScore: %d\nTotal Items Sold: %d\n", player.playerName, player.playerMoney, player.playerScore, player.totalItemsSold);
}

void gameEnd(int turns)
{
    printf("Game End!\n");
    printf("Total turns played: %d\n", turns);
    printf("Player stats:\n");
    printExtStats();
}

int main()
{
    initCustomers();
    gameIntro();
    int numOfTurns = turnSelector();
    for (int i = 0; i < numOfTurns; i++)
    {
        gameTurn();
    }
    gameEnd(numOfTurns);
    return 0;
}