glife/locations/Gadbana

# 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.'

clr
gs 'stat'
if night_mode = 1:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(0, 0, 0)
	lcolor = rgb(106, 90, 205)
else
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
end

if mira = 0:
	if $clothingworntype = 'nude':
		act 'Get dressed':
			gs 'clothing', 'wear_last_worn'
			gs 'underwear', 'wear'
		end
	end

	act 'Go outside':
		if $clothingworntype ! 'nude':
			minut += 5 & 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:
			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
					pcs_sweat = rand(0,5)
					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/locations/gadukino/village/par.jpg"></center>'
					'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
			pcs_hairbsh = 0
			pcs_makeup = 1
			

			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 'Gaddvor'
		end
	end

	dynamic $bteeth
	dynamic $tampon
	dynamic $quickwash
	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 (washingbelo = 1 or washingbra = 1) and $loc = 'Gadbana':
        act 'Wash underwear (30 Minutes)':
            cla
            *clr
            minut += 30
            gs 'underwear', 'cleaning'
            pcs_mood -= 10
            '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
            *nl
            'You soak your dirty 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 dirtyclothes = 1 and $loc = 'Gadbana':
        act 'Wash your clothes (1:00)':
            cla
            *clr
            minut += 60
            gs 'underwear', 'cleaning'
            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 (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 ---------------------------------