# 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
'
'
'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'
}
'Bathroom'
if remvanr = 0:'
'
if remvanr = 1:'
'
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 0:
'A box of tampons is on a shelf. There is enough for <> uses'
else
'You have no tampons.'
end
if stanok > 0:'A package of razors is on a shelf above the sink. You have enough blades for <> shaves.'
if dirtbelo>0:'The laundry basket currently has <> pieces of dirty laundry.'
if poroshok > 0:
if dirtbelo = 0:$stirka = ''
if dirtbelo > 0:$stirka = 'You can wash clothes'
'Under the sink there''s detergent powder, which is enough for <> washes. <<$stirka>>'
else
'You have no detergent powder and nothing to wash clothes with.'
end
if clrbelo > 0:
*p 'A cupboard contains <> pairs of clean underwear. '
else
*p 'You do not have any clean underwear. '
end
if shampoo > 0:
'You have enough shampoo for <> washes. You can wash yourself.'
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 <> 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
'
'
'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
'
'
'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
'
'
'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
'
'
'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
'
'
'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
'
'
'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
'
'
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
'
'
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
'
'
'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
!'
'
'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 ---------------------------------