glife/locations/Gadbana.qsrc

# Gadbana

CLOSE ALL
$metka = ''
$loc = 'Gadbana'
$location_type = 'bathroom'
frost = 0

'<center><h4>bath</h4></center>'

'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bana.jpg"></center>'
'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':
			gs 'clothing', 'wear_last_worn'
			gs 'underwear', 'wear'
			gt 'Gadbana'
		end
	end

	act 'Go outside':
		if $clothingworntype ! 'nude':
			minut += 1 & gt'Gaddvor'
		else
			cls
			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
			'You can''t go out without any clothes on.'
			act 'Back':gt'Gadbana'
		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
					minut += 120
					pcs_sweat = rand(0,5)
					dynamic $showerdin
					pcs_hairbsh = 0
					pcs_makeup = 1
					gs 'underwear', 'remove'
					gs 'clothing', 'strip'

					banaday = daystart

					if frost > 0:frost = 0

					pcs_skin += 5

					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
					'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.'

					act 'Get dressed':
						gs 'clothing', 'wear_last_worn'
						gs 'underwear', 'wear'
						gt 'Gadbana'
					end
					act 'Go outside': minut += 1 & gt 'Gaddvor'
				end
			end
		else
			'The banya is not in use at this time, it is available between 19:00 and 22:00 during the week.'
		end
	elseif week ! 6:
		'The banya is not used at the weekend, it is usually ready to use from 19:00 during the week.'
	end

	act 'Wash your body (0:25)':
		cls
		minut += 25
		dynamic $showerdin

		if frost > 0:frost = 0

		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
		'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 $loc, $metka
	end

	dynamic $bteeth
	gs 'din_van', 'prvt_pee'
	dynamic $tampon
	dynamic $wearpan
	dynamic $basin

	if (cumloc[6] = 1 or cumloc[7] = 1):
		act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
			cla
			cumspclnt = 6
			gs 'cum_cleanup'
			minut += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
			'You remove traces of cum from the clothes.'

			act 'Finish':gt $curloc
		end
	end

	dynamic $brit

	if dirtyclothes = 1 and $loc = 'Gadbana':
		act 'Wash your clothes (1:00)':
			cla
			*clr
			minut += 60
			dirtyclothes = 0
			pcs_mood -= 10
			cumspclnt = 6 & gs 'cum_cleanup'
			gs 'stat'
			if $clothingworntype = 'nude':
				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
				 'You undress and wash your dirty clothes.'
			end
			*nl
			'You soak your muddy clothes and underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
			act 'Finish':gt $loc, $metka
		end
	end
	if analplug = 1 and analplugin = 1:
		act 'Remove your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 0

			if pcs_ass < 30:pcs_ass += 1

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check

			act 'Finish':gt $loc, $metka
		end
	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
		act 'Insert your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 1

			if pcs_ass < 10:pcs_ass += 5
			if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
			if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
			if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'

			act 'Finish':gt $loc, $metka
		end
	end
	if vibrator = 1 and vibratorIN = 1:
		act 'Remove the vibrator (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 0

			if pcs_vag < 30:pcs_vag += 1

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'

			act 'Finish':gt $loc, $metka
		end
	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
		act 'Insert the vibrator in your vagina (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 1

			if pcs_vag < 30:pcs_vag += 2

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'

			act 'Finish':gt $loc, $metka
		end
	end

	if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
		act 'Rub ointment onto your pussy (0:05)':
			cla
			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
	if (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
		act 'Give yourself an enema (0:05)':
			cla
			*clr
			cumspclnt = 7
			gs 'cum_cleanup'
			minut += 5
			klismaday = daystart
			klismaday1= 1
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
			'You use Baba''s enema to clean yourself out down there. Your ass is now ready for anal sex without any awkward surprises.'
			act 'Finish':gt 'Gadbana'
		end
	end
else
	!125st
	act 'Undress':
		cls
		gs 'clothing', 'strip'
		gs 'underwear', 'remove'
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
			'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'
			'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban1.jpg"></center>'
			'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':
				!{
				dynamic $showerdin
				vidageday += 1
				pcs_mood += 20
				pcs_health += healthmax/20
				pcs_skin += 5
				if pcs_skin >= 20:pcs_skin = 0 & skin += 1
				}
				!copy from 40~62, different sauna in Russian.
				cls
				dynamic $showerdin
				pcs_hairbsh = 0
				pcs_makeup = 1

				! WD: Missing Var ~ 'banaday'
				banaday = daystart
				if frost > 0:frost = 0
				pcs_skin += 5

				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
				'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...'
				gs 'arousal', 'voyeur', 120
				gs 'arousal', 'end'
				gs 'stat'
				act 'Finish': mira = 0 & gt 'gaddvor'
			end
		end
	end
	!125ed
end


--- Gadbana ---------------------------------