# yvan
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><b><font color="maroon">House</font></b></center>'
'<center>Bathroom</center>'

if ymanrem[5] = 0:'<center><img src="images/etogame/ynill.jpg"></center>'
if ymanrem[5] = 1:'<center><img src="images/etogame/yrem.jpg"></center>'
if ymanrem[5] = 2:'<center><img src="images/etogame/yvan.jpg"></center>'
if ymanrem[5] = 2:'On the wall hangs a <a href="exec:gt ''mirror'', ''start''">mirror</a>'

clr
gs 'stat'

if tampon > 0:
	'On a shelf are tampons in a pack. You have <b><<tampon>></b> left'
else
	'<b><font color="red">You have no tampons left.</font></b>'
end

if stanok > 0:'On a shelf you have razor blades, you can use them <b><<stanok>></b> times.'
if dirtbelo > 0:'In the cart is <font color="red"><b><<dirtbelo>></b></font> pieces of dirty laundry.'

if poroshok > 0:
	'Under the bath is some washing powder, which is enough for <b><<poroshok>></b> washes.'
else
	'<b><font color="red">You do not have any detergent to wash your clothes.</font></b>'
end

if clrbelo > 0:
	'In the locker there are <font color="blue"><b><<clrbelo>></b></font> clean underwear.'
else
	'<b><font color="red">You can not wash yourself, because you do not have clean underwear.</font></b>'
end

'<a href="exec:gt ''vann'', ''start''">Start washing yourself</a>'

if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
	husband += 5
	set poroshok -= 2
	husporday = day
	'Washing machine washed your husbands smelly socks and his clothes.'
end

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

act 'Leave the room':minut += 1 & gt 'ymans'

if tanga = 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt $curloc
	end
end

if tanga = 1:
	act 'Take off underwear':
		cla
		set tanga = 0
		gt $curloc
	end
end


if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Use a tampon (0:05)':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images/pics/wash3.jpg"></center>'
		'You use a tampon.'

		act 'Finish':gt $curloc
	end
end

!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
!!Washing off cosmetics also removes cum from face
!!clrbelo: Amount of clean panties availableniform in all toilet/bathroom locations
if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
	act 'Quick wash (0:15)':
		cla
		*clr
		dynamic $showerdin
		set sweat -= 1
		set minut += 15
		set clrbelo -= 1
		set dirtbelo += 1
		'<center><img src="images/pics/wash5.jpg"></center>'
		'You gave yourself a catlick, thus removing any traces of cum.'

		act 'Finish':gt $curloc
	end
end

if cumlip > 0 or cumface > 0:
	act 'Clean your face from sperm (0:05)':
		cla
		*clr
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 5
		'<center><img src="images/etogame/facesp.jpg"></center>'
		'You clean your face and got rid of any trace of cum.'

		act 'Finish':gt $curloc
	end
end

if mop ! 1:
	act 'Wash off cosmetics (0:15)':
		cla
		set mop = 1
		set cumface = 0
		set minut += 15
		'You washed off your makeup.'

		act 'Finish':gt $curloc
	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 is ready for anal sex.'

		act 'Finish':gt $curloc
	end
end

if vibrator = 1 and vibratorIN = 0:
	act 'Insert the vibrator in your vagina (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 inserted the vibrator in your pussy.'

		act 'Finish':gt $curloc
	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 'Finish':gt $curloc
	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 inserted the butt plug.'
		if butpluguse = 0:set butpluguse = 1 & '"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'

		act 'Finish':gt $curloc
	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>'
		'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check

		act 'Finish':gt $curloc
	end
end

--- yvan ---------------------------------