# vanr2x
CLOSE ALL
act 'In the corridor':
	gt'korr2x'
end


$stirkad = {
	cla
	*clr
	minut = minut + dirtbelo*5
	suhbelo = suhbelo + dirtbelo
	poroshok = poroshok - 1
	dirtbelo = 0
	manna = manna - 10

	'<center><img src="images/etogame/stir.jpg"></center>'
	'You soaked clothes in the basin and poured the powder to, then you become a wash clothes, until it finally became clear.'

	act 'Hang the laundry out to dry':gt'korr2x'
}

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

clr
minut = minut + 1
housrA = 1
elektro = elektro + 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>'
'<center><img src="images/pic/vanr2x.jpg"></center>'
'Above the sink hanging <a href="exec:GT ''mirror'',''start''">mirror</a>.'

if stiralka > 0:
	if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
		husband += 5
		poroshok = poroshok - 2
		husporday = day

		'Washing machine washed her husband`s smelly socks and prossannye and properdannye truselya.'
	end
	if dirtbelo > 0 and poroshok >= dirtbelo:
		clrbelo += dirtbelo
		poroshok -= dirtbelo
		dirtbelo = 0

		'Washer washed the your laundry'
	elseif poroshok < dirtbelo:
		'You ran out of powder for the washing machine.'
	end
end

if tampon > 0:
	'On a shelf is packing tampons. It will suffice for <b><<tampon>></b> time'
else
	'<b><font color = red>You do not have tampons.</font></b>'
end

if stanok > 0:'On a shelf is a machine for shaving, he has enough blade out, that would shave <b><<stanok>></b> time.'
if dirtbelo > 0:'The basket is <font color = red><b><<dirtbelo>></b></font> Power. dirty laundry.'

if poroshok > 0:
	if dirtbelo = 0:$stirka = ''
	if dirtbelo > 0:$stirka = '<a href="exec: dynamic $stirkad ">You can do your laundry</a>'
	'Under the bath is tin can for washing powder, which is enough for <b><<poroshok>></b> washings. <<$stirka>>'
else
	'<b><font color = red>You do not have detergent, and nothing to wash clothes.</font></b>'
end

if clrbelo > 0:
	'The cabinet is <font color = blue><b><<clrbelo>></b></font>Power. clean laundry.'
else
	'<b><font color = red>You do not have clean underwear.</font></b>'
end

if shampoo > 0:
	'You have enough shampoo <<shampoo>> time. You may <a href="exec: gt''vann'',''start'' ">have a wash</a>.'
else
	'You ran out of shampoo, so the problems with washing.'
end

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

if vanr_hanger = 1: 'Next to the sink neatly folded your <a href="exec:dynamic $vanr_hanger_dress & GT ''vanr'' ">clothes</a>'

if mosolmaz > 0:'On a shelf is a tube of ointment protivomozolnoy, which will suffice for <<mosolmaz>> applications.'
if stiralka > 0:'In the bathroom is a washing machine.'

dynamic $bteeth
dynamic $tampon
dynamic $quickwash
dynamic $wearpan
dynamic $basin

if klisma = 1 and klismaday ! daystart:
	act 'Make yourself an enema 5 min':
		cla
		*clr
		cumspclnt = 7
		gs 'cum_cleanup'
		minut = minut + 5
		klismaday = daystart
		klismaday1 = 1
		'<center><img src="images/picV/klisma.jpg"></center>'
		'You set yourself an enema and clean the intestines, now your ass ready for anal sex.'

		act 'Logout':gt $curloc
	end
end

if vibrator = 1 and vibratorIN = 1:
	act 'Remove the vibrator 5 min':
		cla
		*clr
		minut = minut + 5
		vibratorIN = 0
		if vagina < 30:vagina = vagina + 1
		'<center><img src="images/etogame/vibrator.jpg"></center>'
		'You bent down and took out a vibrator from the vagina.'

		act 'Logout':gt'vanr2x'
	end

elseif vibrator = 1 and vibratorIN = 0:
	act 'Insert the vibrator 5 min':
		cla
		*clr
		minut = minut + 5
		vibratorIN = 1
		if vagina < 30:vagina = vagina + 2

		'<center><img src="images/etogame/vibrator.jpg"></center>'
		'You bent down and inserted a phallic object currently in the pussy.'

		act 'Logout':gt'vanr2x'
	end
end

if analplug = 1 and analplugin = 1:
	act 'Remove the butt plug 5 min':

		cla
		*clr
		minut = minut + 5
		analplugIN = 0
		if anus < 30:anus = anus + 1
		'<center><img src="images/pic/analplug.jpg"></center>'
		if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'

		act 'Logout':gt $curloc
	end
elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
	act 'Paste anal plug 5 min':
		cla
		*clr
		minut = minut + 5
		analplugIN = 1
		if anus < 10:anus = 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 tilt and habitual movement inserted itself anal plug.'
		if butpluguse = 0:butpluguse = 1 & 'You tried to relax as much as possible, and the priest began to insert themselves cork, biting her lip from feeling, that your ass is about to burst you gently pushed into the thickest part of your ass and finally tube into place.'

		act 'Logout':gt $curloc
	end
end

if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
	act 'Wash the clothes of her husband 1 h (2 units of washing powder)':
		cla
		*clr
		husband += 5
		poroshok = poroshok - 2
		minut = minut + 60
		husporday = day
		manna -= 25
		'<center><img src="images/etogame/stir.jpg"></center>'
		'You are an hour washes her husband`s smelly socks and prossannye and properdannye truselya.'

		act 'Move away from the bathroom':gt'vanr2x'
	end
end

if husband > 0 and husbanday > 0 and huspolday ! day:
	act 'Clean the apartment 1 h':
		cla
		*clr
		husband += 5
		minut = minut + 60
		huspolday = day
		manna -= 25

		!'<center><img src="images/pics/cook.jpg"></center>'
		'You took a rag and started to get out of the apartment.'

		act 'Escape':gt'vanr2x'
	end
end

if pregtest > 0:
	act 'Make a pregnancy test':

		cla
		pregtest -= 1
		gs'stat'

		if pregchem > 30:
			knowpreg = 1
			'The test showed the two strips. Are you pregnant.'

			!'Father - <<$father>>.'
		else
			'The test showed a strip.'
		end

		act 'Further':gt $curloc
	end
end
--- vanr2x ---------------------------------