# bedrPar2
act 'Leave the room':
	gt 'korrPar'
end

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC

'<center><B><font color = maroon>Master bedroom</font></B></center>'
'<center><img src="images/qwest/alter/<<$loc>>.jpg "></center>'

clr
set minut += 1

gs 'stat'

fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'The room in which the parents live. In the center stands a double bed and a large closet wall.'

gs 'family'

if hour = 21 and parsexrand = 5 and parentsexday ! daystart:
	gt 'seeparentsex'
end
--- bedrPar2 ---------------------------------