# Gadbana
CLOSE ALL
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'bathroom'
frost = 0
'
bath
'
''
'Quite a small room with a low smoky ceiling, low stove, stainless steel water tanks and a blackened wooden shelf.'
'Grandma''s enema bulb is hidden behind some stuff on the shelf.'
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
if mira = 0:
act 'Go outside':
if $clothingworntype ! 'nude' or exhibi > 0:
minut += 5 & gt'Gaddvor'
else
cls
''
'You are ashamed to appear like this in the open.'
act 'Back':gt'Gadbana'
end
end
if week >= 6:
if hour >= 12 and hour <= 18:
canpar = 1
'You put the wood into the stove and start a fire. It will take several hours before the banya is ready.'
elseif hour > 18 and hour < 22:
canpar = 1
'The banya is now ready.'
if banaday ! daystart:
act 'Relax in the banya (2:00)':
cls
minut += 120
sweat = rand(0,5)
dynamic $showerdin
hapri = 0
mop = 1
! WD: Missing Var ~ 'banaday'
banaday = daystart
if frost > 0:frost = 0
skinvan += 5
gs 'stat'
''
'After a proper banya session, you pick up a bucket filled with cold water and pour it over yourself and head over to the shower. You feel like a completely new person.'
act 'Go outside':gt 'Gaddvor'
end
end
elseif hour >= 22:
canpar = 0
end
elseif week ! 6:
canpar = 0
end
if canpar = 0:
act 'Wash (1:00)':
cls
dynamic $showerdin
minut += 60
hapri = 0
mop = 1
if frost > 0:frost = 0
gs 'stat'
''
'You lather your body washcloth and start scrubbing your body. You rinse off the soap and start to lather the hair with the shampoo. After rising off the shampoo you are completely clean.'
act 'Leave':gt 'Gaddvor'
end
end
dynamic $bteeth
dynamic $tampon
dynamic $quickwash
dynamic $wearpan
dynamic $basin
if spdirtyc > 0:
act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
cla
cumspclnt = 6
gs 'cum_cleanup'
minut += 10
gs 'stat'
''
'You remove traces of cum from the clothes.'
act 'Finish':gt $curloc
end
end
if leghair > 0 and stanok > 0:
act 'Shave your legs (0:15)':
cla
*clr
minut = minut + 15
leghair = -5
pcs_horny = pcs_horny + 5
stanok = stanok - 1
''
'You use the shaving gel to lather your legs and pick up the razor. You skillfully shave the hair off your legs and finish by washing off the remaining shaving foam.'
act 'Put away the razor':gt $curloc
end
end
if lobok > 0 and stanok > 0:
act 'Shave your pubic hair (0:15)':
cla
*clr
minut = minut + 15
lobok = -5
pcs_horny = pcs_horny + 5
stanok = stanok - 1
''
'You lather your pubic hair with shaving gel and pick up a razor. With neat movements you begin to shave the pubic area. After a short time the pubic area feels smooth and you wash off the remaining foam from the pussy.'
act 'Put away the razor':gt $curloc
end
end
else
!125st
act 'Undress':
cls
minut += 10
pcs_horny += 10
gs 'stat'
''
'While you undress, through the corner of your eye you notice Mira removing her panties.'
act 'Watch Mira clean herself':
cls
minut += 10
pcs_horny += 15
gs 'stat'
''
'You feel the hot steam penetrate into your pores while you blissfully watch Mira lather up. She sometimes throws at you short glances and smiles hesitantly in response...'
act 'Steam':
!{
dynamic $showerdin
vidageday += 1
pcs_horny += 20
manna += mannamax/5
health += healthmax/20
skinvan += 5
if skinvan >= 20:skinvan = 0 & skin += 1
}
!copy from 40~62, different sauna in Russian.
cls
minut += 120
dynamic $showerdin
hapri = 0
mop = 1
! WD: Missing Var ~ 'banaday'
banaday = daystart
if frost > 0:frost = 0
skinvan += 5
gs 'stat'
''
'Mira finally finishes lathering herself, you take the loofah and lather yourself from head to toe. You enjoy yourselves in the warm bath, relaxing in each other''s company, occasionally exchanging meaningless anecdotes...'
act 'Finish': mira = 0 & gt 'gaddvor'
end
end
end
!125ed
end
--- Gadbana ---------------------------------