# din_van

$showerdin = {
	cumspclnt = 1
	gs 'cum_cleanup'
}

$bteeth = {
	if fbreath ! 1:
		act 'Brush your teeth (0.05)':
			cla
			*clr
			minut += 5
			cumspclnt = 2
			gs 'cum_cleanup'
			fbreath = 1
			'<center><img src="images/pics/brushteeth.jpg"></center>'
			'You brush your teeth and now they are clean and minty fresh'
			act 'Finish':gt $locM, $metkaM
		end
	end
}

$shower = {

	act 'Wash in the shower (0:15)':
		cla
		*clr
		shampoo -= 1
		minut += 15
		horny += 1
		hapri = 0
		mop = 1
		sweat = -3

		if clrbelo > 0 and tanga = 1:
			clrbelo -= 1
			dirtbelo += 1
		elseif clrbelo = 0 and tanga = 1:
			tanga = 0
			dirtbelo += 1
		end

		if shampoo < 0:
			shampoo = 0
		end

		dynamic $showerdin

		if frost > 0:frost = 0

		'<center><img src="images/pics/dush.jpg"></center>'

		if daystart < 10 and StoryLine = 0:
			'It is really wild to see your new body with all its smooth curves, breasts with large nipples, wide hips, and smooth legs. You begin to lather your body in the shower noticing how soft and tender it feels. Once you lather yourself with soap you wash in the shower, continuing to experience new and strange sensations.'
		elseif daystart >= 10 and daystart < 30 and StoryLine = 0:
			'You have already gotten used to a woman''s body and its softness doesn''t surprise you very much.'
		else
			'You carefully lather soap over your body trying not to miss any spot, and then wash off in the shower.'
		end
		
		if $loc = 'vanrPar':
			dynamic $brother_voyeurism
		end

		if (leghair > 0 or lobok > 0) and stanok > 0:
			act 'Get razor':dynamic $brit
		end

		if horny >= 90:
			act 'Use the showerhead on your pussy':
				cla
				*clr
				horny = 0
				minut += 30
				mastr += 1
				orgasm += 1
				manna += 15
				willpower += 15
				'<center><img src="images/pics/wash2.jpg"></center>'
				'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. Soon you feel a warm wave covers your entire body and you begin to shudder as the orgasm overtakes you.'

				act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
			end
		elseif horny >= 40 and horny < 90:
			act 'Send shower pussy':
				cla
				*clr
				horny += 5
				minut += 30
				manna += 10
				willpower += 10
				'<center><img src="images/pics/wash2.jpg"></center>'
				'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. At first it feels very nice, but after a while it starts to be a little bit painful. You decide to stop masturbating.'

				act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
			end
		end	
		
		act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
	end
}

$bath = {
	act 'Soak in the bath (1:00)':
		cla
		*clr
		shampoo -= 1
		minut += 60
		sweat = -3
		horny += 1
		hapri = 0
		mop = 1
		manna += 10

		if clrbelo > 0 and tanga = 1:
			clrbelo -= 1
			dirtbelo += 1
		elseif clrbelo = 0 and tanga = 1:
			tanga = 0
			dirtbelo += 1
		end

		if shampoo < 0:
			shampoo = 0
		end

		dynamic $showerdin

		if frost > 0:frost = 0

		skinvan += 1

		if skinvan = 20:skinvan = 0 & skin += 1

		gs 'stat'
		'<center><img src="images/pics/wash4.jpg"></center>'
		if daystart < 10:
			'You got into the bathroom and sat down in the warm water, sticking out of the water your knees are rounded and smooth, which you blinked, you still have not got used to his new body was wildly like to look at all these roundness. Starting lather body you unwittingly turned their attention to the chest, it''s so soft and big, and when you touch her body appear in what is unfamiliar but pleasant sensations. Then you washed with soap yourself and you can already out of the bathroom.'
		elseif daystart >= 10 and daystart < 30:
			'You got into the bathroom and sat down in the warm water, you have a little accustomed to his new body and calmly soaping all these curves and bulges, then you flushed the soap.'
		else
			'You got into the bathroom and went into the warm water stolidly staring at his smooth legs sticking out of the water. You lathered his body and then washed soap rubbing his hands over his curves of the female body.'
		end

		if $loc = 'vanrPar':
			dynamic $brother_voyeurism
		end

		if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			act 'Get razor':dynamic $brit
		end

		if obdysh = 1:vannmastrand = rand(0, 5)

		if horny >= 90:
			act 'Direct water on pussy':
				cla
				*clr

				if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'

				horny = 0
				minut += 30
				mastr += 1
				orgasm += 1
				manna += 15
				willpower += 15

				'<center><img src="images/pics/wash7.jpg"></center>'
				'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'

				act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
			end
		elseif horny >= 40 and horny < 90:
			act 'Direct water on pussy':
				cla
				*clr

				if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
				horny += 5
				minut += 30
				manna += 10
				willpower += 10
				'<center><img src="images/pics/wash7.jpg"></center>'
				'You sent a water faucet on pussy and tight jet of warm water began to caress you. At first it was not even bad, but then sleep and arousal, even as it was not nice. So you stopped masturbating.'

				act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
			end
		end

		if horny >= 50:
			act 'Masturbate':gt 'selfplay'
		end
		act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
	end
}


