# saunabed
if $args[0] = '':
cls
$loc = 'saunabed'
$metka = ''
$location_type = 'private'
gs 'stat'
'
bed'
'> src="images/shared/home/bedroom/son.jpg">'
if pcs_sleep < 40:
act 'Sleep': gt 'saunabed', 'sleep'
end
if budon = 1:
'Alarm set for <> hours <> minutes'
act 'Turn the alarm off':budon = 0 & gt 'saunabed'
else
act 'Turn the alarm on':budon = 1 & gt 'saunabed'
end
act 'Set the alarm':gt'budilnik', 'start'
act 'Get out of bed':gt $locBroom, $metkaBroom
end
if $args[0] = 'sleep':
if disable_autosave = 0:
if StoryLine = 0:
SAVEGAME 'autosave.sav'
else
SAVEGAME 'autosave_alt.sav'
end
end
cls
pcs_hairbsh = 0
InSleep = 1
gs 'clothing', 'strip'
'> src="images/shared/home/bedroom/son.jpg">'
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 pcs_makeup > 1:pcs_makeup = 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
:loopson
minut += 1
stime += 1
pcs_health += 5
if stime = 60:stime = 0 & pcs_sleep += 15
gs 'stat'
if budilnikOn = 1 and hour = timer and minut = timerM:
pcs_mood -= 10
'Your alarm goes off.'
act 'Get out of bed and get dressed (0:15)':
gs 'clothing', 'wear_last_worn'
InSleep = 0
minut += 15
gt $locBroom, $metkaBroom
end
act 'Get out of bed (0:10)':
InSleep = 0
minut += 10
gt $locBroom, $metkaBroom
end
elseif pcs_sleep > 100:
pcs_mood -= 10
'You wake up, no longer tired.'
act 'Get out of bed and get dressed (0:15)':
gs 'clothing', 'wear_last_worn'
InSleep = 0
minut += 15
gt $locBroom, $metkaBroom
end
act 'Get out of bed (0:10)':
InSleep = 0
minut += 10
gt $locBroom, $metkaBroom
end
else
jump 'loopson'
end
end
--- saunabed ---------------------------------