glife/locations/150_vanr

# vanr

act 'Go to the corridor':gt 'korr'

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

$stirkad = {
	cla
	*clr
	set minut += dirtbelo * 5
	set suhbelo += dirtbelo
	set poroshok -= 1
	set dirtbelo = 0
	set manna -= 10
	'<center><img src="images/etogame/stir.jpg"></center>'
	'You soak the dirty linen in a basin and pour the powder on them. You wash the clothes until they are finally clean.'

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


'<center><b><font color="maroon">Bathroom</font></b></center>'

if remvanr = 0:'<center><img src="images/etogame/vanr.jpg"></center>'
if remvanr = 1:'<center><img src="images/etogame/vanr2.jpg"></center>'

clr
gs 'stat'
fcolor="rgb"(0, 0, 0)
bcolor="rgb"(255, 255, 255)
lcolor="rgb"(106, 90, 205)
set minut += 1
set housrA = 1
set elektro += 1

if stiralka > 0:
	if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
		husband += 5
		set poroshok -= 2
		husporday = day
		'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
	end

	if dirtbelo > 0 and poroshok >= dirtbelo:
		clrbelo += dirtbelo
		poroshok -= dirtbelo
		dirtbelo = 0
		'The washing machine washed your laundry'
	elseif poroshok<dirtbelo:
		'You ran out of powder for washing machine.'
	end
end


if tampon > 0:
	'A box of tampons is on a shelf. There is enough for <b><<tampon>></b> uses'
else
	'<b><font color="red">You have no tampons.</font></b>'
end

if stanok > 0:'A package of razors is on a shelf above the sink. You have enough blades for <b><<stanok>></b> shaves.'
if dirtbelo>0:'The laundry basket currently has <font color = red><b><<dirtbelo>></b></font> pieces of dirty laundry.'
if poroshok > 0:
	if dirtbelo = 0:$stirka = ''
	if dirtbelo > 0:$stirka = '<a href="exec:dynamic $stirkad">You can wash clothes</a>'
	'Under the sink there''s detergent powder, which is enough for <b><<poroshok>></b> washes. <<$stirka>>'
else
	'<b><font color="red">You have no detergent powder and nothing to wash clothes with.</font></b>'
end

if clrbelo > 0:
	*p 'A cupboard contains <font color = blue><b><<clrbelo>></b></font> pairs of clean underwear. '
else
	*p '<b><font color = red>You do not have any clean underwear.</font></b> '
end

if shampoo > 0:
	'You have enough shampoo for <b><<shampoo>></b> washes. You can <a href="exec:gt ''vann'', ''start''">wash yourself</a>.'
else
	'You''ve ran out of shampoo.'
end

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

!'if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
	cla
	set tanga = 1
	gt 'vanr'
	end
end
if tanga = 1:
	act 'Do not wear underwear':
	cla
	set tanga = 0
	gt 'vanr'
	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
		'<center><img src="images/pics/wash3.jpg"></center>'
		'You change a tampon.'

		act 'Exit':gt 'vanr'
	end
end

if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
	act 'Wash up (0:05)':
		cla
		*clr
		set cumpussy = 0
		set cumbelly = 0
		set cumass = 0
		set cumlip = 0
		set cumface = 0
		set cumanus = 0
		set cumfrot = 0
		set sweat -= 1
		set minut += 5
		set clrbelo -= 1
		set dirtbelo += 1
		'<center><img src="images/pics/wash5.jpg"></center>'
		'You carefully wash the sperm off yourself.'

		act 'Exit':gt 'vanr'
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off your face (0:05)':
		cla
		*clr
		set mop = 1
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 5
		'<center><img src="images/etogame/facesp.jpg"></center>'
		'You carefully wash the sperm off your face.'

		act 'Exit':gt 'vanr'
	end
end

if mop ! 1:
	act 'Wash off cosmetics':
		cla
		set mop = 1
		set minut += 15
		'You wash the makeup from your face.'

		act 'Exit':gt 'vanr'
	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 give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'

		act 'Exit':gt 'vanr'
	end
end

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

		if vagina < 30:set vagina += 2

		'<center><img src="images/etogame/vibrator.jpg"></center>'
		'You bend over the sink and insert the vibrator in your pussy.'

		act 'Exit':gt 'vanr'
	end
end

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

		if vagina < 30:set vagina += 1

		'<center><img src="images/etogame/vibrator.jpg"></center>'
		'You bend over the sink and take the vibrator out of your pussy.'

		act 'Exit':gt 'vanr'
	end
end

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

		if anus < 30:set anus += 5
		'<center><img src="images/etogame/analplug.jpg"></center>'

		if butpluguse > 0:'You bend over and easily insert the anal plug.'
		if butpluguse = 0:set butpluguse = 1 & '"I do this not even touch, and why I bought it!" you thought. Then still decided to take a closer look. Feel, smell, in general, that ordinary gag. "Oh, was not, " you think, "Wow priest ever to develop, it will have great adventures, you could even say a huge and thick adventures with crimson heads, uh, that I got carried away." You scratched thin fingers unusually hairy head. Then you sent peg his ass, it was a bit painful when rastyagivatsya anus started taking a foreign object, but as soon as the widest part plunged into the murky depths of anal, it became easier and almost gag herself flew to the end, and got put on the manufacturer place.'

		act 'Exit':gt 'vanr'
	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>'

		if butpluguse > 0:'You bend over and pull the butt plug out.'

		act 'Exit':gt 'vanr'
	end
end

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

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

if husband > 0 and husbanday > 0 and huspolday ! day:
	act 'Clean the apartment (1:00)':
		cla
		*clr
		husband += 5
		set minut += 60
		huspolday = day
		manna -= 25
		!'<center><img src="images/pics/cook.jpg"></center>'
		'You take a rag and start cleaning the apartment.'

		act 'Leave':gt 'vanr'
	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.'
			!'father - <<$father>>.'
		else
			'The test showed one band.'
		end

		act 'further':gt $curloc
	end
end

--- vanr ---------------------------------