$brit = {
	cla
	'You rinse the razor blade which looks in good enough shape for <b><<stanok>></b> more shaves.'

	if leghair > 0 and stanok > 0:
		act 'Shave your legs (0:15)':
			cla
			*clr
			minut += 15
			leghair = -5
			horny += 5
			stanok -= 1
			'<center><img src="images/pics/shave.jpg"></center>'

			if daystart < 10:'You have decided to shave your pussy and picking up a razor realized that you do not know how to shave. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking your hand and wondering sensations.'
			if daystart >= 10 and daystart < 30:'You lathered her soft feet and took in hand razor. You have grown accustomed to his new body and shaved legs calmly knowing that hairy legs with your new body is not beautiful. Finally shaving was done with and you flushed foam stroking his smooth as silk legs.'
			if daystart >= 30:'You lathered his feet and took a razor. Habitual movements you shaved hair on the legs and washed shaving foam.'

			!!'You lathered up and shaved hair with them.'

			act 'Postpone machine':dynamic $brit
		end
	end

	if lobok > 0 and stanok > 0:
		act 'Shave pubis (0:15)':
			cla
			*clr
			minut += 15
			lobok = -5
			horny += 5
			stanok -= 1

			if obdysh = 1 and obbritinvent = 0:
				britrand = rand(0, 5)
				if britrand = 5:gt 'vann', 'brit1'
			end

			'<center><img src="images/pics/shave3.jpg"></center>'

			if daystart < 10:'You have decided to shave pubis, lathered his foam and picking up a razor realized that he did not imagine how it shaved. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking her hand and wondering sensations.'
			if daystart >= 10 and daystart < 30:'You foam lathered his groin, trying not to miss a single crease on her pussy. Then neat movements began shave pussy trying not to cut. Finally you did it and you flushed foam pubic hair and pussy.'
			if daystart >= 30:'You lathered crotch and took a razor habitual movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'

			!!'You lathered pubis, then shaved all the hair from it.'
			act 'Postpone machine':dynamic $brit
		end
	end

	act 'Get out and get dressed':gt $locM, $metkaM
}

$tampon = {
	if sanpad > 0 and mesec > 0 and isprokp = 0 and tanga = 1:
		act 'Use a sanitary napkin (0:05)':
			cla
			*clr
			sanpad -= 1
			isprokp = 1
			minut += 5
			manna -= 5
			'<center><img src="images/pics/wash3.jpg"></center>'
			'You use a sanitary napkin.'
			act 'Finish':gt $locM, $metkaM
		end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
		act 'Use a tampon (0:05)':
			cla
			*clr
			tampon -= 1
			isprok = 1
			minut += 5
			manna -= 5
			'<center><img src="images/pics/wash3.jpg"></center>'
			'You use a tampon.'
			act 'Finish':gt $locM, $metkaM
		end
	end
}


$quickwash = {
	if spdirty > 0:
		act 'Quick wash (0:15)':
			cla
			*clr

			if clrbelo > 0 and tanga = 1:
				clrbelo -= 1
				dirtbelo += 1
			elseif clrbelo = 0 and tanga = 1:
				tanga = 0
				dirtbelo += 1
			end
			
			cumspclnt = 20
			gs 'cum_cleanup'
			sweat -= 1
			minut += 15
			'<center><img src="images/pics/wash5.jpg"></center>'
			'You gave yourself a catlick, thus removing any traces of cum.'

			act 'Finish':gt $locM, $metkaM
		end
	end
}

