glife/locations/160_vanrPar

# vanrPar
ACT 'Leave the room':
	gt 'korrPar'
END
$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
if sweat > -3: set sweat = -3
if frost > 0: frost = 0
set HasWashed = 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
if sweat > -3: 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 'Change a tampon':
	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 change a tampon.'
	act 'Finish': gt $curloc
	end
end

if mop ! 1:
	act 'Wash off cosmetics':
	cla
	set mop = 1
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You flushed makeup.'
	act 'Finish': gt $curloc
	end
end

if cumfrot > 0:
	act 'Scour sperm from clothing':
	cla
	set cumfrot = 0
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\frotsp.jpg"></center>'
	'You zamyli semen stains on their 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.'
		!'Вы намылили ноги и сбрили волосы с них.'
		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.'
		!'Вы намылили лобок, после чего сбрили с него все волосы.'
		act 'postpone machine': gt $curloc
		end
	end
--- vanrPar ---------------------------------