%nejdrive se to musi vsechno nachystat
% na zeactku by melo byt uvedeno:
mistnost(420,350,250).

%dvere(Jmeno,X,Y,Sirka)
dvere(kuchyn,10,350,20).
dvere(ven,420,45,120).
dvere(balkon,0,180,90).
dvere(_,_,_,_):-fail.

%okno(Jmeno,X,Y,Z,Sirka)
okno(o,0,70,100,110).
okno(_,_,_,_,_):-fail.

%no a seznam nabytku:
%free(Typ,Jmeno,Delka,Sirka(==Hloubka),Vyska,Seznam_Parametru).
free(s,satnik,100,60,200,[zem,otevrit_c,nato]).
free(s,skrin1,100,45,50,[zem,otevrit_c,nato]).
free(s,skrin2,100,45,50,[zem,otevrit_c,nato]).
free(s,skrinka,100,30,45,[zem,otevrit_c,nato]).
free(s,skrinka2,100,30,45,[zem,otevrit_c,nato]).
free(s,polic,100,30,45,[otevrit_c,nato,sklo]).
free(s,polic1,100,30,45,[otevrit_c,nato]).
free(se,velka,200,70,80,[zem]).
free(se,mala,140,70,80,[zem]).
free(se,kreslo,80,70,80,[zem]).
free(st,stolek,110,40,40,[zem,konf]).
free(_,_,_,_,_,_):-fail.