Hra kostky - program v pascalu

No, ta pravidla nejsou zdaleka nejjednodušší.

Celé to poběží ve whilu, dokud nebude jeden z hráčů mít dost bodů. Pak to skončí.

Uvnitř cyklu se budou střídat tahy hráčů, respektive to bude fungovat úplně stejně, jen to na konci tahu přičte body jednou jednomu, podruhé druhému.

Vlastní tah bude to nejhorší. Udělal bych asi pole struktur (nebo se to v pascalu jmenuje record?), které by představovalo kostky. Těm přiřadit asi tyhle vlastnosti: aktuální hodnota hodu; odložená ano/ne. Možná ještě nějaká další vhodná vlastnost.

Na začátku tahu nastavím všechny kostky jako nevybrané a "hodím" všemi. Teď nejspíš budu muset pro všechny možné výherní kombinace zjistit, jestli některá z nich existuje. Po zjištění tyto dostupné kombinace nabídnu uživateli k volbě té, kterou chce použít (jestli jsem pochopil pravidla správně, že si může vybrat). Pokud žádná výhra neexistuje (nebo jsem ani neměl žádné dostupné volné kostky), končím tah. Po jeho volbě (nebo automaticky, pokud bude jen jedna možná) přičtu body k mezisoučtu, vybrané kostky této výherní kombinace nastavím jako odložené a vracím se na začátek tohoto odstavce, tedy hodím všemi zbylými nevybranými.

Nic z tohodle by nebylo velkým problémem. Zásadní body, které se však musejí vyřešit a které dle způsobu řešení problémem být můžou (zejména proto, že to je v pascalu), jsou tyto dva:

1. Jak si zaznamenávat, které kostky jsou dostupné a které kostky patří ke které nabízené volbě. Ono pole struktur, jak jsem psal, nebude možná nejlepší. Možná by bylo lepší mít pole dostupných (jen true/false pro každou) a pole hodnot (1-6 pro každou) a pro výherní kombinaci vytvářet opět pole (true/false), značící, které kostky do té kombinace patří. Pak by se provedení výběru této kombinace stalo docela jednoduchým.

V návaznosti na to by se to taky dalo reprezentovat jako bitové pole, 00111111 vše dostupné, 00101110 dvě vybrané atd. Totéž pro výherní kombinace. S tím by se taky operovalo docela snadno.

Jinou možností by bylo s těmi poli manipulovat a prvky (vybrané kostky) z nich reálně vyjímat. Pak by se zjednodušila logika zjištování výher atd, ale musela by se přidat tato operace vyjímání. Taky by možná stačilo mít jen počet zbylých kostek, ne jejich pozici.

2. Samotné zjištování výherních kombinací. Seřadit podle velikosti. Najít jedničku, najít pětku. Najít trojici, v případě jedniček jiné body. Zjistit, jestli se jedná o posloupnost nebo jestli jsou vždy dvě za sebou shodné.

Více kombinací naráz, které jdou vybrat společně: zdá se, že tedy po nabídnutí kombinací a výběru uživatelem (tj byly alespoň dvě různé výherní kombinace) budete muset předchozí krok spustit znovu a zjistit, jestli odebráním kostek se druhá (nebo třetí nebo ostatní) kombinace rozbila, nebo jestli je nadále platná. Pak nabídnout znova (nebo automaticky připočíst, pokud je jen jedna).