glife/sugarcube/src/locations/gadukino/gadbana.tw

:: Gadbana[mod mod_gad]
<<set $here = 'Gadbana'>>
<<set $ARGS = $location_var[$here]>>
<!-- !2021/05/05-->
<<set $loc_arg = ''>>
<<set $loc = 'gadbana'>>
<<set $locM_arg = ''>>
<<set $locM = 'gadbana'>>
<<set $location_type = 'bathroom'>>
<<set $menu_loc = 'gadbana'>>
<<set $menu_arg = ''>>
<<set $menu_off = 0>>
<<set $pc.frost = 0>>
<<if getvar("$banya_underwear") == 0>>
	<<if $wardrobe.isWearingPanties and $wardrobe.isWearingBra>>
		<<set $banya_underwear = 1>>
	<<else>>
		<<set $banya_underwear = 2>>
	<</if>>
<</if>>
<!-- !!clothesAtLocation = setup.func('lost_clothes_here','gadbana')-->
<center><h4>Bath</h4></center>
<<image "locations/gadukino/village/bana.jpg">>
A small room with a low, smoky ceiling, a small stove, a couple of stainless steel water tanks, and a blackened wooden shelf.
Grandma''s enema bulb is hidden behind some stuff on the shelf.
<<if getvar("$mira_guest") == 0>>
	<<if $wardrobe.clothingworntype == 'nude'>>
		<<actCLA 'Get dressed and leave'>>
			<<set $time.minutes += 1>>
			<<set $menu_off = 1>>
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1-->
			<<gs 'clothing' 'wear_last_worn'>>
			<<if getvar("$banya_underwear") == 1>>
				<<gs 'underwear' 'wear'>>

			<</if>>
			<<set $banya_underwear to null>>
			<<gt 'gaddvor'>>
		<</actCLA>>
	<</if>>
	<<if $wardrobe.clothingworntype != 'nude'>>
		<<actCLA 'Go outside'>>
			<<set $time.minutes += 1>> <<gt 'gaddvor'>>
		<</actCLA>>
	<<elseif $wardrobe.clothingworntype == 'nude'>>
		<<actCLA 'Go outside naked'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 1>>
			<<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
			<<setinit $grandmaQW['nudity_trouble'] += rand(0,2)>>
			<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
			It's undoubtedly risky leaving the bathhouse like this. But, while it's unlikely anyone saw you go outside naked, there''s a thrill in potentially getting caught.
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
			<<arouse 'flash' 10 `['exhibitionism']`>>
			<<set $banya_underwear to null>>
			<<act 'Continue'>>
				<<gt 'gaddvor'>>
			<</act>>
		<</actCLA>>
	<<elseif $wardrobe.clothingworntype == 'nude' and ($wardrobe.isWearingPanties or $wardrobe.isWearingBra)>>
		<<actCLA 'Go outside in your underwear'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 1>>
			<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>
			<<setinit $grandmaQW['nudity_trouble'] += rand(0,1)>>
			<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
			It's undoubtedly risky leaving the bathhouse like this. But, while it's unlikely anyone saw you go outside naked, there''s a thrill in potentially getting caught.
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
			<<arouse 'flashlite' 10 `['exhibitionism']`>>
			<<set $banya_underwear to null>>
			<<act 'Continue'>>
				<<gt 'gaddvor'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<if $time.weekday >= 6>>
		<<if $time.hour >= 12 and $time.hour <= 18>>
			You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.
		<<elseif $time.hour > 18 and $time.hour < 22>>
			The banya is now ready.
			<<if $banaday != $time.daystart>>
				<<actCLA 'Relax in the banya (2:00)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 120>>
					<<set $pc.pcs_sweat = rand(0,5)>>
					<<set $noShampoo = 1>>
					<<gs 'cleanBody'>>
					<<set $pc.pcs_hairbsh = 0>>
					<<set $pc.pcs_makeup = 1>>
					<<if $wardrobe.clothingworntype != 'nude'>>
						<<strip 'clothes'>>

					<</if>>
					<<if $wardrobe.isWearingPanties and $wardrobe.isWearingBra>>
						<<gs 'underwear' 'remove'>>

					<</if>>
					<<set $banaday = $time.daystart>>
					<<if $pc.frost > 0>>
						<<set $pc.frost = 0>>

					<</if>>
					<<if $sauna_daystart != $time.daystart>>
						<<set $sauna_daystart = $time.daystart>>
						<<set $pc.pcs_skin += rand(2,4)>>
						<<set $pc.pcs_willpwr += 3>>
					<</if>>
					<<image "locations/gadukino/village/par.jpg">>
					You strip, sit down and relax. Then, after a proper banya session, you pick up a bucket filled with cold water, pour it over yourself, and head over to the shower. You feel like a completely new person.
					<<if $pc.deodorant_on == 1>>
						<<gs 'sweat' 'remove_deo'>>

					<</if>>
					<<actCLA 'Finish'>>
						<<gt $location>>
					<</actCLA>>
				<</actCLA>>
			<</if>>
		<<else>>
			The banya is not in use at this time. However, it is available between 19:00 and 22:00 during the weekend.
		<</if>>
	<<elseif $time.weekday < 6>>
		The banya is not used during the week. However, it is usually ready to use from 19:00 during the weekend.
	<</if>>
	<<if $inventory.get("shampoo") > 0 or (locat['Fam_inGad'] == 1 and setup.func('homes_properties', 'has_access', 'homeParents'))>>
		<<actCLA 'Wash your body (0:25)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 25>>
			<<if getvar("$locat['Fam_inGad']") == 1 and setup.func('homes_properties', 'has_access', 'homeParents')>>
				<<set $noShampoo = 1>>

			<</if>>
			<<gs 'cleanBody'>>
			<<if $pc.frost > 0>>
				<<set $pc.frost = 0>>

			<</if>>
			<!-- !!gs 'clothing', 'strip', 'gadbana'-->
			<<gs 'clothing' 'strip_all'>>
			<<image "locations/gadukino/village/mit.jpg">>
			You lather up your washcloth and start scrubbing your body. Next, you rinse off the soap and begin to lather your hair with shampoo. After rinsing off the shampoo, you feel completely clean.
			<<if $pc.deodorant_on == 1>>
				<<gs 'sweat' 'remove_deo'>>

			<</if>>
			<<actCLA 'Finish'>>
				<<gt $location>>
			<</actCLA>>
		<</actCLA>>
	<<else>>
		<font color="red">You've run out of shampoo and will have to buy some more before you can wash.</font>
	<</if>>
	<<bteeth>>
	<<gs 'bathroom' 'prvt_pee'>>
	$inventory.get("tampon")
	<<if $wardrobe.clothingworntype != 'nude'>>
		<<actCLA 'Remove clothes'>>
			<<set $time.minutes += 1>>
			<!-- !!gs 'clothing', 'strip', 'gadbana'-->
			<<strip 'clothes'>>
			<<gt 'gadbana'>>
		<</actCLA>>
	<</if>>
	<<wearpan>>
	<<removepan>>
	<<basin>>
	<<if $inventory.get("painkiller") > 0>>
		<<set $pluralS = 's'>>
		<<if $inventory.get("painkiller") == 1>>
			<<set $pluralS = ''>>

		<</if>>
		<p>You have <b>painkiller</b> painkiller$pluralS.</p>
		<<if $pc.painTotal > 0 and $pc.pain('killer') == 0>>
			<<actCLA 'Take a painkiller'>>
				<<set $menu_off = 1>>
				<<run $pc.painInc('killer','',1)>>
				<<run $inventory.dec('painkiller',1)>>
				<<set $pc.pcs_hydra += 20>>
				You take a painkiller and gulp it down with a glass of water.
				<<actCLA 'Finish'>>
					<<gt $location>>
				<</actCLA>>
			<</actCLA>>
		<</if>>
	<</if>>
	<<if $inventory.get("razor") > 0>>
		Your razor will last <b>$inventory.get("razor")</b> more shaves. <<link "Shave Options">><<gs 'bathroom' 'shave_options'>><</link>>.

	<</if>>
	'There''s a small shaving <<link 'brush'>><<gt  'mirror'  'start'">mirror</a> on the window sill  which you can use to ' +iif(pcs_hairbsh < 1 '<a href="exec:gt 'mirror' 'brush'>><</link>>','brush') + ' your hair.'
	<!-- !WD: heal chafe-->
	<<if getvar("$mosolmaz") > 0>>
		On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.

	<</if>>
	<<if $inventory.get("tampon") == 0 and $inventory.get("sanpad") == 0>>
		<b><font color="red">You have no tampons left.</font></b>
	<<elseif $inventory.get("tampon") == 1>>
		<font color="red">You have only <b>$inventory.get("tampon")</b> tampon left.</font>
	<<else>>
		You have <b>$inventory.get("tampon")</b> tampons.
	<</if>>
	<<if $inventory.get("sanpad") == 0 and $inventory.get("tampon") == 0>>
		<b><font color="red">You have no pads left.</font></b>
	<<elseif $inventory.get("sanpad") == 1>>
		<font color="red">You have only <b>$inventory.get("sanpad")</b> pads left.</font>
	<<else>>
		You have <b>$inventory.get("sanpad")</b> pads.
	<</if>>
	<<if getvar("$bcream_have") > 0>>
		<!-- FAILED TO CONVERT
			'<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
		-----
			<<set ERROR: FAILED TO CONVERT LITERAL: """'<a href""" = ERROR: FAILED TO CONVERT LITERAL: """"exec:dynamic $use_bcream""">> <<gt $loc ERROR: FAILED TO CONVERT LITERAL: """$loc_arg">Apply breast cream.<""" / ERROR: FAILED TO CONVERT LITERAL: """a> Uses left: <<bcream_have>>.'""">>

		-->
		<<warn "CONVERSION ERROR 12f69a803dfb3fa1cd90e7939a822189">>
	<</if>>
	<<if ($pc.cumAtLocation(6) == 1 or $pc.cumAtLocation(7) == 1)>>
		<<actCLA 'Rinse the cum stains off your clothes in lukewarm water (0:10)'>>
			<<set $menu_off = 1>>
			<<set $cumspclnt = 6>>
			<<gs 'cum_cleanup'>>
			<<set $time.minutes += 10>>
			<<image "shared/sex/cum/frotsp.jpg">>
			You scrub all the cum from your clothes.
			<<actCLA 'Finish'>>
				<<gt $curloc>>
			<</actCLA>>
		<</actCLA>>
	<</if>>
	<<gs 'shaveOptions'>>
	<!-- !!breast pump is now in the menu, not on the screen-->
	<<if getvar("$breastpump") > 0 and getvar("$bp_unbox") >= 1>>
		<<act 'Use breast pump'>>
			<<gt 'lact_bp' 'bp_milking'>>
		<</act>>
	<<elseif getvar("$breastpump") > 0 and getvar("$bp_unbox") <= 0>>
		<<link "Unbox">><<gt 'lact_bp' 'bp_unbox_event'>><</link>> your breast pump
	<<elseif getvar("$breastpump") <= 0>>
		<<gs 'lact_bp' 'massage'>>
	<</if>>
	<<toymanage>>
	<<enema>>
	<<if getvar("$mosolmaz") > 0 and getvar("$mosol") > 0 and $mosal_time != (daystart * 100) + hour>>
		<<actCLA 'Rub ointment onto your pussy (0:05)'>>
			<<set $menu_off = 1>>
			<<set $mosal_time = ($time.daystart * 100) + $time.hour>>
			<<set $time.minutes += 5>>
			<<set $mosolmaz -= 1>>
			<<set $mosol -= 5>>
			You take a tube of cream and rub it onto your itchy vulva.
			<<actCLA 'Finish'>>
				<<gt $location>>
			<</actCLA>>
		<</actCLA>>
	<</if>>
