glife/locations/153_vanr

# vanr
ACT 'Go to the corridor':
	gt 'korr'
END
$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 soaked the dirty linen in a basin and poured the powder on them. You wash the clothes until they''re 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 remvanr = 1:'There is a <a href="exec:GT ''mirror'',''start''">mirror</a> just above the sync.'

if tampon > 0:
'On a shelf is packing tampons. It will be enough for <B><<tampon>></B> times'
else
'<B><font color = red>You have no tampons.</font></B>'
end
if stanok > 0: 'On a shelf above the sink are razors. You have enough blades for <B><<stanok>></B> shaves.'

if clrbelo > 0:
	*p'In the cupboard is <font color=blue><B><<clrbelo>></B></font> pairs of clean underwear. '
else
	*p'<B><font color=red>You do not have clean underwear.</font></B>'
end
if dirtbelo>0:'In the hamper is <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 shampoo > 0:
'Do you have enough shampoo for <b><<shampoo>></b> times. 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 shampoo > 0:
	act 'Wash yourself':
		gt'vann','start'
	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 washed sperm in the bathroom.'
	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 washed 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 washed 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 bent over the sink and inserted 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 bent over the sink and took 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 bent over and habitual movement itself anal plug inserted.'
	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 bent over and took a familiar movement of themselves butt plug.'
	act 'Exit': gt 'vanr'
	end
end

if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
	act 'Wash your husbands clothes 1:00 (2 units of washing powder)':
	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 took a rag and started cleaning the apartment.'
	act 'Leave': gt 'vanr'
	end
end
--- vanr ---------------------------------