# bedrPar2
act 'Leave the room':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 the parents live. In the center stands a double bed and a large clowall.'
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>'
			'You quietly pulled out of the parent caches some condoms. Now you have <<prezik>> pcs.'
			act 'Exit the room':gt 'korrPar'
		end
	else
		'You have recently taken condoms parent caches. If they often carry, something that parents can-the suspect.'
	end
end

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

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