glife/locations/vanrPar

# vanrPar
act 'Leave the room':gt 'korrPar'

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC

'<center><b><font color="maroon">Bath</font></b></center>'
'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Bathroom cramped and very unpretentious.'

if stanok > 0:'Your razor will suffice for <b><<stanok>></b> time.'

act 'Wash in the shower (0:15)':
	cls
	dynamic $showerdin
	minut += 15
	set horny += 1
	set hapri = 0
	set mop = 1
	set sweat = -3

	if frost > 0:frost = 0

	gs 'stat'
	'<center><img src="images/pics/dush.jpg"></center>'
	'You got into the shower and began to lather your body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean.'

	act 'Out of the bath':gt $locM, $metkaM
end

act 'Wash in the bathroom (1:00)':
	cls
	dynamic $showerdin
	minut += 60
	set sweat = -3
	set horny += 3
	set hapri = 0
	set mop = 1
	set manna += 10

	if frost > 0:frost = 0

	set skinvan += 1

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

	gs 'stat'
	'<center><img src="images/pics/wash4.jpg"></center>'
	'Turn on the water, you got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body sponge and hair shampoo. Then all you have washed off with water.'

	act 'Out of the bath':gt $locM, $metkaM
		if horny >= 90:
			act 'Direct water on pussy':
				cla
				*clr
				set horny = 0
				set minut += 30
				set mastr += 1
				set orgasm += 1
				set manna += 15
				set 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 out and get dressed':gt $locM, $metkaM
			end
		end

		if horny >= 40 and horny < 90:
			act 'Direct water on pussy':
				cla
				*clr
				set horny += 5
				set minut += 30
				set manna += 10
				set 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 out and get dressed':gt $locM, $metkaM
			end
		end

		if horny >= 50:
			act 'Masturbate':gt 'selfplay'
		end
	end
end


if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Use a tampon (0:05)':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		gs 'stat'
		'<center><img src="images/pics/wash3.jpg"></center>'
		'You use a tampon.'

		act 'Finish':gt $curloc
	end
end

!!0.2.6 extension: Removed sweat =- 1 when cum is wiped off clothes
!!Washing off cosmetics also removes cum from face
if mop ! 1:
	act 'Wash off cosmetics (0:15)':
		cla
		set mop = 1
		set cumface = 0
		set minut += 15
		gs 'stat'
		'<center><img src="images/etogame/facesp.jpg"></center>'
		'You washed off your makeup.'

		act 'Finish':gt $curloc
	end
end

if cumfrot > 0:
	act 'Wipe the cum off your clothes (0:10)':
		cla
		*clr
		set cumfrot = 0
		set minut += 10
		gs 'stat'
		'<center><img src="images/etogame/frotsp.jpg"></center>'
		'You remove traces of cum from your clothes.'

		act 'Finish':gt $curloc
	end
end
!!

if leghair > 0 and stanok > 0:
	act 'Shave your legs (0:15)':
		cla
		*clr
		set minut += 15
		set leghair = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images/pics/shave.jpg"></center>'
		'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
		!!'You lathered up and shaved off the hair with them.'

		act 'postpone machine':gt $curloc
	end
end

if lobok > 0 and stanok > 0:
	act 'Shave pubis (0:15)':
		cla
		*clr
		set minut += 15
		set lobok = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images/pics/shave3.jpg"></center>'
		'You lathered crotch and took a razor deft 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 off his hair all.'

		act 'postpone machine':gt $curloc
	end
end

if analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
	act 'Insert a butt plug (0:05)':
		cla
		*clr
		plugday = daystart
		set minut += 5
		set analplugIN = 1

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

		'<center><img src="images/pic/analplug.jpg"></center>'

		if butpluguse > 0:'You bent over and inserted the butt plug.'
		if butpluguse = 0:set butpluguse = 1 & '"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'

		act 'Leave':gt $curloc
	end
end

if analplug = 1 and analplugin = 1:
	act 'Remove the butt plug (0:05)':
		cla
		*clr
		set minut += 5
		set analplugIN = 0

		if anus < 30:set anus += 1

		'<center><img src="images/etogame/analplug.jpg"></center>'
		'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check

		act 'Finish':gt $curloc
	end
end

if klisma = 1 and klismaday ! day:
	act 'Give yourself an enema (0:05)':
		cla
		*clr
		set minut += 5
		set klismaday = day
		set klismaday1 = 1
		'<center><img src="images/picV/klisma.jpg"></center>'
		'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'

		act 'Finish':gt $curloc
	end
end

if pregtest > 0:
	act 'Do a pregnancy test':
		pregtest -= 1
		cla
		gs 'stat'

		if preg = 1:
			'The test showed the two strips. you are pregnant.'
			'you think, that the father <<$father>>.'
		else
			'The test showed one band.'
		end

		act 'Further':gt $curloc
	end
end

--- vanrPar ---------------------------------