$wearpan = {

if tanga = 0 and clrbelo > 0:
	act 'Wear Underwear':
		cla
		tanga = 1
		clrbelo -= 1
		gt $locM, $metkaM
	end
end
}

$basin = {

if tanga = 1:
	act 'Remove Underwear':
		cla
		tanga = 0
		dirtbelo += 1
		gt $locM, $metkaM
	end
end

if spdirtyv > 0 or spdirtyb > 0:
	act 'Clean your face from sperm (0:10)':
		cla
		*clr
		mop = 1
		cumspclnt = 9
		gs 'cum_cleanup'
		cumspclnt = 13
		gs 'cum_cleanup'
		sweat -= 1
		minut += 10
		'<center><img src="images/etogame/facesp.jpg"></center>'
		'You clean your face and got rid of any trace of cum.'

		act 'Finish':gt $locM, $metkaM
	end
end

if body_write > 0 or face_write > 0:
	act 'Wash writing off your body':
		cla
		body_write = 0
		face_write = 0
		minut = minut + 5
		gs'stat'
		
		!'You need a picture'
		'You wiped indecent inscriptions.'

		act 'Finish':gt $locM, $metkaM
	end
end

if mop ! 1:
	act 'Wash off cosmetics (0:10)':
		cla
		mop = 1
		cumspclnt = 9
		gs 'cum_cleanup'
		cumspclnt = 11
		gs 'cum_cleanup'
		minut += 10
		'You washed off your makeup.'

		act 'Finish':gt $locM, $metkaM
	end
end
}

$pirManage = {
	cls
	cla
    *nl
    if pirsA > 0:
        if pirsA = 1:
            '<a href="exec:pirsA = 2 & dynamic $pirManage">Remove tongue barbell</a>.'
		else
            '<a href="exec:pirsA = 1 & dynamic $pirManage">Insert tongue barbell</a>.'
        end
    end
    if pirsB > 0:
        if pirsB = 1:
            '<a href="exec:pirsB = 2 & dynamic $pirManage">Remove lip ring</a>.'
		else
            '<a href="exec:pirsB = 1 & dynamic $pirManage">Insert lip ring</a>.'
        end
    end
    if pirsC > 0:
        if pirsC = 1:
            '<a href="exec:pirsC = 2 & dynamic $pirManage">Remove ear piercings</a>.'
		else
            '<a href="exec:pirsC = 1 & dynamic $pirManage">Insert ear piercings</a>.'
        end
    end
    if pirsD > 0:
        if pirsD = 1:
            '<a href="exec:pirsD = 2 & dynamic $pirManage">Remove nose ring</a>.'
		else
            '<a href="exec:pirsD = 1 & dynamic $pirManage">Insert nose ring</a>.'
        end
    end
    if pirsE > 0:
        if pirsE = 1:
            '<a href="exec:pirsE = 2 & dynamic $pirManage">Remove eyebrow stud</a>.'
		else
            '<a href="exec:pirsE = 1 & dynamic $pirManage">Insert eyebrow stud</a>.'
        end
    end
    if pirsF > 0:
        if pirsF = 1:
            '<a href="exec:pirsF = 2 & dynamic $pirManage">Remove nipple piercings</a>.'
		else
            '<a href="exec:pirsF = 1 & dynamic $pirManage">Insert nipple piercings</a>.'
        end
    end
    if pirsN > 0:
        if pirsN = 1:
            '<a href="exec:pirsN = 2 & dynamic $pirManage">Remove navel piercing</a>.'
		else
            '<a href="exec:pirsN = 1 & dynamic $pirManage">Insert navel piercing</a>.'
        end
    end
    if pirsG > 0:
        if pirsG = 1:
            '<a href="exec:pirsG = 2 & dynamic $pirManage">Remove labia piercings</a>.'
		else
            '<a href="exec:pirsG = 1 & dynamic $pirManage">Insert labia piercings</a>.'
        end
    end
    if pirsGL > 0:
        if pirsGL = 1:
            '<a href="exec:pirsGL = 2 & dynamic $pirManage">Remove clit piercing</a>.'
		else
            '<a href="exec:pirsGL = 1 & dynamic $pirManage">Insert clit piercing</a>.'
        end
    end
    
    act'<b>Back</b>':gt $locM, $metkaM
}

--- din_van ---------------------------------

