# yvan
CLOSE ALL

$metka = ''
$loc = 'yvan'
$metkaM = ''
$locM = 'yvan'
$location_type = 'bathroom'
clr
gs 'stat'
'<center><b><font color="maroon">House</font></b></center>'
'<center>Bathroom</center>'

if ymanrem[5] = 0:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ynill.jpg"></center>'
if ymanrem[5] = 1:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yrem.jpg"></center>'
if ymanrem[5] = 2:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yvan.jpg"></center>'
if ymanrem[5] = 2:'On the wall hangs a <a href="exec:gt ''mirror'', ''start''">mirror</a>. You can <a href="exec: gt''vann'',''start''">wash yourself</a>.'

if shampoo > 0:
	'You have enough shampoo for <b><<shampoo>></b> washes.'
else
	'You''ve run out of shampoo and will have to get some more before you can wash yourself.'
end

if tampon = 0 and sanpad = 0:
	'<b><font color="red">You have no tampons left.</font></b>'
elseif tampon = 1:
	'<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
else
	'On a shelf are tampons in a pack. You have <b><<tampon>></b> tampons left.'
end
if sanpad = 0 and tampon = 0:
	'<b><font color="red">You have no pads left.</font></b>'
elseif sanpad = 1:
	'<font color="red">You have only <b><<sanpad>></b> pad left.</font>'
else
	'On a shelf are sanitary pads in a pack. You have <b><<sanpad>></b> pads left.'
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 do not have any clean underwear.</font></b>'
end

if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
	husband += 5
	poroshok -= 2
	husporday = daystart
	'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'

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

if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
	act 'Give yourself an enema (0:05)':
		cla
		*clr
		cumspclnt = 7
		gs 'cum_cleanup'
		minut += 5
		klismaday = daystart
		klismaday1= 1
		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
		'You gave yourself an enema and cleaned your 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
		minut += 5
		vibratorIN = 1
		if pcs_vag < 30:pcs_vag += 2
		'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
		'You bent over the sink and inserted the vibrator in your pussy.'

		act 'Finish':gt $curloc
	end
elseif vibrator = 1 and vibratorIN = 1:
	act 'Remove the vibrator (0:05)':
		cla
		*clr
		minut += 5
		vibratorIN = 0

		if pcs_vag < 30:pcs_vag += 1

		'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
		'You bent over the sink and took the vibrator out of your pussy.'

		act 'Finish':gt $curloc
	end
end

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

		if pcs_ass < 30:pcs_ass += 5

		'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'

		if butpluguse > 0:'You bent over and inserted the butt plug.'
		if butpluguse = 0: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 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
elseif analplug = 1 and analplugin = 1:
	act 'Remove the butt plug (0:05)':
		cla
		*clr
		minut += 5
		analplugIN = 0

		if pcs_ass < 30:pcs_ass += 1

		'<center><img <<$set_imgh>> src="images/pc/body/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 ---------------------------------