# Gadbana
CLOSE ALL
$metka = ''
$loc = 'Gadbana'
$metkaM = ''
$locM = 'Gadbana'
$location_type = 'bathroom'
$menu_loc = 'Gadbana'
$menu_arg = ''
menu_off = 0
frost = 0
if banya_underwear = 0:
if $pantyworntype ! 'none' and $braworntype ! 'none':
banya_underwear = 1
else
banya_underwear = 2
end
end
!!clothesAtLocation = FUNC('lost_clothes_here','Gadbana')
'
bath
'
'
> src="images/locations/gadukino/village/bana.jpg">'
'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.'
gs 'stat'
if mira = 0:
if $clothingworntype = 'nude':
act 'Get dressed and leave':
minut += 1
menu_off = 1
!!gs 'clothing', 'recover_lost_clothes', 'Gadbana', 1
gs 'clothing', 'wear_last_worn'
if banya_underwear = 1: gs 'underwear', 'wear'
gs 'stat'
killvar 'banya_underwear'
gt 'Gaddvor'
end
end
if $clothingworntype ! 'nude':
act 'Go outside':minut += 1 & gt'Gaddvor'
elseif $clothingworntype = 'nude':
act 'Go outside naked':
*clr & cla
menu_off = 1
minut += 1
if gadbana_stripping ! daystart:
gadbana_stripping = daystart
inhib_exp += 2
grandma_trouble += 1
end
'
> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg">''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in almost getting caught'
!!gs 'clothing', 'recover_lost_clothes', 'Gadbana'
gs 'arousal', 'voyeur', 10, 'exhibitionism'
killvar 'banya_underwear'
gs 'stat'
act 'Continue': gt 'Gaddvor'
end
elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
act 'Go outside in your underwear':
*clr & cla
menu_off = 1
minut += 1
if gadbana_stripping ! daystart:
gadbana_stripping = daystart
inhib_exp += 1
grandma_trouble += rand(0,1)
end
'
> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg">''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in almost getting caught'
!!gs 'clothing', 'recover_lost_clothes', 'Gadbana'
gs 'arousal', 'voyeur', 10, 'exhibitionism'
killvar 'banya_underwear'
gs 'stat'
act 'Continue': gt 'Gaddvor'
end
end
if week >= 6:
if hour >= 12 and hour <= 18:
'You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.'
elseif hour > 18 and hour < 22:
'The banya is now ready.'
if banaday ! daystart:
act 'Relax in the banya (2:00)':
cls
menu_off = 1
minut += 120
pcs_sweat = rand(0,5)
noShampoo = 1
dynamic $showerdin
pcs_hairbsh = 0
pcs_makeup = 1
if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
if $clothingworntype ! 'nude': gs 'clothing', 'strip'
banaday = daystart
if frost > 0:frost = 0
pcs_skin += 5
gs 'stat'
'
> src="images/locations/gadukino/village/par.jpg">'
'You strip, sit down and relax. 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.'
if deodorant_on = 1: gs 'sweat', 'remove_deo' & '
Your deodorant gets washed away in the water.'
act 'Finish': gt $loc, $metka
end
end
else
'The banya is not in use at this time, it is available between 19:00 and 22:00 during the weekend.'
end
elseif week < 6:
'The banya is not used during the week, it is usually ready to use from 19:00 during the weekend.'
end
*nl
if shampoo > 0:
act 'Wash your body (0:25)':
cls
menu_off = 1
minut += 25
dynamic $showerdin
if frost > 0:frost = 0
!!gs 'clothing', 'strip', 'Gadbana'
gs 'clothing', 'strip'
if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
gs 'stat'
'
> src="images/locations/gadukino/village/mit.jpg">'
'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.'
if deodorant_on = 1: gs 'sweat', 'remove_deo' & '
Your deodorant gets washed away in the water.'
act 'Finish':gt $loc, $metka
end
else
'You''ve run out of shampoo and will have to buy some more before you can wash yourself.'
end
dynamic $bteeth
gs 'din_van', 'prvt_pee'
dynamic $tampon
if $clothingworntype ! 'nude':
act 'Remove clothes':
minut += 1
!!gs 'clothing', 'strip', 'Gadbana'
gs 'clothing', 'strip'
gs 'stat'
gt 'Gadbana'
end
end
dynamic $wearpan
dynamic $removepan
dynamic $basin
if painkiller > 0:
$pluralS = 's'
if painkiller = 1:$pluralS = ''
'You have <> painkiller<<$pluralS>>.'
if pain['total'] > 0 and pain['killer'] = 0:
act 'Take a painkiller':
cla
menu_off = 1
pain['killer'] += 1
painkiller -= 1
pcs_hydra += 20
gs 'stat'
*nl
'You take a painkiller and gulp it down with a glass of water.'
act 'Finish':gt $loc, $metka
end
end
end
if stanok > 0:'Your razor will last for <> more shavings. Shave Options.'
'There''s a small shaving mirror resting on the window sill, which you can use to ' + iif(pcs_hairbsh = 0,'brush','brush') + ' your hair.'
!WD: heal chafe
if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <> applications.'
if tampon = 0 and sanpad = 0:
'You have no tampons left.'
elseif tampon = 1:
'You have only <> tampon left.'
else
'You have <> tampons.'
end
if sanpad = 0 and tampon = 0:
'You have no pads left.'
elseif sanpad = 1:
'You have only <> pads left.'
else
'You have <> pads.'
end
if bcream_have > 0:
'Apply breast cream. Uses left: <>.'
end
if (cumloc[6] = 1 or cumloc[7] = 1):
act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
cla
menu_off = 1
cumspclnt = 6
gs 'cum_cleanup'
minut += 10
gs 'stat'
'
> src="images/shared/sex/cum/frotsp.jpg">'
'You remove traces of cum from the clothes.'
act 'Finish':gt $curloc
end
end
dynamic $brit
if breastpump > 0 and bp_unbox >= 1:
act 'Use breast pump':
gt 'lact_bp', 'bp_milking'
end
end
dynamic $toymanage
dynamic $enema
if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
act 'Rub ointment onto your pussy (0:05)':
cla
menu_off = 1
mosal_time = (daystart * 100) + hour
minut += 5
mosolmaz -= 1
mosol -= 5
'You take a tube of cream and rub it onto your itchy vulva.'
act 'Finish':gt $loc, $metka
end
end
else
!125st
act 'Undress':
cls
menu_off = 1
!!gs 'clothing', 'strip', 'Gadbana'
gs 'clothing', 'strip'
if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
gs 'stat'
'
> src="images/characters/village/mira/miraban.jpg">'
'While you undress, through the corner of your eye you notice Mira removing her panties.'
gs 'arousal', 'voyeur', 10, 'lesbian'
gs 'stat'
act 'Watch Mira clean herself':
cls
gs 'stat'
'
> src="images/characters/village/mira/miraban1.jpg">'
'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...'
gs 'arousal', 'voyeur', 10
gs 'stat'
act 'Steam':
cls
noShampoo = 1
dynamic $showerdin
pcs_hairbsh = 0
pcs_makeup = 1
! WD: Missing Var ~ 'banaday'
banaday = daystart
if frost > 0:frost = 0
pcs_skin += 5
gs 'stat'
'
> src="images/characters/village/mira/miraban2.jpg">'
'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...'
if deodorant_on = 1: gs 'sweat', 'remove_deo' & '
Your deodorant gets washed away in the water.'
gs 'arousal', 'voyeur', 120
gs 'arousal', 'end'
gs 'stat'
if clothesAtLocation = 1 and $clothingworntype = 'nude':
act 'Get dressed and leave':
cla
mira = 0
minut += 1
!!gs 'clothing', 'recover_lost_clothes', 'Gaddvor', 1
if banya_underwear = 1: gs 'underwear', 'wear'
killvar 'banya_underwear'
gs 'stat'
act 'Continue': gt 'Gaddvor'
end
end
act 'Go outside naked':
*clr & cla
mira = 0
minut += 1
grandma_trouble += rand(0,1)
'
> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg">'
'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught'
!!gs 'clothing', 'recover_lost_clothes', 'Gaddvor'
gs 'arousal', 'voyeur', 10, 'exhibitionism'
gs 'arousal', 'end'
killvar 'banya_underwear'
gs 'stat'
act 'Continue': gt 'Gaddvor'
end
end
end
end
!125ed
end
--- Gadbana ---------------------------------