glife/locations/vanrPar

# vanrPar
CLOSE ALL
$brother_voyeurism = {
	if indorf = 0 and brother >= 40 and vanr_lock = 0 and hour >= 18 and hour <= 20 and brother_ev1 ! day:
		ivrand = RAND(1,4)
		if ivrand = 1:
			cla
			brother_ev1 = day
			'Despite the clattering noise of water, you hear the bathroom door creaking open slightly. Through a small opening in the doorway, you notice your brother Kolka watching you.'
			if sub < 30:
				act'Tell him to get lost':gt'brother','brother_go_away'
			end
			act'Let him look':gt'brother','brother_voyeur_ev1'
			exit
		end
	end
}
if vanr_lock = 0:
	act'<font size = 1>Close the latch on the door</font>':vanr_lock = 1 & gt'vanrPar'
elseif vanr_lock = 1:
	act'<font size = 1>Open the latch on the door</font>':vanr_lock = 0 & gt'vanrPar'
end

act 'Return to the hallway':gt 'korrPar'

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'<center><b><font color="maroon">Bathroom</font></b></center>'
! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
'<center><img src="images/qwest/alter/vanrPar.jpg"></center>'
'The bathroom is very small and unimpressive. Nevertheless, it has everything you need: a shower, toilet, <a href="exec:GT ''mirror'',''start''">mirror</a>, sink and even a bath tub.'
if vanr_hanger = 1: 'Next to the sink, you find the neatly folded <a href="exec:dynamic $vanr_hanger_dress & tanga = tanga_hanger & GT ''vanrPar'' ">clothes</a> Mom washed for you'.

if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
!WD: heal chafe
if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>><b> applications.'

if dirtbelo > 0 and BuyHous = 0:
	'In the bathroom you find the laundry Mom washed for you.'
	clrbelo += dirtbelo
	dirtbelo = 0
end

dynamic $shower
dynamic $bath

if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'

if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $curloc">Inject silicone into breast implants</a>'
if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $curloc">Drain silicone from breast implants</a>'

dynamic $bteeth

dynamic $tampon

if clrbelo <= 4: clrbelo = 5

dynamic $wearpan
dynamic $basin

if spdirtyc > 0:
	act 'Wipe the cum off your clothes (0:10)':
		cla
		cumspclnt = 6
		gs 'cum_cleanup'
		minut += 10
		gs 'stat'
		'<center><img src="images/etogame/frotsp.jpg"></center>'
		'You remove the 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
		minut += 15
		leghair = -5
		horny += 5
		stanok -= 1
		'<center><img src="images/pics/shave.jpg"></center>'
		'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'

		act 'Return to showering':gt $curloc
	end
end

if lobok > 0 and stanok > 0:
	act 'Shave pubis (0:15)':
		cla
		*clr
		minut += 15
		lobok = -5
		horny += 5
		stanok -= 1
		'<center><img src="images/pics/shave3.jpg"></center>'
		'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'

		act 'Return to showering':gt $curloc
	end
end

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

		if anus < 30:anus += 1

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

		'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 $curloc
	end
elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
	act 'Insert your butt plug (0:05)':
		cla
		*clr
		minut += 5
		analplugIN = 1

		if anus < 10: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/body/analplug.jpg"></center>'

		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 $curloc
	end
end

if klisma = 1 and klismaday ! daystart:
	act 'Give yourself an enema (0:05)':
		cla
		*clr
		cumspclnt = 7
		gs 'cum_cleanup'
		minut += 5
		klismaday = daystart
		klismaday1 = 1
		'<center><img src="images/picV/klisma.jpg"></center>'
		'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'

		act 'Finish':gt $curloc
	end
end

if vibrator = 1 and vibratorIN = 1:
	act 'Remove the vibrator (0:05)':
		cla
		*clr
		minut += 5
		vibratorIN = 0

		if vagina < 30:vagina += 1

		'<center><img src="images/etogame/vibrator.jpg"></center>'
		'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 $curloc
	end
elseif vibrator = 1 and vibratorIN = 0 and vagina ! 0:
	act 'Insert the vibrator in your vagina (0:05)':
		cla
		*clr
		minut += 5
		vibratorIN = 1

		if vagina < 30:vagina += 2

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

		act 'Finish':gt $curloc
	end
end

if mosolmaz > 0 and mosol > 0:
	act 'Rub ointment onto your pussy (0:05)':
		cla
		minut += 5
		mosolmaz -= 1
		mosol -= 5
		'You take a tube of cream and rub it onto your itchy vulva.'

		act 'Finish':gt $curloc
	end
end

if pregtest > 0:
	act 'Do a pregnancy test (0:05)':
		cla
		minut += 5
		pregtest -= 1
		gs 'stat'

		if pregchem > 30:
			knowpreg = 1
			'The test showed two strips. You are pregnant.'
		else
			'The test showed one band.'
		end

		act 'Finish':gt $curloc
	end
end

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