
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;
Z toho kúska "blyvajzu" sa nedá poznať ako si rozmýšľal: "Celou hru jsem napsal stylem "...
if směr=2 then do begin
"do" tam robí čo? presne ako celý ten zmätený popis...
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;