glife/locations/bedPar

# bedPar
gs 'stat'

if nude = 0:'<center><img src="images/pics/bed.jpg"></center>'
if nude = 1:'<center><img src="images/pics/son.jpg"></center>'

'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'

act 'Set Alarm Clock':gt 'budilnik', 'start'

!!if son < 10:
	act 'Undress and go to bed':
		savegame 'altavtosave.sav'
		cls
		'<center><img src="images/pics/son.jpg"></center>'

		if analplugIN = 1:set analplugIN = 0 & 'Before going to bed you remove your butt plug.'
		if vibratorIN = 1:set vibratorIN = 0 & 'Before going to bed you remove your vibrator'
		if mop > 1:set mop = 0 & set vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'

		set health += 5
		set hapri = 0
		InSleep = 1
		'You sleep and you dream about nothing.'
		:loopson
		set minut += 1
		set stime += 1

		if stime = 60:set stime = 0 & set son += 3

		clr
		gs 'stat'

		if hour = timer and minut = timerM:
			'Alarm goes off'
			set manna -= 10

			act 'Get out of bed and get dressed (0:15)':
				cla
				!!set numdress = odedosna
				set InSleep = 0
				set minut += 15
				set tanga = 1
				!!set nude = 0
				gt $locM, $metkaM
			end

			exit
		end

		if son > 23 and dosip = 0:
			'You woke up on, that slept'

			act 'Get out of bed and get dressed (0:15)':
				cla
				!!set numdress = odedosna
				set InSleep = 0
				set minut += 15
				set tanga = 1
				!!set nude = 0
				gt $locM, $metkaM
			end

			exit
		end

		jump 'loopson'
	end
!!end

act 'Get out of bed':
	cla
	gt $locM, $metkaM
end

--- bedPar ---------------------------------