# bedrPar2
CLOSE ALL
act 'Return to the hallway':gt 'korrPar'

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'<center><b><font color="maroon">Master bedroom</font></b></center>'
! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
'<center><img src="images/qwest/alter/bedrPar2.jpg"></center>'
'The room in which your parents live. Their large bed, wardrobe and other closets take up most of the space.'
gs 'family'

if hour > 6 and hour < 21 and prezikday ! daystart:
	if prezikProver >= 3:
		prezikday = daystart - 4
		act 'Take condoms from your parents'' stash':
			cls
			cla
			gs 'stat'
			minut+=rand(5,7)
			prezik+=rand(1,3)
			prezikday = daystart
			prezikProver = 0
			'<center><img src="images/qwest/alter/condoms_steal.jpg"></center>'
			'After you make sure you''re not seen, you quickly search your parents'' room for their condom stash and take a few. Now you have <<prezik>> pcs.'
			act 'Exit the room':gt 'korrPar'
		end
	else
		'You have already taken some condoms out of your parents'' stash recently. You should wait a while, otherwise they might get suspicious.'
	end
end

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

--- bedrPar2 ---------------------------------