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 linen in a basin and poured the powder there, and then you become a wash clothes until it finally became clear.'
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
		'Washing machine laundered 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 is a machine for shaving, it will have the blades that would shave <B><<stanok>></B> times.'

if clrbelo > 0:
	*p'In the locker is <font color=blue><B><<clrbelo>></B></font> clean linen.'
else
	*p'<B><font color=red>You do not have clean underwear.</font></B>'
end
if dirtbelo>0:'In the cart is <font color=red><B><<dirtbelo>></B></font> units 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 bath worth can detergent powder, which is enough for <B><<poroshok>></B> washes. <<$stirka>>'
else
'<B><font color = red>You do not have detergent and nothing to wash clothes.</font></B>'
end

if shampoo > 0:
'Do you have enough shampoo <b><<shampoo>></b> times. You can <a href="exec: gt ''vann'',''start'' ">Washing</a>.'
else
'You ran out of shampoo, so problems with washing.'
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, 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 'Washing':
		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 the 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 sperm from her face.'
	act 'Exit': gt 'vanr'
	end
end

if mop ! 1:
	act 'Wash off cosmetics':
	cla
	set mop = 1
	set minut += 15
	'You flushed makeup.'
	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 put yourself an enema and clean intestines, now your ass 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 and inserted the phallic object their 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 and took the vibrator out of the vagina.'
	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 clothes husband 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 an hour washes smelly socks husband 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 'Cl ean 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 ---------------------------------