Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Inventář ve hře v pascalu

Dobrej,
Dostal jsem na programování z úkol udělat hru v pascalu už jí mám skoro hotovou akorát zbývá udělat inventář jinak řečeno jak mám napsat aby když třeba najde luk tak aby mu to dalo otázku vezmeš ho?(něco zmačkne nebo napíše) necháš ho(to samí) a pak dál ve hře nastane situace kde když ho má vyhraje když ne umře.
Celou hru jsem napsal stylem
var směr;
repeat;
if směr=2 then do begin
writeln('něco(3)');
readln(směr);
if (směr<> 3) and (směr<> 2) then směr:=2;

Dik

PS: na invenář mám var i;

Předmět Autor Datum
Z toho kúska "blyvajzu" sa nedá poznať ako si rozmýšľal: "Celou hru jsem napsal stylem "... if směr…
pme 03.12.2013 15:41
pme
sorry máš pravdu tady je začátek ze hry: program TheHunt; uses crt; var smer,preziti,i:integer; beg… poslední
efafafaf 03.12.2013 16:28
efafafaf

sorry máš pravdu tady je začátek ze hry:
program TheHunt;
uses crt;
var smer,preziti,i:integer;

begin
clrscr;
randomize;
smer:=1;

repeat
clrscr;
if smer=1 then begin
writeln(' The Hunt');
writeln;
writeln;
writeln('for continue');
writeln(' (2)');
readln(smer);
if (smer<> 2) then smer:=1;

end else if smer=2 then begin
writeln('Probudily jste se na mytine obklopene neprostupnou dzungli.');
writeln('Pred sebou vidite vyslapanou cestu po ktere se vydas(3).');
readln(smer);
if (smer<> 3) then smer:=2;

Zpět do poradny Odpovědět na původní otázku Nahoru