# spalnya
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Bedroom</B></center>'
'<center><img src="images\img\centr\spaln.jpg"></center>'
set minut += 5
set tanhouse1 = 1
gs 'stat'
if komp = 1: '<a href="exec: GT ''Komp'',''start''">Computer</a>.'
act 'In the corridor': gt 'house'
act 'Lesson (2:00)':
	cla
	set minut += 120
	set intel += 1
	'You prozanimavshis two hours seems something in your head postponed'
	act 'Finish': gt 'spalnya'
	end
if student > 0 and kursovik < 100:
	act 'Write kursovik (1:00)':
		cla
		*clr
		set minut += 60
		set kursovik += RAND(intel/20, intel/10)
		if kursovik > 100: set kursovik = 100
		set manna -= 10
		'<center><img src="images\etogame\study.jpg"></center>'
		'You sat on the course work and prepared her <<kursovik>> percent.'
		act 'Finish': gt 'spalnya'
		end
	end
act 'Mirror': gt 'mirror','start'
act 'Cupboard': gt 'loker','start'
act 'In bed': gt 'bed','start'
if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt 'spalnya'
		end
else
	act 'Remove Underwear':
		cla
		set tanga = 0
		gt 'spalnya'
		end
	end
--- spalnya ---------------------------------