#include <cstdlib>
#include <fstream>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <iostream>
#include <string>

#define KOLORY 4
#define FIGURY 13
#define TAKEN 1
#define TRUE 1
#define FALSE 0
#define NUM_RANKS 13

/* external variables */
using namespace std;

int Strit, Kolor, Kareta, Trojka;
int Para = 0;

void menu()
{
    system("cls");
    cout << "Menu"<< endl<<endl;
    cout << "1. Rozpocznij gre"<<endl;
    cout << "2. Zasady gry"<<endl;
    cout << "3. Zakoncz gre" << endl << endl;

}

bool wyswietlZawartoscPliku( string Zasady )
{
    ifstream plik;
    plik.open( Zasady.c_str() );
    if( !plik.good() )
        return false;

    string wiersz;
    while( getline( plik, wiersz ) )
        cout << wiersz << endl;

    plik.close();
    return true;
}

void tasowanie( int talia[][ 13 ] )
{
    int wiersz; /* represents suit value of card */
    int kolumna; /* represents face value of card */
    int karta; /* loop counter */

    /* for each of the 52 cards, choose a slot of the deck randomly */
    for ( karta = 1; karta <= 52; karta++ )
    {
        do /* choose a new random location until unoccupied slot is found */
        {
            wiersz = rand() % 4; /* randomly select the row */
            kolumna = rand() % 13; /* randomly select the column */
        } while( talia[ wiersz ][ kolumna ] != 0 ); /* end do...while */
        /* place card number in chosen slot of deck */
        talia[ wiersz ][ kolumna ] = karta;
    } /* end for */
} /* end function shuffle */


void rozdanieKart(int koloryWRece[], int figuryWRece[], int kartyWRece[][2], char *kolory[], char *figury[], int talia[][FIGURY], int nrkarty)
{
    int kolorIndex, figuraIndex;
    kolorIndex = rand() % 4;
    figuraIndex = rand() %13;
    while( talia[kolorIndex][figuraIndex] == TAKEN )
    {
        kolorIndex = rand() % 4;
        figuraIndex = rand() %13;
    }

    talia[kolorIndex][figuraIndex] = TAKEN;
    figuryWRece[figuraIndex]++;
    koloryWRece[kolorIndex]++;
    kartyWRece[nrkarty][0] = figuraIndex;
    kartyWRece[nrkarty][1] = kolorIndex;
    //printf("%5s %s \n", figury[figuraIndex], kolory[kolorIndex]);

}

void oddanie(int koloryWRece[], int figuryWRece[],char *kolory[], char *figury[], int talia[][FIGURY])
{
    int kolorIndex, figuraIndex;
    kolorIndex = rand() % 4;
    figuraIndex = rand() %13;
    while( talia[kolorIndex][figuraIndex] == TAKEN )
    {
        kolorIndex = rand() % 4;
        figuraIndex = rand() %13;
    }

    talia[kolorIndex][figuraIndex] = TAKEN;
    figuryWRece[figuraIndex]--;
    koloryWRece[kolorIndex]--;
    printf("%5s %s \n", figury[figuraIndex], kolory[kolorIndex]);

}

void rozdanieReki(int koloryWRece[], int figuryWRece[], int kartyWRece[][2], char *kolory[], char *figury[], int talia[][FIGURY], int ilosckart)
{
    int i;
    for(i = 0; i < ilosckart; i++)
    {
        rozdanieKart(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, i);
    }
}

void wyswietlenieReki(int koloryWRece[], int figuryWRece[], int kartyWRece[][2], char *kolory[], char *figury[], int talia[][FIGURY], int ilosckart)
{
    int i;
    for(i = 0; i < ilosckart; i++)
    {
        printf("%d. ",i+1);
        //rozdanieKart(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, i);
        printf("%5s %s \n", figury[kartyWRece[i][0]], kolory[kartyWRece[i][1]]);
    }

    cout << "\n";
}

void sprawdzanieReki(int koloryWRece[], int figuryWRece[])
{
    int kolejne_figury = 0;
    int rank, kolor;
    Strit = FALSE;
    Kolor = FALSE;
    Kareta = FALSE;
    Trojka = FALSE;
    Para = 0;

    for (kolor = 0; kolor < KOLORY; kolor++)
    {
        if (koloryWRece[kolor] == 5)
            Kolor = true;
    }

    rank = 0;
    while (figuryWRece[rank] == 0)
    {
        rank++;
    }

    for (; rank < FIGURY && figuryWRece[rank]; rank++)
    {
        kolejne_figury++;
    }

    if (kolejne_figury == 5)
    {
        Strit = TRUE;
        return;
    }

    for (rank = 0; rank < NUM_RANKS; rank++)
    {
        if (figuryWRece[rank] == 4)
            Kareta = TRUE;

        if (figuryWRece[rank] == 3)
            Trojka = TRUE;

        if (figuryWRece[rank] == 2)
            Para++;

    }

}