<<else>>
	<!-- !125st-->
	<<if $wardrobe.clothingworntype == 'nude'>>
		<<actCLA 'Get dressed and leave'>>
			<<set $time.minutes += 1>>
			<<set $menu_off = 1>>
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1-->
			<<gs 'clothing' 'wear_last_worn'>>
			<<if getvar("$banya_underwear") == 1>>
				<<gs 'underwear' 'wear'>>

			<</if>>
			<<set $banya_underwear to null>>
			<<gt 'gaddvor'>>
		<</actCLA>>
	<</if>>
	<<if $wardrobe.clothingworntype != 'nude'>>
		<<actCLA 'Go outside'>>
			<<set $time.minutes += 1>> <<gt 'gaddvor'>>
		<</actCLA>>
	<<elseif $wardrobe.clothingworntype == 'nude'>>
		<<actCLA 'Go outside naked'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 1>>
			<<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
			<<setinit $grandmaQW['nudity_trouble'] += rand(0,2)>>
			<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
			<<arouse 'flash' 10 `['exhibitionism']`>>
			<<set $banya_underwear to null>>
			<<act 'Continue'>>
				<<gt 'gaddvor'>>
			<</act>>
		<</actCLA>>
	<<elseif $wardrobe.clothingworntype == 'nude' and ($wardrobe.isWearingPanties or $wardrobe.isWearingBra)>>
		<<actCLA 'Go outside in your underwear'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 1>>
			<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>
			<<setinit $grandmaQW['nudity_trouble'] += rand(0,1)>>
			<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
			<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
			<<arouse 'flashlite' 10 `['exhibitionism']`>>
			<<set $banya_underwear to null>>
			<<act 'Continue'>>
				<<gt 'gaddvor'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<actCLA 'Undress and bathe with Mira'>>
		<<set $menu_off = 1>>
		<!-- !!gs 'clothing', 'strip', 'gadbana'-->
		<<gs 'clothing' 'strip_all'>>
		<<image "characters/gadukino/mira/miraban.jpg">>
		While you undress, you notice Mira removing her panties from the corner of your eye.
		<<arouse 'erotic_nudity' 5 >>
		<<actCLA 'Watch Mira clean herself'>>
			<<image "characters/gadukino/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...
			<<arouse 'erotic_nudity' 5 >>
			<<actCLA 'Steam'>>
				<<set $noShampoo = 1>>
				<<gs 'cleanBody'>>
				<<set $pc.pcs_hairbsh = 0>>
				<<set $pc.pcs_makeup = 1>>
				<!-- ! WD: Missing Var ~ 'banaday'-->
				<<set $banaday = $time.daystart>>
				<<if $pc.frost > 0>>
					<<set $pc.frost = 0>>

				<</if>>
				<<set $pc.pcs_skin += 5>>
				<<image "characters/gadukino/mira/miraban2.jpg">>
				<p>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...</p>
				<<if $pc.deodorant_on == 1>>
					<<gs 'sweat' 'remove_deo'>>

				<</if>>
				<<arouse 'erotic_nudity' 25 >>
				
				<<if $wardrobe.clothingworntype == 'nude'>>
					<<actCLA 'Get dressed and leave'>>
						<<set $time.minutes += 1>>
						<<set $menu_off = 1>>
						<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1-->
						<<gs 'clothing' 'wear_last_worn'>>
						<<if getvar("$banya_underwear") == 1>>
							<<gs 'underwear' 'wear'>>

						<</if>>
						<<set $banya_underwear to null>>
						<<gt 'gaddvor'>>
					<</actCLA>>
				<</if>>
				<<if $wardrobe.clothingworntype != 'nude'>>
					<<actCLA 'Go outside'>>
						<<set $time.minutes += 1>> <<gt 'gaddvor'>>
					<</actCLA>>
				<<elseif $wardrobe.clothingworntype == 'nude'>>
					<<actCLA 'Go outside naked'>>
						<<set $menu_off = 1>>
						<<set $time.minutes += 1>>
						<<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(0,2)>>
						<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
						<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
						<<arouse 'flash' 10 `['exhibitionism']`>>
						<<set $banya_underwear to null>>
						<<act 'Continue'>>
							<<gt 'gaddvor'>>
						<</act>>
					<</actCLA>>
				<<elseif $wardrobe.clothingworntype == 'nude' and ($wardrobe.isWearingPanties or $wardrobe.isWearingBra)>>
					<<actCLA 'Go outside in your underwear'>>
						<<set $menu_off = 1>>
						<<set $time.minutes += 1>>
						<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(0,1)>>
						<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
						<!-- !!gs 'clothing', 'recover_lost_clothes', 'gadbana'-->
						<<arouse 'flashlite' 10 `['exhibitionism']`>>
						<<set $banya_underwear to null>>
						<<act 'Continue'>>
							<<gt 'gaddvor'>>
						<</act>>
					<</actCLA>>
				<</if>>
			<</actCLA>>
		<</actCLA>>
	<</actCLA>>
<</if>>