slife/locations/135_spalnya

# 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 ---------------------------------