void wyswietlanieWynikow(int koloryWRece[], int figuryWRece[], int *wartosc)
{
    sprawdzanieReki(koloryWRece, figuryWRece);

    if (Strit && Kolor)
    {
        cout << "POKER\n\n";
        *wartosc = 9;
    }   else if (Kareta)
    {
        cout << "KARETA\n\n";
        *wartosc = 8;
    }
    else if (Trojka && Para == 1)
    {
        cout << "FUL\n\n";
        *wartosc = 7;
    }

    else if (Kolor)
    {
        cout << "KOLOR\n\n";
        *wartosc = 6;
    }

    else if (Strit)
    {
        cout << "STRIT\n\n";
        *wartosc = 5;
    }

    else if (Trojka)
    {
        cout << "Trojka\n\n";
        *wartosc = 4;
    }

    else if (Para == 2)
    {
            cout << "DWIE PARY\n\n";
            *wartosc = 3;
    }

    else if (Para == 1)
    {
        cout << "PARA\n\n";
        *wartosc = 2;
    }

    else
    {
        cout << "WYSOKA KARTA\n\n";
        *wartosc = 1;
    }
}

bool OdrzucKarty(int koloryWRece[], int figuryWRece[], int kartyWRece[][2], char *kolory[], char *figury[], int talia[][FIGURY], bool AI = false)
{
    int ile_odrzucic = 5;
    if (!AI)
        cin >> ile_odrzucic;
    int kartyOdrzucone[5][2];
    for (int i=0; i< ile_odrzucic; i++)
    {
        int co_odrzucic = rand()%5;
        if (!AI)
        {
            cin >> co_odrzucic;
            co_odrzucic--;
        }
        kartyOdrzucone[i][0] = kartyWRece[co_odrzucic][0];
        kartyOdrzucone[i][1] = kartyWRece[co_odrzucic][1];
        rozdanieKart(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, co_odrzucic);
    }

    /*talia[kolorIndex][figuraIndex] = TAKEN;
    figuryWRece[figuraIndex]++;
    koloryWRece[kolorIndex]++;
    kartyWRece[nrkarty][0] = figuraIndex;
    kartyWRece[nrkarty][1] = kolorIndex;
    */
    // oddawanie karty do talli
    for (int i=0; i< ile_odrzucic; i++)
    {
        talia[kartyOdrzucone[i][1]][kartyOdrzucone[i][0]] = 0;
        figuryWRece[kartyOdrzucone[i][0]]--;
        koloryWRece[kartyOdrzucone[i][1]]--;
    }
    return true;
}

int Gra()
{
    char *kolory[4] = { "Serce", "Karo", "Pik", "Trefl" };
    char *figury[13] = { "2", "3", "4", "5", "6", "7",
        "8", "9", "10", "Walet", "Dama", "Krol", "As" };
    int talia[4][13] = { { 0 } };

    int koloryWRece[4] = {0} ;
    int figuryWRece[13] = {0};
    int kartyWRece[5][2] = {0};

    int koloryWRece2[4] = {0};
    int figuryWRece2[13] = {0};
    int kartyWRece2[5][2] = {0};

    int punkty1gracza;
    int punkty2gracza;

    srand( time( NULL ) );

    tasowanie( talia );

    cout << "Twoja talia:\n\n";
    rozdanieReki(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, 5);
    wyswietlenieReki(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, 5);
    sprawdzanieReki(koloryWRece, figuryWRece);
    wyswietlanieWynikow(koloryWRece, figuryWRece, &punkty1gracza);

    cout << "Komputera talia:\n\n";

    rozdanieReki(koloryWRece2, figuryWRece2, kartyWRece2, kolory, figury, talia, 5);
    wyswietlenieReki(koloryWRece2, figuryWRece2, kartyWRece2, kolory, figury, talia, 5);
    sprawdzanieReki(koloryWRece2, figuryWRece2);
    wyswietlanieWynikow(koloryWRece2, figuryWRece2, &punkty2gracza);

    cout << "Podaj ile (0-5), a nastepnie jakie karty wymienic (1-5):\n";
    OdrzucKarty(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia);
    //system("cls");
    cout << "\nTwoja talia:\n\n";
    wyswietlenieReki(koloryWRece, figuryWRece, kartyWRece, kolory, figury, talia, 5);
    sprawdzanieReki(koloryWRece, figuryWRece);
    wyswietlanieWynikow(koloryWRece, figuryWRece, &punkty1gracza);

    cout << "Komputera talia:\n\n";
    if(punkty1gracza>=punkty2gracza)
    {
        // jezeli AI ma mniej lub tyle samo, pkt niz gracz, wymienia losowa ilosc kart;
        OdrzucKarty(koloryWRece2, figuryWRece2, kartyWRece2, kolory, figury, talia, true);
    }
    wyswietlenieReki(koloryWRece2, figuryWRece2, kartyWRece2, kolory, figury, talia, 5);
    sprawdzanieReki(koloryWRece2, figuryWRece2);
    wyswietlanieWynikow(koloryWRece2, figuryWRece2, &punkty2gracza);

    if(punkty1gracza > punkty2gracza) {
        cout << "Gratulacje, wygrales to rozdanie!\n\n" ;
    }else if(punkty1gracza< punkty2gracza) {
        cout << "Niestety przegrales ta runde...\n\n" ;
    }else
    {
        cout << "Remis\n\n";
    }
    return 0;
}

int main()
{
    int wybor;
    while(1)
    {
        menu();
        cin>>wybor;
        system("cls");
        switch (wybor)
        {
        case 1:
            Gra();
            system("PAUSE");
            break;
        case 2:
            if( !wyswietlZawartoscPliku( "Zasady.txt" ) )
                cout << "Nie udalo sie otworzyc pliku o podanej nazwie." << endl;
            cout << endl << endl;
            system("PAUSE");
            break;
        case 3:
            return 0;
            break;
        default:
            cout << "Zla opcja";
            cout << endl << endl;
            system("PAUSE");
            break;
        }
    }
}