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;