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

%dvere(Jmeno,X,Y,Sirka)
dvere(kuchyn,80,350,90).
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,skrin1,100,50,50,[zem,otevrit_c,nato]).
free(s,skrin2,100,50,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,satnik,100,60,200,[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,kreslo,80,70,80,[zem]).
free(s,televiz,100,45,70,[tel,nato]).
free(se,kreslo2,80,70,80,[zem]).
free(st,stolek,110,70,40,[zem,konf]).
free(_,_,_,_,_,_):-fail.