Vesmírná arkáda – Pascal – Fórum – Programujte.com

Zdravím

Před měsícem jsem dostal zadání na ROČ do konce tohoto šk.roku, na hru v pascalu. Napadla mě vesmírná arkáda (pro neznalé, takhle vypadá jedna :http://www.awem.com/star_defender/scr05.jpg ), ale bez vektorů.
Návrh vypadá takhle - dole budou 2 řádky s informacemi o zdraví,levelu, atd. S lodí se bude pohybovat šipkami, nepřátelé a případně pozadí (země, hvězdy ..) bude ubíhat směrem dolů.
Zatím bych potřeboval pomoct s problémem - chci to udělat formou "obnovování", tzn poběží tam cyklus, v každém průběhu se vykreslí loď,nepřátelé,informace,pozadí ... ale nevím jak vyřešit situaci, kdy uživatel nezmáčkne žádnou klávesu a nechá loď na místě (pozadí má běžet dál), tak aby to nečekalo na stisk. Napadla mě

 if(keypressed)then key:=readkey;

zdravim, pascal asi nema nieco take ako timer ze?
neslo by to vyriesit nejakym vzdy pravdivym whilom? while true..

To sir_arthur [#75953]: Nejde mi o to vyřešit nekonečný cyklus, ten je repeat until(key=#27) - tzn dokud hráč nezmáčkne ESC. Potřebuju vyřešit problém, jak spustit blok s switchem (case), pouze když bude klávesa zmáčknutá. Bohužel v pascalu žádný timer neexistuje ..
pro jednoduchost - potřebuju udělat tento algoritmus :

pokud je zmáčknutá klávesa, udělej něco. Ale nezastavuj celý cyklus, pokud zmáčknutá nebude.
pokud není, pokračuj dál v cyklu.

Tak na tohle budeš potřebovat dvě věci:

1) Nahradit obsluhu klávesnice vlastní verzí, která umožní číst víc stisknutých kláves najednou, bez čekání.
2) Použít systémový časovač, aby se délka cyklu udržela na konstantní hodnotě bez ohledu na rychlost procesoru.

Řešení prvního bodu najdeš v téhle jednotce http://mircosoft.ic.cz/download/KLAVESY.PAS, řešení druhého v téhle http://mircosoft.ic.cz/download/CAS.PAS. Použij z nich, co uznáš za vhodné.

Hlavní cyklus by s použitím výše uvedených jednotek vypadal takhle:

repeat

StartCekani;

inc(pozice_pozadi);

vykresli_pozadi;

if pressed(pLSipka) then {pohyb lode doleva};

if pressed(pHSipka) then {pohyb lode nahoru};

...atd...

vykresli_lod;

pockej(doba_cyklu);

until pressed(pEsc);

Práci doporučuju začít prošmejděním Mircosoftových (ten člověk, co psal předchozí přízpěvek, ne M$ z Kalifornie) stránek a postahováním jeho jednotek na práci s grafikou,klávesnicí, časovačem atd. Nic lepšího neseženež, je to česky a se spoustou komentářů.

Děkuji microsoftovi, bez těch jednotek bych si nedokázal už nic moc představit :). Hru jsem chtěl udělat obsáhlejší (střely, atd) ale když jsem se dozvěděl že se neznámkuje, tak jsem ty funkce odepsal.
Můžete si ji zkusit, bohužel se po třech restartech začne podivně mazat pole s nepřáteli, ale nebudu to řešit.
[url]http://cid-4bf53c03bf97f8bb.skydrive.live.com/self.aspx/Ve%c5%99ejn%c3%a9/RO%c4%8c%20Pascal.rar
[/url]
myslím, že vyřešeno :)

Dobrý - krátká, rychlá a docela povedená gameska :smile2: .
Nechtěl bys ji nechat ke stažení u mě na stránce?

P.S.: pokud to někomu nejde stáhnout, tak tady je opravený odkaz: http://cid-4bf53c03bf97f8bb.skydrive.live.com/self.aspx/Ve%c5%99ejn%c3%a9/RO%c4%8c%20Pascal.rar.

To Mircosoft : Klidně, ale nemyslím že by sklidila úspěch :)
http://cid-4bf53c03bf97f8bb.skydrive.live.com/self.aspx/Ve%c5%99ejn%c3%a9/imbalanced|_hyperspace.rar

(mimochodem, fórum docela blbne co se týče odesílání a editace příspěvků .. )

Ty jo! Hodně, hodně dobrý!
A taky to máš výborně naprogramovaný a kód je elegantní a srozumitelný.
Jeden problém tam ale přece jenom je. Používáš textový režim 80x50, ale standardní DOSovské rozlišení je 80x25. Ty ale nevoláš žádnou proceduru pro nastavení 80x50. Tudíž já jsem před spuštěním tvojí hry musel napřed napsat "mode con: cols=80 lines=50"
Zkrátka, na začátek programu dej příkaz TextMode(c80+Font8x8) (je z jednotky Crt)
...a na konec TextMode(c80)