# sauna
CLOSE ALL
gs 'themes', 'indoors'
if $ARGS[0] = '':
*clr & cla
$loc = 'sauna'
$metka = ''
sauna += 1
gs 'stat'
'
Sauna'
'> src="images/locations/city/residential/sauna/sauna.jpg">'
'Luxurious high quality public sauna founded long time ago. The sauna houses separate changing rooms and shower facilities for men and women.'
act 'Leave':minut += 10 & gt 'street'
if SaunaWhore > 0:act 'Head to work':gt 'saunawhore', 'saunawork'
if week = 5 and workDisk = 2:
'There''s a security guard waiting at the entrance for you to arrive.'
act 'Hand over the disk':
cls
minut += 20
workDisk = 3
konvert = 1
gs 'stat'
'You hand over the disk to him and you are handed back a thick envelope.'
act 'Leave':minut += 10 & gt 'street'
end
end
if hour >= 8 and hour <= 23:act 'Head to the sauna':gt 'sauna', 'sauna2'
end
if $ARGS[0] = 'sauna2':
*clr & cla
$loc = 'sauna'
$metka = 'sauna2'
$location_type = 'indoors'
minut += 5
gs 'stat'
'Sauna'
'> src="images/locations/city/residential/sauna/sauna1.jpg">'
'One hour visit - 2,000 ₽'
act 'Leave':gt 'sauna'
if money >= 2000 and saunaday ! daystart:
act 'Stay (2,000 ₽)':
cls
money = money - 2000
minut += 60
fat -= 10
pcs_sweat = rand(0,5)
dynamic $showerdin
saunaday = daystart
pcs_mood = 100
gs 'stat'
'> src="images/locations/city/shared/sauna/sau.jpg">'
'You spend an hour relaxing in the heat of the sauna, having a cool shower and dressing. You feel revitalised.'
act 'Leave':gt 'sauna'
end
end
end
if $ARGS[0] = 'saunaroom':
*clr & cla
$loc = 'sauna'
$metka = 'saunaroom'
$locBroom = 'sauna'
$metkaBroom = 'saunaroom'
$locM = 'sauna'
$metkaM = 'saunaroom'
$location_type = 'private'
saunaYouRoom = 1
gs 'stat'
gs 'kit_din'
'Room'
'> src="images/locations/city/residential/sauna/saunaroom.jpg">'
'
The room has a thread bare bed and a cheap wardrobe (where you can choose outfits and organize your clothing).'
'
Hanging on the wall is a dirty mirror. The floor is littered with dozens of porn magazines, and a selection of adult toys are scattered throughout the room. There''s so much crap laying around, there''s barely enough space to do some basic exercise.'
if budilnikOn = 0:
'
Your alarm clock is set for <> hours <> minutes and currently turned off.'
else
'
Your alarm clock is set for <> hours <> minutes and currently turned on.'
end
if SaunaWhore > 0 and money > 0 and workDolg > 0:
workDolg = dolg_temp
workDolg -= money
money -= dolg_temp
if money < 0: money = 0
if workDolg < 0: workDolg = 0
end
if workDolg > 0:'Your debt is <> ₽'
act 'Exit to the sauna':gt 'saunawhore', 'saunawork'
if workDolg > 0:
act 'Have some food (0:15)':
gs 'food', 'm_meal'
workDolg += 100
end
act 'Drink some water (0:05)':
gs 'beverage', 'bev_wat'
end
act 'Borrow cosmetics':
workDolg += 1000
kosmetica += 25
gt 'sauna', 'saunaroom'
end
end
if workDolg <= 0 and SaunaWhore > 0:
if money >= 100:
act 'Buy some food (0:15) (100 ₽)':
gs 'food', 'm_meal'
money -= 100
end
end
act 'Drink some water (0:05)':
gs 'beverage', 'bev_wat'
end
dynamic $fatdel
dynamic $lekarstvo
dynamic $vitamin
end
gs 'events', 'read_porn'
if pcs_horny >= 50:
act 'Masturbate':gt 'selfplay', 'start'
end
if pcs_sleep <= 80:
if $clothingworntype = 'nude':
$sleep_txt = 'Go to sleep'
else
$sleep_txt = 'Undress and go to sleep'
end
if succubusQW = 2:
act '<<$sleep_txt>>':
if $clothingworntype ! 'nude': gs 'clothing', 'strip'
gt 'bed2', 'succhoice'
end
else
act '<<$sleep_txt>>':
if SaunaWhore = 0:
workDolg += 850
elseif SaunaWhore > 0:
money -= 850
end
if disable_autosave = 0:
if StoryLine = 0:
savegame 'autosave.sav'
else
savegame 'autosave_alt.sav'
end
end
if $clothingworntype ! 'nude': gs 'clothing', 'strip'
if magf2bdo = 2:
gt 'bed2', 'magbstchoice'
else
gt 'bed2', 'sleep'
end
end
killvar '$sleep_txt'
end
end
end
if $ARGS[0] = 'saunafitness':
$loc = 'sauna'
$metka = 'saunaroom'
$location_type = 'indoors'
cla
*clr
''
gs 'exercise', 'tier2', 30, 'stren_exp'
'You do push-ups for 30 minutes, improving your strength.'
randpushfact = rand(-5,5)
if pcs_energy < 40: randpushfact -= RAND(1,10)
pushnum = (pcs_stren * pcs_sleep * pcs_health) / ( 1 * 67 * healthmax) + randpushfact
if pushnum < 1: pushnum = rand(1,5)
KILLVAR 'randpushfact'
'
You managed to do <> push-ups. Your previous record is <>.'
if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
gs 'stat'
act 'Finish': gt $loc, $metka
end
--- sauna ---------------------------------