# bed2
gs 'stat'
cla

if $clothingworntype ! 'nude':
	'<center><img src="images/pics/bed.jpg"></center>'
else
	'<center><img src="images/pics/son.jpg"></center>'
end

dynamic $budilnikOn

if mop ! 1:'<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'

if son > 17:
	'You are not tired.'
elseif son < 17:
	act 'Undress and go to sleep':

		if disable_autosave = 0:
			if StoryLine = 0:
				savegame 'autosave.sav'
			else
				savegame 'autosave_alt.sav'
			end
		end

		gs 'clothing', 'strip'

		clr
		cls
		'<center><img src="images/pics/son.jpg"></center>'

		hapri = 0
		InSleep = 1
		cloth_vid = 0

		if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
		if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
		if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smears your face, you think that it looks bad sleeping in makeup, and your skin will age faster from this.'
		if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5

		if storyline = 0:
			temp = rand(1, 10)
			if temp = 1:
				'You have hazy dreams about your past.'
			elseif temp = 2:
				'You dreamed of the moon looking at the world with his one bloody eye.'
			elseif temp = 3:
				'You dream that you are a man again.'
			else
				'You sleep without dreaming.'
			end
		else
			'You sleep without dreaming.'
		end

		:loopson
		minut += 1
		stime += 1
		health += 5

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

		gs 'stat'

		if budilnikOn = 1 and hour = timer and minut = timerM:
			manna -= 10
			'Your alarm goes off.'

			if daystart < 10 and StoryLine = 0:'The first thing you think as you wake up is, "Damn! It''s is not a dream, I really am a woman now."'
			if daystart >= 10 and daystart < 30 and StoryLine = 0:'Looking at your female body, you are still a little surprised it''s actually you.'

			if kanikuli = 0 and SchoolAtestat = 0 and week < 6 and hour >= 4 and hour < 9:
				act 'Get up out of bed and get dressed for school (0:15)':
					gs 'clothing', 'wear', 'sforma'
					minut += 15
					dynamic $wakepar
				end
			end

			act 'Get out of bed and get dressed (0:15)':
				gs 'clothing', 'wear_last_worn'
				minut += 15
				dynamic $wakepar
			end

			act 'Get out of bed (0:10)':
				InSleep = 0
				minut += 10
				dynamic $wakepar
			end

		elseif son > 24:
			manna -= 10
			'You wake up, no longer tired.'

			if daystart < 10 and StoryLine = 0:'The first thing you think as you wake up is, "Damn! It''s is not a dream, I really am a woman now."'
			if daystart >= 10 and daystart < 30 and StoryLine = 0:'Looking at your female body, you are still a little surprised it''s actually you.'

			if kanikuli = 0 and SchoolAtestat = 0 and week < 6 and hour >= 4 and hour < 9:
				act 'Get up out of bed and get dressed for school (0:15)':
					gs 'clothing', 'wear', 'sforma'
					minut += 15
					dynamic $wakepar
				end
			end

			act 'Get out of bed and get dressed (0:15)':
				gs 'clothing', 'wear_last_worn'
				minut += 15
				dynamic $wakepar
			end

			act 'Get out of bed (0:10)':
				minut += 10
				dynamic $wakepar
			end

		else
			jump 'loopson'
		end
	end
end

act 'Options':dynamic $sopts

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

--- bed2 ---------------------------------

