Hra miny v pascalu – Pascal – Fórum – Programujte.com

Dobrý den,

ve škole jsem dostal zadání abych naprogramoval hru hledání min v pascalu (Bez grafiky).

Zadání zní

Vykreslí se nejprve pole pomocí nějakých znaků (např. pomlčka). Hráč vždy zadá souřadnice a zda si myslí, že na nich je mina nebo není. Pokud zadá, že na poli mina není a bude to pravda, odkryje se číslo, kolik je v okolí min. Pokud to nebude pravda, hra končí prohrou. Pokud zadá, že na poli je mina a bude to pravda, odkryje se mina (třeba písmeno m). Pokud to nebude pravda, hra konční. Hrát se bude s jedním herním plánem (jen jediné rozmístění min), které si nachystáš do textového souboru a odtud se načte do pole. Textový soubor obsahující herní plánek si doneseš už hotový.

Nástin řešení:

Potřebuješ asi 2 dvourozměrná pole. V jednom bude herní plánek a druhé stejně velké pole s hodnotami boolean. Druhé pole nastavíš na počáteční hodnotu false. Když hráč pole odkryje, hodnotu políčka změníš na true, takře při dalším výpisu budeš vědět, že na tomto políčku zobrazuješ herní plán. Kde bude false, vykreslí se např. pomlčka. Herní plánek ze souboru bych četla po znacích a zapisovala do pole pro herní plán.

Předem děkuji za všechny rady :-)

ahoj, no a s čím by jsi chtěl jako moct? Tak začni třeba tak, že z textáku si načteš pole min a po zadání souřadnic ti to vypíše jeslti je tam mina nebo kolik min je v okolí.

#2 Tukan
Tak nějak mě nenapadá jak na to. No udělal jsem 2 textové soubory 5 řádků a 4 sloupce. V jednom jsou pouze pomlčky a v druhém je herní plocha, která má být skytá. Zadeklaroval jsem 2 dvourozměrná pole (var reseni:array [1..4,1..5] of string, var plocha:array[1­..4,1..5] of string) Teď netuším jak do toho pole načíst ty znaky ze souboru. Chtěl jsem aby se to pole načetlo naráz, ale v zadání je aby se to načítalo po znacích pravděpodobně for cyklem. Poté mi taky došlo, že to nejde načítat naráz protože když skončí tah tak se to pole vypíše celé znova a ty odkryté části by se znovu zakryly.

v pascalu jsem nedělal už asi 8 let kod ti nenapíši. Tak si přečti znak po znaku a ty si zapisuj do pole.

No tak zase si musíš zapsat do souboru, kde uživatel kliknul, aby jsi při dalším načtení už to věděl.

A když mám textový soubor, kde je to takto

----

----

----

----

----

Tak jak mám napsat abych zapsal třeba do písmene a tu jednu pomlčku na souřadnicích 1,1 ?

teď nechápu co myslíš tím "do písmene a". 

Já bych to asi udělal takto, že budu vždycky vypisovat tohle pole. A pokud by bylo na nějaké místo kliknuto, tak si tam dám místo pomlčky číslo nebo M (jako minu). Po každém kliku musíš vymazat soubor a zapsat celé pole do souboru.

#6 Tukan
Tak to jsem vůbec nepochopil má tam být funkce boolean. A napadlo mě akorát změnit hodnotu pomlčky na false a hodnotu z řešení přepsat z false na true ;) A nebudu muset vůbec nic přepisovat v souborech

#7 Filip

tak jasně můžeš to udělat tak, že ty txt načteš na začátku a pak tě už nezajímají - nejlehčí. 

Přesně takhle to cvičící myslel. Na druhou stranu to je jen doporučený nástin řešení. Udělat to jde více způsoby

#8 Tukan
assign(reseni, C:\pascal\reseni.txt);

Co je na tom blbě ?

#9 Filip
Chybí ti tam apostrofy.

assign(reseni, 'C:\pascal\reseni.txt');

#3 Filip
Ved sprav si textovi v takejto podobe http://imgur.com/SRzbPon
- = nič m = mina  no a čísla su ako pri minach
* chybajú mi tam ešte jednotky za to sa ospravedlnujem
 

Potom sprav nieco ako:
repeat
readln(subor,riadok);
cisloriadku:=cisloriadku+1;     ak to bude prvy riadok spravi 0+1 cize 1. riadok
for i:=1 to lenght(riadok) do 
x:= riadok[i];
case x of 
#no a tu ides proste pre každú vec 
'-':hraciepole[cisloriadku,x];
'm':hraciepole[cisloriadku,x];  no a takto pre každú možnosť akú môžeš dostať.

Týmto načítaš svoje pole ktoré ma dokonca variabilnu velkosť (ak je array dynamická a pouťiješ SetLength)

potom je to už len o čítaní vstupu porovnávaní s načítaným polom a nasledovnom vypísaní na obrazovku, nevidím, teda nejdem to programovať a nemám to spravené ciže neviem na 100% povedať, že by bolo potreba mať dve polia. Keď budeš iba odhalovať rôzne body na pred pripravenom pláne a určovať či prehral alebo pokračuje alebo odhalil celé pole. Tak by si využil pole na výstupnej obrazovke.
 
To je môj názor ale bližšie som to neskúšal.

EDIT: Zabudol som pripomenúť, že nie je to správny syntax, je to len v skratke ukázané asi ako približne by som postupoval.
 

#11 Bellwar
Teraz som si uvedomil, že som zabudol v tom Case dopísať za neznámu z toho array
  
:='-'
:='m';

Nato som tam ešte včera v noci zabudol. 

Kdysi jsem miny psal, i s grafikou. Hrací pole bylo 2D pole čísel (array[1..vyska,1..sirka] of byte), kde 0..8 znamenalo počet min v okolí a 9 byla mina. K tomu bylo druhé stejně velké pole, kde byly možné hodnoty "neodkryto", "odkryto", "označeno praporkem" a "označeno otazníkem" (byla to buď zase čísla, nebo přímo výčtový typ - už si to nepamatuju). Miny jsem do pole sypal náhodně a čísla generoval podle nich, načítání by mohlo fungovat nějak takhle:

Otevři soubor pro čtení (Reset)
Cyklus pro y od 1 do výšky hracího pole (for):
- begin
- Cyklus pro x od 1 do šířky hracího pole:
-- begin
-- Načti ze souboru jeden znak (Read)
-- Ulož ho do hracího pole na souřadnice y,x
-- Skoč v souboru na začátek dalšího řádku (Readln)
-- end
- end

To druhé pole fungovalo tak, že když se do něj kliklo levým myšítkem, změnila se hodnota na "odkryto" (navíc odkrytí nuly automaticky odkrylo i políčka v okolí a odkrytí miny ukončilo hru). Pravé myšítko točilo hodnoty dokola mezi "neodkryto", "označeno praporkem" a "označeno otazníkem". Ve tvém případě bude stačit pole booleanů, kde třeba false=zakryto a true=odkryto. Na začátku ho celé nastavíš na "zakryto".

Výpis hracího pole na obrazovku by mohl vypadat třeba takhle:

Cyklus pro y od 1 do výšky hracího pole:
- begin
- Cyklus pro x od 1 do šířky hracího pole:
-- begin
-- Jestli (if) je v tom druhém poli na indexu y,x hodnota "zakryto" (false), vypiš pomlčku (Write)
-- Jestli ne (else), vypiš místo pomlčky hodnotu z hracího pole na indexu y,x
-- end
- Na obrazovce ukonči řádek (Writeln)
- end

A teď koukám, že reaguju s týdenním zpožděním, takže už to stejně asi nemá cenu :-].